Changeset 1267

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)

Location:

code/branches/console

Files:

• bin/remote.tcl (added)
• bin/telnet_server.tcl (added)
• src/core/TclBind.cc (modified) (2 diffs)
• src/core/TclBind.h (modified) (1 diff)
• src/core/TclThreadManager.cc (modified) (1 diff)

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

@@ -39 +39 @@
 {
     ConsoleCommandShortcutGeneric(tcl, createExecutor(createFunctor(&TclBind::tcl), "tcl", AccessLevel::None));
+    ConsoleCommandShortcutGeneric(bgerror, createExecutor(createFunctor(&TclBind::bgerror), "bgerror", AccessLevel::None));
 
     TclBind::TclBind()
@@ -147 +148 @@
     }
 
+    void TclBind::bgerror(std::string error)
+    {
+        while (error.size() >= 2 && error[0] == '{' && error[error.size() - 1] == '}')
+            error = error.substr(1, error.size() - 2);
+
+        COUT(1) << "Tcl background error: " << error << std::endl;
+    }
+
     bool TclBind::eval(const std::string& tclcode)
     {

code/branches/console/src/core/TclBind.h

@@ -42 +42 @@
 
             static std::string tcl(const std::string& tclcode);
+            static void bgerror(std::string error);
 
             void setDataPath(const std::string& datapath);

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\" }");