Changeset 5586

Timestamp:

Jul 26, 2009, 1:04:34 AM (15 years ago)

Author:

landauf

Message:

fixed a problem with orxonox' wrapper of the unknown proc
added some path utilities: [pwd], [psd] and [pld] for working, start and library directory respectively ($pwd, $psd and $pld are the corresponding variables)

File:

• data/media/tcl/init.tcl (modified) (3 diffs)

data/media/tcl/init.tcl

@@ -93 +93 @@
 
 set filepath [info script]
-set ::orxonox::mediapath [string range $filepath 0 [string last "/" $filepath]]
+#set ::orxonox::mediapath [string range $filepath 0 [string last "/" $filepath]]
+set ::orxonox::mediapath [file dirname $filepath]
 if {[lsearch $auto_path $::orxonox::mediapath] == -1} {
     lappend auto_path $::orxonox::mediapath
 }
 unset filepath
+
+
+# save the start directory and the library directory
+
+proc psd {} "return [pwd]"
+proc pld {} "return $::orxonox::mediapath"
+
+set pwd [pwd]
+set psd [psd]
+set pld [pld]
+
+
+# modify cd to automatically set $pwd
+
+if {[llength [info command ::tcl::cd]] == 0} {
+    rename cd ::tcl::cd
+}
+proc cd {{path "~"}} {
+    global pwd
+    ::tcl::cd $path
+    set pwd [pwd]
+}
 
 
@@ -187 +210 @@
             global ::orxonox::errormessage_unknown ::orxonox::errormessage_unknown_length
 
-tcl::puts "unknown: $args"
-            set errorcode [catch {::tcl::unknown $args} result options]
+            set cmd [concat ::tcl::unknown $args]
+            set errorcode [catch {eval $cmd} result options]
             set resultlist [split $result]
             set success 1
-tcl::puts "errorcode: $errorcode resultlist: $resultlist"
+
             if {$errorcode && [llength $resultlist] >= $::orxonox::errormessage_unknown_length} {
                 for {set i 0} {$i < $::orxonox::errormessage_unknown_length} {incr i} {
@@ -199 +222 @@
                     }
                 }
+            } else {
+                set success 0
             }
-tcl::puts "success: $success"
+
             if {!$success} {
                 return -code $errorcode -options $options $result