--- /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 $'
+! !