From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

/* long luaL_checklong (lua_State *L, int narg); */
typedef struct {
int narg;
long retval;
} checklong_S;
int wrap_checklong ( lua_State *L )
{
checklong_S *data = (checklong_S *) lua_touserdata( L, -1 );
/* ...remove it from the stack */
lua_pop( L, 1 );
/* call the function; return value in the struct bypassing Lua */
data->retval = luaL_checklong( L, data->narg );
/* return value is ignored as this is called via lua_pcall */
return 0;
}
/* void luaL_checktype (lua_State *L, int narg, int t); */
typedef struct {
int narg;
int t;
} checktype_S;
int wrap_checktype ( lua_State *L )
{
checktype_S *data = (checktype_S *) lua_touserdata( L, -1 );
/* ...remove it from the stack */
lua_pop( L, 1 );
/* call the function; return value in the struct bypassing Lua */
luaL_checktype( L, data->narg, data->t );
/* return value is ignored as this is called via lua_pcall */
return 0;
}
/* void luaL_checkany (lua_State *L, int narg); */
typedef struct {
int narg;
} checkany_S;
int wrap_checkany ( lua_State *L )
{
checkany_S *data = (checkany_S *) lua_touserdata( L, -1 );
/* ...remove it from the stack */
lua_pop( L, 1 );
/* call the function; return value in the struct bypassing Lua */
luaL_checkany( L, data->narg );
/* return value is ignored as this is called via lua_pcall */
return 0;
}
/* void luaL_argcheck (lua_State *L, int cond, int narg, const char *extramsg); */
typedef struct {
int cond;
int narg;
const char *extramsg;
} argcheck_S;
int wrap_argcheck ( lua_State *L )
{
argcheck_S *data = (argcheck_S *) lua_touserdata( L, -1 );
/* ...remove it from the stack */
lua_pop( L, 1 );
/* call the function; return value in the struct bypassing Lua */
luaL_argcheck( L, data->cond, data->narg, data->extramsg );
/* return value is ignored as this is called via lua_pcall */
return 0;
}
/* int luaL_checkint (lua_State *L, int narg); */
typedef struct {
int narg;
int retval;
} checkint_S;
int wrap_checkint ( lua_State *L )
{
checkint_S *data = (checkint_S *) lua_touserdata( L, -1 );
/* ...remove it from the stack */
lua_pop( L, 1 );
/* call the function; return value in the struct bypassing Lua */
data->retval = luaL_checkint( L, data->narg );
/* return value is ignored as this is called via lua_pcall */
return 0;
}
/* int luaL_argerror (lua_State *L, int narg, const char *extramsg); */
typedef struct {
int narg;
const char *extramsg;
int retval;
} argerror_S;
int wrap_argerror ( lua_State *L )
{
argerror_S *data = (argerror_S *) lua_touserdata( L, -1 );
/* ...remove it from the stack */
lua_pop( L, 1 );
/* call the function; return value in the struct bypassing Lua */
data->retval = luaL_argerror( L, data->narg, data->extramsg );
/* return value is ignored as this is called via lua_pcall */
return 0;
}
/* lua_Integer luaL_optinteger (lua_State *L, int narg, lua_Integer d); */
typedef struct {
int narg;
lua_Integer d;
lua_Integer retval;
} optinteger_S;
int wrap_optinteger ( lua_State *L )
{
optinteger_S *data = (optinteger_S *) lua_touserdata( L, -1 );
/* ...remove it from the stack */
lua_pop( L, 1 );
/* call the function; return value in the struct bypassing Lua */
data->retval = luaL_optinteger( L, data->narg, data->d );
/* return value is ignored as this is called via lua_pcall */
return 0;
}
/* const char *luaL_checklstring (lua_State *L, int narg, size_t *l); */
typedef struct {
int narg;
size_t *l;
const char * retval;
} checklstring_S;
int wrap_checklstring ( lua_State *L )
{
checklstring_S *data = (checklstring_S *) lua_touserdata( L, -1 );
/* ...remove it from the stack */
lua_pop( L, 1 );
/* call the function; return value in the struct bypassing Lua */
data->retval = luaL_checklstring( L, data->narg, data->l );
/* return value is ignored as this is called via lua_pcall */
return 0;
}
/* int luaL_checkoption (lua_State *L, int narg, const char *def, const char *const lst[]); */
typedef struct {
int narg;
const char *def;
const char * const * lst;
int retval;
} checkoption_S;
int wrap_checkoption ( lua_State *L )
{
checkoption_S *data = (checkoption_S *) lua_touserdata( L, -1 );
/* ...remove it from the stack */
lua_pop( L, 1 );
/* call the function; return value in the struct bypassing Lua */
data->retval = luaL_checkoption( L, data->narg, data->def, data->lst );
/* return value is ignored as this is called via lua_pcall */
return 0;
}
/* int luaL_optint (lua_State *L, int narg, int d); */
typedef struct {
int narg;
int d;
int retval;
} optint_S;
int wrap_optint ( lua_State *L )
{
optint_S *data = (optint_S *) lua_touserdata( L, -1 );
/* ...remove it from the stack */
lua_pop( L, 1 );
/* call the function; return value in the struct bypassing Lua */
data->retval = luaL_optint( L, data->narg, data->d );
/* return value is ignored as this is called via lua_pcall */
return 0;
}
/* void *luaL_checkudata (lua_State *L, int narg, const char *tname); */
typedef struct {
int narg;
const char *tname;
void * retval;
} checkudata_S;
int wrap_checkudata ( lua_State *L )
{
checkudata_S *data = (checkudata_S *) lua_touserdata( L, -1 );
/* ...remove it from the stack */
lua_pop( L, 1 );
/* call the function; return value in the struct bypassing Lua */
data->retval = luaL_checkudata( L, data->narg, data->tname );
/* return value is ignored as this is called via lua_pcall */
return 0;
}
/* const char *luaL_checkstring (lua_State *L, int narg); */
typedef struct {
int narg;
const char * retval;
} checkstring_S;
int wrap_checkstring ( lua_State *L )
{
checkstring_S *data = (checkstring_S *) lua_touserdata( L, -1 );
/* ...remove it from the stack */
lua_pop( L, 1 );
/* call the function; return value in the struct bypassing Lua */
data->retval = luaL_checkstring( L, data->narg );
/* return value is ignored as this is called via lua_pcall */
return 0;
}
/* long luaL_optlong (lua_State *L, int narg, long d); */
typedef struct {
int narg;
long d;
long retval;
} optlong_S;
int wrap_optlong ( lua_State *L )
{
optlong_S *data = (optlong_S *) lua_touserdata( L, -1 );
/* ...remove it from the stack */
lua_pop( L, 1 );
/* call the function; return value in the struct bypassing Lua */
data->retval = luaL_optlong( L, data->narg, data->d );
/* return value is ignored as this is called via lua_pcall */
return 0;
}
/* const char *luaL_optlstring (lua_State *L, int narg, const char *d, size_t *l); */
typedef struct {
int narg;
const char *d;
size_t *l;
const char * retval;
} optlstring_S;
int wrap_optlstring ( lua_State *L )
{
optlstring_S *data = (optlstring_S *) lua_touserdata( L, -1 );
/* ...remove it from the stack */
lua_pop( L, 1 );
/* call the function; return value in the struct bypassing Lua */
data->retval = luaL_optlstring( L, data->narg, data->d, data->l );
/* return value is ignored as this is called via lua_pcall */
return 0;
}
/* lua_Number luaL_checknumber (lua_State *L, int narg); */
typedef struct {
int narg;
lua_Number retval;
} checknumber_S;
int wrap_checknumber ( lua_State *L )
{
checknumber_S *data = (checknumber_S *) lua_touserdata( L, -1 );
/* ...remove it from the stack */
lua_pop( L, 1 );
/* call the function; return value in the struct bypassing Lua */
data->retval = luaL_checknumber( L, data->narg );
/* return value is ignored as this is called via lua_pcall */
return 0;
}
/* int luaL_typerror (lua_State *L, int narg, const char *tname);
*/
typedef struct {
int narg;
const char *tname;
int retval;
} typerror_S;
int wrap_typerror ( lua_State *L )
{
typerror_S *data = (typerror_S *) lua_touserdata( L, -1 );
/* ...remove it from the stack */
lua_pop( L, 1 );
/* call the function; return value in the struct bypassing Lua */
data->retval = luaL_typerror( L, data->narg, data->tname );
/* return value is ignored as this is called via lua_pcall */
return 0;
}
/* const char *luaL_optstring (lua_State *L, int narg, const char *d); */
typedef struct {
int narg;
const char *d;
const char * retval;
} optstring_S;
int wrap_optstring ( lua_State *L )
{
optstring_S *data = (optstring_S *) lua_touserdata( L, -1 );
/* ...remove it from the stack */
lua_pop( L, 1 );
/* call the function; return value in the struct bypassing Lua */
data->retval = luaL_optstring( L, data->narg, data->d );
/* return value is ignored as this is called via lua_pcall */
return 0;
}
/* lua_Integer luaL_checkinteger (lua_State *L, int narg); */
typedef struct {
int narg;
lua_Integer retval;
} checkinteger_S;
int wrap_checkinteger ( lua_State *L )
{
checkinteger_S *data = (checkinteger_S *) lua_touserdata( L, -1 );
/* ...remove it from the stack */
lua_pop( L, 1 );
/* call the function; return value in the struct bypassing Lua */
data->retval = luaL_checkinteger( L, data->narg );
/* return value is ignored as this is called via lua_pcall */
return 0;
}
/* lua_Number luaL_optnumber (lua_State *L, int narg, lua_Number d); */
typedef struct {
int narg;
lua_Number d;
lua_Number retval;
} optnumber_S;
int wrap_optnumber ( lua_State *L )
{
optnumber_S *data = (optnumber_S *) lua_touserdata( L, -1 );
/* ...remove it from the stack */
lua_pop( L, 1 );
/* call the function; return value in the struct bypassing Lua */
data->retval = luaL_optnumber( L, data->narg, data->d );
/* return value is ignored as this is called via lua_pcall */
return 0;
}