Changeset 1267 for code/branches/console/src/core/TclThreadManager.cc

Timestamp:

May 13, 2008, 6:33:05 PM (16 years ago)

Author:

landauf

Message:

telnet remote control works

type "source remote.tcl" into the ingame shell
connect with tcl to port 2560
login with "orxonox rocks"
type any command you like… it will be executed in orxonox
of course server-admins will change the password (and the port)

File:

• code/branches/console/src/core/TclThreadManager.cc (modified) (1 diff)

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

@@ -202 +202 @@
             i->eval("redef_puts");
 
-            i->eval("rename while tcl::while");
-            i->eval("proc while {test command} { tcl::while {$test && [orxonox::running " + threadID + "]} \"$command\" }");
+//            i->eval("rename while tcl::while");
+//            i->eval("proc while {test command} { tcl::while {[uplevel 1 expr $test]} {uplevel 1 $command} }"); // (\"$test\" && [orxonox::running " + threadID + "]])
 //            i->eval("rename for tcl::for");
 //            i->eval("proc for {start test next command} { uplevel tcl::for \"$start\" \"$test\" \"$next\" \"$command\" }");