home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c082_144 / 10.ddi / QUEUE.ZIP / LIST.ASO < prev    next >
Encoding:
Text File  |  1992-06-10  |  1.1 KB  |  32 lines
  1. ;--------------------------------
  2. ;-- Define Linked-List objects --
  3. ;--------------------------------
  4.  
  5. GLOBAL PASCAL list_construct:far
  6. GLOBAL PASCAL list_destroy:far
  7. GLOBAL PASCAL list_init:far
  8. GLOBAL PASCAL list_deinit:far
  9. GLOBAL PASCAL list_insert:near
  10. GLOBAL PASCAL list_append:near
  11. GLOBAL PASCAL list_delete:near
  12. GLOBAL PASCAL list_first:near
  13. GLOBAL PASCAL list_last:near
  14.  
  15. ;** Define Linked-List object **
  16.  
  17. list STRUC GLOBAL METHOD {
  18.   construct:word = list_construct        ;list constructor routine
  19.   destroy:word = list_destroy            ;list destructor routine  
  20.   init:word = list_init                ;list initializer routine
  21.   deinit:word = list_deinit            ;list deinitializer routine
  22.   virtual insert:word = list_insert        ;list node insert routine
  23.   virtual append:word = list_append        ;list node append routine
  24.   virtual remove:word = list_delete        ;list node remove routine
  25.   virtual first:word = list_first        ;list first node routine
  26.   virtual last:word = list_last            ;list last node routine
  27.   }
  28.   list_head    dd ?                ;list head pointer
  29.   list_tail    dd ?                ;list tail pointer
  30. ENDS
  31. list_size = (size list + 15)/16
  32.