tasks a-s

Task/Queue-Definition/NetRexx/queue-definition.netrexx

@@ -0,0 +1,35 @@
+/* NetRexx */
+options replace format comments java crossref savelog symbols nobinary
+
+mqueue = ArrayDeque()
+
+viewQueue(mqueue)
+
+a = "Fred"
+mqueue.push('')      /* Puts an empty line onto the queue */
+mqueue.push(a 2)     /* Puts "Fred 2" onto the queue */
+viewQueue(mqueue)
+
+a = "Toft"
+mqueue.add(a 2)      /* Enqueues "Toft 2" */
+mqueue.add('')       /* Enqueues an empty line behind the last */
+viewQueue(mqueue)
+
+loop q_ = 1 while mqueue.size > 0
+  parse mqueue.pop.toString line
+  say q_.right(3)':' line
+  end q_
+viewQueue(mqueue)
+
+return
+
+method viewQueue(mqueue = Deque) private static
+
+   If mqueue.size = 0 then do
+    Say 'Queue is empty'
+    end
+  else do
+    Say 'There are' mqueue.size 'elements in the queue'
+    end
+
+  return