01. Dvosmerni Recnik/XDS/RECNIKATP.DEF

   1 DEFINITION MODULE RecnikATP;
   2
   3   CONST
   4     Broj = 11; (* Neki prost broj *)
   5     MaxDuzRec = 50;
   6     MaxTabela = Broj - 1;
   7
   8   TYPE
   9     String = ARRAY [1 .. MaxDuzRec] OF CHAR;
  10     Lista = POINTER TO Element;
  11     Element = RECORD
  12                 Veza, Prevod: Lista;
  13                 Rec: String;
  14             END;
  15     Indeksi = [0 .. MaxTabela];
  16     Tabela = ARRAY Indeksi OF Lista;
  17     Recnik = RECORD
  18                BrojReci: CARDINAL;
  19                Domace, Strane: Tabela;
  20              END;
  21
  22   PROCEDURE Inicijalizuj(VAR R: Recnik);
  23   PROCEDURE Unisti(VAR R: Recnik);
  24
  25   PROCEDURE Ubaci(DomacaRec, StranaRec: String;
  26                   VAR R: Recnik;
  27                   VAR Duplikat: BOOLEAN);
  28
  29   PROCEDURE Izbaci(Rec: String;
  30                    VAR R: Recnik;
  31                    Domaca: BOOLEAN;
  32                    VAR Ok: BOOLEAN);
  33
  34   PROCEDURE Prevedi(StranaNaDomacu: BOOLEAN;
  35                     Rec: String;
  36                     VAR Prevod: String;
  37                     VAR R: Recnik;
  38                     VAR Ok: BOOLEAN);
  39
  40   PROCEDURE Sadrzaj(VAR R: Recnik);
  41
  42 END RecnikATP.