Changeset 3318 for code/trunk/src/core/TclBind.cc

Timestamp:

Jul 19, 2009, 3:05:15 PM (15 years ago)

Author:

rgrieder

Message:

Re-reverting TclThreadManager changes.

File:

• code/trunk/src/core/TclBind.cc (modified) (1 diff)

code/trunk/src/core/TclBind.cc

@@ -79 +79 @@
             this->interpreter_->def("orxonox::crossquery", TclThreadManager::tcl_crossquery, Tcl::variadic());
             this->interpreter_->def("execute", TclBind::tcl_execute, Tcl::variadic());
+            this->interpreter_->def("orxonox::crossexecute", TclThreadManager::tcl_crossexecute, Tcl::variadic());
 
             try
             {
-                this->interpreter_->eval("proc query args { orxonox::query $args }");
-                this->interpreter_->eval("proc crossquery {id args} { orxonox::crossquery 0 $id $args }");
+                this->interpreter_->eval("proc query args { orxonox::query [join $args] }");
+                this->interpreter_->eval("proc crossquery {id args} { orxonox::crossquery 0 $id [join $args] }");
+                this->interpreter_->eval("proc crossexecute {id args} { orxonox::crossquery 0 $id [join $args] }");
                 this->interpreter_->eval("set id 0");
                 this->interpreter_->eval("rename exit tcl::exit; proc exit {} { execute exit }");