Tcl - new [commands]

[William Coleda]

Added some more list-based commands.

Added upvar (alias to caller's variables), uplevel (execute code in caller's scope). (or your caller's caller, or...)

Also added a non-standard "inline" command so you can do:

oolong:~/research/parrot/languages/tcl/examples coke$ cat inline.tcl
inline PIR {
.sub junk
$P0 = new String
$P0 = "nifty"
store_lex 0, "a", $P0
.end
}
puts $a
oolong:~/research/parrot/languages/tcl/examples coke$ make inline
cd ../../../ && ./parrot languages/tcl/tcl.pbc languages/tcl/examples/inline.tcl
nifty

Volunteers welcome. =-)