static int lua_cond_lvalue_t_index(lua_State *L) {
liServer *srv;
GString *key;
liCondLValue t = lua_get_cond_lvalue_t(L, 1);
srv = (liServer*) lua_touserdata(L, lua_upvalueindex(1));
if (t < LI_COND_LVALUE_FIRST_WITH_KEY || t >= LI_COND_LVALUE_END) return 0;
if (NULL == (key = li_lua_togstring(L, 2))) return 0;
lua_push_cond_lvalue(srv, L, li_condition_lvalue_new(t, key));
return 1;
}
static int lua_cond_lvalue_cmp(lua_State *L) {
liServer *srv;
GString *sval;
liCondition *c;
liConditionLValue *lvalue;
liCompOperator cmpop;
lvalue = lua_get_condition_lvalue(L, 1);
srv = (liServer*) lua_touserdata(L, lua_upvalueindex(1));
cmpop = (liCompOperator) lua_tointeger(L, lua_upvalueindex(2));
if (NULL == (sval = li_lua_togstring(L, 2))) return 0;
c = li_condition_new_string(srv, cmpop, lvalue, sval);
if (c) {
li_condition_lvalue_acquire(lvalue);
li_lua_push_condition(srv, L, c);
return 1;
}
return 0;
}
static liValue* li_value_from_lua_table(liServer *srv, lua_State *L, int ndx) {
liValue *val = NULL, *sub_option;
GPtrArray *list = NULL;
GHashTable *hash = NULL;
int ikey;
GString *skey;
ndx = li_lua_fixindex(L, ndx);
lua_pushnil(L);
while (lua_next(L, ndx) != 0) {
switch (lua_type(L, -2)) {
case LUA_TNUMBER:
if (hash) goto mixerror;
if (!list) {
val = li_value_new_list();
list = val->data.list;
}
ikey = lua_tointeger(L, -2) - 1;
if (ikey < 0) {
ERROR(srv, "Invalid key < 0: %i - skipping entry", ikey + 1);
lua_pop(L, 1);
continue;
}
sub_option = li_value_from_lua(srv, L);
if (!sub_option) continue;
if ((size_t) ikey >= list->len) {
g_ptr_array_set_size(list, ikey + 1);
}
g_ptr_array_index(list, ikey) = sub_option;
break;
case LUA_TSTRING:
if (list) goto mixerror;
if (!hash) {
val = li_value_new_hash();
hash = val->data.hash;
}
skey = li_lua_togstring(L, -2);
if (g_hash_table_lookup(hash, skey)) {
ERROR(srv, "Key already exists in hash: '%s' - skipping entry", skey->str);
lua_pop(L, 1);
continue;
}
sub_option = li_value_from_lua(srv, L);
if (!sub_option) {
g_string_free(skey, TRUE);
continue;
}
g_hash_table_insert(hash, skey, sub_option);
break;
default:
ERROR(srv, "Unexpted key type in table: %s (%i) - skipping entry", lua_typename(L, lua_type(L, -1)), lua_type(L, -1));
lua_pop(L, 1);
break;
}
}
return val;
mixerror:
ERROR(srv, "%s", "Cannot mix list with hash; skipping remaining part of table");
lua_pop(L, 2);
return val;
}
liValue* li_value_from_lua(liServer *srv, lua_State *L) {
liValue *val;
switch (lua_type(L, -1)) {
case LUA_TNIL:
lua_pop(L, 1);
return NULL;
case LUA_TBOOLEAN:
val = li_value_new_bool(lua_toboolean(L, -1));
lua_pop(L, 1);
return val;
case LUA_TNUMBER:
val = li_value_new_number(lua_tonumber(L, -1));
lua_pop(L, 1);
return val;
case LUA_TSTRING:
val = li_value_new_string(li_lua_togstring(L, -1));
lua_pop(L, 1);
return val;
case LUA_TTABLE:
val = li_value_from_lua_table(srv, L, -1);
lua_pop(L, 1);
return val;
case LUA_TUSERDATA:
{ /* check for action */
liAction *a = li_lua_get_action(L, -1);
if (a) {
li_action_acquire(a);
lua_pop(L, 1);
return li_value_new_action(srv, a);
}
}
{ /* check for condition */
liCondition *c = li_lua_get_condition(L, -1);
if (c) {
li_condition_acquire(c);
lua_pop(L, 1);
return li_value_new_condition(srv, c);
}
}
ERROR(srv, "%s", "Unknown lua userdata");
lua_pop(L, 1);
return NULL;
case LUA_TFUNCTION: {
liAction *a = li_lua_make_action(L, -1);
lua_pop(L, 1);
return li_value_new_action(srv, a);
}
case LUA_TLIGHTUSERDATA:
case LUA_TTHREAD:
case LUA_TNONE:
default:
ERROR(srv, "Unexpected lua type: %s (%i)", lua_typename(L, lua_type(L, -1)), lua_type(L, -1));
lua_pop(L, 1);
return NULL;
}
}
