home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / gnusmalltalk / interval.st < prev    next >
Text File  |  1992-02-15  |  5KB  |  216 lines
  1. "======================================================================
  2. |
  3. |   Interval Method Definitions
  4. |
  5.  ======================================================================"
  6.  
  7.  
  8. "======================================================================
  9. |
  10. | Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc.
  11. | Written by Steve Byrne.
  12. |
  13. | This file is part of GNU Smalltalk.
  14. |
  15. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  16. | under the terms of the GNU General Public License as published by the Free
  17. | Software Foundation; either version 1, or (at your option) any later version.
  18. | 
  19. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  20. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  21. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  22. | details.
  23. | 
  24. | You should have received a copy of the GNU General Public License along with
  25. | GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  26. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  27. |
  28.  ======================================================================"
  29.  
  30.  
  31. "
  32. |     Change Log
  33. | ============================================================================
  34. | Author       Date       Change 
  35. | sbb         16 Mar 91      Class creation now separate statement.
  36. |
  37. | sbyrne     25 Apr 89      created.
  38. |
  39. "
  40.  
  41. SequenceableCollection subclass: #Interval
  42.                instanceVariableNames: 'start stop step'
  43.                classVariableNames: ''
  44.                poolDictionaries: ''
  45.                category: nil
  46. !
  47.  
  48. Interval comment: 
  49. 'My instances represent ranges of objects, typically Magnitude type
  50. objects.  I provide iteration/enumeration messages for producing all the
  51. members that my instance represents.' !
  52.  
  53. !Interval class methodsFor: 'instance creation'!
  54.  
  55. from: startInteger to: stopInteger by: stepInteger
  56.     | int |
  57.     ^self new initializeFrom: startInteger to: stopInteger by: stepInteger
  58. !
  59.  
  60. from: startInteger to: stopInteger    
  61.     ^self from: startInteger to: stopInteger by: 1
  62.  
  63. !!
  64.  
  65.  
  66.  
  67. !Interval methodsFor: 'basic'!
  68.  
  69. " Note to the reader: these two methods (do: and collect:) are implemented
  70. in this expanded way, instead of just making the whileTrue: condition be a
  71. block that's conditionally assigned based on the sign of step and then
  72. invoking a single whileTrue: loop.  However, in this form, the optimizer
  73. can optimize these while loops into direct byte codes and not have to bother
  74. with expensive (relatively) block and method context creation and sending
  75. messages to blocks. "
  76.  
  77. do: aBlock
  78.     | i |
  79.     i _ start.
  80.     step > 0
  81.         ifTrue: [
  82.             [ i <= stop ] whileTrue:
  83.                 [ aBlock value: i.
  84.                   i _ i + step ]
  85.         ]
  86.         ifFalse: [
  87.         [ i >= stop ] whileTrue:
  88.                 [ aBlock value: i.
  89.                   i _ i + step ]
  90.         ]
  91. !
  92.  
  93. collect: aBlock
  94.     | i result j |
  95.     result _ self species new: self size.
  96.     i _ 1.
  97.     j _ start.
  98.     step > 0
  99.         ifTrue: [
  100.         [ j <= stop ]
  101.             whileTrue:
  102.             [ result at: i put: (aBlock value: j).
  103.                 j _ j + step.
  104.             i _ i + 1 ]
  105.         ]
  106.     ifFalse: [
  107.         [ j >= stop ]
  108.             whileTrue:
  109.             [ result at: i put: (aBlock value: j).
  110.               j _ j + step.
  111.               i _ i + 1 ]
  112.         ]
  113. !    
  114.  
  115. size
  116.     step > 0
  117.         ifTrue: [
  118.         stop >= start ifTrue: [ ^(stop - start) // step + 1 ]
  119.                       ifFalse: [ ^0 ]
  120.     ]
  121.     ifFalse: [
  122.             start >= stop ifTrue: [ ^(start - stop) // step + 1 ]
  123.                       ifFalse: [ ^0 ]
  124.     ]
  125. !
  126.  
  127. species
  128.     ^Array
  129. !
  130.  
  131.  
  132. at: index
  133.     (index >= 1 and: [index <= self size])
  134.         ifTrue: [ ^start + (step * (index - 1)) ]
  135.     ifFalse: [ self error: 'subscript out of bounds' ]
  136. !
  137.  
  138. at: index put: anObject
  139.     self error: 'you cannot store into an Interval'
  140. !
  141.  
  142. add: newObject
  143.     self error: 'elements cannot be add3ed to an Interval'
  144. !
  145.  
  146. remove: newObject
  147.     self error: 'elements canot be removed from an Interval'
  148. !!
  149.  
  150.  
  151.  
  152. !Interval methodsFor: 'testing'!
  153.  
  154. = anInterval
  155.     ^(start = anInterval start) &
  156.     (stop = anInterval stop) &
  157.     (step = anInterval step)
  158. !
  159.  
  160. hash
  161.     ^(start bitXor: stop) bitXor: step
  162. !!
  163.  
  164.  
  165.  
  166. !Interval methodsFor: 'printing'!
  167.  
  168. printOn: aStream
  169.     aStream nextPutAll: self classNameString.
  170.     aStream nextPut: Character space.
  171.     start printOn: aStream.
  172.     aStream nextPut: $,.
  173.     stop printOn: aStream.
  174.     aStream nextPut: $,.
  175.     step printOn: aStream
  176. !!
  177.  
  178.  
  179.  
  180. !Interval methodsFor: 'storing'!
  181.  
  182. storeOn: aStream
  183.     aStream nextPut: $(.
  184.     aStream nextPutAll: self classNameString.
  185.     aStream nextPutAll: ' from: '.
  186.     start storeOn: aStream.
  187.     aStream nextPutAll: ' to: '.
  188.     stop storeOn: aStream.
  189.     aStream nextPutAll: ' by: '.
  190.     step storeOn: aStream.
  191.     aStream nextPut: $)
  192. !!
  193.  
  194.  
  195.  
  196. !Interval methodsFor: 'private methods'!
  197.  
  198. initializeFrom: startInteger to: stopInteger by: stepInteger
  199.     start _ startInteger.
  200.     stop _ stopInteger.
  201.     step _ stepInteger
  202. !
  203.  
  204. start
  205.     ^start
  206. !
  207.  
  208. stop
  209.     ^stop
  210. !
  211.  
  212. step
  213.     ^step
  214. !!
  215.  
  216.