kodovi/REDOPSL1.DEF

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