--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/xquery/trunk/XQuery__FloatFormatter.st	Wed Apr 07 12:37:26 2010 +0000
@@ -0,0 +1,81 @@
+"{ Package: 'stx:goodies/xmlsuite/xquery' }"
+
+"{ NameSpace: XQuery }"
+
+XQueryNumberFormatter subclass:#FloatFormatter
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'XQuery-Types'
+!
+
+
+!FloatFormatter methodsFor:'number formatting'!
+
+nonStandardCanonicalLexicalForm
+    (number isNaN) ifTrue: 
+    [
+        ^ 'NaN'
+    ].
+
+    (number isPositiveInfinity) ifTrue:
+    [
+        ^ 'INF'
+    ].
+
+    (number isNegativeInfinity) ifTrue:
+    [
+        ^ '-INF'
+    ].
+
+    (number isNaN) ifTrue:
+    [
+        ^ 'NaN'
+    ].
+
+    self shouldNeverBeReached.
+
+    "Created: / 16-11-2009 / 18:19:20 / Jan Kurs <kursj1@fel.cvut.cz>"
+!
+
+standardCanonicalLexicalForm
+    | aMantissa anExponent |
+    aMantissa := self mantissa.
+    anExponent := self exponent.
+
+    (anExponent > 0) ifTrue:
+    [
+        (anExponent >= 6) ifTrue:
+        [
+            ^ aMantissa printString, 'E', anExponent printString.
+        ] 
+        ifFalse:
+        [
+            | fractionDigits |
+            fractionDigits := self fractionDigits.
+            ^ self number printStringFormat: '%.', fractionDigits storeString, 'f'
+        ].
+    ]
+    ifFalse:
+    [
+        (anExponent < -6) ifTrue:
+        [
+            ^ aMantissa printString, 'E', anExponent printString.
+        ]
+        ifFalse:
+        [
+            | format |
+            format := '%.', self fractionDigits asString, 'f'.
+            ^ number printStringFormat: format.
+        ].
+    ]
+
+    "Created: / 16-11-2009 / 18:19:11 / Jan Kurs <kursj1@fel.cvut.cz>"
+    "Modified: / 17-11-2009 / 17:25:58 / Jan Kurs <kursj1@fel.cvut.cz>"
+! !
+
+!FloatFormatter class methodsFor:'documentation'!
+
+version_SVN
+    ^ '$Id$'
+! !