dodati Stek i RedOpsl kodovi u repo (ne i skriptu)

[spa1skripta-public.git] / kodovi / stek-redopsl / RedOpsl.def

diff --git a/kodovi/stek-redopsl/RedOpsl.def b/kodovi/stek-redopsl/RedOpsl.def
new file mode 100755 (executable)
index 0000000..94e0083
--- /dev/null
+++ b/kodovi/stek-redopsl/RedOpsl.def
@@ -0,0 +1,24 @@
+DEFINITION MODULE RedOpsl;\r
+FROM Info IMPORT InfoTip;\r
+\r
+CONST\r
+  Maxred = 100;\r
+TYPE\r
+  Niz = ARRAY[1..Maxred] OF InfoTip;\r
+  RedOpslTip = RECORD\r
+            Prvi, Zadnji : CARDINAL;\r
+            Element : Niz\r
+          END;\r
+       \r
+PROCEDURE MakeNull(VAR q : RedOpslTip);\r
+PROCEDURE Empty(VAR q : RedOpslTip) : BOOLEAN;\r
+PROCEDURE First(VAR q : RedOpslTip;\r
+                VAR x : InfoTip;\r
+                VAR ok : BOOLEAN);\r
+PROCEDURE PopFirst(VAR q : RedOpslTip;\r
+                   VAR ok : BOOLEAN);\r
+PROCEDURE AddRear(VAR q : RedOpslTip;\r
+                  x : InfoTip;\r
+                  VAR ok : BOOLEAN);\r
+\r
+END RedOpsl.\r