| 399 | |
| 400 | |
| 401 | LUA_API const void *lua_topointer (lua_State *L, int idx) { |
| 402 | StkId o = index2adr(L, idx); |
| 403 | switch (ttype(o)) { |
| 404 | case LUA_TTABLE: return hvalue(o); |
| 405 | case LUA_TFUNCTION: return clvalue(o); |
| 406 | case LUA_TTHREAD: return thvalue(o); |
| 407 | case LUA_TUSERDATA: |
| 408 | case LUA_TLIGHTUSERDATA: |
| 409 | return lua_touserdata(L, idx); |
| 410 | default: return NULL; |
| 411 | } |
| 412 | } |
| 413 | |
| 414 | |
| 415 |