| 819 | |
| 820 | |
| 821 | LUALIB_API int luaL_getmetafield (lua_State *L, int obj, const char *event) { |
| 822 | if (!lua_getmetatable(L, obj)) /* no metatable? */ |
| 823 | return LUA_TNIL; |
| 824 | else { |
| 825 | int tt; |
| 826 | lua_pushstring(L, event); |
| 827 | tt = lua_rawget(L, -2); |
| 828 | if (tt == LUA_TNIL) /* is metafield nil? */ |
| 829 | lua_pop(L, 2); /* remove metatable and metafield */ |
| 830 | else |
| 831 | lua_remove(L, -2); /* remove only metatable */ |
| 832 | return tt; /* return metafield type */ |
| 833 | } |
| 834 | } |
| 835 | |
| 836 | |
| 837 | LUALIB_API int luaL_callmeta (lua_State *L, int obj, const char *event) { |
no test coverage detected