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

Timestamp:

May 31, 2008, 11:24:44 PM (16 years ago)

Author:

rgrieder

Message:

• set the svn:eol-style property to all files so, that where ever you check out, you'll get the right line endings (had to change every file with mixed endings to windows in order to set the property)

File:

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

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)
@@ -883 +870 @@
           // clear all callback info belonging to this interpreter
           clear_definitions(interp_);
-
-          Tcl_DeleteInterp(interp_);
-     }
+          Tcl_DeleteInterp(interp_);     }
 }