asyncengine 0.0.1.testing

data/ext/asyncengine_ext/libuv/src/win/cares.c

@@ -0,0 +1,290 @@
+/* Copyright Joyent, Inc. and other Node contributors. All rights reserved.
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to
+ * deal in the Software without restriction, including without limitation the
+ * rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
+ * sell copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+ * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
+ * IN THE SOFTWARE.
+ */
+
+#include <assert.h>
+
+#include "uv.h"
+#include "../uv-common.h"
+#include "internal.h"
+
+
+/*
+ * Subclass of uv_handle_t. Used for integration of c-ares.
+ */
+struct uv_ares_action_s {
+  UV_HANDLE_FIELDS
+  struct uv_req_s ares_req;
+  SOCKET sock;
+  int read;
+  int write;
+};
+
+
+/* default timeout per socket request if ares does not specify value */
+/* use 20 sec */
+#define ARES_TIMEOUT_MS            20000
+
+
+/* thread pool callback when socket is signalled */
+static void CALLBACK uv_ares_socksignal_tp(void* parameter,
+    BOOLEAN timerfired) {
+  WSANETWORKEVENTS network_events;
+  uv_ares_task_t* sockhandle;
+  uv_ares_action_t* selhandle;
+  uv_req_t* uv_ares_req;
+  uv_loop_t* loop;
+
+  assert(parameter != NULL);
+
+  if (parameter != NULL) {
+    sockhandle = (uv_ares_task_t*) parameter;
+    loop = sockhandle->loop;
+
+    /* clear socket status for this event */
+    /* do not fail if error, thread may run after socket close */
+    /* The code assumes that c-ares will write all pending data in the */
+    /* callback, unless the socket would block. We can clear the state here */
+    /* to avoid unnecessary signals. */
+    WSAEnumNetworkEvents(sockhandle->sock,
+                         sockhandle->h_event,
+                         &network_events);
+
+    /* setup new handle */
+    selhandle = (uv_ares_action_t*)malloc(sizeof(uv_ares_action_t));
+    if (selhandle == NULL) {
+      uv_fatal_error(ERROR_OUTOFMEMORY, "malloc");
+    }
+    selhandle->type = UV_ARES_EVENT;
+    selhandle->close_cb = NULL;
+    selhandle->data = sockhandle->data;
+    selhandle->sock = sockhandle->sock;
+    selhandle->read =
+        (network_events.lNetworkEvents & (FD_READ | FD_CONNECT)) ? 1 : 0;
+    selhandle->write =
+        (network_events.lNetworkEvents & (FD_WRITE | FD_CONNECT)) ? 1 : 0;
+
+    uv_ares_req = &selhandle->ares_req;
+    uv_req_init(loop, uv_ares_req);
+    uv_ares_req->type = UV_ARES_EVENT_REQ;
+    uv_ares_req->data = selhandle;
+
+    /* post ares needs to called */
+    POST_COMPLETION_FOR_REQ(loop, uv_ares_req);
+  }
+}
+
+
+/* periodically call ares to check for timeouts */
+static void uv_ares_poll(uv_timer_t* handle, int status) {
+  uv_loop_t* loop = handle->loop;
+  if (loop->ares_chan != NULL && loop->ares_active_sockets > 0) {
+    ares_process_fd(loop->ares_chan, ARES_SOCKET_BAD, ARES_SOCKET_BAD);
+  }
+}
+
+
+/* callback from ares when socket operation is started */
+static void uv_ares_sockstate_cb(void *data, ares_socket_t sock, int read,
+    int write) {
+  /* look to see if we have a handle for this socket in our list */
+  uv_loop_t* loop = (uv_loop_t*) data;
+  uv_ares_task_t* uv_handle_ares = uv_find_ares_handle(loop, sock);
+
+  int timeoutms = 0;
+
+  if (read == 0 && write == 0) {
+    /* if read and write are 0, cleanup existing data */
+    /* The code assumes that c-ares does a callback with read = 0 and */
+    /* write = 0 when the socket is closed. After we receive this we stop */
+    /* monitoring the socket. */
+    if (uv_handle_ares != NULL) {
+      uv_req_t* uv_ares_req;
+
+      uv_handle_ares->h_close_event = CreateEvent(NULL, FALSE, FALSE, NULL);
+      /* remove Wait */
+      if (uv_handle_ares->h_wait) {
+        UnregisterWaitEx(uv_handle_ares->h_wait,
+                         uv_handle_ares->h_close_event);
+        uv_handle_ares->h_wait = NULL;
+      }
+
+      /* detach socket from the event */
+      WSAEventSelect(sock, NULL, 0);
+      if (uv_handle_ares->h_event != WSA_INVALID_EVENT) {
+        WSACloseEvent(uv_handle_ares->h_event);
+        uv_handle_ares->h_event = WSA_INVALID_EVENT;
+      }
+      /* remove handle from list */
+      uv_remove_ares_handle(uv_handle_ares);
+
+      /* Post request to cleanup the Task */
+      uv_ares_req = &uv_handle_ares->ares_req;
+      uv_req_init(loop, uv_ares_req);
+      uv_ares_req->type = UV_ARES_CLEANUP_REQ;
+      uv_ares_req->data = uv_handle_ares;
+
+      /* post ares done with socket - finish cleanup when all threads done. */
+      POST_COMPLETION_FOR_REQ(loop, uv_ares_req);
+    } else {
+      assert(0);
+      uv_fatal_error(ERROR_INVALID_DATA, "ares_SockStateCB");
+    }
+  } else {
+    if (uv_handle_ares == NULL) {
+      /* setup new handle */
+      /* The code assumes that c-ares will call us when it has an open socket.
+        We need to call into c-ares when there is something to read,
+        or when it becomes writable. */
+      uv_handle_ares = (uv_ares_task_t*)malloc(sizeof(uv_ares_task_t));
+      if (uv_handle_ares == NULL) {
+        uv_fatal_error(ERROR_OUTOFMEMORY, "malloc");
+      }
+      uv_handle_ares->type = UV_ARES_TASK;
+      uv_handle_ares->close_cb = NULL;
+      uv_handle_ares->loop = loop;
+      uv_handle_ares->data = loop;
+      uv_handle_ares->sock = sock;
+      uv_handle_ares->h_wait = NULL;
+      uv_handle_ares->flags = 0;
+
+      /* create an event to wait on socket signal */
+      uv_handle_ares->h_event = WSACreateEvent();
+      if (uv_handle_ares->h_event == WSA_INVALID_EVENT) {
+        uv_fatal_error(WSAGetLastError(), "WSACreateEvent");
+      }
+
+      /* tie event to socket */
+      if (SOCKET_ERROR == WSAEventSelect(sock,
+                                         uv_handle_ares->h_event,
+                                         FD_READ | FD_WRITE | FD_CONNECT)) {
+        uv_fatal_error(WSAGetLastError(), "WSAEventSelect");
+      }
+
+      /* add handle to list */
+      uv_add_ares_handle(loop, uv_handle_ares);
+      uv_ref(loop);
+
+      /*
+       * we have a single polling timer for all ares sockets.
+       * This is preferred to using ares_timeout. See ares_timeout.c warning.
+       * if timer is not running start it, and keep socket count
+       */
+      if (loop->ares_active_sockets == 0) {
+        uv_timer_init(loop, &loop->ares_polling_timer);
+        uv_timer_start(&loop->ares_polling_timer, uv_ares_poll, 1000L, 1000L);
+      }
+      loop->ares_active_sockets++;
+
+      /* specify thread pool function to call when event is signaled */
+      if (RegisterWaitForSingleObject(&uv_handle_ares->h_wait,
+                                  uv_handle_ares->h_event,
+                                  uv_ares_socksignal_tp,
+                                  (void*)uv_handle_ares,
+                                  INFINITE,
+                                  WT_EXECUTEINWAITTHREAD) == 0) {
+        uv_fatal_error(GetLastError(), "RegisterWaitForSingleObject");
+      }
+    } else {
+      /* found existing handle.  */
+      assert(uv_handle_ares->type == UV_ARES_TASK);
+      assert(uv_handle_ares->data != NULL);
+      assert(uv_handle_ares->h_event != WSA_INVALID_EVENT);
+    }
+  }
+}
+
+
+/* called via uv_poll when ares completion port signaled */
+void uv_process_ares_event_req(uv_loop_t* loop, uv_ares_action_t* handle,
+    uv_req_t* req) {
+  ares_process_fd(loop->ares_chan,
+                  handle->read ? handle->sock : INVALID_SOCKET,
+                  handle->write ?  handle->sock : INVALID_SOCKET);
+
+  /* release handle for select here  */
+  free(handle);
+}
+
+
+/* called via uv_poll when ares is finished with socket */
+void uv_process_ares_cleanup_req(uv_loop_t* loop, uv_ares_task_t* handle,
+    uv_req_t* req) {
+  /* check for event complete without waiting */
+  unsigned int signaled = WaitForSingleObject(handle->h_close_event, 0);
+
+  if (signaled != WAIT_TIMEOUT) {
+    uv_unref(loop);
+
+    /* close event handle and free uv handle memory */
+    CloseHandle(handle->h_close_event);
+    free(handle);
+
+    /* decrement active count. if it becomes 0 stop polling */
+    if (loop->ares_active_sockets > 0) {
+      loop->ares_active_sockets--;
+      if (loop->ares_active_sockets == 0) {
+        uv_close((uv_handle_t*) &loop->ares_polling_timer, NULL);
+      }
+    }
+  } else {
+    /* still busy - repost and try again */
+    POST_COMPLETION_FOR_REQ(loop, req);
+  }
+}
+
+
+/* set ares SOCK_STATE callback to our handler */
+int uv_ares_init_options(uv_loop_t* loop,
+                         ares_channel *channelptr,
+                         struct ares_options *options,
+                         int optmask) {
+  int rc;
+
+  /* only allow single init at a time */
+  if (loop->ares_chan != NULL) {
+    return UV_EALREADY;
+  }
+
+  /* set our callback as an option */
+  options->sock_state_cb = uv_ares_sockstate_cb;
+  options->sock_state_cb_data = loop;
+  optmask |= ARES_OPT_SOCK_STATE_CB;
+
+  /* We do the call to ares_init_option for caller. */
+  rc = ares_init_options(channelptr, options, optmask);
+
+  /* if success, save channel */
+  if (rc == ARES_SUCCESS) {
+    loop->ares_chan = *channelptr;
+  }
+
+  return rc;
+}
+
+
+/* release memory */
+void uv_ares_destroy(uv_loop_t* loop, ares_channel channel) {
+  /* only allow destroy if did init */
+  if (loop->ares_chan != NULL) {
+    ares_destroy(channel);
+    loop->ares_chan = NULL;
+  }
+}

