home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c082_122 / 13.ddi / QUEUE.ZIP / NODE.ASO < prev    next >
Encoding:
Text File  |  1992-06-10  |  981 b   |  29 lines
  1. ;-------------------------------------
  2. ;-- Define Linked-List Node objects --
  3. ;-------------------------------------
  4.  
  5. GLOBAL PASCAL node_construct:far
  6. GLOBAL PASCAL node_destroy:far
  7. GLOBAL PASCAL node_init:far
  8. GLOBAL PASCAL node_deinit:far
  9. GLOBAL PASCAL node_adv:near
  10. GLOBAL PASCAL node_back:near
  11.  
  12. ;This object is designed to be inherited by any actual data object that is
  13. ;placed in the Linked-List, on the Queue or the Stack defined in this module.
  14.  
  15. ;** Define Linked-List Node object **
  16.  
  17. node STRUC GLOBAL METHOD {
  18.   construct:dword = node_construct        ;node constructor routine
  19.   destroy:dword = node_destroy            ;node destructor routine
  20.   init:dword = node_init            ;node initialization routine
  21.   deinit:dword = node_deinit            ;node deinitialization routine
  22.   virtual next:word = node_adv            ;next node routine
  23.   virtual prev:word = node_back            ;previous node routine
  24.   }
  25.   node_next    dd ?                ;next node pointer
  26.   node_prev    dd ?                ;prev node pointer
  27. ends
  28.  
  29.