# Various required directories and URLs # MUST be set to existing folders or QuackBot will crash! set tsvPath "tsv/" set apiCachePath "apiCache/" set apiBaseUrl "http://api.eveonline.com/" proc parsePairs { tsvName } { # Open TSV containing A:B pairs set f [open [file nativename $EveUtils::tsvPath$tsvName] r] # Iterate over lines in file until the end while { [eof $f] == 0 } { # Read line (gets $f) and split it at tabs (\t) set splitLine [split [gets $f] "\t"] # Insert into array with A as key and B as value set pairMap([lindex $splitLine 0]) [lindex $splitLine 1] } # Return array populated with A:B pairs return [array get pairMap] }