Posted to tcl by aspect at Mon Dec 07 22:39:33 GMT 2020view pretty
proc t_enter {cmd _} { puts "[string repeat > [info level]] {cmd}" } proc t_leave {cmd code res _} { if {$code} return puts "[string repeat < [info level]] {$res}" } trace add execution compute2 enter t_enter trace add execution compute2 leave t_leave