Changeset 731 for trunk/modules/queue.tcl

Timestamp:

10/05/06 17:56:30 (2 years ago)

Author:

james

Message:

add queue freeze/thaw

Files:

• trunk/modules/queue.tcl (modified) (3 diffs)

trunk/modules/queue.tcl

@@ -28 +28 @@
 #A rehash should kill the queue
 set bMotion_queue [list]
+set bMotion_queue_runny 1
 
 # queue format is:
@@ -41 +42 @@
 # 0 then it is sent to output
 # This also sends stuff to remote bots
-proc bMotion_queue_run { } {
-  global bMotion_queue
+proc bMotion_queue_run { {force 0} } {
+  global bMotion_queue bMotion_queue_runny
+
+        if {$bMotion_queue_runny == 0} {
+                if {$force == 0} {
+                        #queue is frozen
+                        return 0
+                } else {
+                        bMotion_putloglev d * "Running queue once while frozen"
+                }
+        }
 
   set tempqueue [list]
@@ -147 +157 @@
 }
 
+# bMotion_queue_freeze
+#
+# Stops queue output
+proc bMotion_queue_freeze { } {
+        global bMotion_queue_runny
+
+        set bMotion_queue_runny 0
+        bMotion_putloglev d * "Freezing output queue"
+}
+
+proc bMotion_queue_thaw { } {
+        global bMotion_queue_runny
+
+        set bMotion_queue_runny 1
+        bMotion_putloglev d * "Thawing output queue"
+}
+
 # init timer
 utimer 1 bMotion_queue_callback