| 
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
16311632
16331634
1635
1636
1637
1638
1639
1640
1641 | 
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 {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 {!$isClient} then {          set directory [lindex [file split $fileName] set directory [lindex [file split $fileName] $index]3]          if {[string length $directory] > 0if {[string length $directory] > 0 && \
              [lsearch -exact $platforms $directory] == -1} then {
            lappend platforms $directory
          }
        }
      }
    }
    if {[isEagle]} then {} then { |