Changeset 82550

Timestamp:

08/15/11 10:44:45 (4 years ago)

Author:

ryandesign@…

Message:

app-1.0.tcl: make compatible with Tiger by providing fallback lreverse implementation

File:

• trunk/dports/_resources/port1.0/group/app-1.0.tcl (modified) (2 diffs)

trunk/dports/_resources/port1.0/group/app-1.0.tcl

@@ -141 +141 @@
     lappend identifier [string map {"." ""} ${app.name}]
     return [regsub -all -nocase {[^a-z0-9.-]} [join ${identifier} .] ""]
+}
+
+# Implement our own lreverse proc, if it doesn't already exist. This will be
+# the case on Tiger which has Tcl 8.4; lreverse is new in Tcl 8.5.
+# Taken from http://wiki.tcl.tk/17188
+if {[info command lreverse] == ""} {
+    proc lreverse l {
+        set r {}
+        set i [llength $l]
+        while {[incr i -1]} {lappend r [lindex $l $i]}
+        lappend r [lindex $l 0]
+    }
 }
 
@@ -268 +280 @@
     }
 }
-
-
-# TODO: for Tiger we probably need our own lreverse implementation e.g. http://wiki.tcl.tk/17188