home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / SHMOD10.LHA / ShowModule / Modules / Pmodules / Plist / p_InitList.e < prev    next >
Encoding:
Text File  |  1994-05-27  |  583 b   |  19 lines
  1. PROC p_InitList() HANDLE /*"p_InitList()"*/
  2. /*===============================================================================
  3.  = Para         : NONE.
  4.  = Return       : Address of the new list if ok,else NIL.
  5.  = Description  : Initialise a list.
  6.  ==============================================================================*/
  7.     DEF i_list:PTR TO lh
  8.     i_list:=New(SIZEOF lh)
  9.     i_list.tail:=0
  10.     i_list.head:=i_list.tail
  11.     i_list.tailpred:=i_list.head
  12.     i_list.type:=0
  13.     i_list.pad:=0
  14.     IF i_list THEN Raise(i_list) ELSE Raise(NIL)
  15. EXCEPT
  16.     RETURN exception
  17. ENDPROC
  18.  
  19.