Basic Graphics (bindings are working! game/graphics/queue packages draft

1 files changed, 21 insertions, 0 deletions

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;