1 files changed, 33 insertions, 0 deletions
diff --git a/scripts/save.lua b/scripts/save.lua
new file mode 100644
index 0000000..2b10a23
--- /dev/null
+++ b/scripts/save.lua
@@ -0,0 +1,33 @@
+-- dump global environment
+
+function savevar (n,v)
+ if v == nil then return end
+ if type(v)=="userdata" or type(v)=="function" then return end
+ -- if type(v)=="userdata" or type(v)=="function" then write("\t-- ") end
+ -- don't print lua constants
+ if strsub(n, 1, 1) == "_" then return end
+ write("settings.", n," = ")
+ if type(v) == "string" then write(format("%q",v))
+ elseif type(v) == "table" then
+   if v.__visited__ ~= nil then
+     write(v.__visited__)
+   else
+    write("{ }\n")
+    v.__visited__ = n
+    for r,f in v do
+      if r ~= "__visited__" then
+        if type(r) == 'string' then
+          savevar(n.."."..r,f)
+	else
+          savevar(n.."["..r.."]",f)
+	end
+      end
+    end
+   end
+ else write(tostring(v)) end
+ write("\n")
+end
+
+function save ()
+  foreach(settings,savevar)
+end