home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / general / Interval.st < prev    next >
Encoding:
Text File  |  2004-01-31  |  1.9 KB  |  101 lines
  1.  
  2. Class Interval :SequenceableCollection
  3. ! lower upper step current !
  4. [
  5.    from: lowerBound to: upperBound by: stepSize
  6.  
  7.      current <- lower <- lowerBound.
  8.      upper   <- upperBound.
  9.      step    <- stepSize
  10. |  
  11.    from: lowerBound to: upperBound
  12.  
  13.      current <- lower <- lowerBound.
  14.      upper   <- upperBound.
  15.      step    <- 1
  16. |
  17.    lowerBound " Added on 16-Oct-2003 for V2.5+"
  18.  
  19.      ^ lower  
  20. |
  21.    upperBound " Added on 16-Oct-2003 for V2.5+"
  22.  
  23.      ^ upper
  24. |
  25.    stepSize   " Added on 16-Oct-2003 for V2.5+"
  26.    
  27.      ^ step
  28. |
  29.    size   
  30.  
  31.      ^ ((step strictlyPositive) 
  32.           ifTrue:  [upper < lower]
  33.           ifFalse: [lower < upper] )
  34.  
  35.         ifTrue:  [ 0 ]
  36.         ifFalse: [upper - lower // step + 1]
  37. |  
  38.    inRange: value
  39.  
  40.      (step > 0)   "(step strictlyPositive)"
  41.         ifTrue:  [^ ((value >= lower) and: [value <= upper]) ]
  42.         ifFalse: [^ ((value >= upper) and: [value <= lower]) ]
  43. | 
  44.    first
  45.  
  46.      current <- lower.
  47.  
  48.      ^ (self inRange: current) ifTrue: [current]
  49. |
  50.    last
  51.  
  52.      current <- upper.
  53.  
  54.      ^ (self inRange: current) ifTrue: [current]
  55. |   
  56.    next
  57.  
  58.      current <- current + step.
  59.  
  60.      ^ (self inRange: current) ifTrue: [current]
  61. |
  62.    at: index ifAbsent: exceptionBlock   ! val !
  63.  
  64.      val <- lower + (step * (index - 1)).
  65.  
  66.      ^ (self inRange: val)
  67.          ifTrue: [ val ]
  68.         ifFalse: [exceptionBlock value]
  69. | 
  70.    printString
  71.  
  72.      ^ 'Interval ', lower printString , ' to ',
  73.                     upper printString , ' by ' , step printString 
  74. |   
  75.    coerce: newcollection
  76.  
  77.      ^ newcollection asArray
  78. |   
  79.    at: index put: val
  80.  
  81.      ^ self error: 'cannot store into Interval'
  82. |   
  83.    add: val
  84.  
  85.      ^ self error: 'cannot store into Interval'
  86. |   
  87.    removeKey: key ifAbsent: exceptionBlock
  88.  
  89.      self error: 'cannot remove from Interval'.
  90.  
  91.      ^ exceptionBlock value
  92. |
  93.    deepCopy
  94.  
  95.      ^ lower to: upper by: step
  96. |   
  97.    shallowCopy
  98.  
  99.      ^ lower to: upper by: step
  100. ]
  101.