home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / amigae / e_v3.2a / modulessrc / exec / lists.e < prev    next >
Text File  |  1977-12-31  |  387b  |  25 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. OPT PREPROCESS
  5.  
  6. MODULE 'exec/nodes'
  7.  
  8. #define IsListEmpty(x)    (x::mlh.tailpred = (x))
  9. #define IsMsgPortEmpty(x) (x::mp.ln.tailpred = x::mp.ln)
  10.  
  11. OBJECT lh
  12.   head:PTR TO ln
  13.   tail:PTR TO ln
  14.   tailpred:PTR TO ln
  15.   type:CHAR
  16.   pad:CHAR
  17. ENDOBJECT     /* SIZEOF=14 */
  18.  
  19. OBJECT mlh
  20.   head:PTR TO mln
  21.   tail:PTR TO mln
  22.   tailpred:PTR TO mln
  23. ENDOBJECT     /* SIZEOF=12 */
  24.  
  25.