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

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

diff --git a/kodovi/stek-redopsl/Stek.mod b/kodovi/stek-redopsl/Stek.mod
new file mode 100755 (executable)
index 0000000..df3369c
--- /dev/null
+++ b/kodovi/stek-redopsl/Stek.mod
@@ -0,0 +1,54 @@
+IMPLEMENTATION MODULE Stek;\r
+FROM Info IMPORT InfoTip;\r
+\r
+PROCEDURE MakeNull(VAR s : StekTip);\r
+BEGIN\r
+  s.Top := 0\r
+END MakeNull;\r
+\r
+PROCEDURE Empty(VAR s : StekTip) : BOOLEAN;\r
+BEGIN\r
+  RETURN s.Top = 0\r
+END Empty;\r
+\r
+PROCEDURE Top(VAR s : StekTip;\r
+              VAR x : InfoTip;\r
+              VAR ok : BOOLEAN);\r
+BEGIN\r
+  IF Empty(s) THEN\r
+    ok := FALSE\r
+  ELSE\r
+    ok := TRUE;\r
+    WITH s DO\r
+      x := Element[Top]\r
+    END\r
+  END\r
+END Top;\r
+\r
+PROCEDURE Pop(VAR s : StekTip;\r
+              VAR ok : BOOLEAN);\r
+BEGIN\r
+  IF Empty(s) THEN\r
+    ok := FALSE\r
+  ELSE\r
+    ok := TRUE;\r
+    DEC(s.Top)\r
+  END\r
+END Pop;\r
+\r
+PROCEDURE Push(VAR s : StekTip;\r
+               x : InfoTip;\r
+               VAR ok : BOOLEAN);\r
+BEGIN\r
+  WITH s DO\r
+    IF Top = Maxstek THEN\r
+      ok := FALSE\r
+    ELSE\r
+      ok := TRUE;\r
+      INC(Top);\r
+      Element[Top] := x\r
+    END\r
+  END\r
+END Push;\r
+\r
+END Stek.\r