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

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

diff --git a/kodovi/stek-redopsl/Stek.def b/kodovi/stek-redopsl/Stek.def
new file mode 100755 (executable)
index 0000000..0b6a37a
--- /dev/null
+++ b/kodovi/stek-redopsl/Stek.def
@@ -0,0 +1,25 @@
+DEFINITION MODULE Stek;\r
+FROM Info IMPORT InfoTip;\r
+\r
+CONST\r
+  Maxstek = 100;\r
+TYPE\r
+  Niz = ARRAY[1..Maxstek] OF InfoTip;\r
+  StekTip = RECORD\r
+            Top : CARDINAL;\r
+            Element : Niz\r
+          END;\r
+\r
+PROCEDURE MakeNull(VAR s : StekTip);\r
+PROCEDURE Empty(VAR s : StekTip) : BOOLEAN;\r
+\r
+PROCEDURE Top(VAR s : StekTip;\r
+              VAR x : InfoTip;\r
+              VAR ok : BOOLEAN);\r
+PROCEDURE Pop(VAR s : StekTip;\r
+              VAR ok : BOOLEAN);\r
+PROCEDURE Push(VAR s : StekTip;\r
+               x : InfoTip;\r
+               VAR ok : BOOLEAN);\r
+\r
+END Stek.\r