mirror of
https://github.com/koreader/koreader
synced 2024-11-04 12:00:25 +00:00
5c24470ea9
* Persist: support serpent, and use by default over dump (as we assume consistency > readability in Persist). * Logger/Dbg: Use serpent instead of dump to dump tables (it's slightly more compact, honors __tostring, and will tag tables with their ref, which can come in handy when debugging). * Dbg: Don't duplicate Logger's log function, just use it directly. * Fontlist/ConfigDialog: Use serpent for the debug dump. * Call `os.setlocale(C, "numeric")` on startup instead of peppering it around dump calls. It's process-wide, so it didn't make much sense. * Trapper: Use LuaJIT's serde facilities instead of dump. They're more reliable in the face of funky input, much faster, and in this case, the data never makes it to human eyes, so a human-readable format didn't gain us anything.
76 lines
2.3 KiB
Lua
76 lines
2.3 KiB
Lua
--[[--
|
|
A simple serialization function which won't do uservalues, functions, or loops.
|
|
|
|
If you need a more full-featured variant, serpent is available in ffi/serpent ;).
|
|
]]
|
|
|
|
local insert = table.insert
|
|
local indent_prefix = " "
|
|
|
|
local function _serialize(what, outt, indent, max_lv, history, pairs_func)
|
|
if not max_lv then
|
|
max_lv = math.huge
|
|
end
|
|
|
|
if indent > max_lv then
|
|
return
|
|
end
|
|
|
|
local datatype = type(what)
|
|
if datatype == "table" then
|
|
history = history or {}
|
|
for up, item in ipairs(history) do
|
|
if item == what then
|
|
insert(outt, "nil --[[ LOOP:\n")
|
|
insert(outt, string.rep(indent_prefix, indent - up))
|
|
insert(outt, "^------- ]]")
|
|
return
|
|
end
|
|
end
|
|
local new_history = { what, unpack(history) }
|
|
local didrun = false
|
|
insert(outt, "{")
|
|
for k, v in pairs_func(what) do
|
|
insert(outt, "\n")
|
|
insert(outt, string.rep(indent_prefix, indent+1))
|
|
insert(outt, "[")
|
|
_serialize(k, outt, indent+1, max_lv, new_history, pairs_func)
|
|
insert(outt, "] = ")
|
|
_serialize(v, outt, indent+1, max_lv, new_history, pairs_func)
|
|
insert(outt, ",")
|
|
didrun = true
|
|
end
|
|
if didrun then
|
|
insert(outt, "\n")
|
|
insert(outt, string.rep(indent_prefix, indent))
|
|
end
|
|
insert(outt, "}")
|
|
elseif datatype == "string" then
|
|
insert(outt, string.format("%q", what))
|
|
elseif datatype == "number" then
|
|
insert(outt, tostring(what))
|
|
elseif datatype == "boolean" then
|
|
insert(outt, tostring(what))
|
|
elseif datatype == "function" then
|
|
insert(outt, tostring(what))
|
|
elseif datatype == "nil" then
|
|
insert(outt, "nil")
|
|
end
|
|
end
|
|
|
|
--[[--Serializes whatever is in `data` to a string that is parseable by Lua.
|
|
|
|
You can optionally specify a maximum recursion depth in `max_lv`.
|
|
@function dump
|
|
@param data the object you want serialized (table, string, number, boolean, nil)
|
|
@param max_lv optional maximum recursion depth
|
|
--]]
|
|
local function dump(data, max_lv, ordered)
|
|
local out = {}
|
|
local pairs_func = ordered and require("ffi/util").orderedPairs or pairs
|
|
_serialize(data, out, 0, max_lv, nil, pairs_func)
|
|
return table.concat(out)
|
|
end
|
|
|
|
return dump
|