}

    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] 2]

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