| 2434 | |
| 2435 | |
| 2436 | LUA_API int lua_getmetatable (lua_State *L, int objindex) { |
| 2437 | const TValue *obj; |
| 2438 | Table *mt = NULL; |
| 2439 | int res; |
| 2440 | lua_lock(L); |
| 2441 | obj = index2adr(L, objindex); |
| 2442 | switch (ttype(obj)) { |
| 2443 | case LUA_TTABLE: |
| 2444 | mt = hvalue(obj)->metatable; |
| 2445 | break; |
| 2446 | case LUA_TUSERDATA: |
| 2447 | mt = uvalue(obj)->metatable; |
| 2448 | break; |
| 2449 | default: |
| 2450 | mt = G(L)->mt[ttype(obj)]; |
| 2451 | break; |
| 2452 | } |
| 2453 | if (mt == NULL) |
| 2454 | res = 0; |
| 2455 | else { |
| 2456 | sethvalue(L, L->top, mt); |
| 2457 | api_incr_top(L); |
| 2458 | res = 1; |
| 2459 | } |
| 2460 | lua_unlock(L); |
| 2461 | return res; |
| 2462 | } |
| 2463 | |
| 2464 | |
| 2465 | LUA_API void lua_getfenv (lua_State *L, int idx) { |
no test coverage detected