kodovi/stek-redopsl/Stek.def

   1 DEFINITION MODULE Stek;
   2 FROM Info IMPORT InfoTip;
   3
   4 CONST
   5   Maxstek = 100;
   6 TYPE
   7   Niz = ARRAY[1..Maxstek] OF InfoTip;
   8   StekTip = RECORD
   9             Top : CARDINAL;
  10             Element : Niz
  11           END;
  12
  13 PROCEDURE MakeNull(VAR s : StekTip);
  14 PROCEDURE Empty(VAR s : StekTip) : BOOLEAN;
  15
  16 PROCEDURE Top(VAR s : StekTip;
  17               VAR x : InfoTip;
  18               VAR ok : BOOLEAN);
  19 PROCEDURE Pop(VAR s : StekTip;
  20               VAR ok : BOOLEAN);
  21 PROCEDURE Push(VAR s : StekTip;
  22                x : InfoTip;
  23                VAR ok : BOOLEAN);
  24
  25 END Stek.