Initial commit.

1 files changed, 64 insertions, 0 deletions

diff --git a/sources/freedom.cpp b/sources/freedom.cpp
new file mode 100644
index 0000000..fb65cad
--- /dev/null
+++ b/sources/freedom.cpp
@@ -0,0 +1,64 @@
+//-*- mode: c++; indent-tabs-mode: t; coding: utf-8; show-trailing-whitespace: t -*-
+
+// file freedom.cpp
+
+#include "freedom.hpp"
+
+namespace freedom {
+
+  template <> bool freeName<int>(int &a)
+  {
+    bool bReturnValue = false;
+    //
+    return bReturnValue;
+  }
+
+  template <> bool freeName<double>(double &a)
+  {
+    bool bReturnValue = false;
+    //
+    ;
+    return bReturnValue;
+  }
+
+  bool freeIn(const std::string &sANSI, int32_t &n12)
+  {
+    int32_t n8;
+    double d12;
+    bool bReturnValue = false;
+    //
+    if(n12) {
+      n8 = 1;
+      freeFix(sANSI, n8);
+      std::sscanf(sANSI.substr(0, 80).c_str (), "%lf", &d12);
+      n12 = (uint32_t) d12;
+      bReturnValue = true;
+    }
+    return bReturnValue;
+  }
+
+  bool freeIn(const std::string &, int32_t &, int32_t &)
+  {
+    bool bReturnValue = false;
+    //
+    return bReturnValue;
+  }
+
+  bool freeFix(const std::string &, int32_t &)
+  {
+    bool bReturnValue = false;
+    //
+    return bReturnValue;
+  }
+
+  bool freeOne(double &d)
+  {
+    bool bReturnValue = false;
+    //
+    //bReturnValue = freeFLD(sANSI, d);
+    return bReturnValue;
+  }
+
+}
+
+// end of file freedom.cpp