Biblioteka

[Tytus Bomba]

Co to może być za biblioteka?

 

Serialization = {

    exportstring = function(s)

        return string.format('%q', s)

    end,

 

    saveTable = function(tbl,filename)

        local charS,charE = '    ','\n'

        local file,err = io.open(filename, 'wb')

        if err then return err end

 

        local tables,lookup = { tbl },{ [tbl] = 1 }

        file:write('return {'..charE)

 

        for idx,t in ipairs(tables) do

            file:write('-- Table: {'..idx..'}'..charE)

            file:write('{'..charE)

            local thandled = {}

 

            for i,v in ipairs(t) do

                thandled = true

                local stype = type(v)

                if stype == 'table' then

                    if not lookup[v] then

                        table.insert(tables, v)

                        lookup[v] = #tables

                    end

                    file:write(charS..'{'..lookup[v]..'},'..charE)

                elseif stype == 'string' then

                    file:write( charS..Serialization.exportstring(v)..','..charE)

                elseif stype == 'number' then

                    file:write( charS..tostring(v)..','..charE)

                elseif stype == 'boolean' then

                    file:write( charS..(v and 'true' or 'false')..','..charE)

                end

            end

 

            for i,v in pairs(t) do

                if (not thandled) then

                    local str = ''

                    local stype = type(i)

                    if stype == 'table' then

                        if not lookup then

                            table.insert(tables,i)

                            lookup = #tables

                        end

                        str = charS..'[{'..lookup..'}]='

                    elseif stype == 'string' then

                        str = charS..'['..Serialization.exportstring(i)..']='

                    elseif stype == 'number' then

                        str = charS..'['..tostring(i)..']='

                    elseif stype == 'boolean' then

                        str = charS..'['..(i and 'true' or 'false')..']='

                    end

 

                    if str ~= '' then

                        stype = type(v)

                        if stype == 'table' then

                            if not lookup[v] then

                                table.insert(tables,v)

                                lookup[v] = #tables

                            end

                            file:write(str..'{'..lookup[v]..'},'..charE)

                        elseif stype == 'string' then

                            file:write(str..Serialization.exportstring(v)..','..charE)

                        elseif stype == 'number' then

                            file:write(str..tostring(v)..','..charE)

                        elseif stype == 'boolean' then

                            file:write(str..(v and 'true' or 'false')..','..charE)

                        end

                    end

                end

            end

            file:write('},'..charE)

        end

        file:write('}')

        file:close()

    end,

 

    loadTable = function(sfile)

        local ftables,err = loadfile(sfile)

        if err then return _,err end

        local tables = ftables()

        for idx = 1,#tables do

            local tolinki = {}

            for i,v in pairs(tables[idx]) do

                if type(v) == 'table' then

                    tables[idx] = tables[v[1]]

                end

                if type(i) == 'table' and tables[i[1]] then

                    table.insert(tolinki,{ i,tables[i[1]] })

                end

            end

            for _,v in ipairs(tolinki) do

                tables[idx][v[2]],tables[idx][v[1]] =  tables[idx][v[1]],nil

            end

        end

        return tables[1]

    end

}