equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
|
13 "{ Package: 'stx:libbasic' }" |
12 "{ Package: 'stx:libbasic' }" |
14 |
13 |
15 Magnitude subclass:#ArithmeticValue |
14 Magnitude subclass:#ArithmeticValue |
16 instanceVariableNames:'' |
15 instanceVariableNames:'' |
17 classVariableNames:'DivisionByZeroSignal DomainErrorSignal OverflowSignal |
16 classVariableNames:'DivisionByZeroSignal DomainErrorSignal OverflowSignal |
509 ! |
508 ! |
510 |
509 |
511 asLongFloat |
510 asLongFloat |
512 "return a longFloat with same value" |
511 "return a longFloat with same value" |
513 |
512 |
514 "WARNING: could loose precision here, if not redefined in concrete classes which |
513 "WARNING: could loose precision here, if not redefined in concrete classes which |
515 have more than float precision (i.e. LargeIntegers and Fractions)" |
514 have more than float precision (i.e. LargeIntegers and Fractions)" |
516 |
515 |
517 ^ self asFloat asLongFloat "/ subclassResponsibility |
516 ^ self asFloat asLongFloat "/ subclassResponsibility |
518 |
517 |
519 "Modified: / 17.4.1996 / 12:21:35 / cg" |
518 "Modified: / 17.4.1996 / 12:21:35 / cg" |
520 "Created: / 7.9.2001 / 13:39:31 / cg" |
519 "Created: / 7.9.2001 / 13:39:31 / cg" |
521 ! |
520 ! |
522 |
521 |
1290 ! ! |
1289 ! ! |
1291 |
1290 |
1292 !ArithmeticValue class methodsFor:'documentation'! |
1291 !ArithmeticValue class methodsFor:'documentation'! |
1293 |
1292 |
1294 version |
1293 version |
1295 ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.73 2006-07-17 10:51:00 cg Exp $' |
1294 ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.74 2007-01-12 18:22:21 cg Exp $' |
1296 ! ! |
1295 ! ! |
1297 |
1296 |
1298 ArithmeticValue initialize! |
1297 ArithmeticValue initialize! |