kodovi/stek-redopsl/RedOpsl.def

   1 DEFINITION MODULE RedOpsl;
   2 FROM Info IMPORT InfoTip;
   3
   4 CONST
   5   Maxred = 100;
   6 TYPE
   7   Niz = ARRAY[1..Maxred] OF InfoTip;
   8   RedOpslTip = RECORD
   9             Prvi, Zadnji : CARDINAL;
  10             Element : Niz
  11           END;
  12
  13 PROCEDURE MakeNull(VAR q : RedOpslTip);
  14 PROCEDURE Empty(VAR q : RedOpslTip) : BOOLEAN;
  15 PROCEDURE First(VAR q : RedOpslTip;
  16                 VAR x : InfoTip;
  17                 VAR ok : BOOLEAN);
  18 PROCEDURE PopFirst(VAR q : RedOpslTip;
  19                    VAR ok : BOOLEAN);
  20 PROCEDURE AddRear(VAR q : RedOpslTip;
  21                   x : InfoTip;
  22                   VAR ok : BOOLEAN);
  23
  24 END RedOpsl.