Posted to tcl by mjanssen at Tue Feb 05 20:31:35 GMT 2008view pretty
proc called {lv0 op} { set cmd [lindex $lv0 0] set ::called($cmd) "" } foreach cmd [info commands *] { trace add execution $cmd enter called array unset ::called * } array unset called * package require asn puts [array names called]