data/ext/asyncengine_ext/libuv/src/win/core.c

@@ -0,0 +1,270 @@
+/* Copyright Joyent, Inc. and other Node contributors. All rights reserved.
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to
+ * deal in the Software without restriction, including without limitation the
+ * rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
+ * sell copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+ * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
+ * IN THE SOFTWARE.
+ */
+
+#include <assert.h>
+#include <errno.h>
+#include <limits.h>
+#include <malloc.h>
+#include <stdio.h>
+#include <string.h>
+
+#include "uv.h"
+#include "../uv-common.h"
+#include "internal.h"
+
+
+/* The only event loop we support right now */
+static uv_loop_t uv_default_loop_;
+
+/* uv_once intialization guards */
+static uv_once_t uv_init_guard_ = UV_ONCE_INIT;
+static uv_once_t uv_default_loop_init_guard_ = UV_ONCE_INIT;
+
+
+static void uv_init(void) {
+  /* Tell Windows that we will handle critical errors. */
+  SetErrorMode(SEM_FAILCRITICALERRORS | SEM_NOGPFAULTERRORBOX |
+    SEM_NOOPENFILEERRORBOX);
+
+  /* Initialize winsock */
+  uv_winsock_init();
+
+  /* Fetch winapi function pointers */
+  uv_winapi_init();
+
+  /* Initialize FS */
+  uv_fs_init();
+
+  /* Initialize console */
+  uv_console_init();
+}
+
+
+static void uv_loop_init(uv_loop_t* loop) {
+  /* Create an I/O completion port */
+  loop->iocp = CreateIoCompletionPort(INVALID_HANDLE_VALUE, NULL, 0, 1);
+  if (loop->iocp == NULL) {
+    uv_fatal_error(GetLastError(), "CreateIoCompletionPort");
+  }
+
+  loop->refs = 0;
+
+  uv_update_time(loop);
+
+  loop->pending_reqs_tail = NULL;
+
+  loop->endgame_handles = NULL;
+
+  RB_INIT(&loop->timers);
+  RB_INIT(&loop->uv_ares_handles_);
+
+  loop->check_handles = NULL;
+  loop->prepare_handles = NULL;
+  loop->idle_handles = NULL;
+
+  loop->next_prepare_handle = NULL;
+  loop->next_check_handle = NULL;
+  loop->next_idle_handle = NULL;
+
+  loop->ares_active_sockets = 0;
+  loop->ares_chan = NULL;
+
+  loop->active_tcp_streams = 0;
+  loop->active_udp_streams = 0;
+
+  loop->last_err = uv_ok_;
+}
+
+
+static void uv_default_loop_init(void) {
+  /* Initialize libuv itself first */
+  uv_once(&uv_init_guard_, uv_init);
+
+  /* Initialize the main loop */
+  uv_loop_init(&uv_default_loop_);
+}
+
+
+uv_loop_t* uv_default_loop(void) {
+  uv_once(&uv_default_loop_init_guard_, uv_default_loop_init);
+  return &uv_default_loop_;
+}
+
+
+uv_loop_t* uv_loop_new(void) {
+  uv_loop_t* loop;
+
+  /* Initialize libuv itself first */
+  uv_once(&uv_init_guard_, uv_init);
+
+  loop = (uv_loop_t*)malloc(sizeof(uv_loop_t));
+
+  if (!loop) {
+    uv_fatal_error(ERROR_OUTOFMEMORY, "malloc");
+  }
+
+  uv_loop_init(loop);
+  return loop;
+}
+
+
+void uv_loop_delete(uv_loop_t* loop) {
+  if (loop != &uv_default_loop_) {
+    free(loop);
+  }
+}
+
+
+int uv_loop_refcount(const uv_loop_t* loop) {
+  return loop->refs;
+}
+
+
+void uv_ref(uv_loop_t* loop) {
+  loop->refs++;
+}
+
+
+void uv_unref(uv_loop_t* loop) {
+  loop->refs--;
+}
+
+
+static void uv_poll(uv_loop_t* loop, int block) {
+  BOOL success;
+  DWORD bytes, timeout;
+  ULONG_PTR key;
+  OVERLAPPED* overlapped;
+  uv_req_t* req;
+
+  if (block) {
+    timeout = uv_get_poll_timeout(loop);
+  } else {
+    timeout = 0;
+  }
+
+  success = GetQueuedCompletionStatus(loop->iocp,
+                                      &bytes,
+                                      &key,
+                                      &overlapped,
+                                      timeout);
+
+  if (overlapped) {
+    /* Package was dequeued */
+    req = uv_overlapped_to_req(overlapped);
+
+    uv_insert_pending_req(loop, req);
+
+  } else if (GetLastError() != WAIT_TIMEOUT) {
+    /* Serious error */
+    uv_fatal_error(GetLastError(), "GetQueuedCompletionStatus");
+  }
+}
+
+
+static void uv_poll_ex(uv_loop_t* loop, int block) {
+  BOOL success;
+  DWORD timeout;
+  uv_req_t* req;
+  OVERLAPPED_ENTRY overlappeds[128];
+  ULONG count;
+  ULONG i;
+
+  if (block) {
+    timeout = uv_get_poll_timeout(loop);
+  } else {
+    timeout = 0;
+  }
+
+  assert(pGetQueuedCompletionStatusEx);
+
+  success = pGetQueuedCompletionStatusEx(loop->iocp,
+                                         overlappeds,
+                                         ARRAY_SIZE(overlappeds),
+                                         &count,
+                                         timeout,
+                                         FALSE);
+  if (success) {
+    for (i = 0; i < count; i++) {
+      /* Package was dequeued */
+      req = uv_overlapped_to_req(overlappeds[i].lpOverlapped);
+      uv_insert_pending_req(loop, req);
+    }
+  } else if (GetLastError() != WAIT_TIMEOUT) {
+    /* Serious error */
+    uv_fatal_error(GetLastError(), "GetQueuedCompletionStatusEx");
+  }
+}
+
+#define UV_LOOP_ONCE(loop, poll)                                              \
+  do {                                                                        \
+    uv_update_time((loop));                                                   \
+    uv_process_timers((loop));                                                \
+                                                                              \
+    /* Call idle callbacks if nothing to do. */                               \
+    if ((loop)->pending_reqs_tail == NULL &&                                  \
+        (loop)->endgame_handles == NULL) {                                    \
+      uv_idle_invoke((loop));                                                 \
+    }                                                                         \
+                                                                              \
+    uv_process_reqs((loop));                                                  \
+    uv_process_endgames((loop));                                              \
+                                                                              \
+    if ((loop)->refs <= 0) {                                                  \
+      break;                                                                  \
+    }                                                                         \
+                                                                              \
+    uv_prepare_invoke((loop));                                                \
+                                                                              \
+    poll((loop), (loop)->idle_handles == NULL &&                              \
+                 (loop)->pending_reqs_tail == NULL &&                         \
+                 (loop)->endgame_handles == NULL &&                           \
+                 (loop)->refs > 0);                                           \
+                                                                              \
+    uv_check_invoke((loop));                                                  \
+  } while (0);
+
+#define UV_LOOP(loop, poll)                                                   \
+  while ((loop)->refs > 0) {                                                  \
+    UV_LOOP_ONCE(loop, poll)                                                  \
+  }
+
+
+int uv_run_once(uv_loop_t* loop) {
+  if (pGetQueuedCompletionStatusEx) {
+    UV_LOOP_ONCE(loop, uv_poll_ex);
+  } else {
+    UV_LOOP_ONCE(loop, uv_poll);
+  }
+  return 0;
+}
+
+
+int uv_run(uv_loop_t* loop) {
+  if (pGetQueuedCompletionStatusEx) {
+    UV_LOOP(loop, uv_poll_ex);
+  } else {
+    UV_LOOP(loop, uv_poll);
+  }
+
+  assert(loop->refs == 0);
+  return 0;
+}

