Posted to tcl by Whiskey at Thu Mar 21 15:27:58 GMT 2013view raw

  1. # Create queue
  2. proc isQueue {$one $two $three $four $five $six $seven} {
  3.  
  4. # Create queue
  5. set queue [struct::queue]
  6.  
  7. # Put jobs in queue
  8. $queue put [list isAddURL-Thread "$one" "$two" "$three" "$four" "$five" "$six" "$seven"]
  9.  
  10. # Check for jobs in queuez
  11. while {[$queue size]} {
  12. eval [$queue get]
  13. }
  14.  
  15. # Remove queue
  16. $queue destroy
  17. }

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