Posted to tcl by venks at Sun Jul 05 10:39:14 GMT 2015view raw

  1. proc cvxt::stracer {junk var op} {
  2. if {$var == ""} return
  3. switch $op {
  4. r {
  5. ::cvxt::printf "Child Read trace called on $var in ($::cvxt::id)\n"
  6. set ::cvxt::shvar($var) [cvxt::sset $var]
  7. }
  8. w {
  9. ::cvxt::printf "Child Write trace called on $var in ($::cvxt::id)\n"
  10. set val [list shvar_set [list $var $::cvxt::shvar($var)]]
  11. lappend ::cvxt::send_val($::cvxt::id) $val
  12. }
  13. }
  14. }
  15.  
  16. trace variable ::cvxt::shvar rw ::cvxt::stracer
  17.  

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