home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / SHMOD10.LHA / ShowModule / Modules / Pmodules / Plist / p_DoDownNode.e < prev    next >
Encoding:
Text File  |  1994-05-27  |  766 b   |  24 lines
  1. PROC p_DoDownNode(list:PTR TO lh,numnode) /*"p_DoDownNode(list:PTR TO lh,numnode)"*/
  2. /*===============================================================================
  3.  = Para         : address of a list,num of node.
  4.  = Return       : the num of the new selected node.
  5.  = Description  : make down node.
  6.  ==============================================================================*/
  7.     DEF upnode:PTR TO ln
  8.     DEF succnode:PTR TO ln
  9.     DEF rn
  10.     rn:=p_CountNodes(list)
  11.     rn:=rn-1
  12.     IF numnode=rn THEN RETURN numnode
  13.     upnode:=p_GetAdrNode(list,numnode)
  14.     succnode:=upnode.succ
  15.     IF ((upnode) AND (succnode))
  16.         Remove(upnode)
  17.         Insert(list,upnode,succnode)
  18.     ENDIF
  19.     IF numnode=0 THEN list.head:=succnode
  20.     RETURN numnode+1
  21. ENDPROC
  22.  
  23.  
  24.