Changeset 1495 for code/branches/network/src/cpptcl/CppTcl.cc

Timestamp:

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

Author:

rgrieder

Message:

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

File:

• code/branches/network/src/cpptcl/CppTcl.cc (modified) (2 diffs)

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_);
+     }
 }