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
|
--- lam.pp
local pp = {}
table.unpack = table.unpack or unpack
function pp.dump (x, lvl)
lvl = lvl or 0
local space = string.rep(" ", lvl)
local output = ""
if type(x) == "table" then
local subo = ""
for k,v in pairs(x) do
if v == x then
v = "self"
else
v = pp.dump(v, lvl+2)
end
subo = subo .. string.format("\n%s[%s] = %s,",
(space.." "), k, v)
end
output = output .. string.format("\n%s{%s\n%s}",
space, subo, space)
elseif type(x) == "string" then
output = output .. string.format("'%s'", x)
else
output = output .. string.format("%s", x)
end
return output
end
function pp.pp (x)
print(pp.dump(x))
end
return setmetatable(pp, { __call =
function(_, x)
return pp.pp(x)
end,
})
|