1 files changed, 104 insertions, 0 deletions
diff --git a/Skin++/src/Cle2000.cxx b/Skin++/src/Cle2000.cxx
new file mode 100755
index 0000000..c49b721
--- /dev/null
+++ b/Skin++/src/Cle2000.cxx
@@ -0,0 +1,104 @@
+
+/*****************************************/
+/*      C++ CLE-2000 OBJECT WRAPPER      */
+/*    AUTHOR: A. HEBERT ; 2012/10/07     */
+/*****************************************/
+
+/*
+Copyright (C) 2012 Ecole Polytechnique de Montreal
+
+This library is free software; you can redistribute it and/or
+modify it under the terms of the GNU Lesser General Public
+License as published by the Free Software Foundation; either
+version 2.1 of the License, or (at your option) any later version.
+*/
+
+#include "Cle2000.hxx"
+
+using namespace std;
+using namespace ganlib;
+static ostringstream hsmg;
+
+ganlib::Cle2000::Cle2000(string sname) {
+  this->edit = 0;
+  this->procName = sname;
+  this->stack.reset();
+}
+ganlib::Cle2000::Cle2000(string sname, int_32 edit) {
+  this->edit = edit;
+  this->procName = sname;
+  this->stack.reset();
+}
+ganlib::Cle2000::Cle2000(string sname, LifoPtr jstack) {
+  this->edit = 0;
+  this->procName = sname;
+  this->stack = jstack;
+}
+ganlib::Cle2000::Cle2000(string sname, int_32 edit, LifoPtr jstack) {
+  this->edit = edit;
+  this->procName = sname;
+  this->stack = jstack;
+}
+
+ganlib::Cle2000::~Cle2000() {
+  cout << "Cle2000 destructor called." << endl;
+}
+
+void ganlib::Cle2000::setLifo(LifoPtr myLifo) {
+  this->stack = myLifo;
+}
+
+void ganlib::Cle2000::exec() {
+  int_32 ier, ilevel = 1;
+
+// close the LCM objects
+  for (int_32 ipos=0; ipos<this->stack->getMax(); ++ipos) {
+    int_32 myTypeNode = this->stack->typeNode(ipos);
+    if ((myTypeNode == 3) || (myTypeNode == 4)) {
+      if (this->stack->accessNode(ipos) > 0) {
+        ClcmPtr myClcm; this->stack->node(ipos, myClcm);
+        try {
+          lcm *myLcmStructure = myClcm->extract();
+          lifo *myLifo = this->stack->extract();
+          lifo_node *myNode = clepos(&myLifo, ipos);
+          strcpy(myNode->OSname, myLcmStructure->hname);
+          lcmcl_c(&myLcmStructure, 1);
+        } catch(...) {
+          throw Cle2000Exception("Exception catched by lcmcl_c");
+        }
+      }
+    }
+  }
+
+// call the parametrized procedure
+  try {
+    ier = cle2000_c(ilevel, &donmod, (char *)this->procName.c_str(), this->edit,
+                   (lifo*)this->stack->extract());
+                   
+  } catch(...) {
+    throw Cle2000Exception("Exception catched by cle2000_c");
+  }
+  if (ier != 0) {
+    hsmg << "Cle2000: cle2000 failure (" << this->procName << ".c2m). ier=" << ier;
+    throw Cle2000Exception(hsmg.str());
+  }
+
+// reopen the LCM objects
+  for (int ipos=0; ipos<this->stack->getMax(); ++ipos) {
+    int_32 myTypeNode = this->stack->typeNode(ipos);
+    if ((myTypeNode == 3) || (myTypeNode == 4)) {
+      int_32 access = this->stack->accessNode(ipos);
+      if (access == 0) access=1;
+      ClcmPtr myClcm; this->stack->node(ipos, myClcm);
+      try {
+        lcm *myLcmStructure = myClcm->extract();
+        int_32 myTypeNode = this->stack->typeNode(ipos);
+        string myOSname_str = this->stack->OSName(ipos);
+        char *myOSname = (char *)myOSname_str.c_str();
+        lcmop_c(&myLcmStructure, myOSname, access, myTypeNode-2, 0);
+      } catch(...) {
+        throw Cle2000Exception("Exception catched by lcmop_c");
+      }
+    }
+  }
+}