--- a/ArithmeticValue.st Mon Jun 12 16:13:20 2017 +0200
+++ b/ArithmeticValue.st Mon Jun 12 20:39:15 2017 +0200
@@ -15,9 +15,8 @@
Magnitude subclass:#ArithmeticValue
instanceVariableNames:''
- classVariableNames:'DivisionByZeroSignal DomainErrorSignal OverflowSignal
- UnderflowSignal ArithmeticSignal UnorderedSignal
- ConversionErrorSignal'
+ classVariableNames:'ArithmeticSignal ConversionErrorSignal DivisionByZeroSignal
+ DomainErrorSignal OverflowSignal UnderflowSignal UnorderedSignal'
poolDictionaries:''
category:'Magnitude-Numbers'
!
@@ -251,6 +250,7 @@
^ self == ArithmeticValue
! !
+
!ArithmeticValue methodsFor:'arithmetic'!
* something
@@ -790,121 +790,150 @@
!ArithmeticValue methodsFor:'double dispatching'!
differenceFromComplex:aComplex
- "the receiver does not know how to subtract from a complex -
+ "aComplex does not know how to subtract the receiver -
retry the operation by coercing to higher generality"
^ aComplex retry:#- coercing:self
+
+ "Modified (comment): / 12-06-2017 / 20:34:41 / cg"
!
differenceFromFixedPoint:aFixedPoint
- "the receiver does not know how to subtract from a fixedPoint number -
+ "aFixedPoint does not know how to subtract the receiver -
retry the operation by coercing to higher generality"
^ aFixedPoint retry:#- coercing:self
- "Created: 5.11.1996 / 14:55:51 / cg"
+ "Created: / 05-11-1996 / 14:55:51 / cg"
+ "Modified (comment): / 12-06-2017 / 20:34:33 / cg"
!
differenceFromFloat:aFloat
- "the receiver does not know how to subtract from a float -
+ "aFloat does not know how to subtract the receiver -
retry the operation by coercing to higher generality"
^ aFloat retry:#- coercing:self
+
+ "Modified (comment): / 12-06-2017 / 20:34:23 / cg"
!
differenceFromFraction:aFraction
- "the receiver does not know how to subtract from a fraction -
+ "aFraction does not know how to subtract the receiver -
retry the operation by coercing to higher generality"
^ aFraction retry:#- coercing:self
+
+ "Modified (comment): / 12-06-2017 / 20:34:16 / cg"
!
differenceFromInteger:anInteger
- "the receiver does not know how to subtract from an integer -
+ "anInteger does not know how to subtract the receiver -
retry the operation by coercing to higher generality"
^ anInteger retry:#- coercing:self
+
+ "Modified (comment): / 12-06-2017 / 20:34:07 / cg"
!
differenceFromLargeFloat:aLargeFloat
- "the receiver does not know how to subtract from a largeFloat -
+ "aLargeFloat does not know how to subtract the receiver -
retry the operation by coercing to higher generality"
^ aLargeFloat retry:#- coercing:self
+
+ "Modified (comment): / 12-06-2017 / 20:34:00 / cg"
!
differenceFromLongFloat:aLongFloat
- "the receiver does not know how to subtract from a longFloat -
+ "aLongFloat does not know how to subtract the receiver -
retry the operation by coercing to higher generality"
^ aLongFloat retry:#- coercing:self
- "Created: 17.4.1996 / 12:33:16 / cg"
+ "Created: / 17-04-1996 / 12:33:16 / cg"
+ "Modified (comment): / 12-06-2017 / 20:33:50 / cg"
!
differenceFromShortFloat:aShortFloat
- "the receiver does not know how to subtract from a shortFloat -
+ "aShortFloat does not know how to subtract the receiver -
retry the operation by coercing to higher generality"
^ aShortFloat retry:#- coercing:self
- "Created: 17.4.1996 / 12:33:16 / cg"
+ "Created: / 17-04-1996 / 12:33:16 / cg"
+ "Modified (comment): / 12-06-2017 / 20:33:43 / cg"
!
equalFromComplex:aComplex
- "the receiver does not know how to compare to a complex number -
+ "aComplex does not know how to compare to the receiver -
retry the operation by coercing to higher generality"
^ aComplex retry:#= coercing:self
+
+ "Modified (comment): / 12-06-2017 / 20:33:26 / cg"
!
equalFromFixedPoint:aFixedPoint
- "the receiver does not know how to compare to a fixed point -
+ "aFixedPoint does not know how to compare to the receiver -
retry the operation by coercing to higher generality"
^ aFixedPoint retry:#= coercing:self
+
+ "Modified (comment): / 12-06-2017 / 20:33:17 / cg"
!
equalFromFloat:aFloat
- "the receiver does not know how to compare to a float -
+ "aFloat does not know how to compare to the receiver -
retry the operation by coercing to higher generality"
^ aFloat retry:#= coercing:self
+
+ "Modified (comment): / 12-06-2017 / 20:33:09 / cg"
!
equalFromFraction:aFraction
- "the receiver does not know how to compare to a fraction -
+ "aFraction does not know how to compare to the receiver -
retry the operation by coercing to higher generality"
^ aFraction retry:#= coercing:self
+
+ "Modified (comment): / 12-06-2017 / 20:33:01 / cg"
!
equalFromInteger:anInteger
- "the receiver does not know how to compare to an integer -
+ "anInteger does not know how to compare to the receiver -
retry the operation by coercing to higher generality"
^ anInteger retry:#= coercing:self
+
+ "Modified (comment): / 12-06-2017 / 20:32:53 / cg"
!
equalFromLargeFloat:aLargeFloat
- "the receiver does not know how to compare to a large float -
+ "aLargeFloat does not know how to compare to the receiver -
retry the operation by coercing to higher generality"
^ aLargeFloat retry:#= coercing:self
+
+ "Modified (comment): / 12-06-2017 / 20:32:45 / cg"
!
equalFromLongFloat:aLongFloat
- "the receiver does not know how to compare to a long float -
+ "aLongFloat does not know how to compare to the receiver -
retry the operation by coercing to higher generality"
^ aLongFloat retry:#= coercing:self
+
+ "Modified (comment): / 12-06-2017 / 20:32:36 / cg"
!
equalFromShortFloat:aShortFloat
- "the receiver does not know how to compare to a short float -
+ "aShortFloat does not know how to compare to the receiver -
retry the operation by coercing to higher generality"
^ aShortFloat retry:#= coercing:self
+
+ "Modified (comment): / 12-06-2017 / 20:32:28 / cg"
!
integerQuotientFromInteger:anInteger
@@ -931,65 +960,76 @@
!
lessFromFixedPoint:aFixedPoint
- "the receiver does not know how to compare to a fixedPoint number -
+ "aFixedPoint does not know how to compare to the receiver -
Return true if aFixedPoint < self.
retry the operation by coercing to higher generality"
^ aFixedPoint retry:#< coercing:self
- "Created: 5.11.1996 / 14:56:12 / cg"
+ "Created: / 05-11-1996 / 14:56:12 / cg"
+ "Modified (comment): / 12-06-2017 / 20:32:12 / cg"
!
lessFromFloat:aFloat
- "the receiver does not know how to compare to a float -
+ "aFloat does not know how to compare to the receiver -
Return true if aFloat < self.
retry the operation by coercing to higher generality"
^ aFloat retry:#< coercing:self
+
+ "Modified (comment): / 12-06-2017 / 20:32:02 / cg"
!
lessFromFraction:aFraction
- "the receiver does not know how to compare to a fraction -
+ "aFraction does not know how to compare to the receiver -
Return true if aFraction < self.
retry the operation by coercing to higher generality"
^ aFraction retry:#< coercing:self
+
+ "Modified (comment): / 12-06-2017 / 20:31:53 / cg"
!
lessFromInteger:anInteger
- "the receiver does not know how to compare to an integer -
+ "anInteger does not know how to compare to the receiver -
Return true if anInteger < self.
retry the operation by coercing to higher generality"
^ anInteger retry:#< coercing:self
+
+ "Modified (comment): / 12-06-2017 / 20:31:44 / cg"
!
lessFromLargeFloat:aLargeFloat
- "the receiver does not know how to compare to a largeFloat -
+ "aLargeFloat does not know how to compare to the receiver -
Return true if aLargeFloat < self.
retry the operation by coercing to higher generality"
^ aLargeFloat retry:#< coercing:self
+
+ "Modified (comment): / 12-06-2017 / 20:31:36 / cg"
!
lessFromLongFloat:aLongFloat
- "the receiver does not know how to compare to a longFloat -
+ "aLongFloat does not know how to compare to the receiver -
Return true if aLongFloat < self.
retry the operation by coercing to higher generality"
^ aLongFloat retry:#< coercing:self
- "Modified: 17.4.1996 / 12:33:33 / cg"
+ "Modified: / 17-04-1996 / 12:33:33 / cg"
+ "Modified (comment): / 12-06-2017 / 20:31:28 / cg"
!
lessFromShortFloat:aShortFloat
- "the receiver does not know how to compare to a shortFloat -
+ "aShortFloat does not know how to compare to the receiver -
Return true if aShortFloat < self.
retry the operation by coercing to higher generality"
^ aShortFloat retry:#< coercing:self
- "Modified: 17.4.1996 / 12:33:33 / cg"
+ "Modified: / 17-04-1996 / 12:33:33 / cg"
+ "Modified (comment): / 12-06-2017 / 20:31:18 / cg"
!
moduloFromInteger:anInteger
@@ -1002,67 +1042,79 @@
!
productFromComplex:aComplex
- "the receiver does not know how to multiply a complex -
+ "aComplex does not know how to multiply the receiver -
retry the operation by coercing to higher generality"
^ aComplex retry:#* coercing:self
+
+ "Modified (comment): / 12-06-2017 / 20:31:06 / cg"
!
productFromFixedPoint:aFixedPoint
- "the receiver does not know how to multiply a fixed point number -
+ "aFixedPoint does not know how to multiply the receiver -
retry the operation by coercing to higher generality"
^ aFixedPoint retry:#* coercing:self
- "Created: 5.11.1996 / 14:56:28 / cg"
+ "Created: / 05-11-1996 / 14:56:28 / cg"
+ "Modified (comment): / 12-06-2017 / 20:30:56 / cg"
!
productFromFloat:aFloat
- "the receiver does not know how to multiply a float -
+ "aFloat does not know how to multiply the receiver -
retry the operation by coercing to higher generality"
^ aFloat retry:#* coercing:self
+
+ "Modified (comment): / 12-06-2017 / 20:30:46 / cg"
!
productFromFraction:aFraction
- "the receiver does not know how to multiply a fraction -
+ "aFraction does not know how to multiply the receiver -
retry the operation by coercing to higher generality"
^ aFraction retry:#* coercing:self
+
+ "Modified (comment): / 12-06-2017 / 20:30:38 / cg"
!
productFromInteger:anInteger
- "the receiver does not know how to multiply an integer -
+ "anInteger does not know how to multiply the receiver -
retry the operation by coercing to higher generality"
^ anInteger retry:#* coercing:self
+
+ "Modified (comment): / 12-06-2017 / 20:29:21 / cg"
!
productFromLargeFloat:aLargeFloat
- "the receiver does not know how to multiply a largeFloat -
+ "aLargeFloat does not know how to multiply the receiver -
retry the operation by coercing to higher generality"
^ aLargeFloat retry:#* coercing:self
- "Created: 17.4.1996 / 12:33:48 / cg"
+ "Created: / 17-04-1996 / 12:33:48 / cg"
+ "Modified (comment): / 12-06-2017 / 20:29:13 / cg"
!
productFromLongFloat:aLongFloat
- "the receiver does not know how to multiply a longFloat -
+ "aLongFloat does not know how to multiply the receiver -
retry the operation by coercing to higher generality"
^ aLongFloat retry:#* coercing:self
- "Created: 17.4.1996 / 12:33:48 / cg"
+ "Created: / 17-04-1996 / 12:33:48 / cg"
+ "Modified (comment): / 12-06-2017 / 20:29:05 / cg"
!
productFromShortFloat:aShortFloat
- "the receiver does not know how to multiply a shortFloat -
+ "aShortFloat does not know how to multiply the receiver -
retry the operation by coercing to higher generality"
^ aShortFloat retry:#* coercing:self
- "Created: 17.4.1996 / 12:33:48 / cg"
+ "Created: / 17-04-1996 / 12:33:48 / cg"
+ "Modified (comment): / 12-06-2017 / 20:28:56 / cg"
!
quotientFromComplex:aComplex
@@ -1095,11 +1147,13 @@
^ aFraction retry:#/ coercing:self
!
-quotientFromInteger:anInteger
- "anInteger does not know how to divide by the receiver -
+quotientFromInteger:aQDouble
+ "aQDouble does not know how to divide by the receiver -
retry the operation by coercing to higher generality"
- ^ anInteger retry:#/ coercing:self
+ ^ aQDouble retry:#/ coercing:self
+
+ "Modified (comment): / 12-06-2017 / 20:35:45 / cg"
!
quotientFromLargeFloat:aLargeFloat
@@ -1144,67 +1198,79 @@
!
sumFromComplex:aComplex
- "the receiver does not know how to add a complex -
+ "aComplex does not know how to add the receiver -
retry the operation by coercing to higher generality"
^ aComplex retry:#+ coercing:self
+
+ "Modified (comment): / 12-06-2017 / 20:27:25 / cg"
!
sumFromFixedPoint:aFixedPoint
- "the receiver does not know how to add a fixed point number -
+ "aFixedPoint does not know how to add the receiver -
retry the operation by coercing to higher generality"
^ aFixedPoint retry:#+ coercing:self
- "Created: 5.11.1996 / 14:56:56 / cg"
+ "Created: / 05-11-1996 / 14:56:56 / cg"
+ "Modified (comment): / 12-06-2017 / 20:27:38 / cg"
!
sumFromFloat:aFloat
- "the receiver does not know how to add a float -
+ "aFloat does not know how to add the receiver -
retry the operation by coercing to higher generality"
^ aFloat retry:#+ coercing:self
+
+ "Modified (comment): / 12-06-2017 / 20:27:47 / cg"
!
sumFromFraction:aFraction
- "the receiver does not know how to add a fraction -
+ "aFraction does not know how to add the receiver -
retry the operation by coercing to higher generality"
^ aFraction retry:#+ coercing:self
+
+ "Modified (comment): / 12-06-2017 / 20:27:55 / cg"
!
sumFromInteger:anInteger
- "the receiver does not know how to add an integer -
+ "anInteger does not know how to add the receiver -
retry the operation by coercing to higher generality"
^ anInteger retry:#+ coercing:self
+
+ "Modified (comment): / 12-06-2017 / 20:28:03 / cg"
!
sumFromLargeFloat:aLargeFloat
- "the receiver does not know how to add a largeFloat -
+ "aLargeFloat does not know how to add the receiver -
retry the operation by coercing to higher generality"
^ aLargeFloat retry:#+ coercing:self
- "Created: 17.4.1996 / 12:34:10 / cg"
+ "Created: / 17-04-1996 / 12:34:10 / cg"
+ "Modified (comment): / 12-06-2017 / 20:28:11 / cg"
!
sumFromLongFloat:aLongFloat
- "the receiver does not know how to add a longFloat -
+ "aLongFloat does not know how to add the receiver -
retry the operation by coercing to higher generality"
^ aLongFloat retry:#+ coercing:self
- "Created: 17.4.1996 / 12:34:10 / cg"
+ "Created: / 17-04-1996 / 12:34:10 / cg"
+ "Modified (comment): / 12-06-2017 / 20:28:19 / cg"
!
sumFromShortFloat:aShortFloat
- "the receiver does not know how to add a shortFloat -
+ "aShortFloat does not know how to add the receiver -
retry the operation by coercing to higher generality"
^ aShortFloat retry:#+ coercing:self
- "Created: 17.4.1996 / 12:34:10 / cg"
+ "Created: / 17-04-1996 / 12:34:10 / cg"
+ "Modified (comment): / 12-06-2017 / 20:28:39 / cg"
! !
!ArithmeticValue methodsFor:'mathematical functions'!