Posted to tcl by venks at Sun Jul 05 10:39:14 GMT 2015view raw
- 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)"