Posted to tcl by mjanssen at Tue Feb 05 20:31:35 GMT 2008view raw
- 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]