1 files changed, 99 insertions, 0 deletions
diff --git a/libxsde/xsde/cxx/parser/validating/double.cxx b/libxsde/xsde/cxx/parser/validating/double.cxx
new file mode 100644
index 0000000..947f983
--- /dev/null
+++ b/libxsde/xsde/cxx/parser/validating/double.cxx
@@ -0,0 +1,99 @@
+// file      : xsde/cxx/parser/validating/double.cxx
+// author    : Boris Kolpackov <boris@codesynthesis.com>
+// copyright : Copyright (c) 2005-2009 Code Synthesis Tools CC
+// license   : GNU GPL v2 + exceptions; see accompanying LICENSE file
+
+#include <stdlib.h> // strtod
+
+#include <xsde/cxx/errno.hxx>
+
+#include <xsde/cxx/parser/validating/double.hxx>
+
+namespace xsde
+{
+  namespace cxx
+  {
+    namespace parser
+    {
+      namespace validating
+      {
+        void double_pimpl::
+        _pre ()
+        {
+          size_ = 0;
+          sign_ = none;
+          state_ = leading_ws;
+        }
+
+        void double_pimpl::
+        _characters (const ro_string& s)
+        {
+          if (!parse (s, str_, 127))
+            _schema_error (schema_error::invalid_double_value);
+        }
+
+        void double_pimpl::
+        _post ()
+        {
+          ro_string tmp (str_, size_);
+          size_t size = trim_right (tmp);
+
+          if (size != 0 && tmp[0] != '-' && tmp[0] != '+')
+          {
+            str_[size] = '\0';
+
+            if (tmp == "INF")
+            {
+              switch (sign_)
+              {
+              case none:
+                {
+                  value_ = strtod ("INF", 0);
+                  break;
+                }
+              case plus:
+                {
+                  _schema_error (schema_error::invalid_double_value);
+                  break;
+                }
+              case minus:
+                {
+                  value_ = strtod ("-INF", 0);
+                  break;
+                }
+              }
+            }
+            else if (tmp == "NaN")
+            {
+              if (sign_ == none)
+                value_ = strtod ("NAN", 0);
+              else
+                _schema_error (schema_error::invalid_double_value);
+
+            }
+            else
+            {
+              char* p;
+              set_errno (0);
+              value_ = strtod (str_, &p);
+
+              if (*p != '\0' || get_errno () != 0)
+                _schema_error (schema_error::invalid_double_value);
+
+              if (sign_ == minus)
+                value_ = -value_;
+            }
+          }
+          else
+            _schema_error (schema_error::invalid_double_value);
+        }
+
+        double double_pimpl::
+        post_double ()
+        {
+          return value_;
+        }
+      }
+    }
+  }
+}