102 lines
2.9 KiB
C++
102 lines
2.9 KiB
C++
/* Copyright: (c) Kayne Ruse 2013-2016
|
|
*
|
|
* 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 "barrier_api.hpp"
|
|
|
|
#include "barrier_data.hpp"
|
|
|
|
#include "entity_api.hpp"
|
|
|
|
|
|
static int setScript(lua_State* L) {
|
|
BarrierData* barrier = static_cast<BarrierData*>(lua_touserdata(L, 1));
|
|
luaL_unref(L, LUA_REGISTRYINDEX, barrier->GetScriptReference());
|
|
barrier->SetScriptReference(luaL_ref(L, LUA_REGISTRYINDEX));
|
|
return 0;
|
|
}
|
|
|
|
static int getScript(lua_State* L) {
|
|
BarrierData* barrier = static_cast<BarrierData*>(lua_touserdata(L, 1));
|
|
lua_pushinteger(L, barrier->GetScriptReference());
|
|
lua_gettable(L, LUA_REGISTRYINDEX);
|
|
return 1;
|
|
}
|
|
|
|
static int setTag(lua_State* L) {
|
|
BarrierData* barrier = static_cast<BarrierData*>(lua_touserdata(L, 1));
|
|
barrier->SetTag(lua_tostring(L, 2), lua_tostring(L, 3));
|
|
return 0;
|
|
}
|
|
|
|
static int getTag(lua_State* L) {
|
|
BarrierData* barrier = static_cast<BarrierData*>(lua_touserdata(L, 1));
|
|
lua_pushstring(L, barrier->GetTag(lua_tostring(L, 2)).c_str());
|
|
return 1;
|
|
}
|
|
|
|
static int setInstance(lua_State* L) {
|
|
BarrierData* barrier = static_cast<BarrierData*>(lua_touserdata(L, 1));
|
|
barrier->SetInstanceIndex(lua_tointeger(L, 2));
|
|
return 0;
|
|
}
|
|
|
|
static int getInstance(lua_State* L) {
|
|
BarrierData* barrier = static_cast<BarrierData*>(lua_touserdata(L, 1));
|
|
lua_pushinteger(L, barrier->GetInstanceIndex());
|
|
return 1;
|
|
}
|
|
|
|
static const luaL_Reg barrierLib[] = {
|
|
{"SetScript", setScript},
|
|
{"GetScript", getScript},
|
|
{"SetTag", setTag},
|
|
{"GetTag", getTag},
|
|
{"SetInstance", setInstance},
|
|
{"GetInstance", getInstance},
|
|
{nullptr, nullptr}
|
|
};
|
|
|
|
LUAMOD_API int openBarrierAPI(lua_State* L) {
|
|
//get the parent table
|
|
luaL_requiref(L, TORTUGA_ENTITY_API, openEntityAPI, false);
|
|
|
|
//the local table
|
|
luaL_newlib(L, barrierLib);
|
|
|
|
//merge the local table into the parent table
|
|
lua_pushnil(L); //first key
|
|
while(lua_next(L, -2)) {
|
|
//copy the key-value pair
|
|
lua_pushvalue(L, -2);
|
|
lua_pushvalue(L, -2);
|
|
|
|
//push the copy to the parent table
|
|
lua_settable(L, -6);
|
|
|
|
//pop the original value before continuing
|
|
lua_pop(L, 1);
|
|
}
|
|
|
|
//remove the local table, leaving the expanded parent table
|
|
lua_pop(L, 1);
|
|
|
|
return 1;
|
|
} |