Diff
Not logged in

Differences From Artifact [2454d82a5a]:

To Artifact [7103930af5]:


1117
1118
1119
1120
1121
1122
1123
1124
1125


1126
1127












1128
1129
1130
1131
1132
1133

1134
1135
1136
1137
1138
1139
1140
1141
1117
1118
1119
1120
1121
1122
1123


1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144

1145

1146
1147
1148
1149
1150
1151
1152







-
-
+
+


+
+
+
+
+
+
+
+
+
+
+
+





-
+
-







    # NOTE: Initialize list of platforms to return.  This will be populated
    #       based on the platform directories available in the downloaded
    #       manfiest data.
    #
    set platforms [list]

    #
    # NOTE: Read the (OpenPGP verified) Fossil manifest data from the local
    #       file and split it into lines.
    # NOTE: Read the (OpenPGP verified) manifest data from the local file
    #       and split it into lines.
    #
    set data [readFile $localFileName]; set lines [split $data \n]

    #
    # NOTE: Figure out the pattern to use when matching against the file
    #       names in the manifest data.  If available, this will include
    #       the package name; otherwise, platform names for all packages
    #       will be considered.
    #
    if {[string length $packageName] > 0} then {
      set pattern [file join $language $version * $packageName *]
    } else {
      set pattern [file join $language $version *]
    }

    foreach line $lines {
      if {[string range $line 0 1] eq "F "} then {
        set fileName [lindex [split $line " "] 1]

        if {[string match [file join \
        if {[string match $pattern $fileName]} then {
            $language $version * $packageName *] $fileName]} then {
          set directory [lindex [file split $fileName] 2]

          if {[string length $directory] > 0} then {
            lappend platforms $directory
          }
        }
      }