1 files changed, 90 insertions, 0 deletions
diff --git a/src/control/ScriptContext.cpp b/src/control/ScriptContext.cpp
new file mode 100644
index 0000000..cc10f74
--- /dev/null
+++ b/src/control/ScriptContext.cpp
@@ -0,0 +1,90 @@
+/*
+  Copyright (c) 2014, Matthias Schiffer <mschiffer@universe-factory.net>
+  All rights reserved.
+
+  Redistribution and use in source and binary forms, with or without
+  modification, are permitted provided that the following conditions are met:
+
+    1. Redistributions of source code must retain the above copyright notice,
+       this list of conditions and the following disclaimer.
+    2. Redistributions in binary form must reproduce the above copyright notice,
+       this list of conditions and the following disclaimer in the documentation
+       and/or other materials provided with the distribution.
+
+  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+  AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+  IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+  DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+  FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+  DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+  SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+  CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+  OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+  OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+*/
+
+
+#include "ScriptContext.hpp"
+
+
+namespace RPGEdit {
+
+namespace Control {
+
+void ScriptContext::setupEnv() {
+	const std::pair<const char *, lua_CFunction> libs[] = {
+		{"_G", luaopen_base},
+		{"bit32", luaopen_bit32},
+		{"math", luaopen_math},
+		{"string", luaopen_string},
+		{"table", luaopen_table},
+	};
+
+	for (auto &lib : libs) {
+		luaL_requiref(L, lib.first, lib.second, 1);
+		lua_pop(L, 1);
+	}
+
+	for (const char *f : {"dofile", "loadfile", "require"}) {
+		lua_pushnil(L);
+		lua_setglobal(L, f);
+	}
+}
+
+void ScriptContext::cleanupEnv() {
+	lua_pushglobaltable(L);
+
+	lua_pushnil(L);
+	lua_setmetatable(L, -2);
+
+	lua_pushnil(L);
+	while (lua_next(L, -2) != 0) {
+		lua_pop(L, 1);
+
+		lua_pushvalue(L, -1);
+		lua_pushnil(L);
+
+		lua_rawset(L, -4);
+	}
+
+	lua_pop(L, 1);
+}
+
+void ScriptContext::load(const std::string &script) {
+	if (loadedScripts.count(script))
+		return;
+
+	std::string filename = "../resources/script/" + script + ".lua";
+
+	lua_rawgetp(L, LUA_REGISTRYINDEX, this);
+	lua_pushstring(L, script.c_str());
+	luaL_loadfile(L, filename.c_str());
+	lua_rawset(L, -3);
+	lua_pop(L, 1);
+
+	loadedScripts.insert(script);
+}
+
+}
+
+}