Posted to tcl by venks at Sun Jul 05 10:39:14 GMT 2015view pretty
proc cvxt::stracer {junk var op} { if {$var == ""} return switch $op { r { ::cvxt::printf "Child Read trace called on $var in ($::cvxt::id)\n" set ::cvxt::shvar($var) [cvxt::sset $var] } w { ::cvxt::printf "Child Write trace called on $var in ($::cvxt::id)\n" set val [list shvar_set [list $var $::cvxt::shvar($var)]] lappend ::cvxt::send_val($::cvxt::id) $val } } } trace variable ::cvxt::shvar rw ::cvxt::stracer
Comments
Posted by venks at Sun Jul 05 11:07:54 GMT 2015 [text] [code]
cvxt::printf [::cvxt::sset sv2]\n cvxt::printf [trace vinfo ::cvxt::shvar]\n cvxt::printf $::cvxt::shvar(sv2) Prints: Biz-Alzing {rw ::cvxt::stracer} Thread/Branch 1.0 failed. TCL LOOKUP VARNAME ::cvxt::shvar can't read "::cvxt::shvar(sv2)": no such variable while executing "cvxt::printf $::cvxt::shvar(sv2)"