X-Git-Url: http://git.silcnet.org/gitweb/?p=silc.git;a=blobdiff_plain;f=lib%2Fsilcutil%2Fwin32%2Fsilcwin32schedule.c;h=0a0505228121172d4ecffd86fe58c0b7d5b91cfd;hp=0781ae9b4287ac938235f7fd3c3a1a7437a7cb98;hb=e7b6c157b80152bf9fb9266e6bdd93f9fb0db776;hpb=0f0340b9fbce9704cc7171f8f0104ce9103d2de6

diff --git a/lib/silcutil/win32/silcwin32schedule.c b/lib/silcutil/win32/silcwin32schedule.c
index 0781ae9b..0a050522 100644
--- a/lib/silcutil/win32/silcwin32schedule.c
+++ b/lib/silcutil/win32/silcwin32schedule.c
@@ -4,7 +4,7 @@
 
   Author: Pekka Riikonen <priikone@silcnet.org>
 
-  Copyright (C) 2001 - 2005 Pekka Riikonen
+  Copyright (C) 2001 - 2007 Pekka Riikonen
 
   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
@@ -18,126 +18,82 @@
 */
 /* $Id$ */
 
-#include "silcincludes.h"
+#include "silc.h"
 
-/* Our "select()" for WIN32. This mimics the behaviour of select() system
-   call. It does not call the Winsock's select() though. Its functions
-   are derived from GLib's g_poll() and from some old Xemacs's sys_select().
+const SilcScheduleOps schedule_ops;
 
-   This makes following assumptions, which I don't know whether they
-   are correct or not:
+#define SILC_WM_EVENT WM_USER + 1
 
-   o SILC_TASK_WRITE is ignored, if set this will return immediately.
-   o If all arguments except timeout are NULL then this will register
-     a timeout with SetTimer and will wait just for Windows messages
-     with WaitMessage.
-   o MsgWaitForMultipleObjects is used to wait all kind of events, this
-     includes SOCKETs and Windows messages.
-   o All Windows messages are dispatched from this function.
-   o The Operating System has Winsock 2.
-
-   References:
-
-   o http://msdn.microsoft.com/library/default.asp?
-     url=/library/en-us/winui/hh/winui/messques_77zk.asp
-   o http://msdn.microsoft.com/library/default.asp?
-     url=/library/en-us/winsock/hh/winsock/apistart_9g1e.asp
-   o http://msdn.microsoft.com/library/default.asp?
-     url=/library/en-us/dnmgmt/html/msdn_getpeek.asp
-   o http://developer.novell.com/support/winsock/doc/toc.htm
-
-*/
-
-int silc_select(SilcSchedule schedule, void *context);
+typedef struct {
+  HWND window;			/* Hidden window for receiving socket events */
+  WNDCLASS wclass;		/* Window class */
+  HANDLE wakeup_sema;		/* Scheduler wakeup semaphore */
+  unsigned int in_schedule   : 1;
+} *SilcWin32Scheduler;
+
+/* Our select() call.  This simply waits for some events to happen.  It also
+   dispatches window messages so it can be used as the main loop of Windows
+   application.  This doesn't wait for fds or sockets but does receive
+   notifications via wakeup semaphore when event occurs on some fd or socket.
+   The fds and sockets are scheduled via WSAAsyncSelect. */
+
+int silc_select(SilcSchedule schedule, void *context)
 {
-  SilcHashTableList htl;
-  SilcTaskFd task;
+  SilcWin32Scheduler internal = (SilcWin32Scheduler)context;
   HANDLE handles[MAXIMUM_WAIT_OBJECTS];
   DWORD ready, curtime;
-  LONG timeo;
+  LONG timeo = INFINITE;
+  UINT timer;
   MSG msg;
-  int nhandles = 0, i, fd;
-
-  silc_hash_table_list(schedule->fd_queue, &htl);
-  while (silc_hash_table_get(&htl, (void **)&fd, (void **)&task)) {
-    if (!task->events)
-      continue;
-    if (nhandles >= MAXIMUM_WAIT_OBJECTS)
-      break;
-
-    if (task->events & SILC_TASK_READ)
-      handles[nhandles++] = (HANDLE)fd;
-
-    /* If writing then just set the bit and return */
-    if (task->events & SILC_TASK_WRITE) {
-      task->revents = SILC_TASK_WRITE;
-      return 1;
-    }
+  int nhandles = 0;
 
-    task->revents = 0;
+  if (!internal->in_schedule) {
+    internal->in_schedule = TRUE;
+    silc_list_init(schedule->fd_dispatch, struct SilcTaskStruct, next);
   }
-  silc_hash_table_list_reset(&htl);
 
-  timeo = (schedule->has_timeout ? ((schedule->timeout.tv_sec * 1000) +
-				    (schedule->timeout.tv_usec / 1000))
-	   : INFINITE);
+  /* Add wakeup semaphore to events */
+  handles[nhandles++] = internal->wakeup_sema;
 
-  /* If we have nothing to wait and timeout is set then register a timeout
-     and wait just for windows messages. */
-  if (nhandles == 0 && schedule->has_timeout) {
-    SILC_SCHEDULE_UNLOCK(schedule);
-    UINT timer = SetTimer(NULL, 0, timeo, NULL);
-    curtime = GetTickCount();
-    while (timer) {
-      WaitMessage();
-
-      while (PeekMessage(&msg, NULL, 0, 0, PM_REMOVE)) {
-	if (msg.message == WM_TIMER) {
-	  KillTimer(NULL, timer);
-	  SILC_SCHEDULE_LOCK(schedule);
-	  return 0;
-	}
-	TranslateMessage(&msg);
-	DispatchMessage(&msg);
-      }
-
-      KillTimer(NULL, timer);
-      if (timeo != INFINITE) {
-	timeo -= GetTickCount() - curtime;
-	curtime = GetTickCount();
-	if (timeo < 0)
-	  timeo = 0;
-      }
-      timer = SetTimer(NULL, 0, timeo, NULL);
-    }
-    SILC_SCHEDULE_LOCK(schedule);
-  }
+  /* Get timeout */
+  if (schedule->has_timeout)
+    timeo = ((schedule->timeout.tv_sec * 1000) +
+	     (schedule->timeout.tv_usec / 1000));
 
   SILC_SCHEDULE_UNLOCK(schedule);
  retry:
   curtime = GetTickCount();
   ready = MsgWaitForMultipleObjects(nhandles, handles, FALSE, timeo,
 				    QS_ALLINPUT);
-  SILC_SCHEDULE_LOCK(schedule);
 
   if (ready == WAIT_FAILED) {
     /* Wait failed with error */
     SILC_LOG_WARNING(("WaitForMultipleObjects() failed"));
+    SILC_SCHEDULE_LOCK(schedule);
+    internal->in_schedule = FALSE;
     return -1;
+
   } else if (ready >= WAIT_ABANDONED_0 &&
 	     ready < WAIT_ABANDONED_0 + nhandles) {
     /* Signal abandoned */
     SILC_LOG_WARNING(("WaitForMultipleObjects() failed (ABANDONED)"));
+    SILC_SCHEDULE_LOCK(schedule);
+    internal->in_schedule = FALSE;
     return -1;
+
   } else if (ready == WAIT_TIMEOUT) {
     /* Timeout */
+    SILC_LOG_DEBUG(("Timeout"));
+    SILC_SCHEDULE_LOCK(schedule);
+    internal->in_schedule = FALSE;
     return 0;
+
   } else if (ready == WAIT_OBJECT_0 + nhandles) {
     /* Windows messages. The MSDN online says that if the application
        creates a window then its main loop (and we're assuming that
        it is our SILC Scheduler) must handle the Windows messages, so do
        it here as the MSDN suggests. */
-    SILC_SCHEDULE_UNLOCK(schedule);
+    SILC_LOG_DEBUG(("Dispatch window messages"));
     while (PeekMessage(&msg, NULL, 0, 0, PM_REMOVE)) {
       TranslateMessage(&msg);
       DispatchMessage(&msg);
@@ -153,58 +109,127 @@ int silc_select(SilcSchedule schedule, void *context);
     }
 
     /* Give the wait another try */
-   goto retry;
-  } else if (ready >= WAIT_OBJECT_0 && ready < WAIT_OBJECT_0 + nhandles) {
-    /* Some other event, like SOCKET or something. */
-
-    /* Go through all fds even though only one was set. This is to avoid
-       starvation of high numbered fds. */
-    nhandles = silc_hash_table_count(schedule->fd_queue);
-    ready -= WAIT_OBJECT_0;
-    do {
-      i = 0;
-      silc_hash_table_list(schedule->fd_queue, &htl);
-      while (silc_hash_table_get(&htl, (void **)&fd, (void **)&task)) {
-	if (!task->events)
-	  continue;
-
-	if (fd == (int)handles[ready]) {
-	  i++;
-	  task->revents |= SILC_TASK_READ;
-	  break;
-	}
-      }
-      silc_hash_table_list_reset(&htl);
-
-      /* Check the status of the next handle and set its fd to the fd
-	 set if data is available. */
-      SILC_SCHEDULE_UNLOCK(schedule);
-      while (++ready < nhandles)
-	if (WaitForSingleObject(handles[ready], 0) == WAIT_OBJECT_0)
-	  break;
-      SILC_SCHEDULE_LOCK(schedule);
-    } while (ready < nhandles);
+    goto retry;
 
-    return i + 1;
+  } else if (ready >= WAIT_OBJECT_0 && ready < WAIT_OBJECT_0 + nhandles) {
+    /* Some event occurred. */
+    SILC_LOG_DEBUG(("Dispatch events"));
+    SILC_SCHEDULE_LOCK(schedule);
+    internal->in_schedule = FALSE;
+    return silc_list_count(schedule->fd_dispatch) + 1;
   }
 
+  internal->in_schedule = FALSE;
   return -1;
 }
 
-#ifdef SILC_THREADS
+/* Window callback.  We get here when some event occurs on file descriptor
+   or socket that has been scheduled.  We add them to dispatch queue and
+   notify the scheduler to handle them. */
 
-/* Internal wakeup context. */
-typedef struct {
-  HANDLE wakeup_sema;
-  SilcTask wakeup_task;
-} *SilcWin32Wakeup;
+static LRESULT CALLBACK
+silc_schedule_wnd_proc(HWND hwnd, UINT wMsg, WPARAM wParam, LPARAM lParam)
+{
+  SilcSchedule schedule = (SilcSchedule)GetWindowLongPtr(hwnd, GWL_USERDATA);
+  SilcWin32Scheduler internal;
+  SilcUInt32 fd;
+  SilcTaskFd task;
+
+  switch (wMsg) {
+  case SILC_WM_EVENT:
+    internal = (SilcWin32Scheduler)schedule->internal;
+    fd = (SilcUInt32)wParam;
+
+    SILC_LOG_DEBUG(("SILC_WM_EVENT fd %d", fd));
+    SILC_SCHEDULE_LOCK(schedule);
+
+    if (!internal->in_schedule) {
+      /* We are not in scheduler so set up the dispatch queue now */
+      internal->in_schedule = TRUE;
+      silc_list_init(schedule->fd_dispatch, struct SilcTaskStruct, next);
+    }
+
+    /* Find task by fd */
+    if (!silc_hash_table_find(schedule->fd_queue, SILC_32_TO_PTR(fd),
+			      NULL, (void *)&task)) {
+      SILC_SCHEDULE_UNLOCK(schedule);
+      break;
+    }
+
+    /* Ignore the event if the task is not valid anymore */
+    if (!task->header.valid || !task->events) {
+      SILC_SCHEDULE_UNLOCK(schedule);
+      break;
+    }
+    task->revents = 0;
+
+    /* Handle event */
+    switch (WSAGETSELECTEVENT(lParam)) {
+    case FD_READ:
+    case FD_OOB:
+      SILC_LOG_DEBUG(("FD_READ"));
+      task->revents |= SILC_TASK_READ;
+      silc_list_add(schedule->fd_dispatch, task);
+      break;
 
-SILC_TASK_CALLBACK(silc_schedule_wakeup_cb)
+    case FD_WRITE:
+      SILC_LOG_DEBUG(("FD_WRITE"));
+      task->revents |= SILC_TASK_WRITE;
+      silc_list_add(schedule->fd_dispatch, task);
+      break;
+
+    case FD_ACCEPT:
+      SILC_LOG_DEBUG(("FD_ACCEPT"));
+      task->revents |= SILC_TASK_READ;
+      silc_list_add(schedule->fd_dispatch, task);
+      break;
+
+    default:
+      break;
+    }
+
+    /* Wakeup scheduler */
+    ReleaseSemaphore(internal->wakeup_sema, 1, NULL);
+
+    SILC_SCHEDULE_UNLOCK(schedule);
+    return TRUE;
+    break;
+
+  default:
+    break;
+  }
+
+  return DefWindowProc(hwnd, wMsg, wParam, lParam);
+}
+
+/* Init Winsock2. */
+
+static SilcBool silc_net_win32_init(void)
 {
-  /* Nothing */
+  int ret, sopt = SO_SYNCHRONOUS_NONALERT;
+  WSADATA wdata;
+  WORD ver = MAKEWORD(2, 2);
+
+  ret = WSAStartup(ver, &wdata);
+  if (ret)
+    return FALSE;
+
+  /* Allow using the SOCKET's as file descriptors so that we can poll
+     them with SILC Scheduler. */
+  ret = setsockopt(INVALID_SOCKET, SOL_SOCKET, SO_OPENTYPE, (char *)&sopt,
+		   sizeof(sopt));
+  if (ret)
+    return FALSE;
+
+  return TRUE;
 }
 
-#endif /* SILC_THREADS */
+/* Uninit Winsock2 */
+
+static void silc_net_win32_uninit(void)
+{
+  WSACleanup();
+}
 
 /* Initializes the platform specific scheduler.  This for example initializes
    the wakeup mechanism of the scheduler.  In multi-threaded environment
@@ -213,52 +238,95 @@ SILC_TASK_CALLBACK(silc_schedule_wakeup_cb)
 
 void *silc_schedule_internal_init(SilcSchedule schedule, void *app_context)
 {
-#ifdef SILC_THREADS
-  SilcWin32Wakeup wakeup;
-#endif
+  SilcWin32Scheduler internal;
+  char n[32];
 
-  schedule->max_tasks = MAXIMUM_WAIT_OBJECTS;
+  /* Initialize Winsock */
+  silc_net_win32_init();
 
-#ifdef SILC_THREADS
-  wakeup = silc_calloc(1, sizeof(*wakeup));
-  if (!wakeup)
+  internal = silc_calloc(1, sizeof(*internal));
+  if (!internal)
     return NULL;
 
-  wakeup->wakeup_sema = CreateSemaphore(NULL, 0, 100, NULL);
-  if (!wakeup->wakeup_sema) {
-    silc_free(wakeup);
+  schedule->max_tasks = MAXIMUM_WAIT_OBJECTS;
+
+  /* Create hidden window.  We need window so that we can use WSAAsyncSelect
+     to set socket events.  */
+  silc_snprintf(n, sizeof(n), "SilcSchedule-%p", schedule);
+  internal->wclass.lpfnWndProc = silc_schedule_wnd_proc;
+  internal->wclass.cbWndExtra = sizeof(schedule);
+  internal->wclass.lpszClassName = (CHAR *)strdup(n);
+  RegisterClass(&internal->wclass);
+  internal->window = CreateWindow((CHAR *)internal->wclass.lpszClassName, "",
+				  0, 0, 0, 0, 0, NULL, NULL, NULL, NULL);
+  if (!internal->window) {
+    SILC_LOG_ERROR(("Could not create hidden window for scheduler"));
+    DestroyWindow(internal->window);
+    UnregisterClass((CHAR *)n, NULL);
+    silc_free(internal);
     return NULL;
   }
 
-  wakeup->wakeup_task =
-    silc_schedule_task_add(schedule, (int)wakeup->wakeup_sema,
-			   silc_schedule_wakeup_cb, wakeup,
-			   0, 0, SILC_TASK_FD);
-  if (!wakeup->wakeup_task) {
-    CloseHandle(wakeup->wakeup_sema);
-    silc_free(wakeup);
+  /* Set the scheduler as the window's context */
+  SetWindowLongPtr(internal->window, GWL_USERDATA, (void *)schedule);
+  SetWindowPos(internal->window, HWND_BOTTOM, 0, 0, 0, 0, SWP_FRAMECHANGED);
+
+  internal->wakeup_sema = CreateSemaphore(NULL, 0, 100, NULL);
+  if (!internal->wakeup_sema) {
+    SILC_LOG_ERROR(("Could not create wakeup semaphore for scheduler"));
+    silc_free(internal);
     return NULL;
   }
 
-  return (void *)wakeup;
-#else
-  return NULL;
-#endif
+  return (void *)internal;
 }
 
 /* Uninitializes the platform specific scheduler context. */
 
 void silc_schedule_internal_uninit(SilcSchedule schedule, void *context)
 {
-#ifdef SILC_THREADS
-  SilcWin32Wakeup wakeup = (SilcWin32Wakeup)context;
+  SilcWin32Scheduler internal = (SilcWin32Scheduler)context;
+  char n[32];
 
-  if (!wakeup)
+  if (!internal)
     return;
 
-  CloseHandle(wakeup->wakeup_sema);
-  silc_free(wakeup);
-#endif
+  silc_snprintf(n, sizeof(n), "SilcSchedule-%p", schedule);
+  DestroyWindow(internal->window);
+  UnregisterClass((CHAR *)n, NULL);
+
+  CloseHandle(internal->wakeup_sema);
+  silc_net_win32_uninit();
+
+  silc_free(internal);
+}
+
+/* Schedule `task' with events `event_mask'. Zero `event_mask' unschedules. */
+
+SilcBool silc_schedule_internal_schedule_fd(SilcSchedule schedule,
+					    void *context,
+					    SilcTaskFd task,
+					    SilcTaskEvent event_mask)
+{
+  SilcWin32Scheduler internal = (SilcWin32Scheduler)context;
+  int events = 0;
+
+  if (!internal)
+    return TRUE;
+
+  SILC_LOG_DEBUG(("Scheduling fd %d for events %d", task->fd, event_mask));
+
+  if (event_mask & SILC_TASK_READ)
+    events |= FD_READ | FD_ACCEPT | FD_OOB;
+  if (event_mask & SILC_TASK_WRITE)
+    events |= FD_WRITE;
+
+  /* Schedule for events.  The silc_schedule_wnd_proc will be called to
+     deliver the events for this fd. */
+  WSAAsyncSelect(task->fd, internal->window, SILC_WM_EVENT, events);
+  task->revents = 0;
+
+  return TRUE;
 }
 
 /* Wakes up the scheduler */
@@ -266,13 +334,9 @@ void silc_schedule_internal_uninit(SilcSchedule schedule, void *context)
 void silc_schedule_internal_wakeup(SilcSchedule schedule, void *context)
 {
 #ifdef SILC_THREADS
-  SilcWin32Wakeup wakeup = (SilcWin32Wakeup)context;
-
-  if (!wakeup)
-    return;
-
-  ReleaseSemaphore(wakeup->wakeup_sema, 1, NULL);
-#endif
+  SilcWin32Scheduler internal = (SilcWin32Scheduler)context;
+  ReleaseSemaphore(internal->wakeup_sema, 1, NULL);
+#endif /* SILC_THREADS */
 }
 
 /* Register signal */
@@ -290,17 +354,7 @@ void silc_schedule_internal_signal_register(SilcSchedule schedule,
 
 void silc_schedule_internal_signal_unregister(SilcSchedule schedule,
 					      void *context,
-                                              SilcUInt32 signal,
-                                              SilcTaskCallback callback,
-                                              void *callback_context)
-{
-
-}
-
-/* Mark signal to be called later. */
-
-void silc_schedule_internal_signal_call(SilcSchedule schedule,
-					void *context, SilcUInt32 signal)
+                                              SilcUInt32 signal)
 {
 
 }
@@ -308,8 +362,7 @@ void silc_schedule_internal_signal_call(SilcSchedule schedule,
 /* Call all signals */
 
 void silc_schedule_internal_signals_call(SilcSchedule schedule,
-					 void *context,
-                                         SilcSchedule schedule)
+					 void *context)
 {
 
 }
@@ -335,10 +388,10 @@ const SilcScheduleOps schedule_ops =
   silc_schedule_internal_init,
   silc_schedule_internal_uninit,
   silc_select,
+  silc_schedule_internal_schedule_fd,
   silc_schedule_internal_wakeup,
   silc_schedule_internal_signal_register,
   silc_schedule_internal_signal_unregister,
-  silc_schedule_internal_signal_call,
   silc_schedule_internal_signals_call,
   silc_schedule_internal_signals_block,
   silc_schedule_internal_signals_unblock,