home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / general / ArrayedCollection.st < prev    next >
Encoding:
Text File  |  2000-05-15  |  1.7 KB  |  77 lines
  1. Class ArrayedCollection :SequenceableCollection
  2. ! current !
  3. [
  4.     = anArray         ! i !
  5.       (self size ~= anArray size) 
  6.          ifTrue: [^ false]. 
  7.             
  8.       i <- 0.
  9.  
  10.       self do: [:x | (x ~= (anArray at: (i <- i + 1)))
  11.                                         ifTrue: [^ false]
  12.                ].
  13.       ^ true
  14. |
  15.     at: key ifAbsent: exceptionBlock
  16.       ((key <= 0) or: [key > self size])
  17.          ifTrue: [^ exceptionBlock value].
  18.  
  19.       ^ self at: key
  20. |
  21.     coerce: aCollection      ! temp !
  22.       temp <- self class new: aCollection size.
  23.  
  24.       temp replaceFrom: 1 to: aCollection size with: aCollection.
  25.  
  26.       ^ temp
  27. |
  28.     copyFrom: start to: stop       ! size temp !
  29.       size <- stop - start + 1.
  30.       temp <- self class new: size.
  31.       temp replaceFrom: 1 to: size with: self startingAt: start.
  32.       ^ temp
  33. |
  34.     currentKey
  35.       ^ current
  36. | 
  37.     deepCopy ! newobj !
  38.       newobj <- self class new: self size.
  39.  
  40.       (1 to: self size) do: [:i | newobj at: i put: (self at: i) copy ].
  41.  
  42.       ^ newobj
  43. |
  44.     do: aBlock
  45.       (1 to: self size) 
  46.           do: [:i | current <- i. 
  47.             aBlock value: (self at: i)]
  48. |
  49.     first
  50.       current <- 1.
  51.       ^ (current <= self size) 
  52.          ifTrue: [ self at: current]
  53. |
  54.     firstKey
  55.       ^ 1
  56. |
  57.     lastKey
  58.       ^ self size
  59. |
  60.     next
  61.       current <- current + 1.
  62.       ^ (current <= self size) 
  63.          ifTrue: [ self at: current]
  64. |
  65.     padTo: length
  66.       ^ (self size < length)
  67.           ifTrue: [ self , (self class new: (length - self size) ) ]
  68.          ifFalse: [ self ]
  69. |
  70.     shallowCopy ! newobj !
  71.       newobj <- self class new: self size.
  72.  
  73.       (1 to: self size) do: [:i | newobj at: i put: (self at: i) ].
  74.  
  75.       ^ newobj
  76. ]
  77.