SHIPWRECKED?

function pairsByKeys (t, f)
    local a = {}
    for n in pairs(t) do
        table.insert(a, n)
    end
    table.sort(a, f)
    local i = 0      -- iterator variable
    local iter = function ()   -- iterator function
        i = i + 1
        if a == nil then
            return nil
        else
            return a, t[a]
        end
    end
    return iter
end

local function GenerateFile(missingStrings)
    local outfile = io.open("MISSINGSTRINGS.lua", "w")
    if outfile then
        outfile:write(missingStrings)
        outfile:close()
    end
end

local function GenIndentString(num)
    local str = ""
    for i = 1, num or 0 do
        str = str.."\t"
    end
    return str
end

local function TableToString(key, tbl, numIndent)
    local table_sorted = {}
    for title, value in pairsByKeys(tbl) do
        table.insert(table_sorted, {title = title, value = value})
    end

    local indt = GenIndentString(numIndent)
    local str = ""
    str = str..GenIndentString(numIndent - 1)..key..' ='..'\n'..GenIndentString(numIndent - 1)..'{\n'
    for k,v in ipairs(table_sorted) do
        if type(v.value) == "string" then
            str = str..GenIndentString(numIndent)..v.title..' = '..'"'..v.value..'",\n'
        elseif type(v) == "table" then
            str = str..TableToString(v.title, v.value, numIndent + 1)
        end
    end
    str = str..GenIndentString(numIndent - 1)..'},\n'

    return str
end

function GetPrefabsFromFile( fileName )
    local fn, r = loadfile(fileName)
    assert(fn, "Could not load file ".. fileName)
    if type(fn) == "string" then
        assert(false, "Error loading file "..fileName.."\n"..fn)
    end
    assert( type(fn) == "function", "Prefab file doesn't return a callable chunk: "..fileName)
    local ret = {fn()}
    return ret
end

local function GetCharacterSpeech(character)
    print("GETTING SPEECH STRINGS FOR", character)
    local success, speechFile = pcall(require, "speech_"..character)

    if not success then
        print("\t\t WHOOPS didn't work!")
        return nil
    end

    return speechFile
end

local function GetMissingPrefabStrings(prefabs, speechFile)
    local missingStrings = {}

    for k,v in pairs(prefabs) do
        if v and speechFile.DESCRIBE[v] == nil or speechFile.DESCRIBE[v] == "" then
            missingStrings[v] = ""
        end
    end

    return missingStrings
end

local function GetMissingElementsFromTable(qTable, refTable)
    local missing_keys = {}

    for k,v in pairs(refTable) do
        if v ~= nil and v ~= "" then
            if type(v) == "table" then
                local missTable = GetMissingElementsFromTable(qTable and qTable[k] or nil, v)
                missing_keys[k] = missTable
            elseif qTable == nil or qTable[k] == nil or qTable[k] == "" then
                missing_keys[k] = ""
            end
        end
    end

    return next(missing_keys) and missing_keys or nil
end

local function GetMissingCharacterStrings(speechFile, refSpeechFile)
    return GetMissingElementsFromTable(speechFile, refSpeechFile)
end

local function LookForIgnoredKeywords(str)
    for k,v in pairs(IGNORED_KEYWORDS) do
        local match = string.find(string.upper(str), string.upper(v))
        if match then
            return true
        end
    end    
end

local function MakePrefabsTable()
    local ret = {}

    for k,v in pairs(PREFABFILES) do
        local prefabs = GetPrefabsFromFile(v)
        for l,m in pairs(prefabs) do
            if type(m) == "table" and not m.is_skin then
                local name = m.name or nil
                if name then
                    if not table.contains(IGNORE_PREFABS, string.upper(name)) then
                        if not LookForIgnoredKeywords(name or "SAFEWORD") then
                            name = string.upper(name)
                            ret[name] = name
                        end
                    end
                else
                    print("Prefab without name in file: "..v)
                end
            end
        end
    end

    return ret
end

local function DoCharacter(character, referenceStrings)
    local speech = GetCharacterSpeech(character)
    if speech then
        return GetMissingCharacterStrings(speech, referenceStrings)
    end
end

local function TestStrings()

    local str = ""

    local completePrefabList = MakePrefabsTable()

    local table = {}

    local wilsonStrings = GetCharacterSpeech("wilson")

    table["wilson"] = {
        DESCRIBE = GetMissingPrefabStrings(completePrefabList, wilsonStrings),
    }
    for k,v in pairs(table["wilson"].DESCRIBE) do
        wilsonStrings.DESCRIBE[k] = "MISSING"
    end

    for k,v in pairs(DST_CHARACTERLIST) do
        if v ~= "wilson" then
            table[v] = DoCharacter(v, wilsonStrings)
        end
    end

    GenerateFile(TableToString("Missing Strings", table, 0))
end

TestStrings()