| 843 | |
| 844 | |
| 845 | LUALIB_API int luaL_getmetafield (lua_State *L, int obj, const char *event) { |
| 846 | if (!lua_getmetatable(L, obj)) /* no metatable? */ |
| 847 | return LUA_TNIL; |
| 848 | else { |
| 849 | int tt; |
| 850 | lua_pushstring(L, event); |
| 851 | tt = lua_rawget(L, -2); |
| 852 | if (tt == LUA_TNIL) /* is metafield nil? */ |
| 853 | lua_pop(L, 2); /* remove metatable and metafield */ |
| 854 | else |
| 855 | lua_remove(L, -2); /* remove only metatable */ |
| 856 | return tt; /* return metafield type */ |
| 857 | } |
| 858 | } |
| 859 | |
| 860 | |
| 861 | LUALIB_API int luaL_callmeta (lua_State *L, int obj, const char *event) { |
no test coverage detected