home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 4 / AACD04.ISO / AACD / Programming / lsEstuff / oldarraystuff / newArrayX.e < prev    next >
Encoding:
Text File  |  1999-09-19  |  1.2 KB  |  64 lines
  1. OPT MODULE
  2.  
  3. MODULE '*smartList'
  4.  
  5. EXPORT OBJECT newArrayX
  6.    PRIVATE
  7.    xlist:PTR TO smartList
  8. ENDOBJECT
  9.  
  10. PROC newArrayX() OF newArrayX IS NEW self.xlist.smartList()
  11.  
  12. PROC setE(x, value) OF newArrayX
  13.    DEF sn:PTR TO smartNode
  14.    sn := self.xlist.findSN(x)
  15.    IF sn = NIL
  16.       sn := self.xlist.newSN(x)
  17.    ENDIF
  18.    sn.value := value
  19. ENDPROC
  20.  
  21. PROC getE(x) OF newArrayX
  22.    DEF sn:PTR TO smartNode
  23.    sn := self.xlist.findSN(x)
  24.    IF sn = NIL THEN RETURN NIL
  25. ENDPROC sn.value
  26.  
  27. PROC unsetE(x) OF newArrayX
  28.    DEF sn:PTR TO smartList
  29.    sn := self.xlist.findSN(x)
  30.    IF sn
  31.       self.xlist.endSN(sn)
  32.    ENDIF
  33. ENDPROC
  34.  
  35. PROC countX() OF newArrayX IS self.xlist.countSN()
  36.  
  37. PROC clearA() OF newArrayX IS self.xlist.clear()
  38.  
  39. PROC end() OF newArrayX
  40.    END self.xlist
  41. ENDPROC
  42.    
  43.  
  44. PROC readAOL(array:PTR TO LONG, startX, endX) OF newArrayX
  45.    DEF a
  46.    FOR a := startX TO endX
  47.       self.setE(a, array[])
  48.       array++
  49.    ENDFOR
  50. ENDPROC
  51.  
  52. PROC writeAOL(array:PTR TO LONG, startX, endX) OF newArrayX
  53.    DEF a
  54.    FOR a := startX TO endX
  55.       array[] := self.getE(a)
  56.       array++
  57.    ENDFOR
  58. ENDPROC
  59.  
  60. PROC getSumA() OF newArrayX IS self.xlist.getSumValSL()
  61.  
  62. PROC getAveA() OF newArrayX IS self.xlist.getAveValSL()
  63.  
  64.