/* Index for coroutine is fd as integer for *nix, as lightuserdata for Win */
void luaevent_callback(int fd, short event, void* p) {
le_callback* cb = p;
lua_State* L;
int ret;
struct timeval new_tv = { 0, 0 };
assert(cb);
if(!cb->base)
return; /* Event has already been collected + destroyed */
assert(cb->base->loop_L);
L = cb->base->loop_L;
lua_rawgeti(L, LUA_REGISTRYINDEX, cb->callbackRef);
lua_pushinteger(L, event);
if(lua_pcall(L, 1, 2, 0))
{
cb->base->errorMessage = luaL_ref(L, LUA_REGISTRYINDEX);
event_base_loopbreak(cb->base->base);
lua_pop(L, 2);
return;
}
if(!cb->base) {
lua_pop(L, 2);
return; /* event was destroyed during callback */
}
/* If nothing is returned, re-use the old event value */
ret = luaL_optinteger(L, -2, event);
/* Clone the old timeout value in case a new one wasn't set */
memcpy(&new_tv, &cb->timeout, sizeof(new_tv));
if(lua_isnumber(L, -1)) {
double newTimeout = lua_tonumber(L, -1);
if(newTimeout > 0) {
load_timeval(newTimeout, &new_tv);
}
}
lua_pop(L, 2);
if(ret == -1) {
freeCallbackArgs(cb, L);
} else {
struct event *ev = &cb->ev;
int newEvent = ret;
if( newEvent != event || (cb->timeout.tv_sec != new_tv.tv_sec || cb->timeout.tv_usec != new_tv.tv_usec) ) {
struct timeval *ptv = &cb->timeout;
cb->timeout = new_tv;
if(!cb->timeout.tv_sec && !cb->timeout.tv_usec)
ptv = NULL;
event_del(ev);
event_set(ev, fd, EV_PERSIST | newEvent, luaevent_callback, cb);
/* Assume cannot set a new timeout.. */
event_add(ev, ptv);
}
}
}
static int luaevent_cb_gc(lua_State* L) {
le_callback* arg = luaL_checkudata(L, 1, EVENT_CALLBACK_ARG_MT);
freeCallbackArgs(arg, L);
return 0;
}
