Changeset 1194 for code/branches/console/src/cpptcl/CppTcl.cc

Timestamp:

Apr 27, 2008, 4:54:31 PM (17 years ago)

Author:

landauf

Message:

tcl can now initialize itself by loading the *.tcl files from media/tcl

File:

• code/branches/console/src/cpptcl/CppTcl.cc (modified) (1 diff)

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

@@ -859 +859 @@
 }
 
+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)
 {