Posted to tcl by mjanssen_ at Fri Jun 29 13:06:40 GMT 2007view raw

  1. interp create user
  2. # remove all commands for user
  3. foreach cmd [user eval {info commands}] {if {$cmd ne "rename"} {user eval [list rename $cmd {}]}}
  4. user eval "rename rename {}"
  5.  
  6. # create the interp that will execute all code
  7. interp create main
  8. main eval {proc test1 {} {test2}}
  9. main eval {proc test2 {} {puts "yes I can call test2"}}
  10. interp alias user test1 main test1
  11. user eval test1
  12. user eval test2