1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638
1639
1640
1641
|
set pattern [file join $language $version *]
}
#
# NOTE: For package files that are not part of the client package,
# put them inside the "packages" sub-directory.
#
if {!$isClient} then {
set pattern [file join packages $pattern]
}
foreach line $lines {
if {[string range $line 0 1] eq "F "} then {
set fileName [lindex [split $line " "] 1]
if {[string match $pattern $fileName]} then {
set directory [lindex [file split $fileName] 3]
if {[string length $directory] > 0} then {
lappend platforms $directory
}
}
}
}
if {[isEagle]} then {
|
|
>
>
>
|
|
>
|
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638
1639
1640
1641
1642
1643
1644
1645
|
set pattern [file join $language $version *]
}
#
# NOTE: For package files that are not part of the client package,
# put them inside the "packages" sub-directory.
#
if {$isClient} then {
set index 2; # client/1.0/<neutral>/fileName.ext
} else {
set pattern [file join packages $pattern]
set index 3; # packages/tcl/8.4/<neutral>/pkgName1.0/fileName.ext
}
foreach line $lines {
if {[string range $line 0 1] eq "F "} then {
set fileName [lindex [split $line " "] 1]
if {[string match $pattern $fileName]} then {
set directory [lindex [file split $fileName] $index]
if {[string length $directory] > 0 && \
[lsearch -exact $platforms $directory] == -1} then {
lappend platforms $directory
}
}
}
}
if {[isEagle]} then {
|