--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/SomeNumber.st Sat Jun 21 12:14:23 2003 +0200
@@ -0,0 +1,115 @@
+"
+ COPYRIGHT (c) 2003 by eXept Software AG
+ All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
+
+"{ Package: 'stx:libbasic' }"
+
+MetaNumber subclass:#SomeNumber
+ instanceVariableNames:'realNumber'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Magnitude-Numbers'
+!
+
+!SomeNumber class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 2003 by eXept Software AG
+ All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
+!
+
+documentation
+"
+ Only used internally during the double dispatch process when MetaNumbers
+ (INF and NAN) are involved.
+
+ [author:]
+ Claus Gittinger
+
+ [see also:]
+ Number Infinity NotANumber
+ Float ShortFloat Fraction FixedPoint Integer Complex
+ FloatArray DoubleArray
+"
+! !
+
+!SomeNumber methodsFor:'accessing'!
+
+realNumber
+ "return the value of the instance variable 'realNumber' (automatically generated)"
+
+ ^ realNumber
+!
+
+realNumber:something
+ "set the value of the instance variable 'realNumber' (automatically generated)"
+
+ realNumber := something.
+! !
+
+!SomeNumber methodsFor:'arithmetic'!
+
+* something
+ "return the product of the receiver and the argument"
+
+ ^ something productFromSomeNumber:self
+!
+
++ something
+ "return the sum of the receiver and the argument"
+
+ ^ something sumFromSomeNumber:self
+!
+
+- something
+ "return the difference of the receiver and the argument"
+
+ ^ something differenceFromSomeNumber:self
+!
+
+/ something
+ "return the quotient of the receiver and the argument"
+
+ ^ something quotientFromSomeNumber:self
+!
+
+< something
+ "return true if the receiver is less than the argument"
+
+ ^ something lessFromSomeNumber:self
+!
+
+= something
+ "return true if the receiver is equal to the argument"
+
+ ^ something equalFromSomeNumber:self
+! !
+
+!SomeNumber methodsFor:'queries'!
+
+sign
+ ^ realNumber sign
+! !
+
+!SomeNumber class methodsFor:'documentation'!
+
+version
+ ^ '$Header: /cvs/stx/stx/libbasic/SomeNumber.st,v 1.1 2003-06-21 10:14:23 cg Exp $'
+! !