home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / SHMOD10.LHA / ShowModule / Modules / Pmodules / Plist / p_EmptyList.e < prev    next >
Encoding:
Text File  |  1994-05-27  |  609 b   |  17 lines
  1. PROC p_EmptyList(ptr_list:PTR TO lh) /*"p_EmptyList(ptr_list:PTR TO lh)"*/
  2. /*===============================================================================
  3.  = Para         : Address of a list.
  4.  = Return       : TRUE if list is empty,else the adress list.
  5.  = Description  : Look if a list is empty.
  6.  ==============================================================================*/
  7.     DEF count=0
  8.     DEF e_node:PTR TO ln
  9.     e_node:=ptr_list.head
  10.     WHILE e_node
  11.         IF e_node.succ<>0 THEN INC count
  12.         e_node:=e_node.succ
  13.     ENDWHILE
  14.     IF count=0 THEN RETURN TRUE ELSE RETURN ptr_list
  15. ENDPROC
  16.  
  17.