equal
deleted
inserted
replaced
220 sign := 1 |
220 sign := 1 |
221 ]. |
221 ]. |
222 |
222 |
223 (aStream atEnd or:[aStream peek isLetter]) ifTrue: [^ exceptionBlock value]. |
223 (aStream atEnd or:[aStream peek isLetter]) ifTrue: [^ exceptionBlock value]. |
224 |
224 |
225 integerPart := (aStream upToAny:decimalPointCharacters) asNumber. |
225 integerPart := Number readFromString:(aStream upToAny:decimalPointCharacters). |
226 (aStream atEnd or: [aStream peek isLetter]) ifTrue: [ |
226 (aStream atEnd or: [aStream peek isLetter]) ifTrue: [ |
227 fractionPart := 0. |
227 fractionPart := 0. |
228 scale := 1. |
228 scale := 1. |
229 ] ifFalse:[ |
229 ] ifFalse:[ |
230 fractionStream := ReadWriteStream on:(String new: 10). |
230 fractionStream := ReadWriteStream on:(String new: 10). |
1337 ! ! |
1337 ! ! |
1338 |
1338 |
1339 !FixedPoint class methodsFor:'documentation'! |
1339 !FixedPoint class methodsFor:'documentation'! |
1340 |
1340 |
1341 version |
1341 version |
1342 ^ '$Id: FixedPoint.st 10448 2009-06-14 16:10:51Z vranyj1 $' |
1342 ^ '$Id: FixedPoint.st 10467 2009-08-19 16:14:36Z vranyj1 $' |
1343 ! ! |
1343 ! ! |