Changeset 5051

Timestamp:

May 8, 2008, 1:19:28 AM (16 years ago)

Author:

landauf

Message:

some changes in init.tcl

File:

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

data/Media/tcl/init.tcl

@@ -210 +210 @@
     proc tclLog {string} {
         catch {puts stderr $string}
+    }
+}
+
+# query --
+# Sends a query to the Tcl interpreter of Orxonox and
+# waits for the response.
+# This procedure will be changed to it's real function
+# by Orxonox itself.
+#
+# Arguments:
+# 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\""
+}
+
+# execute --
+# This procedure will be changed by Orxonox itself.
+# execute calls a command in Orxonox.
+#
+# Arguments:
+# args - The command
+
+proc execute args {
+}
+
+# redef_puts --
+# Redefines puts to write directly into the Orxonox console
+# if the channel is stdout or stderr.
+
+proc redef_puts {} {
+    if ![llength [info command ::tcl::puts]] {
+        rename puts ::tcl::puts
+        proc puts args {
+            set la [llength $args]
+            if {$la<1 || $la>3} {
+                error "usage: puts ?-nonewline? ?channel? string"
+            }
+            set nl \n
+            if {[lindex $args 0]=="-nonewline"} {
+                set nl ""
+                set args [lrange $args 1 end]
+            }
+            if {[llength $args]==1} {
+                set args [list stdout [join $args]] ;
+            }
+            foreach {channel s} $args break
+            if {$channel=="stdout" || $channel=="stderr"} {
+                set cmd "execute puts"
+                if {$nl==""} {lappend cmd 0} else {lappend cmd 1}
+                lappend cmd $s
+                execute log muuuuh
+                eval $cmd
+            } else {
+                set cmd ::tcl::puts
+                if {$nl==""} {lappend cmd -nonewline}
+                lappend cmd $channel $s
+                eval $cmd
+            }
+        }
     }
 }
@@ -404 +476 @@
         }
     }
-    return -code error "invalid command name \"$name\""
+#    return -code error "invalid command name \"$name\""
+    return [orxonox $args]
 }