home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / general / Array.st < prev    next >
Encoding:
Text File  |  2004-01-31  |  929 b   |  50 lines
  1. Class Array :ArrayedCollection
  2. [
  3.    new
  4.  
  5.       " Create a default Array with only one element! "
  6.  
  7.       ^ <primitive 114 1>.
  8. |
  9.    at: aNumber
  10.  
  11.       ^ <primitive 111 self aNumber>
  12. |
  13.    at: aNumber put: aValue
  14.  
  15.       ^ <primitive 112 self aNumber aValue>.
  16. |
  17.    grow: newObject
  18.  
  19.       ^ <primitive 113 self newObject>
  20. |
  21.    printString ! value aSize ele !
  22.  
  23.       amigatalk tracingOff.
  24.       
  25.       value <- ')'.
  26.  
  27.       aSize <- <primitive 4 self>.
  28.       
  29.       [aSize > 0] 
  30.          whileTrue: [ ele <- <primitive 111 self aSize>.
  31.  
  32.                       (ele isKindOf: Integer) 
  33.                          ifTrue:  [ value <- ele asHex,       ' ', value. ]
  34.                          ifFalse: [ value <- ele printString, ' ', value. ].
  35.  
  36.                       aSize <- aSize - 1 ].
  37.  
  38.       amigatalk tracingOn.
  39.       
  40.       ^ '#(' , value
  41. |
  42.    size
  43.  
  44.       ^ <primitive 4 self>
  45. |
  46.    new: numElements
  47.  
  48.       ^ <primitive 114 numElements>
  49. ]
  50.