home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / gnusmalltalk / integer.st < prev    next >
Text File  |  1992-02-15  |  6KB  |  258 lines
  1. "======================================================================
  2. |
  3. |   Integer 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. | sbb          9 Nov 90      Converted to use fractions.
  38. |
  39. | sbb         21 Sep 90      Fixed printOn: to reflect the fact that String
  40. |              printOn: no longer ""does the right thing"".
  41. |
  42. | sbyrne     25 Apr 90      Fixed (oh...happy birthday, Integer.st!) bitInvert.
  43. |              After fixing the lexer to be pickier about integer
  44. |              literals that were too large to be represented as
  45. |              Smalltalk literals, the previous code (which xored
  46. |              with 7fffffff) broke, so as a hack I computed two's
  47. |              complement and subtracted one.
  48. |
  49. | sbyrne     25 Apr 89      created.
  50. |
  51. "
  52.  
  53. Number variableWordSubclass: #Integer "### Not really a variable word subclass"
  54.        instanceVariableNames: ''
  55.        classVariableNames: ''
  56.        poolDictionaries: ''
  57.        category: nil
  58. !
  59.  
  60. Integer comment:
  61. 'I am the integer class of the GNU Smalltalk system.  My instances can 
  62. represent 31 bit integers and are as efficient as possible.' !
  63.  
  64. !Integer methodsFor: 'Misc math operators'!
  65.  
  66. hash
  67.     ^self
  68. !!
  69.  
  70.  
  71.  
  72. !Integer methodsFor: 'Other iterators'!
  73.  
  74. timesRepeat: aBlock
  75.     | i |
  76.     i _ 1.
  77.     [ i <= self ] whileTrue: [ aBlock value.
  78.                                i _ i + 1 ]
  79. !!
  80.  
  81.  
  82.  
  83. !Integer methodsFor: 'bit operators'!
  84.  
  85. bitAt: index
  86.     ^(self bitShift: index negated) bitAnd: 1
  87. !
  88.  
  89. bitInvert
  90.     "Return the 1's complement of the bits of the receiver"
  91.     ^self negated - 1        "compute 2's complement then remove 1"
  92. !
  93.  
  94.  
  95. allMask: anInteger
  96.     "True if all bits in anInteger are 1 in the receiver"
  97.     ^(self bitAnd: anInteger) = anInteger
  98. !
  99.  
  100. anyMask: anInteger
  101.     "True if any 1 bits in anInteger are 1 in the receiver"
  102.     ^(self bitAnd: anInteger) ~= 0
  103. !
  104.  
  105. noMask: anInteger
  106.     "True if no 1 bits in anInteger are 1 in the receiver"
  107.     ^(self bitAnd: anInteger) = 0
  108. !
  109.  
  110. highBit
  111.     "Return the index of the highest order 1 bit of the receiver"
  112.     self = 0 ifTrue: [ ^-1 ].    "??? I don't know what the right value is"
  113.     30 to: 1 step: -1 do:
  114.         [ :i | (self bitAnd: (1 bitShift: i)) ~= 0 ifTrue: [ ^i ] ]
  115. !!
  116.  
  117.  
  118.  
  119. !Integer methodsFor: 'Math methods'!
  120.  
  121. factorial
  122.     self < 2 ifTrue: [ ^1 ]
  123.              ifFalse: [ ^self * (self - 1) factorial ]
  124. !
  125.  
  126. gcd: anInteger
  127.     | selfInteger temp |
  128.     "Return the greatest common divisor (Euclid's algorithm)"
  129.     selfInteger _ self.
  130.     [ anInteger ~= 0 ]
  131.         whileTrue: [ temp _ selfInteger \\ anInteger.
  132.                  selfInteger _ anInteger.
  133.              anInteger _ temp. ].
  134.     ^selfInteger
  135. !
  136.  
  137. lcm: anInteger
  138.     ^(self * anInteger) abs // (self gcd: anInteger)
  139. !
  140.  
  141. even
  142.     ^(self bitAnd: 1) = 0
  143. !
  144.  
  145. odd
  146.     ^(self bitAnd: 1) ~= 0
  147. !!
  148.  
  149.  
  150.  
  151. !Integer methodsFor: 'Coercion methods (heh heh heh)'!
  152.  
  153. asCharacter
  154.     "Return self as an ascii character"
  155.     (self <= 255 and: [ self >= 0])
  156.         ifTrue: [ ^Character value: self ]
  157.     ifFalse: [ ^self error: 'Integer not convertible to character' ]
  158. !
  159.  
  160. coerce: aNumber
  161.     ^aNumber truncated
  162. !
  163.  
  164. generality
  165.     ^1
  166. !
  167.  
  168. ceiling
  169.     ^self
  170. !
  171.  
  172. floor
  173.     ^self
  174. !
  175.  
  176. truncated
  177.     ^self
  178. !
  179.  
  180. rounded
  181.     ^self
  182. !!
  183.  
  184.  
  185.  
  186.  
  187. !Integer methodsFor: 'copying'!
  188.  
  189. shallowCopy
  190.     ^self
  191. !
  192.  
  193. deepCopy
  194.     ^self
  195. !!
  196.  
  197.  
  198.  
  199.  
  200. !Integer methodsFor: 'printing'!
  201.  
  202. printOn: aStream base: b
  203.     aStream nextPutAll: (self radix: b)
  204. !
  205.  
  206. radix: baseInteger
  207.     ^self signedStringBase: baseInteger showRadix: true
  208. !
  209.  
  210. printOn: aStream
  211.     aStream nextPutAll: (self signedStringBase: 10 showRadix: false)
  212. !!
  213.  
  214.  
  215.  
  216. !Integer methodsFor: 'storing'!
  217.  
  218. storeOn: aStream
  219.     self printOn: aStream        "they print and store the same"
  220. !!
  221.  
  222.  
  223.  
  224. !Integer methodsFor: 'private'!
  225.  
  226. signedStringBase: baseInteger showRadix: showRadix
  227.     | str revString string sign len num i |
  228.     self < 0
  229.         ifTrue: [ sign _ true.
  230.               num _ self negated ]
  231.     ifFalse: [ sign _ false.
  232.                num _ self ].
  233.     revString _ num revDigitsBase: baseInteger.
  234.     str _ WriteStream on: (String new: 1).
  235.     showRadix ifTrue:
  236.         [ baseInteger printOn: str.
  237.       str nextPut: $r ].
  238.     sign ifTrue: [ str nextPut: $- ].
  239.     revString reverseDo:
  240.         [ :char | str nextPut: char ].
  241.     ^str contents
  242. !
  243.  
  244. revDigitsBase: b    
  245.     | str num |
  246.     str _ WriteStream on: (String new: 1).
  247.     self = 0
  248.         ifTrue: [ str nextPut: $0 ]
  249.     ifFalse: [
  250.             num _ self.
  251.         [ num = 0 ] whileFalse:
  252.             [ str nextPut: (Character digitValue: num \\ b).
  253.           num _ num // b ] ].
  254.     ^str contents
  255.  
  256. !!
  257.  
  258.