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