Changeset 3313 for code/trunk/src/core/TclBind.cc
- Timestamp:
- Jul 19, 2009, 2:58:24 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
code/trunk/src/core/TclBind.cc
r3307 r3313 79 79 this->interpreter_->def("orxonox::crossquery", TclThreadManager::tcl_crossquery, Tcl::variadic()); 80 80 this->interpreter_->def("execute", TclBind::tcl_execute, Tcl::variadic()); 81 this->interpreter_->def("orxonox::crossexecute", TclThreadManager::tcl_crossexecute, Tcl::variadic());82 81 83 82 try 84 83 { 85 this->interpreter_->eval("proc query args { orxonox::query [join $args] }"); 86 this->interpreter_->eval("proc crossquery {id args} { orxonox::crossquery 0 $id [join $args] }"); 87 this->interpreter_->eval("proc crossexecute {id args} { orxonox::crossquery 0 $id [join $args] }"); 84 this->interpreter_->eval("proc query args { orxonox::query $args }"); 85 this->interpreter_->eval("proc crossquery {id args} { orxonox::crossquery 0 $id $args }"); 88 86 this->interpreter_->eval("set id 0"); 89 87 this->interpreter_->eval("rename exit tcl::exit; proc exit {} { execute exit }");
Note: See TracChangeset
for help on using the changeset viewer.