Diff
Not logged in

Differences From Artifact [d6c53b942b]:

To Artifact [e2513eec21]:


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 {