Mercurial > vba-clojure

     1 /*

     2 ** $Id: lauxlib.h,v 1.88.1.1 2007/12/27 13:02:25 roberto Exp $

     3 ** Auxiliary functions for building Lua libraries

     4 ** See Copyright Notice in lua.h

     5 */

     6 

     7 

     8 #ifndef lauxlib_h

     9 #define lauxlib_h

    10 

    11 

    12 #include <stddef.h>

    13 #include <stdio.h>

    14 

    15 #include "lua.h"

    16 

    17 

    18 #if defined(LUA_COMPAT_GETN)

    19 LUALIB_API int (luaL_getn) (lua_State *L, int t);

    20 LUALIB_API void (luaL_setn) (lua_State *L, int t, int n);

    21 #else

    22 #define luaL_getn(L,i)          ((int)lua_objlen(L, i))

    23 #define luaL_setn(L,i,j)        ((void)0)  /* no op! */

    24 #endif

    25 

    26 #if defined(LUA_COMPAT_OPENLIB)

    27 #define luaI_openlib	luaL_openlib

    28 #endif

    29 

    30 

    31 /* extra error code for `luaL_load' */

    32 #define LUA_ERRFILE     (LUA_ERRERR+1)

    33 

    34 

    35 typedef struct luaL_Reg {

    36   const char *name;

    37   lua_CFunction func;

    38 } luaL_Reg;

    39 

    40 

    41 

    42 LUALIB_API void (luaI_openlib) (lua_State *L, const char *libname,

    43                                 const luaL_Reg *l, int nup);

    44 LUALIB_API void (luaL_register) (lua_State *L, const char *libname,

    45                                 const luaL_Reg *l);

    46 LUALIB_API int (luaL_getmetafield) (lua_State *L, int obj, const char *e);

    47 LUALIB_API int (luaL_callmeta) (lua_State *L, int obj, const char *e);

    48 LUALIB_API int (luaL_typerror) (lua_State *L, int narg, const char *tname);

    49 LUALIB_API int (luaL_argerror) (lua_State *L, int numarg, const char *extramsg);

    50 LUALIB_API const char *(luaL_checklstring) (lua_State *L, int numArg,

    51                                                           size_t *l);

    52 LUALIB_API const char *(luaL_optlstring) (lua_State *L, int numArg,

    53                                           const char *def, size_t *l);

    54 LUALIB_API lua_Number (luaL_checknumber) (lua_State *L, int numArg);

    55 LUALIB_API lua_Number (luaL_optnumber) (lua_State *L, int nArg, lua_Number def);

    56 

    57 LUALIB_API lua_Integer (luaL_checkinteger) (lua_State *L, int numArg);

    58 LUALIB_API lua_Integer (luaL_optinteger) (lua_State *L, int nArg,

    59                                           lua_Integer def);

    60 

    61 LUALIB_API void (luaL_checkstack) (lua_State *L, int sz, const char *msg);

    62 LUALIB_API void (luaL_checktype) (lua_State *L, int narg, int t);

    63 LUALIB_API void (luaL_checkany) (lua_State *L, int narg);

    64 

    65 LUALIB_API int   (luaL_newmetatable) (lua_State *L, const char *tname);

    66 LUALIB_API void *(luaL_checkudata) (lua_State *L, int ud, const char *tname);

    67 

    68 LUALIB_API void (luaL_where) (lua_State *L, int lvl);

    69 LUALIB_API int (luaL_error) (lua_State *L, const char *fmt, ...);

    70 

    71 LUALIB_API int (luaL_checkoption) (lua_State *L, int narg, const char *def,

    72                                    const char *const lst[]);

    73 

    74 LUALIB_API int (luaL_ref) (lua_State *L, int t);

    75 LUALIB_API void (luaL_unref) (lua_State *L, int t, int ref);

    76 

    77 LUALIB_API int (luaL_loadfile) (lua_State *L, const char *filename);

    78 LUALIB_API int (luaL_loadbuffer) (lua_State *L, const char *buff, size_t sz,

    79                                   const char *name);

    80 LUALIB_API int (luaL_loadstring) (lua_State *L, const char *s);

    81 

    82 LUALIB_API lua_State *(luaL_newstate) (void);

    83 

    84 

    85 LUALIB_API const char *(luaL_gsub) (lua_State *L, const char *s, const char *p,

    86                                                   const char *r);

    87 

    88 LUALIB_API const char *(luaL_findtable) (lua_State *L, int idx,

    89                                          const char *fname, int szhint);

    90 

    91 

    92 

    93 

    94 /*

    95 ** ===============================================================

    96 ** some useful macros

    97 ** ===============================================================

    98 */

    99 

   100 #define luaL_argcheck(L, cond,numarg,extramsg)	\

   101 		((void)((cond) || luaL_argerror(L, (numarg), (extramsg))))

   102 #define luaL_checkstring(L,n)	(luaL_checklstring(L, (n), NULL))

   103 #define luaL_optstring(L,n,d)	(luaL_optlstring(L, (n), (d), NULL))

   104 #define luaL_checkint(L,n)	((int)luaL_checkinteger(L, (n)))

   105 #define luaL_optint(L,n,d)	((int)luaL_optinteger(L, (n), (d)))

   106 #define luaL_checklong(L,n)	((long)luaL_checkinteger(L, (n)))

   107 #define luaL_optlong(L,n,d)	((long)luaL_optinteger(L, (n), (d)))

   108 

   109 #define luaL_typename(L,i)	lua_typename(L, lua_type(L,(i)))

   110 

   111 #define luaL_dofile(L, fn) \

   112 	(luaL_loadfile(L, fn) || lua_pcall(L, 0, LUA_MULTRET, 0))

   113 

   114 #define luaL_dostring(L, s) \

   115 	(luaL_loadstring(L, s) || lua_pcall(L, 0, LUA_MULTRET, 0))

   116 

   117 #define luaL_getmetatable(L,n)	(lua_getfield(L, LUA_REGISTRYINDEX, (n)))

   118 

   119 #define luaL_opt(L,f,n,d)	(lua_isnoneornil(L,(n)) ? (d) : f(L,(n)))

   120 

   121 /*

   122 ** {======================================================

   123 ** Generic Buffer manipulation

   124 ** =======================================================

   125 */

   126 

   127 

   128 

   129 typedef struct luaL_Buffer {

   130   char *p;			/* current position in buffer */

   131   int lvl;  /* number of strings in the stack (level) */

   132   lua_State *L;

   133   char buffer[LUAL_BUFFERSIZE];

   134 } luaL_Buffer;

   135 

   136 #define luaL_addchar(B,c) \

   137   ((void)((B)->p < ((B)->buffer+LUAL_BUFFERSIZE) || luaL_prepbuffer(B)), \

   138    (*(B)->p++ = (char)(c)))

   139 

   140 /* compatibility only */

   141 #define luaL_putchar(B,c)	luaL_addchar(B,c)

   142 

   143 #define luaL_addsize(B,n)	((B)->p += (n))

   144 

   145 LUALIB_API void (luaL_buffinit) (lua_State *L, luaL_Buffer *B);

   146 LUALIB_API char *(luaL_prepbuffer) (luaL_Buffer *B);

   147 LUALIB_API void (luaL_addlstring) (luaL_Buffer *B, const char *s, size_t l);

   148 LUALIB_API void (luaL_addstring) (luaL_Buffer *B, const char *s);

   149 LUALIB_API void (luaL_addvalue) (luaL_Buffer *B);

   150 LUALIB_API void (luaL_pushresult) (luaL_Buffer *B);

   151 

   152 

   153 /* }====================================================== */

   154 

   155 

   156 /* compatibility with ref system */

   157 

   158 /* pre-defined references */

   159 #define LUA_NOREF       (-2)

   160 #define LUA_REFNIL      (-1)

   161 

   162 #define lua_ref(L,lock) ((lock) ? luaL_ref(L, LUA_REGISTRYINDEX) : \

   163       (lua_pushstring(L, "unlocked references are obsolete"), lua_error(L), 0))

   164 

   165 #define lua_unref(L,ref)        luaL_unref(L, LUA_REGISTRYINDEX, (ref))

   166 

   167 #define lua_getref(L,ref)       lua_rawgeti(L, LUA_REGISTRYINDEX, (ref))

   168 

   169 

   170 #define luaL_reg	luaL_Reg

   171 

   172 #endif

   173 

   174
author	Robert McIntyre <rlm@mit.edu>
date	Sat, 01 Sep 2012 04:05:51 -0500
parents	27763b933818
children