Changeset 5590 for data/media/tcl

Timestamp:

Jul 28, 2009, 5:37:28 PM (15 years ago)

Author:

landauf

Message:

even more compatible compatibility mode (tcl8.4 seems incompatible to compatibility)

File:

• data/media/tcl/init.tcl (modified) (1 diff)

data/media/tcl/init.tcl

@@ -211 +211 @@
 
         # define the modified version of unknown
-        proc unknown args {
-            global ::orxonox::errormessage_unknown ::orxonox::errormessage_unknown_length
-
-            set cmd [concat ::tcl::unknown $args]
-            if {[info tclversion] < 8.5} {
+        # we implement two versions, because tcl8.4 complains if this fork is moved inside [unknown]
+        if {[info tclversion] >= 8.5} {
+            # version >= 8.5
+            proc unknown args {
+                global ::orxonox::errormessage_unknown ::orxonox::errormessage_unknown_length
+
+                set cmd [concat ::tcl::unknown $args]
+                set errorcode [catch {eval $cmd} result options]
+                set resultlist [split $result]
+                set success 1
+
+                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
+                            break
+                        }
+                    }
+                } else {
+                    set success 0
+                }
+
+                if {!$success} {
+                    return -code $errorcode -options $options $result
+                } else {
+                    return [query $args]
+                }
+            }
+        } else {
+            # version < 8.5
+            proc unknown args {
+                global ::orxonox::errormessage_unknown ::orxonox::errormessage_unknown_length
+
+                set cmd [concat ::tcl::unknown $args]
                 set errorcode [catch {eval $cmd} result]
-            } else {
-                set errorcode [catch {eval $cmd} result options]
-            }
-            set resultlist [split $result]
-            set success 1
-
-            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
-                        break
+                set resultlist [split $result]
+                set success 1
+
+                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
+                            break
+                        }
                     }
-                }
-            } else {
-                set success 0
-            }
-
-            if {!$success} {
-                if {[info tclversion] < 8.5} {
+                } else {
+                    set success 0
+                }
+
+                if {!$success} {
                     return -code $errorcode $result
                 } else {
-                    return -code $errorcode -options $options $result
-                }
-            } else {
-                return [query $args]
+                    return [query $args]
+                }
             }
         }