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