From 9b47ade2394becce870d195f198c235b3275ed34 Mon Sep 17 00:00:00 2001
From: Charles <sircharlesaze@gmail.com>
Date: Sat, 7 Dec 2019 11:22:54 +0100
Subject: Basic Graphics (bindings are working! game/graphics/queue packages
 draft

---
 queue.ads | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 queue.ads

(limited to 'queue.ads')

diff --git a/queue.ads b/queue.ads
new file mode 100644
index 0000000..e0da54c
--- /dev/null
+++ b/queue.ads
@@ -0,0 +1,21 @@
+generic
+	type T_Data is limited private;
+package Queue is
+
+	type T_Queue is record
+		front: T_List;
+		back:  T_List;
+	end record;
+
+	type T_List_Cell;
+	type T_List is access T_List_Cell;
+	type T_List_Cell is record
+		data: T_Data;
+		next: T_List;
+	end record;
+
+	procedure Enqueue(queue: T_Queue;
+		              data: T_Data);
+	procedure Dequeue(queue: T_Queue);
+
+end Queue;
-- 
cgit