Posted to tcl by aspect at Mon Dec 07 22:39:33 GMT 2020view raw

  1. proc t_enter {cmd _} {
  2. puts "[string repeat > [info level]] {cmd}"
  3. }
  4. proc t_leave {cmd code res _} {
  5. if {$code} return
  6. puts "[string repeat < [info level]] {$res}"
  7. }
  8. trace add execution compute2 enter t_enter
  9. trace add execution compute2 leave t_leave
  10.  
  11.