Changeset 1495 for code/branches/network/src/cpptcl

Timestamp:

Jun 1, 2008, 1:10:46 AM (17 years ago)

Author:

rgrieder

Message:

SVN doesn't seem to like me. Reverted some really badly converted line endings.

Location:

code/branches/network/src/cpptcl

Files:

• CppTcl.cc (modified) (2 diffs)
• CppTcl.h (modified) (1 diff)

code/branches/network/src/cpptcl/CppTcl.cc

@@ -855 +855 @@
 interpreter::interpreter()
 {
-     interp_ =  Tcl_CreateInterp();     owner_ = true;
-}interpreter::interpreter(string const &libpath){     interp_ =  Tcl_CreateInterp();     owner_ = true;     try     {        this->eval("set tcl_library " + libpath);        Tcl_Init(this->interp_);     } catch (...) {}}
+     interp_ =  Tcl_CreateInterp();
+     owner_ = true;
+}
+
+interpreter::interpreter(string const &libpath)
+{
+     interp_ =  Tcl_CreateInterp();
+     owner_ = true;
+
+     try
+     {
+        this->eval("set tcl_library " + libpath);
+        Tcl_Init(this->interp_);
+     } catch (...) {}
+}
 
 interpreter::interpreter(Tcl_Interp *interp, bool owner)
@@ -870 +883 @@
           // clear all callback info belonging to this interpreter
           clear_definitions(interp_);
-          Tcl_DeleteInterp(interp_);     }
+
+          Tcl_DeleteInterp(interp_);
+     }
 }
 

code/branches/network/src/cpptcl/CppTcl.h

@@ -467 +467 @@
 {
 public:
-     interpreter();     interpreter(std::string const &libpath);
+     interpreter();
+     interpreter(std::string const &libpath);
      interpreter(Tcl_Interp *, bool owner = true);
      ~interpreter();