home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / wb / picticon / source / mod / lists.e < prev    next >
Encoding:
Text File  |  1995-06-08  |  418 b   |  18 lines
  1. OPT MODULE
  2.  
  3. MODULE    'exec/nodes','exec/lists'
  4.  
  5. EXPORT PROC isfirst(node:PTR TO ln)
  6.     IF node.pred
  7.         IF node.pred.pred=0 THEN RETURN TRUE
  8.     ENDIF
  9. ENDPROC FALSE
  10.  
  11. EXPORT PROC islast(node:PTR TO ln)
  12.     IF node.succ
  13.         IF node.succ.succ=0 THEN RETURN TRUE
  14.     ENDIF
  15. ENDPROC FALSE
  16. EXPORT PROC ishead(node:PTR TO ln) IS IF (node.pred=0) THEN TRUE ELSE FALSE
  17. EXPORT PROC istail(node:PTR TO ln) IS IF (node.succ=0) THEN TRUE ELSE FALSE
  18.