| 770 | |
| 771 | |
| 772 | LUALIB_API int luaL_getmetafield (lua_State *L, int obj, const char *event) { |
| 773 | if (!lua_getmetatable(L, obj)) /* no metatable? */ |
| 774 | return LUA_TNIL; |
| 775 | else { |
| 776 | int tt; |
| 777 | lua_pushstring(L, event); |
| 778 | tt = lua_rawget(L, -2); |
| 779 | if (tt == LUA_TNIL) /* is metafield nil? */ |
| 780 | lua_pop(L, 2); /* remove metatable and metafield */ |
| 781 | else |
| 782 | lua_remove(L, -2); /* remove only metatable */ |
| 783 | return tt; /* return metafield type */ |
| 784 | } |
| 785 | } |
| 786 | |
| 787 | |
| 788 | LUALIB_API int luaL_callmeta (lua_State *L, int obj, const char *event) { |
no test coverage detected