diff options
| author | andreas_kupries <akupries@shaw.ca> | 2007-07-20 16:49:37 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2007-07-20 16:49:37 (GMT) |
| commit | 5785bb0ff0458af7bc55bc79cf0f83bb21cebe7d (patch) | |
| tree | 949f9095e5ecb4d9332acb6ce2fc9251d8d80854 /library/platform/platform.tcl | |
| parent | 753ac8d30b441c6bac4f155de07ad94fc8b005bc (diff) | |
| download | tcl-5785bb0ff0458af7bc55bc79cf0f83bb21cebe7d.zip tcl-5785bb0ff0458af7bc55bc79cf0f83bb21cebe7d.tar.gz tcl-5785bb0ff0458af7bc55bc79cf0f83bb21cebe7d.tar.bz2 | |
* library/platform/platform.tcl: Fixed bug in 'platform::patterns'
* library/platform/pkgIndex.tcl: where identifiers not matching
* unix/Makefile.in: the special linux and solaris forms would not
* win/Makefile.in: get 'tcl' as an acceptable platform added to
* doc/platform.n: the result. Bumped package to version 1.0.3 and
* doc/platform_shell.n: updated documentation and Makefiles. Also
fixed bad version info in the documentation of platform::shell.
Diffstat (limited to 'library/platform/platform.tcl')
| -rw-r--r-- | library/platform/platform.tcl | 26 |
1 files changed, 14 insertions, 12 deletions
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 |