| /* |
| ** $Id: lauxlib.h,v 1.51 2002/07/01 19:23:58 roberto Exp roberto $ |
| ** Auxiliary functions for building Lua libraries |
| ** See Copyright Notice in lua.h |
| */ |
| |
| |
| #ifndef lauxlib_h |
| #define lauxlib_h |
| |
| |
| #include <stddef.h> |
| #include <stdio.h> |
| |
| #include "lua.h" |
| |
| |
| #ifndef LUALIB_API |
| #define LUALIB_API extern |
| #endif |
| |
| |
| |
| typedef struct luaL_reg { |
| const char *name; |
| lua_CFunction func; |
| } luaL_reg; |
| |
| |
| LUALIB_API void luaL_openlib (lua_State *L, const luaL_reg *l, int nup); |
| LUALIB_API void luaL_opennamedlib (lua_State *L, const char *libname, |
| const luaL_reg *l, int nup); |
| LUALIB_API int luaL_callmeta (lua_State *L, int obj, const char *event); |
| LUALIB_API int luaL_typerror (lua_State *L, int narg, const char *tname); |
| LUALIB_API int luaL_argerror (lua_State *L, int numarg, const char *extramsg); |
| LUALIB_API const char *luaL_check_lstr (lua_State *L, int numArg, |
| size_t *len); |
| LUALIB_API const char *luaL_opt_lstr (lua_State *L, int numArg, |
| const char *def, size_t *len); |
| LUALIB_API lua_Number luaL_check_number (lua_State *L, int numArg); |
| LUALIB_API lua_Number luaL_opt_number (lua_State *L, int nArg, lua_Number def); |
| |
| LUALIB_API void luaL_check_stack (lua_State *L, int space, const char *msg); |
| LUALIB_API void luaL_check_type (lua_State *L, int narg, int t); |
| LUALIB_API void luaL_check_any (lua_State *L, int narg); |
| |
| LUALIB_API void luaL_where (lua_State *L, int level); |
| LUALIB_API int luaL_error (lua_State *L, const char *fmt, ...); |
| |
| LUALIB_API int luaL_findstring (const char *name, |
| const char *const list[]); |
| |
| LUALIB_API int luaL_ref (lua_State *L, int t); |
| LUALIB_API void luaL_unref (lua_State *L, int t, int ref); |
| |
| LUALIB_API int luaL_loadfile (lua_State *L, const char *filename); |
| LUALIB_API int luaL_loadbuffer (lua_State *L, const char *buff, size_t size, |
| const char *name); |
| |
| |
| |
| /* |
| ** =============================================================== |
| ** some useful macros |
| ** =============================================================== |
| */ |
| |
| #define luaL_arg_check(L, cond,numarg,extramsg) if (!(cond)) \ |
| luaL_argerror(L, numarg,extramsg) |
| #define luaL_check_string(L,n) (luaL_check_lstr(L, (n), NULL)) |
| #define luaL_opt_string(L,n,d) (luaL_opt_lstr(L, (n), (d), NULL)) |
| #define luaL_check_int(L,n) ((int)luaL_check_number(L, n)) |
| #define luaL_check_long(L,n) ((long)luaL_check_number(L, n)) |
| #define luaL_opt_int(L,n,d) ((int)luaL_opt_number(L, n,d)) |
| #define luaL_opt_long(L,n,d) ((long)luaL_opt_number(L, n,d)) |
| |
| |
| /* |
| ** {====================================================== |
| ** Generic Buffer manipulation |
| ** ======================================================= |
| */ |
| |
| |
| #ifndef LUAL_BUFFERSIZE |
| #define LUAL_BUFFERSIZE BUFSIZ |
| #endif |
| |
| |
| typedef struct luaL_Buffer { |
| char *p; /* current position in buffer */ |
| int level; |
| lua_State *L; |
| char buffer[LUAL_BUFFERSIZE]; |
| } luaL_Buffer; |
| |
| #define luaL_putchar(B,c) \ |
| ((void)((B)->p < ((B)->buffer+LUAL_BUFFERSIZE) || luaL_prepbuffer(B)), \ |
| (*(B)->p++ = (char)(c))) |
| |
| #define luaL_addsize(B,n) ((B)->p += (n)) |
| |
| LUALIB_API void luaL_buffinit (lua_State *L, luaL_Buffer *B); |
| LUALIB_API char *luaL_prepbuffer (luaL_Buffer *B); |
| LUALIB_API void luaL_addlstring (luaL_Buffer *B, const char *s, size_t l); |
| LUALIB_API void luaL_addstring (luaL_Buffer *B, const char *s); |
| LUALIB_API void luaL_addvalue (luaL_Buffer *B); |
| LUALIB_API void luaL_pushresult (luaL_Buffer *B); |
| |
| |
| /* }====================================================== */ |
| |
| |
| |
| /* |
| ** Compatibility macros |
| */ |
| |
| #define luaL_checktype luaL_check_type |
| #define luaL_checkany luaL_check_any |
| |
| LUALIB_API int lua_dofile (lua_State *L, const char *filename); |
| LUALIB_API int lua_dostring (lua_State *L, const char *str); |
| LUALIB_API int lua_dobuffer (lua_State *L, const char *buff, size_t size, |
| const char *name); |
| |
| |
| #endif |
| |
| |