Posted to tcl by Whiskey at Thu Mar 21 15:27:58 GMT 2013view pretty
# Create queue proc isQueue {$one $two $three $four $five $six $seven} { # Create queue set queue [struct::queue] # Put jobs in queue $queue put [list isAddURL-Thread "$one" "$two" "$three" "$four" "$five" "$six" "$seven"] # Check for jobs in queuez while {[$queue size]} { eval [$queue get] } # Remove queue $queue destroy }
Comments
Posted by Whiskey at Thu Mar 21 15:34:10 GMT 2013 [text] [code]
Debug: OldURL / Time: 133µs Debug: OldURL / Time: 286µs URL-Thread: tid0x7fb31b7fe700 URL-Thread: tid0x7fb31b7fe700 Debug: isAddURL-Thread / Time: 5s Debug: isAddURL-Thread / Time: 10s