/usr/share/crawl/dat/dlua/persist.lua is in crawl-common 2:0.19.3-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 | ------------------------------------------------------------------------------
-- persist.lua
-- Functions to persist the lua table c_persist
------------------------------------------------------------------------------
-- We want to load this file immediately before calling c_save_persist() to
-- ensure that the functions haven't been overwritten by player versions.
function stringify(x)
local t = type(x)
if t == "nil" then
return "nil"
elseif t == "number" then
return tostring(x)
elseif t == "string" then
return string.format("%q", x)
elseif t == "boolean" then
return x and "true" or "false"
else
error("Cannot stringify objects of type " .. t .. debug.traceback())
end
end
function stringify_table(tab,indent_level)
if not indent_level then
indent_level = 0
end
local spaces = ""
for i = 1,2 * indent_level + 1 do
spaces = spaces .. " "
end
local res = spaces .. "{\n"
for key,val in pairs(tab) do
res = res .. spaces .. " [" .. stringify(key) .. "] ="
if type(val) ~= "table" then
res = res .. " " .. stringify(val) .. ",\n"
elseif next(val) == nil then -- table is empty
res = res .. " { },\n"
else
res = res .. "\n" .. stringify_table(val,indent_level + 1) .. ",\n"
end
end
res = res .. spaces .. "}"
return res
end
function c_save_persist()
if next(c_persist) == nil then -- table is empty
return ""
end
str = stringify_table(c_persist)
return "c_persist =\n" .. str
end
|