home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / SHMOD10.LHA / ShowModule / Modules / Pmodules / Plist / p_WriteFList.e < prev   
Encoding:
Text File  |  1994-05-27  |  723 b   |  18 lines
  1. PROC p_WriteFList(ptr_list:PTR TO lh) /*"p_WriteFList(ptr_list:PTR TO lh)"*/
  2. /*===============================================================================
  3.  = Para         : Address of a list
  4.  = Return       : NONE.
  5.  = Description  : Write in stdout the list data and nodes.
  6.  ==============================================================================*/
  7.     DEF w_node:PTR TO ln
  8.     w_node:=ptr_list.head
  9.     WriteF('Adr List:\h[8] Head:\h[8] TailPred:\h[8]\n',ptr_list,ptr_list.head,ptr_list.tailpred)
  10.     WHILE w_node
  11.         IF w_node.succ<>0
  12.             WriteF('Adr:\h[8] Succ:\h[8] Pred:\h[8] Name:\s\n',w_node,w_node.succ,w_node.pred,w_node.name)
  13.         ENDIF
  14.         w_node:=w_node.succ
  15.     ENDWHILE
  16. ENDPROC
  17.  
  18.