Posted to tcl by Setok at Mon Jan 04 22:18:22 GMT 2010view raw
- set MyDir [file dirname [info script]]
- proc ' {msg args} {
- puts "Msg: $msg"
- }
- proc subunknown {args} {
- }
- set file [open [file join $MyDir script.tcl] r]
- set script [read $file]
- close $file
- interp create sub
- set cmds [sub eval {info commands}]
- puts "Cmds: $cmds"
- foreach cmd $cmds {
- sub hide $cmd
- }
- interp alias sub ' {} '
- interp alias sub unknown {} subunknown
- # We don't care about variables. Take them away
- set script [string map {\$ ""} $script]
- sub invokehidden -global subst -novariables $script