--- a/xquery/trunk/XQuery__TypeXSDouble.st	Tue Apr 06 17:39:11 2010 +0000
+++ b/xquery/trunk/XQuery__TypeXSDouble.st	Tue Apr 06 18:09:03 2010 +0000
@@ -10,7 +10,7 @@
 !
 
 
-!TypeXSDouble methodsFor:'accessing'!
+!TypeXSDouble methodsFor:'type value - accessing'!
 
 typeName
     "Superclass says that I am responsible to implement this method"
@@ -20,8 +20,35 @@
     "Created: / 05-12-2007 / 20:52:53 / janfrog"
 ! !
 
+!TypeXSDouble methodsFor:'type value - converting'!
+
+toCanonicalLexicalForm:value
+    ^ (FloatFormatter withValue: value) toCanonicalLexicalForm.
+
+    "Created: / 24-10-2009 / 20:01:04 / Jan Kurs <kursj1@fel.cvut.cz>"
+    "Modified: / 17-11-2009 / 18:18:20 / Jan Kurs <kursj1@fel.cvut.cz>"
+! !
+
+!TypeXSDouble methodsFor:'type value - testing'!
+
+checkLexicalForm: form
+    " ONLY HOTFIX - I have no regex to implement this"
+    ^ 
+    (form trim conform: [:character | 
+        ('[0-9.e+]' match: character asString ignoreCase: true)
+        or: [character asString = '-'].
+    ]) 
+    or:
+    [
+        (form = 'INF') or: [form = '-INF'] or: [form = 'NaN'].
+    ]
+
+    "Created: / 15-10-2009 / 16:55:26 / Jan Kurs <kursj1@fel.cvut.cz>"
+    "Modified: / 30-12-2009 / 14:35:25 / Jan Kurs <kursj1@fel.cvut.cz>"
+! !
+
 !TypeXSDouble class methodsFor:'documentation'!
 
-version
-    ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/xquery/XQuery__TypeXSDouble.st,v 1.2 2007-12-05 21:31:50 vranyj1 Exp $'
+version_SVN
+    ^ '$Id$'
 ! !