LoTROInterface SVN BusyBee1.3.9

--[[ Vindar, 11/2010

     A patch for the Turbine.PluginData bug for europeen clients. It's dirty but it seems to works :)

]]--

-- return a copy of the object obj in a safe format

function convSafe(obj)

    local lookup = {}

    local function _copy(obj)

                function _convSafe(obj)

                        if type(obj)=="number" then return(tostring(obj)) end

                        if type(obj)~="string" then return(obj) end

                        local res = ""

                        for i,v in ipairs({obj:byte(1,-1)}) do

                                if (v < 32) or (v > 125) then res = res .. "#" .. tonumber(v) .. "#"

                                else

                                        res = res .. string.char(v)

                                        if v == 35 then res = res .. "#" end

                                end

                        end

                        if res:byte(1,1) == 35 then return("#" .. res) end

                        if (tonumber(res)~= nil) then return("#" .. res) end

                        return res

                end

        if type(obj) ~= "table" then return _convSafe(obj) elseif lookup[obj] then return lookup[obj] end

        local newt = {}

        lookup[obj] = newt

        for i, v in pairs(obj) do newt[_copy(i)] = _copy(v) end

        return setmetatable(newt, getmetatable(obj))

    end

    return _copy(obj)

end

-- the inverse operation

function convBack(obj)

    local lookup = {}

    local function _copy(obj)

                local function _convBack(obj)

                        if type(obj) ~= "string" then return obj end

                        if obj == "" then return "" end

                        local num = tonumber(obj)

                        if num ~= nil then return num end

                        local res = ""

                        if obj:byte(1,1) == 35 then obj = string.sub(obj,2,-1) end

                        while string.len(obj)~=0 do

                                if              obj:byte(1,1) ~= 35 then res = res .. string.char(obj:byte(1,1)); obj = string.sub(obj,2,-1)

                                elseif obj:byte(2,2) == 35 then  res = res .. "#"; obj = string.sub(obj,3,-1)

                                else

                                        obj = string.sub(obj,2,-1)

                                        local k = 1;

                                        while (obj:byte(k,k) ~= nil) and (obj:byte(k,k) ~= 35) do k = k + 1 end

                                        if obj:byte(k,k) == nil then error("convBack : parse error 1 !") end

                                        local v = tonumber(string.sub(obj,1,k-1))

                                        if v == nil then error("convBack : parse error 2 !") end

                                        res = res .. string.char(v)

                                        obj = string.sub(obj,k+1,-1)

                                end

                        end

                        return res;

                end

        if type(obj) ~= "table" then return _convBack(obj) elseif lookup[obj] then return lookup[obj] end

        local newt = {}

        lookup[obj] = newt

        for i, v in pairs(obj) do newt[_copy(i)] = _copy(v) end

        return setmetatable(newt, getmetatable(obj))

    end

    return _copy(obj)

end

-- Replacement for Turbine.PluginData.Load

function PatchDataLoad(a,b,c)

        return convBack(Turbine.PluginData.Load(a,b,c))

end

-- Replacement for Turbine.PluginData.Save

function PatchDataSave(a,b,c,d)

        return Turbine.PluginData.Save(a,b,convSafe(c),d)

end

-- end of file