home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 4 / AACD04.ISO / AACD / Programming / lsEstuff / old_lists / xliv_test.e < prev    next >
Encoding:
Text File  |  1999-10-03  |  521 b   |  30 lines
  1. MODULE '*xliv'
  2.  
  3. PROC main()
  4.    DEF ml:PTR TO xliv
  5.    DEF ml2:PTR TO xliv
  6.    DEF a
  7.    DEF cpobj:xliv_CPObj
  8.  
  9.    NEW ml
  10.    NEW ml2
  11.  
  12.  
  13.    FOR a := 19 TO 0 STEP -1 DO ml.aSet(19-a, a)
  14.    ml.trav({printnode}, cpobj) ; WriteF('\n')
  15.  
  16.    FOR a := 0 TO 19 STEP 2 DO ml2.aSet(a, a)
  17.    ml2.trav({printnode}, cpobj) ; WriteF('\n')
  18.  
  19.    ml.aApplyAve(ml2)
  20.    ml.trav({printnode}, cpobj) ; WriteF('\n')
  21.  
  22.    END ml
  23. ENDPROC
  24.  
  25. PROC printnode(cpobj:PTR TO xliv_CPObj)
  26.    DEF n:PTR TO xniv
  27.    n := cpobj.node
  28.    WriteF('\d[2]', n.value)
  29. ENDPROC
  30.