Changeset 5056 for data/Media/tcl/init.tcl

Timestamp:

May 13, 2008, 12:49:00 AM (17 years ago)

Author:

landauf

Message:

updates in init.tcl:

• query
• crossquery
• execute

File:

• data/Media/tcl/init.tcl (modified) (4 diffs)

data/Media/tcl/init.tcl

@@ -214 +214 @@
 
 # query --
-# Sends a query to the Tcl interpreter of Orxonox and
+# Sends a query to the CommandExecutor of Orxonox and
 # waits for the response.
 # This procedure will be changed to it's real function
@@ -222 +222 @@
 # args - The command to send to Orxonox
 
+proc query args {
+    return -code error "Can't query Orxonox now"
+}
+
+# crossquery --
+# Sends a query to another Tcl-interpreter in Orxonox and
+# waits for the response.
+# This procedure will be changed to it's real function
+# by Orxonox itself.
+#
+# Arguments:
+# id   - The ID of the other interpreter
+# args - The command to send to Orxonox
+
 proc query {id args} {
-    return -code error "can't query now"
-}
-
-# orxonox --
-# This procedure will be changed by Orxonox itself.
-# Until then it will return an error message.
-# orxonox gets called by "unknown" if a command isn't known.
-#
-# Arguments:
-# args - The original command
-
-proc orxonox args {
-    return -code error "can't execute \"$args\""
+    return -code error "Can't query interpreter with ID $id now"
 }
 
@@ -273 +275 @@
                 if {$nl==""} {lappend cmd 0} else {lappend cmd 1}
                 lappend cmd $s
-                execute log muuuuh
                 eval $cmd
             } else {
@@ -477 +478 @@
     }
 #    return -code error "invalid command name \"$name\""
-    return [orxonox $args]
+    return [query $args]
 }