From f145d498a6d91e3f5f3dcf921db8b74c98a7dad2 Mon Sep 17 00:00:00 2001 From: Perttu Ahola Date: Sat, 12 Nov 2011 02:25:30 +0200 Subject: Scripting WIP --- src/scriptapi.cpp | 405 +++++++++++++++++++++++++++++++++++++++++------------- 1 file changed, 309 insertions(+), 96 deletions(-) (limited to 'src/scriptapi.cpp') diff --git a/src/scriptapi.cpp b/src/scriptapi.cpp index fc5364c87..2704f6c43 100644 --- a/src/scriptapi.cpp +++ b/src/scriptapi.cpp @@ -76,6 +76,24 @@ static void realitycheck(lua_State *L) } } +class StackUnroller +{ +private: + lua_State *m_lua; + int m_original_top; +public: + StackUnroller(lua_State *L): + m_lua(L), + m_original_top(-1) + { + m_original_top = lua_gettop(m_lua); // store stack height + } + ~StackUnroller() + { + lua_settop(m_lua, m_original_top); // restore stack height + } +}; + // Register new object prototype // register_entity(name, prototype) static int l_register_entity(lua_State *L) @@ -145,6 +163,131 @@ static const struct luaL_Reg minetest_entity_m [] = { {NULL, NULL} }; +/* + Reference objects +*/ +#define method(class, name) {#name, class::l_##name} + +class EnvRef +{ +private: + ServerEnvironment *m_env; + + static const char className[]; + static const luaL_reg methods[]; + + static EnvRef *checkobject(lua_State *L, int narg) + { + luaL_checktype(L, narg, LUA_TUSERDATA); + void *ud = luaL_checkudata(L, narg, className); + if(!ud) luaL_typerror(L, narg, className); + return *(EnvRef**)ud; // unbox pointer + } + + // Exported functions + + // EnvRef:add_node(pos, content) + // pos = {x=num, y=num, z=num} + // content = number + static int l_add_node(lua_State *L) + { + infostream<<"EnvRef::l_add_node()"<m_env; + if(env == NULL) return 0; + // pos + v3s16 pos; + lua_pushvalue(L, 2); // Push pos + luaL_checktype(L, -1, LUA_TTABLE); + lua_getfield(L, -1, "x"); + pos.X = lua_tonumber(L, -1); + lua_pop(L, 1); + lua_getfield(L, -1, "y"); + pos.Y = lua_tonumber(L, -1); + lua_pop(L, 1); + lua_getfield(L, -1, "z"); + pos.Z = lua_tonumber(L, -1); + lua_pop(L, 1); + lua_pop(L, 1); // Pop pos + // content + u16 content = 0; + lua_pushvalue(L, 3); // Push content + content = lua_tonumber(L, -1); + lua_pop(L, 1); // Pop content + // Do it + env->getMap().addNodeWithEvent(pos, MapNode(content)); + return 0; + } + + static int gc_object(lua_State *L) { + EnvRef *o = *(EnvRef **)(lua_touserdata(L, 1)); + delete o; + return 0; + } + +public: + EnvRef(ServerEnvironment *env): + m_env(env) + { + infostream<<"EnvRef created"<m_object; + if(co == NULL) return 0; + infostream<<"ObjectRef::l_getpos(): id="<getId()<getBasePosition() / BS; + lua_newtable(L); + lua_pushnumber(L, pos.X); + lua_setfield(L, -2, "x"); + lua_pushnumber(L, pos.Y); + lua_setfield(L, -2, "y"); + lua_pushnumber(L, pos.Z); + lua_setfield(L, -2, "z"); + return 1; + } + static int gc_object(lua_State *L) { //ObjectRef *o = checkobject(L, 1); ObjectRef *o = *(ObjectRef **)(lua_touserdata(L, 1)); @@ -185,15 +345,16 @@ public: ObjectRef(ServerActiveObject *object): m_object(object) { - infostream<<"ObjectRef created for id="<getId()<m_object; - if(co == NULL) - return; o->m_object = NULL; } @@ -244,16 +402,17 @@ public: //lua_register(L, className, create_object); } }; - const char ObjectRef::className[] = "ObjectRef"; - -#define method(class, name) {#name, class::l_##name} - const luaL_reg ObjectRef::methods[] = { method(ObjectRef, remove), + method(ObjectRef, getpos), {0,0} }; +/* + Main export function +*/ + void scriptapi_export(lua_State *L, Server *server) { realitycheck(L); @@ -285,8 +444,8 @@ void scriptapi_export(lua_State *L, Server *server) + DIR_DELIM + "base.lua").c_str());*/ // Create entity reference metatable - luaL_newmetatable(L, "minetest.entity_reference"); - lua_pop(L, 1); + //luaL_newmetatable(L, "minetest.entity_reference"); + //lua_pop(L, 1); // Create entity prototype luaL_newmetatable(L, "minetest.entity"); @@ -297,10 +456,33 @@ void scriptapi_export(lua_State *L, Server *server) luaL_register(L, NULL, minetest_entity_m); // Put other stuff in metatable - // Entity C reference + // Environment C reference + EnvRef::Register(L); + + // Object C reference ObjectRef::Register(L); } +void scriptapi_add_environment(lua_State *L, ServerEnvironment *env) +{ + realitycheck(L); + assert(lua_checkstack(L, 20)); + infostream<<"scriptapi_add_environment"<getId()); // Push id + lua_pushvalue(L, object); // Copy object to top of stack + lua_settable(L, objectstable); + + // pop object_refs, minetest and the object + lua_pop(L, 3); +} + +void scriptapi_rm_object_reference(lua_State *L, ServerActiveObject *cobj) +{ + realitycheck(L); + assert(lua_checkstack(L, 20)); + infostream<<"scriptapi_rm_object_reference: id="<getId()<getId()); // Push id + lua_gettable(L, objectstable); + // Set object reference to NULL + ObjectRef::set_null(L); + lua_pop(L, 1); // pop object + + // Set object_refs[id] = nil + lua_pushnumber(L, cobj->getId()); // Push id + lua_pushnil(L); + lua_settable(L, objectstable); + + // pop object_refs, minetest + lua_pop(L, 2); +} + +static void objectref_get(lua_State *L, u16 id) +{ + // Get minetest.object_refs[i] + lua_getglobal(L, "minetest"); + lua_getfield(L, -1, "object_refs"); + luaL_checktype(L, -1, LUA_TTABLE); + lua_pushnumber(L, id); + lua_gettable(L, -2); + lua_remove(L, -2); // object_refs + lua_remove(L, -2); // minetest +} + +/* + luaentity +*/ + void scriptapi_luaentity_add(lua_State *L, u16 id, const char *name, const char *init_state) { @@ -320,8 +575,7 @@ void scriptapi_luaentity_add(lua_State *L, u16 id, const char *name, assert(lua_checkstack(L, 20)); infostream<<"scriptapi_luaentity_add: id="<getId()); // Push id - lua_gettable(L, objectstable); - // Object is at stack top - lua_pop(L, 1); // pop object*/ - // Set luaentities[id] = nil lua_pushnumber(L, id); // Push id lua_pushnil(L); @@ -392,38 +638,16 @@ void scriptapi_luaentity_rm(lua_State *L, u16 id) lua_pop(L, 2); // pop luaentities, minetest } -void scriptapi_luaentity_step(lua_State *L, u16 id, float dtime) +static void luaentity_get(lua_State *L, u16 id) { - realitycheck(L); - assert(lua_checkstack(L, 20)); - infostream<<"scriptapi_luaentity_step: id="<getId()); // Push id - lua_pushvalue(L, object); // Copy object to top of stack - lua_settable(L, objectstable); - - // pop object_refs, minetest and the object - lua_pop(L, 3); + // State: object is at top of stack + // Get step function + lua_getfield(L, -1, "on_step"); + luaL_checktype(L, -1, LUA_TFUNCTION); + lua_pushvalue(L, object); // self + lua_pushnumber(L, dtime); // dtime + // Call with 2 arguments, 0 results + if(lua_pcall(L, 2, 0, 0)) + script_error(L, "error running function 'step': %s\n", lua_tostring(L, -1)); } -void scriptapi_rm_object_reference(lua_State *L, ServerActiveObject *cobj) +void scriptapi_luaentity_rightclick_player(lua_State *L, u16 id, + const char *playername) { realitycheck(L); assert(lua_checkstack(L, 20)); - infostream<<"scriptapi_rm_object_reference: id="<getId()<getId()); // Push id - lua_gettable(L, objectstable); - // Set object reference to NULL - ObjectRef::set_null(L); - lua_pop(L, 1); // pop object + //infostream<<"scriptapi_luaentity_step: id="<getId()); // Push id - lua_pushnil(L); - lua_settable(L, objectstable); - - // pop object_refs, minetest - lua_pop(L, 2); + // Get minetest.luaentities[id] + luaentity_get(L, id); + int object = lua_gettop(L); + // State: object is at top of stack + // Get step function + lua_getfield(L, -1, "on_rightclick"); + luaL_checktype(L, -1, LUA_TFUNCTION); + lua_pushvalue(L, object); // self + // Call with 1 arguments, 0 results + if(lua_pcall(L, 1, 0, 0)) + script_error(L, "error running function 'step': %s\n", lua_tostring(L, -1)); } -- cgit v1.2.3