Posted to tcl by miguel at Sat May 07 14:46:21 GMT 2011view raw

  1. # invoking rule 4
  2. set temp [::site::RULE_4]
  3.  
  4. # invoking rule 5
  5. set hum [::site::RULE_5]
  6.  
  7. # invoking scope 1
  8. ::P::Defer
  9. ::apply [lindex [dict get $LAMBDAS 1] 0] $LAMBDAS $hum $temp
  10.  
  11. # invoking scope 2
  12. ::P::Defer
  13. ::apply [lindex [dict get $LAMBDAS 2] 0] $LAMBDAS $hum $temp
  14.  
  15. # invoking scope 3
  16. ::P::Defer
  17. ::apply [lindex [dict get $LAMBDAS 3] 0] $LAMBDAS $hum $temp
  18.  
  19. namespace upvar ::P LOGGED_VARS LOGGED_VARS
  20. lappend LOGGED_VARS 0 temp $temp
  21. } ::site} LAMBDAS {}
  22.