From 1bfc6dcaa2cfe051b26b3c205b8405790d593a5b Mon Sep 17 00:00:00 2001
From: Per Hedbor <ph@opera.com>
Date: Mon, 29 Nov 1999 19:23:50 +0100
Subject: [PATCH] ADT.Queue is better than ADT.queue
Rev: lib/modules/ADT.pmod/queue.pike:1.6
---
.gitattributes | 1 -
lib/modules/ADT.pmod/queue.pike | 58 ++-------------------------------
2 files changed, 2 insertions(+), 57 deletions(-)
diff --git a/.gitattributes b/.gitattributes
index 9d57714058..5f55dccf6f 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -31,7 +31,6 @@ testfont binary
/bin/test_pike.pike foreign_ident
/lib/master.pike.in foreign_ident
/lib/modules/ADT.pmod/Table.pmod foreign_ident
-/lib/modules/ADT.pmod/queue.pike foreign_ident
/lib/modules/Crypto/des3.pike foreign_ident
/lib/modules/Crypto/des3_cbc.pike foreign_ident
/lib/modules/Crypto/des_cbc.pike foreign_ident
diff --git a/lib/modules/ADT.pmod/queue.pike b/lib/modules/ADT.pmod/queue.pike
index 6b76a83584..8a9bd08b04 100644
--- a/lib/modules/ADT.pmod/queue.pike
+++ b/lib/modules/ADT.pmod/queue.pike
@@ -1,56 +1,2 @@
-/* $Id: queue.pike,v 1.5 1997/05/31 22:03:44 grubba Exp $
- *
- * A simple FIFO queue.
- */
-
-#define QUEUE_SIZE 100
-
-array l;
-int head;
-int tail;
-
-void create(mixed ...args)
-{
- l = args + allocate(QUEUE_SIZE);
- head = sizeof(args);
- tail = 0;
-}
-
-void put(mixed item)
-{
- if (head == sizeof(l))
- {
- l = l[tail ..];
- head -= tail;
- tail = 0;
- l += allocate(sizeof(l) + QUEUE_SIZE);
- }
- l[head++] = item;
-// werror(sprintf("Queue->put: %O\n", l[tail..head-1]));
-}
-
-mixed get()
-{
-// werror(sprintf("Queue->get: %O\n", l[tail..head-1]));
- mixed res;
- if (tail == head)
- return 0;
- res = l[tail];
- l[tail++] = 0;
- return res;
-}
-
-mixed peek()
-{
- return (tail < head) && l[tail];
-}
-
-int is_empty()
-{
- return (tail == head);
-}
-
-void flush()
-{
- create();
-}
+/* Compatibility name */
+inherit .Queue;
--
GitLab