Posted to tcl by gps at Sun Apr 05 00:18:05 GMT 2009view raw
- set i [interp create]
- set sec [expr {[clock seconds] + 5}]
- interp limit $i time -seconds $sec -command [list callback $i]
- proc callback {i} {
- puts "limit hit... increasing limit..."
- set sec [expr {[clock seconds] + 5}]
- interp limit $i time -seconds $sec -command [list callback $i]
- }
- $i eval {
- while 1 {}
- }