Posted to tcl by mjanssen at Tue Feb 05 20:31:35 GMT 2008view raw

  1. proc called {lv0 op} {
  2. set cmd [lindex $lv0 0]
  3. set ::called($cmd) ""
  4. }
  5.  
  6. foreach cmd [info commands *] {
  7. trace add execution $cmd enter called
  8. array unset ::called *
  9. }
  10.  
  11. array unset called *
  12. package require asn
  13. puts [array names called]