Version 18 of namespace code

: namespace code script

Captures the current namespace context for later execution of the script script. It returns a new script in which script has been wrapped in a namespace inscope command. The new script has two important properties. First, it can be evaluated in any namespace and will cause script to be evaluated in the current namespace (the one where the namespace code command was invoked). Second, additional arguments can be appended to the resulting script and they will be passed to script as additional arguments. For example, suppose the command set script [namespace code {foo bar}] is invoked in namespace ::a::b. Then eval "$script x y" can be executed in any namespace (assuming the value of script has been passed in properly) and will have the same effect as the command ::namespace eval ::a::b {foo bar x y}. This command is needed because extensions like Tk normally execute callback scripts in the global namespace. A scoped command captures a command together with its namespace context in a way that allows it to be executed properly later.

From the Tcl chatroom on 2004-11-03:

dkf: You can probably hack something like autoexpansion with the help of namespace code

 proc lambdaish args {uplevel 1 [list ::namespace code $args]}
 % [lambdaish format %.3f] [expr {atan2(0,-1)}]
 3.142

suchenwi: Cool, Donal! It's not exactly lambdaish, as it doesn't take a parameter list... which is half a lambda. Why not just call it "curry"?

 % [curry format %.3f] [expr {atan2(0,-1)}]
        3.142

Somehow makes more sense to me...

dkf: Pop that on the wiki. It also should work with any version of Tcl from 8.0 onwards.

jenglish: the 'namespace code' trick, alas, is not cool at all -- it relies on an undocumented, hairy, and almost-certainly-incorrect misfeature of unknown.

dkf: It's an intended feature of unknown. It's a crazy aunt and not just a bug. There's too much code enforcing it in namespace.test for me to believe it to be anything other than intended. namespace code is just a constructor for namespace inscope

In [L1 ], DGP has this to say about the "crazy aunt":

: That code in unknown is a workaround for alleged brokenness in Itcl. No correctly written code should ever end up there.
: If you do end up there, your program is probably missing an {*} or an eval where one is needed. Correct that.
: The only fix I plan to ever make to that bit of code is its removal.

(DKF: The "feature" is gone from Tcl 8.6...)

AMG: That explains why I had to add an {*} expansion to Wibble [L2 ]. I was wondering why it wasn't needed previously.

specify fix parameters to callback command

HaO 2008-09-02: When using namespace code to reference a namespace local function, one may use concat to add parameter values from the current scope. If the reference gets any parameters, they are added after this parameter:

namespace eval mynamespace {
    namespace export getreference
    proc callback {fix variable} {
        puts "Called with: <$fix> <$variable>"
    }
    proc getreference {fix} {
        return [concat [namespace code callback] [list $fix]]
    }
}
namespace import mynamespace::*
set Ref [getreference "fix value"]
--> ::namespace inscope ::mynamespace callback {fix value}
eval $Ref {"variable value"}
--> Called with: <fix value> <variable value>
eval $Ref {"another value"}
--> Called with: <fix value> <another value>

The same result may be acheved by using only list (only differences to the upper example shown). The first argument is now within the command list which works too:

...
    proc getreference {fix} {
        return [namespace code [list callback $fix]]
    }
...
set Ref [getreference "fix value"]
--> ::namespace inscope ::mynamespace {callback {fix value}}
...

or the tcl 8.5 delist operator and list:

...
    proc getreference {fix} {
        return [list {*}[namespace code callback] $fix]
    }
...
set Ref [getreference "fix value"]
--> ::namespace inscope ::mynamespace callback {fix value}
...

HaO 2012-12-17: The following errorneous way worked until tcl 8.6. Here is the tcl8.6 error message:

...
    proc getreference {fix} {
        return [list [namespace code callback] $fix]
    }
...
set Ref [getreference "fix value"]
--> {::namespace inscope ::mynamespace callback} {fix value}
...
after 10 "$Ref 1"
--> bgerror: invalid command name "::namespace inscope ::mynamespace callback"

Here is the explanation on clt by Don Porter:

Crazy Aunt Millie is dead.

In 8.5, your broken code works because ages ago, a workaround was
actually put into Tcl's default [unknown] command to forgive broken
code, and attempt to "Do What They Mean".  It's been murky for a long
time just who we were helping with this.  Legends claimed Itcl needed
it, but the evidence was pretty weak.  Taking it out did not break Itcl.

In 8.6 we stopped doing that.  We expect programmers to code what they
mean.  That means putting {*} where they go.  Or, if you just really
like what you had -- or have too much code to correct -- then put
the forgiving [unknown] back yourself, or even just in your namespace
with [namespace unknown].

Version 18 of namespace code

See also