home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2demo / filosoof / queue.def < prev    next >
Text File  |  1996-01-04  |  563b  |  26 lines
  1. (********************************************************************
  2.   QUEUE.DEF   
  3.  
  4.   Copyright (c) 1995 by Johan Terryn (CompuServe 100421,3024)
  5. *********************************************************************)
  6.  
  7. DEFINITION MODULE Queue;
  8.  
  9. FROM SYSTEM IMPORT ADDRESS;
  10.  
  11. TYPE queue;
  12.  
  13. PROCEDURE makeempty(VAR q : queue);
  14.  
  15. PROCEDURE empty(q :queue):BOOLEAN;
  16.  
  17. PROCEDURE insert(VAR q:queue; item :ADDRESS);
  18.  
  19. PROCEDURE remove(VAR q :queue; VAR item :ADDRESS);
  20.  
  21. PROCEDURE define(VAR q :queue);
  22.  
  23. PROCEDURE destroy(VAR q :queue);
  24.  
  25. END Queue.
  26.