Cas01 preimenovan, dodate XDS verzije koda

[spa2-teorijske-vezbe.git] / 01. Dvosmerni Recnik / XDS / RECNIKATP.DEF

diff --git a/01. Dvosmerni Recnik/XDS/RECNIKATP.DEF b/01. Dvosmerni Recnik/XDS/RECNIKATP.DEF
new file mode 100644 (file)
index 0000000..92a237a
--- /dev/null
+++ b/01. Dvosmerni Recnik/XDS/RECNIKATP.DEF
@@ -0,0 +1,42 @@
+DEFINITION MODULE RecnikATP;\r
+\r
+  CONST\r
+    Broj = 11; (* Neki prost broj *)\r
+    MaxDuzRec = 50;\r
+    MaxTabela = Broj - 1;\r
+\r
+  TYPE\r
+    String = ARRAY [1 .. MaxDuzRec] OF CHAR;\r
+    Lista = POINTER TO Element;\r
+    Element = RECORD\r
+                Veza, Prevod: Lista;\r
+                Rec: String;\r
+            END;\r
+    Indeksi = [0 .. MaxTabela];\r
+    Tabela = ARRAY Indeksi OF Lista;\r
+    Recnik = RECORD\r
+               BrojReci: CARDINAL;\r
+               Domace, Strane: Tabela;\r
+             END;\r
+\r
+  PROCEDURE Inicijalizuj(VAR R: Recnik);\r
+  PROCEDURE Unisti(VAR R: Recnik);\r
+\r
+  PROCEDURE Ubaci(DomacaRec, StranaRec: String;\r
+                  VAR R: Recnik;\r
+                  VAR Duplikat: BOOLEAN);\r
+\r
+  PROCEDURE Izbaci(Rec: String;\r
+                   VAR R: Recnik;\r
+                   Domaca: BOOLEAN;\r
+                   VAR Ok: BOOLEAN);\r
+\r
+  PROCEDURE Prevedi(StranaNaDomacu: BOOLEAN;\r
+                    Rec: String;\r
+                    VAR Prevod: String;\r
+                    VAR R: Recnik;\r
+                    VAR Ok: BOOLEAN);\r
+\r
+  PROCEDURE Sadrzaj(VAR R: Recnik);\r
+\r
+END RecnikATP.\r