1 

     2 #ifndef MISC_LUA_UTIL_H

     3 #define MISC_LUA_UTIL_H

     4 

     5 #include <lua.h>

     6 

     7 #ifndef enum_value_t

     8 #define enum_value_t int

     9 #endif

    10 

    11 // Array of string2eunm_t's must be ended with pair { NULL, fallback_value }

    12 typedef struct {

    13 	const char   *string;

    14 	enum_value_t  value;

    15 } string2enum_t;

    16 

    17 // If not found, fallback_value is returned

    18 enum_value_t  string2enum (const char *string, const string2enum_t *set);

    19 // If not found, NULL is returned

    20 const char   *enum2string (enum_value_t value, const string2enum_t *set);

    21 

    22 // returns result of string2enum on specified stack index, can handle plain numbers (no s2e called in this case)

    23 enum_value_t luaL_checkenum (lua_State *L, int index, const string2enum_t *set);

    24 // pushes onto a stack result of enum2string on a given value, if not recognized, pushes value as number

    25 void         luaL_pushenum (lua_State *L, enum_value_t value, const string2enum_t *set);

    26 

    27 // as luaL_checknum, but additionally handles tables as a multiple flags set.

    28 // table can contain both array and hash key-value pairs

    29 // hash entries are ORed with string2enum(key) if value resolves to lua true value

    30 // array entries are always ORed with string2enum(value)

    31 // eg { flag1, flag2, 16, flag3 = true, flag4 = { }, flag5 = nil } will set all flags except flag5 (and 16 too will be ORed)

    32 enum_value_t luaL_checkenum_multi (lua_State *L, int index, const string2enum_t *set);

    33 // pushes to stack table with all matched values from a set in a hash format

    34 // eg { flag1 = true, flag2 = true, flag6 = true, 16 } - that's it, if some bits will not match, they will be passed as a first array element.

    35 void         luaL_pushenum_multi (lua_State *L, enum_value_t value, const string2enum_t *set);

    36 

    37 void *luaL_malloc (lua_State *L, size_t size);

    38 void *luaL_realloc (lua_State *L, void *ptr, size_t osize, size_t nsize);

    39 void  luaL_free (lua_State *L, void *ptr);

    40 

    41 #endif

    42