diff options
Diffstat (limited to '3rdparty/lua/src/modules/lua-winreg/src/luamacro.h')
-rw-r--r-- | 3rdparty/lua/src/modules/lua-winreg/src/luamacro.h | 246 |
1 files changed, 123 insertions, 123 deletions
diff --git a/3rdparty/lua/src/modules/lua-winreg/src/luamacro.h b/3rdparty/lua/src/modules/lua-winreg/src/luamacro.h index 0a6ac13..18788b7 100644 --- a/3rdparty/lua/src/modules/lua-winreg/src/luamacro.h +++ b/3rdparty/lua/src/modules/lua-winreg/src/luamacro.h @@ -1,124 +1,124 @@ -#ifndef __LUAMACRO_H__
-#define __LUAMACRO_H__
-/* Compatibility between Lua 5.1+ and Lua 5.0 */
-#ifndef LUA_VERSION_NUM
-# define LUA_VERSION_NUM 0
-#endif
-#if LUA_VERSION_NUM < 501
-# define luaL_register(a, b, c) luaL_openlib((a), (b), (c), 0)
-# define lua_Integer ptrdiff_t
-# define lua_pushinteger lua_pushnumber
-# define luaL_optinteger luaL_optnumber
-# define luaL_checkinteger luaL_checknumber
-# define luaL_addchar luaL_putchar
-# define lua_createtable(L,a,b) lua_newtable(L)
-# define lua_tointeger(L,i) ((lua_Integer)lua_tonumber((L),(i)))
-# define lua_recycle(L) lua_setgcthreshold(L,0)
-#else
-# define lua_recycle(L) lua_gc(L,LUA_GCCOLLECT,0)
-#endif
-#ifndef lua_boxpointer
-# define lua_boxpointer(L,u) (*(void **)(lua_newuserdata(L, sizeof(void *))) = (u))
-#endif
-#ifndef lua_unboxpointer
-# define lua_unboxpointer(L,i) (*(void **)(lua_touserdata(L, i)))
-#endif
-/* convert a stack index to positive */
-#define lua_absindex(L, i) (((i)>0)?(i):((i)<=LUA_REGISTRYINDEX?(i):(lua_gettop(L)+(i)+1)))
-
-
-
-
-#define lua_leavenil(L) (lua_settop(L,0),lua_pushnil(L))
-
-#define lua_checkint(L,i) ((int)luaL_checkinteger(L,(i)))
-#define lua_optint(L,i,d) ((int)luaL_optinteger(L,(i),(d)))
-#define lua_pushint(L, n) (lua_pushinteger(L, (lua_Integer)(n)))
-
-#define lua_checkstring luaL_checkstring
-#define lua_checklstring luaL_checklstring
-
-#define lua_isfulluserdata(L, n)(lua_type(L, (n)) == LUA_TUSERDATA)
-#define lua_isrealstring(L, n) (lua_type(L, (n)) == LUA_TSTRING)
-#define lua_isrealnumber(L, n) (lua_type(L, (n)) == LUA_TNUMBER)
-#define lua_isrealtrue(L, n) (lua_isboolean(L, (n)) && lua_toboolean(L, (n)))
-#define lua_isrealfalse(L, n) (lua_isboolean(L, (n)) && (lua_toboolean(L, (n)) == 0))
-
-#define lua_optbool(L,i,d) (lua_isnone(L,(i))?(d):lua_toboolean(L,(i)))
-#define lua_pushfasle(L) (lua_pushboolean(L, 0))
-#define lua_pushtrue(L) (lua_pushboolean(L, 1))
-/* rawset's shortcuts */
-#define lua_rawset_index_assert(t) assert((t) >= 0 || (t) == -3 || (t) <= LUA_REGISTRYINDEX)
-#define lua_rawset_lf(L,t,k,v) (lua_rawset_index_assert(t), lua_pushliteral(L, k), lua_pushcfunction(L, (v)), lua_rawset(L, (t)))
-#define lua_rawset_lb(L,t,k,v) (lua_rawset_index_assert(t), lua_pushliteral(L, k), lua_pushboolean(L, (v)), lua_rawset(L, (t)))
-#define lua_rawset_lv(L,t,k,v) (lua_rawset_index_assert(t), lua_pushliteral(L, k), lua_pushvalue(L, (v)), lua_rawset(L, (t)))
-#define lua_rawset_ll(L,t,k,v) (lua_rawset_index_assert(t), lua_pushliteral(L, k), lua_pushliteral(L, v), lua_rawset(L, (t)))
-#define lua_rawset_ln(L,t,k,v) (lua_rawset_index_assert(t), lua_pushliteral(L, k), lua_pushnumber(L, (v)), lua_rawset(L, (t)))
-#define lua_rawset_li(L,t,k,v) (lua_rawset_index_assert(t), lua_pushliteral(L, k), lua_pushinteger(L, (v)), lua_rawset(L, (t)))
-#define lua_rawset_sn(L,t,k,v) (lua_rawset_index_assert(t), lua_pushstring(L,(k)), lua_pushnumber(L, (v)), lua_rawset(L, (t)))
-#define lua_rawset_vv(L,t,k,v) (lua_rawset_index_assert(t), lua_pushvalue(L, (k)), lua_pushvalue(L, (v)), lua_rawset(L, (t)))
-#define lua_rawset_vi(L,t,k,v) (lua_rawset_index_assert(t), lua_pushvalue(L, (k)), lua_pushinteger(L, (v)), lua_rawset(L, (t)))
-/* rawseti's shortcuts */
-#define lua_rawset_ii(L,t,i,j) (assert((t) >= 0 || (t) == -2 || (t) <= LUA_REGISTRYINDEX), lua_pushinteger(L, (j)), lua_rawseti(L, (t), (i)))
-#define lua_rawset_is(L,t,i,v) (assert((t) >= 0 || (t) == -2 || (t) <= LUA_REGISTRYINDEX), lua_pushstring(L, (v)), lua_rawseti(L, (t), (i)))
-#define lua_rawset_in(L,t,i,j) (assert((t) >= 0 || (t) == -2 || (t) <= LUA_REGISTRYINDEX), lua_pushnumber(L, (j)), lua_rawseti(L, (t), (i)))
-
-/* traversing table */
-#define lua_tabletraverse(L, i) for(lua_pushnil(L); lua_next(L, (i)); lua_pop(L, 1))
-
-#define LUA_LEAVE_OBJECT(L) (lua_settop(L,1))
-#define LUA_CHECK_LEAVE_OBJECT(L,b) ((b)?LUA_LEAVE_OBJECT(L):(lua_settop(L,0),lua_pushnil(L)))
-#define LUA_CHECK_RETURN_OBJECT(L,b) return(LUA_CHECK_LEAVE_OBJECT(L,b),1)
-/* allocation charaters */
-#define lua_alloc_wchar(L, charlen) ((wchar_t*)lua_newuserdata(L,(charlen)*sizeof(wchar_t)))
-#define lua_alloc_char(L, charlen) ((char*)lua_newuserdata(L,(charlen)*sizeof(char)))
-#define lua_alloc_uchar(L, charlen) ((unsigned char*)lua_newuserdata(L,(charlen)*sizeof(unsigned char)))
-/* luacheia support */
-#define LUACHEIA(m) __declspec(dllexport) int luaLM_import(lua_State *L){luaopen_##m(L);return 0;} __declspec(dllexport) const char * luaLM_version(void) {return LUA_VERSION;}
-/* gettable shortcuts */
-#define lua_gettable_s(L,i,s) (lua_pushstring(L,s),lua_gettable(L,i))
-#define lua_gettable_l(L,i,l) (lua_pushliteral(L,l),lua_gettable(L,i))
-#define lua_gettable_i(L,i,j) (lua_pushinteger(L,j),lua_gettable(L,i))
-#define lua_chktable_s(L,i,s) (lua_gettable_s(L,i,s),!lua_isnoneornil(L,-1))
-#define lua_chktable_l(L,i,l) (lua_gettable_l(L,i,l),!lua_isnoneornil(L,-1))
-#define lua_chktable_i(L,i,j) (lua_gettable_i(L,i,j),!lua_isnoneornil(L,-1))
-
-/* Garbage !
-#define lua_push_lj(L,s) (lua_pushliteral(L, s), lua_absindex(L, -1))
-#define lua_push_fj(L,f) (lua_pushcfunction(L, f), lua_absindex(L, -1))
-
-#define lua_picktablep(L,i,p) (lua_pushlightuserdata(L,(p)),lua_rawget(L,(i)))
-#define lua_picktablev(L,i,j) (lua_pushvalue(L, (j)), lua_rawget(L,(i)))
-#define lua_picktablel(L,i,s) (lua_pushliteral(L, s), lua_rawget(L,(i)))
-#define lua_picktablei(L,i,n) (lua_rawgeti(L,i,n))
-
-#define lua_gettablel(L,i,s) (lua_pushliteral(L, s), lua_gettable(L,i))
-#define lua_gettablei(L,i,n) (lua_pushinteger(L,(n)),lua_gettable(L,i))
-#define lua_gettables(L,i,s) (lua_getfield(L,(i),(s)))
-
-
-#define lua_gettable_l(L,i,s) (lua_gettablel(L,i,s), !lua_isnoneornil(L,-1))
-#define lua_gettable_i(L,i,n) (lua_gettablei(L,i,n), !lua_isnoneornil(L,-1))
-#define lua_gettable_s(L,i,s) (lua_gettables(L,i,s), !lua_isnoneornil(L,-1))
-
-#define lua_checkktable_li(L,i,s) (lua_gettablel(L,i,s), luaL_checkinteger(L, -1))
-
-#define lua_gettable_lb(L,i,s) (lua_gettablel(L,i,s), lua_toboolean(L, -1))
-
-#define lua_picktable_l(L,i,s) (lua_picktablel(L,i,s), !lua_isnoneornil(L,-1))
-#define lua_picktable_v(L,i,j) (lua_picktablev(L,i,j), !lua_isnoneornil(L,-1))
-#define lua_picktable_i(L,i,n) (lua_picktablei(L,i,n), !lua_isnoneornil(L,-1))
-#define lua_picktable_p(L,i,p) (lua_picktablep(L,i,p), !lua_isnoneornil(L,-1))
-
-#define lua_picktable_lb(L,i,s) (lua_picktablel(L,i,s), lua_toboolean(L, -1))
-#define lua_picktable_vb(L,i,j) (lua_picktablev(L,i,j), lua_toboolean(L, -1))
-
-#define lua_picktabletype_l(L,i,s)(lua_picktablel(L,i,s), lua_type(L, -1))
-
-#define lua_querytable_vs(L,i,j) (lua_picktablev(L,i,j), luaL_checkstring(L, -1))
-
-#define lua_picktable_vj(L,i,j) (lua_picktablev(L,i,j), lua_absindex(L, -1))
-#define lua_picktable_lj(L,i,s) (lua_picktablel(L,i,s), lua_absindex(L, -1))
-*/
-
+#ifndef __LUAMACRO_H__ +#define __LUAMACRO_H__ +/* Compatibility between Lua 5.1+ and Lua 5.0 */ +#ifndef LUA_VERSION_NUM +# define LUA_VERSION_NUM 0 +#endif +#if LUA_VERSION_NUM < 501 +# define luaL_register(a, b, c) luaL_openlib((a), (b), (c), 0) +# define lua_Integer ptrdiff_t +# define lua_pushinteger lua_pushnumber +# define luaL_optinteger luaL_optnumber +# define luaL_checkinteger luaL_checknumber +# define luaL_addchar luaL_putchar +# define lua_createtable(L,a,b) lua_newtable(L) +# define lua_tointeger(L,i) ((lua_Integer)lua_tonumber((L),(i))) +# define lua_recycle(L) lua_setgcthreshold(L,0) +#else +# define lua_recycle(L) lua_gc(L,LUA_GCCOLLECT,0) +#endif +#ifndef lua_boxpointer +# define lua_boxpointer(L,u) (*(void **)(lua_newuserdata(L, sizeof(void *))) = (u)) +#endif +#ifndef lua_unboxpointer +# define lua_unboxpointer(L,i) (*(void **)(lua_touserdata(L, i))) +#endif +/* convert a stack index to positive */ +#define lua_absindex(L, i) (((i)>0)?(i):((i)<=LUA_REGISTRYINDEX?(i):(lua_gettop(L)+(i)+1))) + + + + +#define lua_leavenil(L) (lua_settop(L,0),lua_pushnil(L)) + +#define lua_checkint(L,i) ((int)luaL_checkinteger(L,(i))) +#define lua_optint(L,i,d) ((int)luaL_optinteger(L,(i),(d))) +#define lua_pushint(L, n) (lua_pushinteger(L, (lua_Integer)(n))) + +#define lua_checkstring luaL_checkstring +#define lua_checklstring luaL_checklstring + +#define lua_isfulluserdata(L, n)(lua_type(L, (n)) == LUA_TUSERDATA) +#define lua_isrealstring(L, n) (lua_type(L, (n)) == LUA_TSTRING) +#define lua_isrealnumber(L, n) (lua_type(L, (n)) == LUA_TNUMBER) +#define lua_isrealtrue(L, n) (lua_isboolean(L, (n)) && lua_toboolean(L, (n))) +#define lua_isrealfalse(L, n) (lua_isboolean(L, (n)) && (lua_toboolean(L, (n)) == 0)) + +#define lua_optbool(L,i,d) (lua_isnone(L,(i))?(d):lua_toboolean(L,(i))) +#define lua_pushfasle(L) (lua_pushboolean(L, 0)) +#define lua_pushtrue(L) (lua_pushboolean(L, 1)) +/* rawset's shortcuts */ +#define lua_rawset_index_assert(t) assert((t) >= 0 || (t) == -3 || (t) <= LUA_REGISTRYINDEX) +#define lua_rawset_lf(L,t,k,v) (lua_rawset_index_assert(t), lua_pushliteral(L, k), lua_pushcfunction(L, (v)), lua_rawset(L, (t))) +#define lua_rawset_lb(L,t,k,v) (lua_rawset_index_assert(t), lua_pushliteral(L, k), lua_pushboolean(L, (v)), lua_rawset(L, (t))) +#define lua_rawset_lv(L,t,k,v) (lua_rawset_index_assert(t), lua_pushliteral(L, k), lua_pushvalue(L, (v)), lua_rawset(L, (t))) +#define lua_rawset_ll(L,t,k,v) (lua_rawset_index_assert(t), lua_pushliteral(L, k), lua_pushliteral(L, v), lua_rawset(L, (t))) +#define lua_rawset_ln(L,t,k,v) (lua_rawset_index_assert(t), lua_pushliteral(L, k), lua_pushnumber(L, (v)), lua_rawset(L, (t))) +#define lua_rawset_li(L,t,k,v) (lua_rawset_index_assert(t), lua_pushliteral(L, k), lua_pushinteger(L, (v)), lua_rawset(L, (t))) +#define lua_rawset_sn(L,t,k,v) (lua_rawset_index_assert(t), lua_pushstring(L,(k)), lua_pushnumber(L, (v)), lua_rawset(L, (t))) +#define lua_rawset_vv(L,t,k,v) (lua_rawset_index_assert(t), lua_pushvalue(L, (k)), lua_pushvalue(L, (v)), lua_rawset(L, (t))) +#define lua_rawset_vi(L,t,k,v) (lua_rawset_index_assert(t), lua_pushvalue(L, (k)), lua_pushinteger(L, (v)), lua_rawset(L, (t))) +/* rawseti's shortcuts */ +#define lua_rawset_ii(L,t,i,j) (assert((t) >= 0 || (t) == -2 || (t) <= LUA_REGISTRYINDEX), lua_pushinteger(L, (j)), lua_rawseti(L, (t), (i))) +#define lua_rawset_is(L,t,i,v) (assert((t) >= 0 || (t) == -2 || (t) <= LUA_REGISTRYINDEX), lua_pushstring(L, (v)), lua_rawseti(L, (t), (i))) +#define lua_rawset_in(L,t,i,j) (assert((t) >= 0 || (t) == -2 || (t) <= LUA_REGISTRYINDEX), lua_pushnumber(L, (j)), lua_rawseti(L, (t), (i))) + +/* traversing table */ +#define lua_tabletraverse(L, i) for(lua_pushnil(L); lua_next(L, (i)); lua_pop(L, 1)) + +#define LUA_LEAVE_OBJECT(L) (lua_settop(L,1)) +#define LUA_CHECK_LEAVE_OBJECT(L,b) ((b)?LUA_LEAVE_OBJECT(L):(lua_settop(L,0),lua_pushnil(L))) +#define LUA_CHECK_RETURN_OBJECT(L,b) return(LUA_CHECK_LEAVE_OBJECT(L,b),1) +/* allocation charaters */ +#define lua_alloc_wchar(L, charlen) ((wchar_t*)lua_newuserdata(L,(charlen)*sizeof(wchar_t))) +#define lua_alloc_char(L, charlen) ((char*)lua_newuserdata(L,(charlen)*sizeof(char))) +#define lua_alloc_uchar(L, charlen) ((unsigned char*)lua_newuserdata(L,(charlen)*sizeof(unsigned char))) +/* luacheia support */ +#define LUACHEIA(m) __declspec(dllexport) int luaLM_import(lua_State *L){luaopen_##m(L);return 0;} __declspec(dllexport) const char * luaLM_version(void) {return LUA_VERSION;} +/* gettable shortcuts */ +#define lua_gettable_s(L,i,s) (lua_pushstring(L,s),lua_gettable(L,i)) +#define lua_gettable_l(L,i,l) (lua_pushliteral(L,l),lua_gettable(L,i)) +#define lua_gettable_i(L,i,j) (lua_pushinteger(L,j),lua_gettable(L,i)) +#define lua_chktable_s(L,i,s) (lua_gettable_s(L,i,s),!lua_isnoneornil(L,-1)) +#define lua_chktable_l(L,i,l) (lua_gettable_l(L,i,l),!lua_isnoneornil(L,-1)) +#define lua_chktable_i(L,i,j) (lua_gettable_i(L,i,j),!lua_isnoneornil(L,-1)) + +/* Garbage ! +#define lua_push_lj(L,s) (lua_pushliteral(L, s), lua_absindex(L, -1)) +#define lua_push_fj(L,f) (lua_pushcfunction(L, f), lua_absindex(L, -1)) + +#define lua_picktablep(L,i,p) (lua_pushlightuserdata(L,(p)),lua_rawget(L,(i))) +#define lua_picktablev(L,i,j) (lua_pushvalue(L, (j)), lua_rawget(L,(i))) +#define lua_picktablel(L,i,s) (lua_pushliteral(L, s), lua_rawget(L,(i))) +#define lua_picktablei(L,i,n) (lua_rawgeti(L,i,n)) + +#define lua_gettablel(L,i,s) (lua_pushliteral(L, s), lua_gettable(L,i)) +#define lua_gettablei(L,i,n) (lua_pushinteger(L,(n)),lua_gettable(L,i)) +#define lua_gettables(L,i,s) (lua_getfield(L,(i),(s))) + + +#define lua_gettable_l(L,i,s) (lua_gettablel(L,i,s), !lua_isnoneornil(L,-1)) +#define lua_gettable_i(L,i,n) (lua_gettablei(L,i,n), !lua_isnoneornil(L,-1)) +#define lua_gettable_s(L,i,s) (lua_gettables(L,i,s), !lua_isnoneornil(L,-1)) + +#define lua_checkktable_li(L,i,s) (lua_gettablel(L,i,s), luaL_checkinteger(L, -1)) + +#define lua_gettable_lb(L,i,s) (lua_gettablel(L,i,s), lua_toboolean(L, -1)) + +#define lua_picktable_l(L,i,s) (lua_picktablel(L,i,s), !lua_isnoneornil(L,-1)) +#define lua_picktable_v(L,i,j) (lua_picktablev(L,i,j), !lua_isnoneornil(L,-1)) +#define lua_picktable_i(L,i,n) (lua_picktablei(L,i,n), !lua_isnoneornil(L,-1)) +#define lua_picktable_p(L,i,p) (lua_picktablep(L,i,p), !lua_isnoneornil(L,-1)) + +#define lua_picktable_lb(L,i,s) (lua_picktablel(L,i,s), lua_toboolean(L, -1)) +#define lua_picktable_vb(L,i,j) (lua_picktablev(L,i,j), lua_toboolean(L, -1)) + +#define lua_picktabletype_l(L,i,s)(lua_picktablel(L,i,s), lua_type(L, -1)) + +#define lua_querytable_vs(L,i,j) (lua_picktablev(L,i,j), luaL_checkstring(L, -1)) + +#define lua_picktable_vj(L,i,j) (lua_picktablev(L,i,j), lua_absindex(L, -1)) +#define lua_picktable_lj(L,i,s) (lua_picktablel(L,i,s), lua_absindex(L, -1)) +*/ + #endif /*__LUAMACRO_H__*/
\ No newline at end of file |