diff options
Diffstat (limited to 'library')
| -rw-r--r-- | library/platform/pkgIndex.tcl | 2 | ||||
| -rw-r--r-- | library/platform/platform.tcl | 26 |
2 files changed, 15 insertions, 13 deletions
diff --git a/library/platform/pkgIndex.tcl b/library/platform/pkgIndex.tcl index d141612..68924cb 100644 --- a/library/platform/pkgIndex.tcl +++ b/library/platform/pkgIndex.tcl @@ -1,3 +1,3 @@ -package ifneeded platform 1.0.2 [list source [file join $dir platform.tcl]] +package ifneeded platform 1.0.3 [list source [file join $dir platform.tcl]] package ifneeded platform::shell 1.1.3 [list source [file join $dir shell.tcl]] diff --git a/library/platform/platform.tcl b/library/platform/platform.tcl index 27b565a..143cdc5 100644 --- a/library/platform/platform.tcl +++ b/library/platform/platform.tcl @@ -220,20 +220,22 @@ proc ::platform::patterns {id} { switch -glob -- $id { solaris*-* { - if {![regexp {solaris([^-]*)-(.*)} $id -> v cpu]} {return $id} - if {$v eq ""} {return $id} - foreach {major minor} [split $v .] break - incr minor -1 - for {set j $minor} {$j >= 6} {incr j -1} { - lappend res solaris${major}.${j}-${cpu} + if {[regexp {solaris([^-]*)-(.*)} $id -> v cpu]} { + if {$v eq ""} {return $id} + foreach {major minor} [split $v .] break + incr minor -1 + for {set j $minor} {$j >= 6} {incr j -1} { + lappend res solaris${major}.${j}-${cpu} + } } } linux*-* { - if {![regexp {linux-glibc([^-]*)-(.*)} $id -> v cpu]} {return $id} - foreach {major minor} [split $v .] break - incr minor -1 - for {set j $minor} {$j >= 0} {incr j -1} { - lappend res linux-glibc${major}.${j}-${cpu} + if {[regexp {linux-glibc([^-]*)-(.*)} $id -> v cpu]} { + foreach {major minor} [split $v .] break + incr minor -1 + for {set j $minor} {$j >= 0} {incr j -1} { + lappend res linux-glibc${major}.${j}-${cpu} + } } } macosx-powerpc - @@ -249,7 +251,7 @@ proc ::platform::patterns {id} { # ### ### ### ######### ######### ######### ## Ready -package provide platform 1.0.2 +package provide platform 1.0.3 # ### ### ### ######### ######### ######### ## Demo application |