1 files changed, 118 insertions, 0 deletions
diff --git a/libxsde/xsde/cxx/parser/validating/float.cxx b/libxsde/xsde/cxx/parser/validating/float.cxx
new file mode 100644
index 0000000..7bbbcca
--- /dev/null
+++ b/libxsde/xsde/cxx/parser/validating/float.cxx
@@ -0,0 +1,118 @@
+// file      : xsde/cxx/parser/validating/float.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> // strtof, strtod
+
+#include <xsde/cxx/config.hxx>
+#include <xsde/cxx/errno.hxx>
+
+#include <xsde/cxx/parser/validating/float.hxx>
+
+namespace xsde
+{
+  namespace cxx
+  {
+    namespace parser
+    {
+      namespace validating
+      {
+        void float_pimpl::
+        _pre ()
+        {
+          size_ = 0;
+          sign_ = none;
+          state_ = leading_ws;
+        }
+
+        void float_pimpl::
+        _characters (const ro_string& s)
+        {
+          if (!parse (s, str_, 127))
+            _schema_error (schema_error::invalid_float_value);
+        }
+
+        void float_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:
+                {
+#ifdef XSDE_STRTOF
+                  value_ = strtof ("INF", 0);
+#else
+                  value_ = static_cast<float> (strtod ("INF", 0));
+#endif
+                  break;
+                }
+              case plus:
+                {
+                  _schema_error (schema_error::invalid_float_value);
+                  break;
+                }
+              case minus:
+                {
+#ifdef XSDE_STRTOF
+                  value_ = strtof ("-INF", 0);
+#else
+                  value_ = static_cast<float> (strtod ("-INF", 0));
+#endif
+                  break;
+                }
+              }
+            }
+            else if (tmp == "NaN")
+            {
+              if (sign_ == none)
+              {
+#ifdef XSDE_STRTOF
+                value_ = strtof ("NAN", 0);
+#else
+                value_ = static_cast<float> (strtod ("NAN", 0));
+#endif
+              }
+              else
+                _schema_error (schema_error::invalid_float_value);
+
+            }
+            else
+            {
+              char* p;
+              set_errno (0);
+#ifdef XSDE_STRTOF
+              value_ = strtof (str_, &p);
+#else
+              value_ = static_cast<float> (strtod (str_, &p));
+#endif
+
+              if (*p != '\0' || get_errno () != 0)
+                _schema_error (schema_error::invalid_float_value);
+
+              if (sign_ == minus)
+                value_ = -value_;
+            }
+          }
+          else
+            _schema_error (schema_error::invalid_float_value);
+        }
+
+        float float_pimpl::
+        post_float ()
+        {
+          return value_;
+        }
+      }
+    }
+  }
+}