data/ext/asyncengine_ext/libuv/src/win/dl.c

@@ -0,0 +1,82 @@
+/* Copyright Joyent, Inc. and other Node contributors. All rights reserved.
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to
+ * deal in the Software without restriction, including without limitation the
+ * rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
+ * sell copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+ * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
+ * IN THE SOFTWARE.
+ */
+
+#include "uv.h"
+#include "internal.h"
+
+__declspec( thread ) DWORD saved_errno = 0;
+
+uv_err_t uv_dlopen(const char* filename, uv_lib_t* library) {
+  wchar_t filename_w[32768];
+  HMODULE handle;
+
+  if (!uv_utf8_to_utf16(filename,
+                        filename_w,
+                        sizeof(filename_w) / sizeof(wchar_t))) {
+    saved_errno = GetLastError();
+    return uv__new_sys_error(saved_errno);
+  }
+
+  handle = LoadLibraryW(filename_w);
+  if (handle == NULL) {
+    saved_errno = GetLastError();
+    return uv__new_sys_error(saved_errno);
+  }
+
+  *library = handle;
+  return uv_ok_;
+}
+
+
+uv_err_t uv_dlclose(uv_lib_t library) {
+  if (!FreeLibrary(library)) {
+    saved_errno = GetLastError();
+    return uv__new_sys_error(saved_errno);
+  }
+
+  return uv_ok_;
+}
+
+
+uv_err_t uv_dlsym(uv_lib_t library, const char* name, void** ptr) {
+  FARPROC proc = GetProcAddress(library, name);
+  if (proc == NULL) {
+    saved_errno = GetLastError();
+    return uv__new_sys_error(saved_errno);
+  }
+
+  *ptr = (void*) proc;
+  return uv_ok_;
+}
+
+
+const char *uv_dlerror(uv_lib_t library) {
+  char* buf = NULL;
+  FormatMessageA(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM |
+                 FORMAT_MESSAGE_IGNORE_INSERTS, NULL, saved_errno,
+                 MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US), (LPSTR)&buf, 0, NULL);
+  return buf;
+}
+
+
+void uv_dlerror_free(uv_lib_t library, const char *msg) {
+  LocalFree((LPVOID)msg);
+}