NFC: Backport luaL_testudata to Lua 5.1 (#3352)
And move luaL_checkudata to it, as in 5.3.
This commit is contained in:
parent
9c1f4aca5b
commit
b1d318de62
|
@ -285,21 +285,25 @@ LUALIB_API int luaL_rometatable (lua_State *L, const char* tname, const ROTable
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
LUALIB_API void *luaL_checkudata (lua_State *L, int ud, const char *tname) {
|
LUALIB_API void *luaL_testudata (lua_State *L, int ud, const char *tname) {
|
||||||
void *p = lua_touserdata(L, ud);
|
void *p = lua_touserdata(L, ud);
|
||||||
if (p != NULL) { /* value is a userdata? */
|
if (p != NULL) { /* value is a userdata? */
|
||||||
if (lua_getmetatable(L, ud)) { /* does it have a metatable? */
|
if (lua_getmetatable(L, ud)) { /* does it have a metatable? */
|
||||||
lua_getfield(L, LUA_REGISTRYINDEX, tname); /* get correct metatable */
|
lua_getfield(L, LUA_REGISTRYINDEX, tname); /* get correct metatable */
|
||||||
if (lua_rawequal(L, -1, -2)) { /* does it have the correct mt? */
|
if (!lua_rawequal(L, -1, -2)) /* not the same? */
|
||||||
lua_pop(L, 2); /* remove both metatables */
|
p = NULL; /* value is a userdata with wrong metatable */
|
||||||
return p;
|
lua_pop(L, 2); /* remove both metatables */
|
||||||
}
|
return p;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
luaL_typerror(L, ud, tname); /* else error */
|
return NULL; /* value is not a userdata with a metatable */
|
||||||
return NULL; /* to avoid warnings */
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
LUALIB_API void *luaL_checkudata (lua_State *L, int ud, const char *tname) {
|
||||||
|
void *p = luaL_testudata(L, ud, tname);
|
||||||
|
if (p == NULL) luaL_typerror(L, ud, tname);
|
||||||
|
return p;
|
||||||
|
}
|
||||||
|
|
||||||
LUALIB_API void luaL_checkstack (lua_State *L, int space, const char *mes) {
|
LUALIB_API void luaL_checkstack (lua_State *L, int space, const char *mes) {
|
||||||
if (!lua_checkstack(L, space))
|
if (!lua_checkstack(L, space))
|
||||||
|
|
|
@ -66,6 +66,7 @@ LUALIB_API void (luaL_checkany) (lua_State *L, int narg);
|
||||||
|
|
||||||
LUALIB_API int (luaL_newmetatable) (lua_State *L, const char *tname);
|
LUALIB_API int (luaL_newmetatable) (lua_State *L, const char *tname);
|
||||||
LUALIB_API int (luaL_rometatable) (lua_State *L, const char* tname, const ROTable *p);
|
LUALIB_API int (luaL_rometatable) (lua_State *L, const char* tname, const ROTable *p);
|
||||||
|
LUALIB_API void *(luaL_testudata) (lua_State *L, int ud, const char *tname);
|
||||||
LUALIB_API void *(luaL_checkudata) (lua_State *L, int ud, const char *tname);
|
LUALIB_API void *(luaL_checkudata) (lua_State *L, int ud, const char *tname);
|
||||||
|
|
||||||
LUALIB_API void (luaL_where) (lua_State *L, int lvl);
|
LUALIB_API void (luaL_where) (lua_State *L, int lvl);
|
||||||
|
|
Loading…
Reference in New Issue