home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 1 / RISC_DISC_1.iso / pd_share / code / smalltalk / !GNUst / st / Float < prev    next >
Encoding:
Text File  |  1991-09-13  |  5.2 KB  |  217 lines
  1. "======================================================================
  2. |
  3. |   Float Method Definitions
  4. |
  5.  ======================================================================"
  6.  
  7.  
  8. "======================================================================
  9. |
  10. | Copyright (C) 1990, 1991 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         12 Sep 91      Fixed storeOn: to not be recursive
  36. |
  37. | sbyrne     15 Apr 90      Added asFloat...I could have sworn this was already
  38. |                         here...must have been lost in an edit.
  39. |
  40. | sbyrne     25 Apr 89      created.
  41. |
  42. "
  43.  
  44.  
  45.  
  46. Number variableWordSubclass: #Float "not really a variable class"
  47.        instanceVariableNames: ''
  48.        classVariableNames: ''
  49.        poolDictionaries: ''
  50.        category: nil.
  51.  
  52. Float comment: 
  53. 'My instances represent floating point numbers that have 64 bits of 
  54. precision (well, less than that in precision; they are precisely the same
  55. as C''s "double" datatype).  Besides the standard numerical operations,
  56. I provide transcendental operations too.'  !
  57.  
  58. !Float class methodsFor: 'basic'!
  59.  
  60. pi
  61.     "Returns the value of pi"
  62.     ^3.14159265358979323846264338327950288
  63. !!
  64.  
  65.  
  66.  
  67. !Float methodsFor: 'arithmetic'!
  68.  
  69. // aNumber
  70.     "Return the integer quotient of dividing the receiver by aNumber with
  71.     truncation towards negative infinity."
  72.     ^(self / aNumber) floor
  73. !
  74.  
  75. \\ aNumber
  76.     "Return the integer remainder of dividing the receiver by aNumber with
  77.     truncation towards negative infinity."
  78.     ^(self - ((self / aNumber) integerPart * aNumber)) floor
  79. !
  80.  
  81. integerPart
  82.     ^self - self fractionPart
  83. !!
  84.  
  85.  
  86.  
  87. !Float methodsFor: 'coercing methods'!
  88.  
  89. coerce: aNumber
  90.     ^aNumber asFloat
  91. !
  92.  
  93. generality
  94.     ^4
  95. !
  96.  
  97. asFloat
  98.     "Just defined for completeness."
  99.     ^self
  100. !
  101.  
  102. hash
  103.     "Returns the hash value for the receiver (a Float).  If it's representable
  104.     as an integer, we use that value, since it's likely to be much more random,
  105.     but if not, we use the exponent.  Another approach that may be used in 
  106.     the future is to scale the number so that it's within the integer range if
  107.     it's not normally and then return the integer part"
  108.     | expt |
  109.     expt _ self exponent.
  110.     expt >= 0 & (expt < 31)
  111.         ifTrue: [ ^self truncated ]
  112.     ifFalse: [ ^expt ]
  113. !!
  114.  
  115.  
  116.  
  117. !Float methodsFor: 'copying'!
  118.  
  119. shallowCopy
  120.     ^self
  121. !
  122.  
  123. deepCopy
  124.     ^self
  125. !!
  126.  
  127.  
  128.  
  129.  
  130. !Float methodsFor: 'printing'!
  131.  
  132. printOn: aStream
  133.     | num exp |
  134.     (self exponent between: -51 and: 51)
  135.         ifTrue: [ self printFloatOn: aStream ]
  136.     ifFalse: [ exp _ 0.
  137.                num _ self.
  138.            num abs < 1.0
  139.               ifTrue: [ [ num abs < 1.0 ] whileTrue:
  140.                     [ num _ num * 10.0.
  141.                       exp _ exp - 1 ] ]
  142.               ifFalse: [ [num abs >= 10.0] whileTrue:
  143.                               [ num _ num / 10.0.
  144.                       exp _ exp + 1 ] ].
  145.                    num printFloatOn: aStream.
  146.            aStream nextPut: $e.
  147.            exp printOn: aStream ].
  148. !!
  149.  
  150.  
  151.  
  152. !Float methodsFor: 'storing'!
  153.  
  154. storeOn: aStream
  155.     self printOn: aStream
  156. !!
  157.  
  158.  
  159.  
  160. !Float methodsFor: 'private'!
  161.  
  162. printFloatOn: aStream
  163.     | num str |
  164.     num _ self.
  165.     num < 0 ifTrue:
  166.         [ aStream nextPut: $-.
  167.       num _ num negated. ].
  168.     num printIntegerPartOn: aStream.
  169.     aStream nextPut: $..
  170.     num printFracPartOn: aStream.
  171. !
  172.  
  173. printIntegerPartOn: aStream
  174.     | num |
  175.     num _ self integerPart.
  176.     (num revDigitsBase: 10.0) reverseDo:
  177.         [ :char | aStream nextPut: char ]
  178. !
  179.  
  180. printFracPartOn: aStream
  181.     | num count zeroCount digit |
  182.     num _ self fractionPart.
  183.     num = 0.0 ifTrue: [ ^aStream nextPut: $0 ].
  184.     zeroCount _ count _ 0.
  185.  
  186.     " produce the digits, up to a maximum of 15, suppressing trailing
  187.       zeros "
  188.     [ (num ~= 0.0) & (count < 15) ] whileTrue:
  189.         [ num _ num * 10.0.
  190.       digit _ num floor.
  191.       digit = 0        "for trailing zero suppression"
  192.         ifTrue: [ zeroCount _ zeroCount + 1 ]
  193.         ifFalse: [ aStream next: zeroCount put: $0.
  194.                        aStream nextPut: (Character digitValue: digit).
  195.                    zeroCount _ 0 ].
  196.       num _ num fractionPart.
  197.       count _ count + 1 ].
  198.  
  199.     zeroCount = 15 ifTrue: [ aStream nextPut: $0 ]
  200. !
  201.  
  202. "AARRGGHH!  Why can't I share this code with integer?  Grrr...."
  203. revDigitsBase: b    
  204.     | str num |
  205.     str _ WriteStream on: (String new: 1).
  206.     self = 0
  207.         ifTrue: [ str nextPut: $0 ]
  208.     ifFalse: [
  209.             num _ self.
  210.         [ num = 0 ] whileFalse:
  211.             [ str nextPut: (Character digitValue: num \\ b).
  212.           num _ (num / b) integerPart ] ].
  213.     ^str contents
  214.  
  215. !!
  216.  
  217.