1 files changed, 36 insertions, 0 deletions

@@ -0,0 +1,36 @@
+--- lam.pp
+
+local m = {}
+local type = require "type"
+
+function m.dump (x, lvl)
+        lvl = lvl or 0
+        local space = string.rep(" ", lvl)
+        local output = ""
+        --[[if getmetatable(x) and getmetatable(x).__tostring then
+                output = output .. tostring(x)
+                else]]if type.luatype(x) == "table" then
+                local subo = ""
+                for k,v in pairs(x) do
+                        if v == x then
+                                v = "self"
+                        else
+                                v = m.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)
+        else
+                output = output .. tostring(x)
+        end
+        return output
+end
+
+function m.pp (x)
+        print(m.dump(x))
+end
+
+---
+return m