summaryrefslogtreecommitdiffstats
path: root/library/platform
diff options
context:
space:
mode:
Diffstat (limited to 'library/platform')
-rw-r--r--library/platform/pkgIndex.tcl2
-rw-r--r--library/platform/platform.tcl26
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