Changeset 5585 for data/media/tcl

Timestamp:

Jul 25, 2009, 9:47:30 PM (15 years ago)

Author:

landauf

Message:

experimenting with while and for in tcl

File:

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

data/media/tcl/init.tcl

@@ -48 +48 @@
 proc crossexecute {id args} {
     return -code error "Can't execute a command now"
+}
+
+
+# running --
+# Returns true if the interpreter is still suposed to be running
+# This dummy procedure will be changed to it's real implementation by Orxonox itself.
+
+proc running {} {
+    return 1
+}
+
+
+# orxonox::while --
+# Works like while but breaks the loop if orxonox::running returns false
+
+proc ::orxonox::while {condition body} {
+    set condition_cmd [list expr $condition]
+    ::tcl::while {1} {
+        if {![uplevel 1 $condition_cmd] || ![::running]} {
+            break
+        }
+        uplevel 1 $body
+    }
+}
+
+
+# orxonox::for --
+# Works like for but breaks the loop if orxonox::running returns false
+
+proc ::orxonox::for {start condition step body} {
+    set condition_cmd [list expr $condition]
+    uplevel 1 $start
+    ::tcl::while {1} {
+        if {![uplevel 1 $condition_cmd] || ![::running]} {
+            break
+        }
+        uplevel 1 $body
+        uplevel 1 $step
+    }
 }
 
@@ -64 +103 @@
 
 cd $::orxonox::mediapath
-
-
-# change the source command to use files from the media path
-
-#if {[llength [info command ::tcl::source]] == 0} {
-#    rename source ::tcl::source
-#}
-#proc source args {
-#    global ::orxonox::mediapath
-#
-#    set argc [llength $args]
-#    if {$argc != 1 && $argc != 3} {
-#        error "wrong # args: should be \"source ?-encoding name? fileName\""
-#    }
-#    if {$argc == 3} {
-#        if {[lindex $args 0] != "-encoding"} {
-#            error "bad option \"[lindex $args 0]\": must be -encoding"
-#        } else {
-#            set file [lindex $args 2]
-#        }
-#    } else {
-#        set file [lindex $args 0]
-#    }
-#    set orxonoxfile [file join $::orxonox::mediapath $file]
-#    if {[file readable $orxonoxfile]} {
-#        if {$argc == 1} {
-#            return [::tcl::source $orxonoxfile]
-#        } else {
-#            return [::tcl::source [lindex $args 0] [lindex $args 1] $orxonoxfile]
-#        }
-#    } else {
-#        return [::tcl::source $args]
-#    }
-#}
 
 
@@ -182 +187 @@
             global ::orxonox::errormessage_unknown ::orxonox::errormessage_unknown_length
 
+tcl::puts "unknown: $args"
             set errorcode [catch {::tcl::unknown $args} 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} {
                     if {[lindex $::orxonox::errormessage_unknown $i] != [lindex $resultlist $i]} {
                         set success 0
-                        tcl::puts "not equal"
                         break
                     }
                 }
             }
-
+tcl::puts "success: $success"
             if {!$success} {
                 return -code $errorcode -options $options $result