Posted to tcl by Whiskey at Thu Mar 21 15:27:58 GMT 2013view raw
- # 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