On a crash, do consistency checking on the level's markers, dump the level's

markers, and dump the persistant Lua data.


git-svn-id: https://crawl-ref.svn.sourceforge.net/svnroot/crawl-ref/trunk@8839 c06c8d41-db1a-0410-9941-cceddc491573

2 files changed, 31 insertions, 2 deletions

diff --git a/crawl-ref/source/dat/clua/dungeon.lua b/crawl-ref/source/dat/clua/dungeon.lua
index 12b1af5665..cea1849ad3 100644
--- a/crawl-ref/source/dat/clua/dungeon.lua
+++ b/crawl-ref/source/dat/clua/dungeon.lua
@@ -355,4 +355,9 @@ function portal_next(e, next)
   for _, feat in ipairs({ "]", ")", "}" }) do
     e.lua_marker(feat, portal_stair_dst(next))
   end
-end
\ No newline at end of file
+end
+
+-- Turn persistant data into a human readable string
+function persist_to_string()
+    return table_to_string(dgn.persist)
+end
diff --git a/crawl-ref/source/dat/clua/util.lua b/crawl-ref/source/dat/clua/util.lua
index fab5720a7a..2aa4f2fe85 100644
--- a/crawl-ref/source/dat/clua/util.lua
+++ b/crawl-ref/source/dat/clua/util.lua
@@ -250,4 +250,28 @@ function util.Timer:mark(what)
   local now = crawl.millis()
   crawl.mpr(what .. ": " .. (now - last) .. " ms")
   self.last = now
-end
\ No newline at end of file
+end
+
+-- Turn contents of a table into a human readable string
+function table_to_string(table, depth)
+  depth = depth or 0
+
+  local indent = string.rep(" ", depth * 4)
+
+  local str = ""
+
+  for key, value in pairs(table) do
+    str = str .. indent .. key .. ": "
+
+    if type(value) == "table" then
+      str = str .. "\n" .. table_to_string(value, depth + 1)
+    elseif type(value) == "function" then
+      str = str .. "function"
+    else
+      str = str .. value
+    end
+    str = str .. "\n"
+  end
+
+  return str
+end