Tortuga/server/triggers/trigger_manager_api.cpp

/* Copyright: (c) Kayne Ruse 2013-2015
 * 
 * This software is provided 'as-is', without any express or implied
 * warranty. In no event will the authors be held liable for any damages
 * arising from the use of this software.
 * 
 * Permission is granted to anyone to use this software for any purpose,
 * including commercial applications, and to alter it and redistribute it
 * freely, subject to the following restrictions:
 * 
 * 1. The origin of this software must not be misrepresented; you must not
 * claim that you wrote the original software. If you use this software
 * in a product, an acknowledgment in the product documentation would be
 * appreciated but is not required.
 * 
 * 2. Altered source versions must be plainly marked as such, and must not be
 * misrepresented as being the original software.
 * 
 * 3. This notice may not be removed or altered from any source
 * distribution.
*/
#include "trigger_manager_api.hpp"

#include "trigger_manager.hpp"

//TODO: (1) figure out a way to iterate through elements of managers from lua

static int create(lua_State* L) {
	TriggerManager* mgr = static_cast<TriggerManager*>(lua_touserdata(L, 1));

	//pad the stack with default parameters
	if (lua_gettop(L) == 2) {
		lua_pushnumber(L, 0.0); //vector.x
		lua_pushnumber(L, 0.0); //vector.y
	}
	if (lua_gettop(L) == 4) {
		lua_pushinteger(L, 0); //bounds.x
		lua_pushinteger(L, 0); //bounds.y
		lua_pushinteger(L, 0); //bounds.w
		lua_pushinteger(L, 0); //bounds.h
	}

	//create the trigger
	int index = mgr->Create(
		lua_tostring(L, 2), //handle
		{
			lua_tonumber(L, 3), //vector.x
			lua_tonumber(L, 4) //vector.y
		},
		{
			lua_tointeger(L, 5), //bounds.x
			lua_tointeger(L, 6), //bounds.y
			lua_tointeger(L, 7), //bounds.w
			lua_tointeger(L, 8) //bounds.h
		});

	//push to the scipts
	lua_pushlightuserdata(L, static_cast<void*>(mgr->Get(index)) );
	lua_pushinteger(L, index);

	return 2;
}

static int unload(lua_State* L) {
	TriggerManager* mgr = static_cast<TriggerManager*>(lua_touserdata(L, 1));
	int count = 0; //the number removed

	//based on the type
	switch(lua_type(L, 2)) {
		//unload this index
		case LUA_TNUMBER:
			mgr->UnloadIf([L, &count](std::pair<int, TriggerData const&> it) -> bool {
				if (it.first == lua_tointeger(L, 2)) {
					count++;
					return true;
				}
				else {
					return false;
				}
			});
		break;

		//unload this name
		case LUA_TSTRING:
			mgr->UnloadIf([L, &count](std::pair<int, TriggerData const&> it) -> bool {
				if (it.second.GetHandle() == lua_tostring(L, 2)) {
					count++;
					return true;
				}
				else {
					return false;
				}
			});
		break;
	}

	//return the number removed
	lua_pushinteger(L, count);
	return 1;
}

static int getTrigger(lua_State* L) {
	TriggerManager* mgr = static_cast<TriggerManager*>(lua_touserdata(L, 1));
	TriggerData* triggerData = nullptr;

	switch(lua_type(L, 2)) {
		case LUA_TNUMBER:
			triggerData = mgr->Get(lua_tointeger(L, 2));
		break;
		case LUA_TSTRING:
			triggerData = mgr->Get(lua_tostring(L, 2));
		break;
	}

	if (triggerData) {
		lua_pushlightuserdata(L, static_cast<void*>(triggerData));
	}
	else {
		lua_pushnil(L);
	}

	return 1;
}

static int forEach(lua_State* L) {
	//TODO: (9) forEach()
}

static int getLoadedCount(lua_State* L) {
	TriggerManager* mgr = static_cast<TriggerManager*>(lua_touserdata(L, 1));
	lua_pushinteger(L, mgr->GetLoadedCount());
	return 1;
}

static const luaL_Reg triggerManagerLib[] = {
	{"Create",create},
	{"Unload",unload},
	{"GetTrigger",getTrigger},
	{"GetCount",getLoadedCount},
	{nullptr, nullptr}
};

LUAMOD_API int openTriggerManagerAPI(lua_State* L) {
	luaL_newlib(L, triggerManagerLib);
	return 1;
}