/* 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;
}