Posted to tcl by rmax at Wed Jan 08 14:30:59 GMT 2014view raw
- proc log {args} {
- set time [expr [clock seconds] - $::start]
- puts [format "\[%02d\] %s" $time $args]
- }
- proc call {conn_id} {
- set ::a_vwait($conn_id) 0
- after 5000 cb $conn_id
- }
- proc cb {conn_id} {
- set ::a_vwait($conn_id) 1
- }
- proc testloop {args} {
- puts "..."
- after 600 {testloop}
- }
- trace add execution call enter log
- trace add execution call leave log
- trace add execution cb enter log
- trace add execution cb leave log
- set start [clock seconds]
- after 0 {testloop}
- after 2000 {call 1}
- after 4000 {call 2}
- after 6000 {call 3}
- after 15000 {exit}
- vwait forever