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]