Expaneded the lua API for Regions

I've added lua hooks for both pager functor classes. Hopefully, I haven't
missed any corner cases, because it took me a while to hunt everything
down. One issue is that the map's save directory needs to be set in the
Format class, but it'll do for now. I'll review this again when I've got
more than one map running at one time.

There should be enough here for a lua-driven map generator to be
implemented, even if it's a bit rough. I think I'll test this out in the
editor eventually, but getting the base branch's network map code going
comes first.

The current process is extremely convulted, so I need to document
everything that I've done so far, including C++ and lua functions.

common/map/map_file_format.cpp

@@ -21,7 +21,9 @@
 */
 #include "map_file_format.hpp"
 
-void DummyFormat::Load(Region** const ptr, int x, int y) {
+#include <stdexcept>
+
+void DummyFormat::Load(Region** const ptr, int width, int height, int depth, int x, int y) {
 	//TODO
 }
 
@@ -44,4 +46,34 @@ void CompactFormat::Load(Region** const ptr, int x, int y) {
 void CompactFormat::Save(Region* const ptr) {
 	//TODO
 }
-*/
+*/
+void LuaFormat::Load(Region** const ptr, int width, int height, int depth, int x, int y) {
+	//something to load into
+	(*ptr) = new Region(width, height, depth, x, y);
+
+	//API hook
+	lua_getglobal(state, "Region");
+	lua_getfield(state, -1, "Load");
+	lua_pushlightuserdata(state, *ptr);
+	lua_pushstring(state, saveDir.c_str());
+	if (lua_pcall(state, 2, 1, 0) != LUA_OK) {
+		throw(std::runtime_error(std::string() + "Lua error: " + lua_tostring(state, -1) ));
+	}
+	if (lua_toboolean(state, -1) == false) {
+		delete (*ptr);
+		(*ptr) = nullptr;
+	}
+	lua_pop(state, 2);
+}
+
+void LuaFormat::Save(Region* const ptr) {
+	//API hook
+	lua_getglobal(state, "Region");
+	lua_getfield(state, -1, "Save");
+	lua_pushlightuserdata(state, ptr);
+	lua_pushstring(state, saveDir.c_str());
+	if (lua_pcall(state, 2, 0, 0) != LUA_OK) {
+		throw(std::runtime_error(std::string() + "Lua error: " + lua_tostring(state, -1) ));
+	}
+	lua_pop(state, 1);
+}

common/map/map_file_format.hpp

@@ -24,28 +24,56 @@
 
 #include "region.hpp"
 
+#include "lua/lua.hpp"
+
+#include <string>
+
 class DummyFormat {
 public:
-	void Load(Region** const, int x, int y);
+	void Load(Region** const, int width, int height, int depth, int x, int y);
 	void Save(Region* const);
+
+	std::string SetSaveDir(std::string s) { return saveDir = s; }
+	std::string GetSaveDir() { return saveDir; }
 private:
-	//
+	std::string saveDir;
 };
 /*
 class VerboseFormat {
 public:
-	void Load(Region** const, int x, int y);
+	void Load(Region** const, int width, int height, int depth, int x, int y);
 	void Save(Region* const);
+
+	std::string SetSaveDir(std::string s) { return saveDir = s; }
+	std::string GetSaveDir() { return saveDir; }
 private:
-	//
+	std::string saveDir;
 };
 
 class CompactFormat {
 public:
-	void Load(Region** const, int x, int y);
+	void Load(Region** const, int width, int height, int depth, int x, int y);
 	void Save(Region* const);
+
+	std::string SetSaveDir(std::string s) { return saveDir = s; }
+	std::string GetSaveDir() { return saveDir; }
 private:
-	//
+	std::string saveDir;
 };
 */
+class LuaFormat {
+public:
+	void Load(Region** const, int width, int height, int depth, int x, int y);
+	void Save(Region* const);
+
+	std::string SetSaveDir(std::string s) { return saveDir = s; }
+	std::string GetSaveDir() { return saveDir; }
+
+	lua_State* SetLuaState(lua_State* L) { return state = L; }
+	lua_State* GetLuaState() { return state; }
+private:
+	std::string saveDir;
+	lua_State* state = nullptr;
+};
+
 #endif

common/map/map_generator.cpp

@@ -21,6 +21,8 @@
 */
 #include "map_generator.hpp"
 
+#include <stdexcept>
+
 void BlankGenerator::Create(Region** const ptr, int width, int height, int depth, int x, int y) {
 	(*ptr) = new Region(width, height, depth, x, y);
 }
@@ -38,14 +40,29 @@ void PerlinGenerator::Unload(Region* const ptr) {
 }
 */
 void LuaGenerator::Create(Region** const ptr, int width, int height, int depth, int x, int y) {
+	//something to work on
 	(*ptr) = new Region(width, height, depth, x, y);
 
-	//generate the lua-driven maps
-	lua_getglobal(state, "CreateRegion");
+	//API hook
+	lua_getglobal(state, "Region");
+	lua_getfield(state, -1, "Create");
 	lua_pushlightuserdata(state, *ptr);
-	lua_pcall(state, 1, 0, 0);
+	if (lua_pcall(state, 1, 0, 0) != LUA_OK) {
+		throw(std::runtime_error(std::string() + "Lua error: " + lua_tostring(state, -1) ));
+	}
+	lua_pop(state, 1);
 }
 
 void LuaGenerator::Unload(Region* const ptr) {
+	//API hook
+	lua_getglobal(state, "Region");
+	lua_getfield(state, -1, "Unload");
+	lua_pushlightuserdata(state, ptr);
+	if (lua_pcall(state, 1, 0, 0) != LUA_OK) {
+		throw(std::runtime_error(std::string() + "Lua error: " + lua_tostring(state, -1) ));
+	}
+	lua_pop(state, 1);
+
+	//clean up the memory
 	delete ptr;
 }

common/map/region_pager.hpp

@@ -43,6 +43,7 @@ public:
 	virtual Region* SaveRegion(int x, int y) = 0;
 	virtual Region* CreateRegion(int x, int y) = 0;
 	virtual void UnloadRegion(int x, int y) = 0;
+	virtual void UnloadAll() = 0;
 
 	//accessors
 	//NOTE: don't change the sizes mid-program, it will cause issues
@@ -69,7 +70,9 @@ public:
 	{
 		//EMPTY
 	}
-	~RegionPager() = default;
+	~RegionPager() {
+		UnloadAll();
+	}
 
 	Region* LoadRegion(int x, int y) {
 		//snap the coords
@@ -78,7 +81,7 @@ public:
 
 		//load the region if possible
 		Region* ptr = nullptr;
-		format.Load(&ptr, x, y);
+		format.Load(&ptr, regionWidth, regionHeight, regionDepth, x, y);
 		if (ptr) {
 			regionList.push_back(ptr);
 			return ptr;
@@ -130,6 +133,12 @@ public:
 			++it;
 		}
 	}
+	void UnloadAll() {
+		for (auto& it : regionList) {
+			generator.Unload(it);
+		}
+		regionList.clear();
+	}
 
 	//accessors
 	MapGenerator* GetGenerator() { return &generator; }