luahelpers.h

Go to the documentation of this file.

#ifndef LUAHELPERS_H
#define LUAHELPERS_H

#ifndef LUA_CFUNC
# if BITS == 32
#  define LUA_CFUNC(fname)  int __attribute__((cdecl)) fname(lua_State *L)
# else // cdecl convention is inappropriate for 64 bits
#  define LUA_CFUNC(fname)  int fname(lua_State *L)
# endif
#endif


#define LREG_NAME(L, func, name) \
do { \
    lua_pushcfunction(L, (lua_CFunction)func); \
    lua_setglobal(L, name); \
} while (0)

#define LREG(L, func)   LREG_NAME(L, func, #func)

#define LENUM(L, value) lua_setglobal_int(L, #value, value)

#define luaL_error_fname(L, ...) \
do { \
    lua_pushstring(L, __func__); \
    lua_pushfstring(L, "() " __VA_ARGS__); \
    lua_concat(L, 2); \
    lua_error(L); \
} while (0)

#define LUA_CHECKIDX(L, idx) \
do { \
    if (idx == 0) \
        luaL_error(L, "%s() Lua state %p, error: " \
            "zero is not an acceptable stack index!", __func__, L); \
} while (0)

#define LUA_ABSIDX(L, idx) \
do { \
    if (idx < 0) { idx += lua_gettop(L); idx++; } \
} while (0)

#define LUA_CHKABSIDX(L, idx) \
do { \
    if (idx == 0) \
        luaL_error(L, "%s() Lua state %p, error: " \
            "zero is not an acceptable stack index!", __func__, L); \
    if (idx < 0) { idx += lua_gettop(L); idx++; } \
} while (0)

#define lua_iscdata(L, index)   (lua_type(L, index) == LUA_TCDATA)

#define lua_setglobal_int(L, name, value) \
do { \
    lua_pushinteger(L, value); \
    lua_setglobal(L, name); \
} while (0)

#define lua_setglobal_str(L, name, value) \
do { \
    lua_pushstring(L, value); \
    lua_setglobal(L, name); \
} while (0)

#define lua_setglobal_ptr(L, name, value) \
do { \
    lua_pushlightuserdata(L, value); \
    lua_setglobal(L, name); \
} while (0)

#endif // LUAHELPERS_H