Changeset 3344 for code/branches/resource/src/core/TclThreadManager.cc

Timestamp:

Jul 24, 2009, 6:00:36 PM (16 years ago)

Author:

landauf

Message:

tcl uses it's native library, orxonox adds new features later (defined in media/tcl/init.tcl)

File:

• code/branches/resource/src/core/TclThreadManager.cc (modified) (2 diffs)

code/branches/resource/src/core/TclThreadManager.cc

@@ -240 +240 @@
         TclInterpreterBundle* newbundle = new TclInterpreterBundle();
         newbundle->id_ = id;
-        newbundle->interpreter_ = new Tcl::interpreter(TclBind::getInstance().getTclLibPath());
+        newbundle->interpreter_ = TclBind::createTclInterpreter();
 
         // Initialize the new interpreter
@@ -268 +268 @@
 
             // Redefine some native functions
-            newbundle->interpreter_->eval("redef_puts");
-
 //            newbundle->interpreter_->eval("rename while tcl::while");
 //            newbundle->interpreter_->eval("proc while {test command} { tcl::while {[uplevel 1 expr $test]} {uplevel 1 $command} }"); // (\"$test\" && [orxonox::running " + id + "]])