Posted to tcl by mjanssen_ at Fri Jun 29 13:06:40 GMT 2007view pretty
interp create user # remove all commands for user foreach cmd [user eval {info commands}] {if {$cmd ne "rename"} {user eval [list rename $cmd {}]}} user eval "rename rename {}" # create the interp that will execute all code interp create main main eval {proc test1 {} {test2}} main eval {proc test2 {} {puts "yes I can call test2"}} interp alias user test1 main test1 user eval test1 user eval test2