static void lluv_on_fs(uv_fs_t *arg){
lluv_fs_request_t *req = arg->data;
lua_State *L = LLUV_FCALLBACK_L(req);
lluv_loop_t *loop = lluv_loop_byptr(req->req.loop);
int argc;
LLUV_CHECK_LOOP_CB_INVARIANT(L);
lua_rawgeti(L, LLUV_LUA_REGISTRY, req->cb);
argc = lluv_push_fs_result_object(L, req);
if(arg->result < 0){
lluv_error_create(L, LLUV_ERR_UV, arg->result, arg->path);
++argc;
}
else{
lua_pushnil(L);
argc += 1 + lluv_push_fs_result(L, req);
}
uv_fs_req_cleanup(&req->req);
lluv_fs_request_free(L, req);
LLUV_LOOP_CALL_CB(L, loop, argc);
LLUV_CHECK_LOOP_CB_INVARIANT(L);
}
static void lluv_on_process_exit(uv_process_t* arg, int64_t exit_status, int term_signal){
lluv_handle_t *handle = lluv_handle_byptr((uv_handle_t*)arg);
lua_State *L = LLUV_HCALLBACK_L(handle);
LLUV_CHECK_LOOP_CB_INVARIANT(L);
if(!IS_(handle, OPEN)){
lluv_handle_unlock(L, handle, LLUV_LOCK_EXIT);
LLUV_CHECK_LOOP_CB_INVARIANT(L);
return;
}
lua_rawgeti(L, LLUV_LUA_REGISTRY, LLUV_EXIT_CB(handle));
lluv_handle_pushself(L, handle);
lluv_handle_unlock(L, handle, LLUV_LOCK_EXIT);
if(lua_isnil(L, -2)){
lua_pop(L, 2);
LLUV_CHECK_LOOP_CB_INVARIANT(L);
return;
}
lua_pushnil(L);
lutil_pushint64(L, exit_status);
lutil_pushint64(L, term_signal);
LLUV_HANDLE_CALL_CB(L, handle, 4);
LLUV_CHECK_LOOP_CB_INVARIANT(L);
}
static void lluv_on_getnameinfo(uv_getnameinfo_t* arg, int status, const char* hostname, const char* service){
lluv_req_t *req = lluv_req_byptr((uv_req_t*)arg);
lluv_loop_t *loop = lluv_loop_byptr(arg->loop);
lua_State *L = loop->L;
LLUV_CHECK_LOOP_CB_INVARIANT(L);
if(!IS_(loop, OPEN)){
lluv_req_free(L, req);
return;
}
lua_rawgeti(L, LLUV_LUA_REGISTRY, req->cb);
lluv_req_free(L, req);
assert(!lua_isnil(L, -1));
lluv_loop_pushself(L, loop);
lluv_push_status(L, status);
if(hostname)lua_pushstring(L, hostname); else lua_pushnil(L);
if(service) lua_pushstring(L, service); else lua_pushnil(L);
LLUV_LOOP_CALL_CB(L, loop, 4);
LLUV_CHECK_LOOP_CB_INVARIANT(L);
}
static void lluv_on_udp_recv_cb(uv_udp_t *arg, ssize_t nread, const uv_buf_t* buf, const struct sockaddr* addr, unsigned flags){
lluv_handle_t *handle = lluv_handle_byptr((uv_handle_t*)arg);
lua_State *L = LLUV_HCALLBACK_L(handle);
LLUV_CHECK_LOOP_CB_INVARIANT(L);
if((nread == 0) && (addr == NULL)){
/*
** The receive callback will be called with
** nread == 0 and addr == NULL when there is
** nothing to read
*/
lluv_free_buffer((uv_handle_t*)arg, buf);
return;
}
lua_rawgeti(L, LLUV_LUA_REGISTRY, LLUV_READ_CB(handle));
assert(!lua_isnil(L, -1));
lluv_handle_pushself(L, handle);
if(nread >= 0){
assert(addr);
lua_pushnil(L);
lua_pushlstring(L, buf->base, nread);
lluv_free_buffer((uv_handle_t*)arg, buf);
}
else{
lluv_free_buffer((uv_handle_t*)arg, buf);
/* The callee is responsible for stopping closing the stream
* when an error happens by calling uv_read_stop() or uv_close().
* Trying to read from the stream again is undefined.
*/
uv_udp_recv_stop(arg);
luaL_unref(L, LLUV_LUA_REGISTRY, LLUV_READ_CB(handle));
LLUV_READ_CB(handle) = LUA_NOREF;
lluv_error_create(L, LLUV_ERR_UV, (uv_errno_t)nread, NULL);
lua_pushnil(L);
lluv_handle_unlock(L, handle, LLUV_LOCK_READ);
}
lua_pushinteger(L, flags);
LLUV_HANDLE_CALL_CB(L, handle, 4 + lluv_push_addr(L, (const struct sockaddr_storage*)addr));
LLUV_CHECK_LOOP_CB_INVARIANT(L);
}
static void lluv_on_signal_start(uv_signal_t *arg, int signum){
lluv_handle_t *handle = lluv_handle_byptr((uv_handle_t*)arg);
lua_State *L = LLUV_HCALLBACK_L(handle);
LLUV_CHECK_LOOP_CB_INVARIANT(L);
lua_rawgeti(L, LLUV_LUA_REGISTRY, LLUV_START_CB(handle));
assert(!lua_isnil(L, -1)); /* is callble */
lluv_handle_pushself(L, handle);
lua_pushinteger(L, signum);
LLUV_HANDLE_CALL_CB(L, handle, 2);
LLUV_CHECK_LOOP_CB_INVARIANT(L);
}
static void lluv_on_getaddrinfo(uv_getaddrinfo_t* arg, int status, struct addrinfo* res){
lluv_req_t *req = lluv_req_byptr((uv_req_t*)arg);
lluv_loop_t *loop = lluv_loop_byptr(arg->loop);
lua_State *L = loop->L;
struct addrinfo* a = res;
int i = 0;
LLUV_CHECK_LOOP_CB_INVARIANT(L);
lua_rawgeti(L, LLUV_LUA_REGISTRY, req->cb);
lluv_req_free(L, req);
assert(!lua_isnil(L, -1));
lluv_loop_pushself(L, loop);
if(status < 0){
uv_freeaddrinfo(res);
lluv_error_create(L, LLUV_ERR_UV, (uv_errno_t)status, NULL);
LLUV_LOOP_CALL_CB(L, loop, 2);
LLUV_CHECK_LOOP_CB_INVARIANT(L);
return;
}
lua_pushnil(L);
lua_newtable(L);
for(a = res; a; a = a->ai_next){
char buf[INET6_ADDRSTRLEN + 1];
int port;
lua_newtable(L);
switch (a->ai_family){
case AF_INET:{
struct sockaddr_in *sa = (struct sockaddr_in*)a->ai_addr;
uv_ip4_name(sa, buf, sizeof(buf));
lua_pushstring(L, buf);
lua_setfield(L, -2, "address");
if((port = ntohs(sa->sin_port))){
lua_pushinteger(L, port);
lua_setfield(L, -2, "port");
}
break;
}
case AF_INET6:{
struct sockaddr_in6 *sa = (struct sockaddr_in6*)a->ai_addr;
uv_ip6_name(sa, buf, sizeof(buf));
lua_pushstring(L, buf);
lua_setfield(L, -2, "address");
if((port = ntohs(sa->sin6_port))){
lua_pushinteger(L, port);
lua_setfield(L, -2, "port");
}
break;
}
}
if(a->ai_canonname){
lua_pushstring(L, a->ai_canonname);
lua_setfield(L, -2, "canonname");
}
lluv_push_ai_family(L, a->ai_family);
lua_setfield(L, -2, "family");
lluv_push_ai_stype(L, a->ai_socktype);
lua_setfield(L, -2, "socktype");
lluv_push_ai_proto(L, a->ai_protocol);
lua_setfield(L, -2, "protocol");
lua_rawseti(L, -2, ++i);
}
uv_freeaddrinfo(res);
LLUV_LOOP_CALL_CB(L, loop, 3);
LLUV_CHECK_LOOP_CB_INVARIANT(L);
}
