From d276d4d46be8083c77aaf6ecf6c9664cb723dc8d Mon Sep 17 00:00:00 2001
From: lethosor <lethosor@gmail.com>
Date: Sat, 7 Nov 2015 17:36:42 -0500
Subject: [PATCH] Add devel/clear-script-env

---
 scripts/devel/clear-script-env.lua | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 scripts/devel/clear-script-env.lua

diff --git a/scripts/devel/clear-script-env.lua b/scripts/devel/clear-script-env.lua
new file mode 100644
index 000000000..90c8db0ed
--- /dev/null
+++ b/scripts/devel/clear-script-env.lua
@@ -0,0 +1,26 @@
+-- Clear script environment
+--[[=begin
+
+devel/clear-script-env
+======================
+Clears the environment of the specified lua script(s).
+
+=end]]
+args = {...}
+if #args < 1 then qerror("script name(s) required") end
+for _, name in pairs(args) do
+    local file = dfhack.findScript(name)
+    if file then
+        local script = dfhack.internal.scripts[file]
+        if script then
+            local env = script.env
+            while next(env) do
+                env[next(env)] = nil
+            end
+        else
+            dfhack.printerr("Script not loaded: " .. name)
+        end
+    else
+        dfhack.printerr("Can't find script: " .. name)
+    end
+end