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)"