home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 05 / tricks / stack.def < prev    next >
Encoding:
Modula Definition  |  1991-01-08  |  1.1 KB  |  39 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      STACK.DEF                         *)
  3. (*              Verwaltung von Stacks (LIFO)              *)
  4. (*          (c) 1991 Dieter Kreimann & TOOLBOX            *)
  5. (* ------------------------------------------------------ *)
  6. DEFINITION MODULE Stack;
  7.  
  8. FROM SYSTEM IMPORT ADDRESS;
  9.  
  10. TYPE
  11.   tStack;
  12.  
  13. PROCEDURE Create(VAR stack : tStack);
  14.  
  15. PROCEDURE Delete(VAR stack : tStack);
  16.  
  17. PROCEDURE Push(stack : tStack;
  18.                size : CARDINAL; addr : ADDRESS);
  19.  
  20. PROCEDURE Pop(    stack : tStack;
  21.               VAR size : CARDINAL; addr : ADDRESS);
  22.  
  23. PROCEDURE Peep(    stack : tStack;
  24.                VAR size : CARDINAL; addr : ADDRESS);
  25.  
  26. PROCEDURE IsEmpty(stack : tStack) : BOOLEAN;
  27.  
  28. PROCEDURE NumEntries(stack : tStack) : CARDINAL;
  29.  
  30. PROCEDURE Reset(stack : tStack);
  31.  
  32. PROCEDURE Drop(stack : tStack; num : CARDINAL);
  33.  
  34. PROCEDURE Join(stackTop, stackBot : tStack);
  35.  
  36. END Stack.
  37. (* ------------------------------------------------------ *)
  38. (*                 Ende von STACK.DEF                     *)
  39.