ESOUI SVN EsoHeadMarkers

account = "MyAccountName" --your account name
files = {                               --a list of files to be merged
        "Esohead.lua",
        "Esohead2.lua"
        }
output = "Output.lua"   --the name of the output file


local function isPosition(table)
        return (type(table[1]) == "number" and type(table[2]) == "number")
end

local function alreadyInTable(table, entry)
        for _, value in pairs(table) do
                if math.abs(entry[1] - value[1]) < 0.005 and math.abs(entry[2] - value[2]) < 0.005 then
            return true
        end
        end
        return false
end

local function merge(output, input)

        for key, data in pairs(input) do
                if not output[key] then
                        output[key] = data
                elseif type(key) == "string" and type(output[key]) == "table" then
                        merge(output[key], input[key])
                elseif type(key) == "number" then
                        if not isPosition(input[key]) or
                                        not alreadyInTable(output, input[key]) then
                                table.insert(output, data)
                        end
                end
        end
end

local function newline(level)
        return "\n" .. string.rep(" ", 4 * level)
end

local function export(table, level)
        if not level then
                level = 0
        end

        local result = newline(level) .. "{"
        level = level + 1

        for key, value in pairs(table) do
                result = result .. newline(level)
                if type(key) == "string" then
                        result = result ..'["' .. key .. '"] = '
                else
                        result = result .."[" .. tostring(key) .. "] = "
                end
                if type(value) == "table" then
                        result = result .. export(value, level) .. ","
                elseif type(value) == "string" then
                        result = result .. "[[" .. value .. "]],"
                else
                        result = result .. tostring(value) .. ","
                end
        end

        level = level - 1
        result = result .. newline(level) .. "}"

        return result
end


local data = {}
for _, file in ipairs(files) do
        dofile(file)

        for account, content in pairs(Esohead_SavedVariables["Default"]) do
                content = content["$AccountWide"]
                merge(data, content)
        end
end



local result = "Esohead_SavedVariables = "
result = result .. newline(0) .. "{"
result = result .. newline(1) .. '["Default"] = '
result = result .. newline(1) .. "{"
result = result .. newline(2) .. '["@' .. account .. '"] = '
result = result .. newline(2) .. "{"
result = result .. newline(3) .. '["$AccountWide"] = '
result = result .. export(data, 3) .. ","
result = result .. newline(2) .. "}," .. newline(1) .. "}," .. newline(0) .. "}"

assert(io.open(output, 'w')):write(result)