static int lua_vrequest_enter_action(lua_State *L) {
liVRequest *vr;
liAction *act;
if (lua_gettop(L) != 2) {
lua_pushstring(L, "incorrect number of arguments");
lua_error(L);
}
vr = li_lua_get_vrequest(L, 1);
act = li_lua_get_action(L, 2);
if (!vr || !act) {
lua_pushstring(L, "wrong arguments");
lua_error(L);
}
li_action_enter(vr, act);
return 0;
}
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;
}
}
