home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c082_122 / 13.ddi / QUEUE.ZIP / QUEUE.ASO < prev    next >
Encoding:
Text File  |  1992-06-10  |  828 b   |  27 lines
  1. ;--------------------------
  2. ;-- Define Queue objects --
  3. ;--------------------------
  4.  
  5. INCLUDE list.aso
  6.  
  7. GLOBAL PASCAL queue_init:near
  8. GLOBAL PASCAL queue_insert:near
  9. GLOBAL PASCAL queue_delete:near
  10. GLOBAL PASCAL queue_first:near
  11. GLOBAL PASCAL queue_last:near
  12. GLOBAL PASCAL queue_dequeue:near
  13.  
  14. ;** Define Queue object **
  15.  
  16. queue STRUC GLOBAL list METHOD {
  17.   init:word = queue_init            ;queue initialization routine
  18.   virtual insert:word = queue_insert        ;(queue node insert routine)
  19.   virtual remove:word = queue_delete        ;(queue node delete routine)
  20.   virtual first:word = queue_first        ;(queue first node routine)
  21.   virtual last:word = queue_last        ;(queue end node routine)
  22.   virtual enqueue:word = list_append        ;queue enqueue routine
  23.   virtual dequeue:word = queue_dequeue        ;queue dequeue routine
  24.   }
  25. ENDS
  26.  
  27.