| 858 | |
| 859 | |
| 860 | LUALIB_API int luaL_getmetafield (lua_State *L, int obj, const char *event) { |
| 861 | if (!lua_getmetatable(L, obj)) /* no metatable? */ |
| 862 | return LUA_TNIL; |
| 863 | else { |
| 864 | int tt; |
| 865 | lua_pushstring(L, event); |
| 866 | tt = lua_rawget(L, -2); |
| 867 | if (tt == LUA_TNIL) /* is metafield nil? */ |
| 868 | lua_pop(L, 2); /* remove metatable and metafield */ |
| 869 | else |
| 870 | lua_remove(L, -2); /* remove only metatable */ |
| 871 | return tt; /* return metafield type */ |
| 872 | } |
| 873 | } |
| 874 | |
| 875 | |
| 876 | LUALIB_API int luaL_callmeta (lua_State *L, int obj, const char *event) { |
no test coverage detected