49 lines
1.6 KiB
Lua
49 lines
1.6 KiB
Lua
local function _serialize(value, indent, level, visited)
|
|
local currentIndent = indent and string.rep(indent, level) or ""
|
|
local nextIndent = indent and string.rep(indent, level + 1) or ""
|
|
local sep = indent and "\n" or " "
|
|
local t = type(value)
|
|
if t == "nil" then return "nil" end
|
|
if t == "string" then return string.format("%q", value) end
|
|
if t == "number" then
|
|
if value ~= value then return "0/0" end
|
|
if value == math.huge then return "math.huge" end
|
|
if value == -math.huge then return "-math.huge" end
|
|
return tostring(value)
|
|
end
|
|
if t == "boolean" then return tostring(value) end
|
|
if t == "table" then
|
|
if visited[value] then return "..." end
|
|
visited[value] = true
|
|
local items = {}
|
|
local arrayCount = 0
|
|
for i = 1, #value do
|
|
if value[i] ~= nil then arrayCount = i else break end
|
|
end
|
|
for i = 1, arrayCount do
|
|
table.insert(items, nextIndent .. _serialize(value[i], indent, level + 1, visited))
|
|
end
|
|
for k, v in pairs(value) do
|
|
if type(k) ~= "number" or k < 1 or k > arrayCount then
|
|
local keyStr
|
|
if type(k) == "string" and k:match("^[%a_][%w_]*$") then
|
|
keyStr = k
|
|
else
|
|
keyStr = "[" .. _serialize(k, indent, level + 1, visited) .. "]"
|
|
end
|
|
table.insert(items, nextIndent .. keyStr .. " = " .. _serialize(v, indent, level + 1, visited))
|
|
end
|
|
end
|
|
visited[value] = nil
|
|
if #items == 0 then return "{}" end
|
|
return "{" .. sep .. table.concat(items, "," .. sep) .. sep .. currentIndent .. "}"
|
|
end
|
|
return tostring(value)
|
|
end
|
|
|
|
function serialize(value, indent)
|
|
return _serialize(value, indent, 0, {})
|
|
end
|
|
|
|
return serialize
|