* query.c (initialize_module_query):

* call-scd.c (initialize_module_call_scd): New.

* w32-pth.c (pth_init): Enable debugging depending on env var.
(pth_self): New.
(pth_mutex_release, pth_mutex_acquire): Implemented directly using
the W32 API.

3 files changed, 67 insertions, 79 deletions

diff --git a/jnlib/ChangeLog b/jnlib/ChangeLog
index e194cea4c..5a566aedb 100644
--- a/jnlib/ChangeLog
+++ b/jnlib/ChangeLog
@@ -1,6 +1,9 @@
 2004-12-19  Werner Koch  <wk@g10code.com>
 
 	* w32-pth.c (pth_init): Enable debugging depending on env var.
+	(pth_self): New.
+	(pth_mutex_release, pth_mutex_acquire): Implemented directly using
+	the W32 API.
 
 2004-12-18  Werner Koch  <wk@g10code.com>
 
diff --git a/jnlib/w32-pth.c b/jnlib/w32-pth.c
index 489b28300..609a03705 100644
--- a/jnlib/w32-pth.c
+++ b/jnlib/w32-pth.c
@@ -68,7 +68,6 @@ static HANDLE pth_signo_ev;
 static CRITICAL_SECTION pth_shd;
 
 
-
 struct pth_event_s
 {
   struct pth_event_s * next;
@@ -306,8 +305,6 @@ pth_write (int fd, const void * buffer, size_t size)
           fprintf (stderr, "%s: pth_write(%d) failed in write: %s\n",
                    log_get_prefix (NULL), fd,
                    w32_strerror (strerr, sizeof strerr));
-          fprintf (stderr, "--> fd = %d, handle = %p, size = %lu\n",
-                   fd, (HANDLE)fd, size);
           n = -1;
         }
       else
@@ -444,107 +441,94 @@ pth_connect (int fd, struct sockaddr *name, int namelen)
 
 
 int
-pth_mutex_release (pth_mutex_t *hd)
+pth_mutex_release (pth_mutex_t *mutex)
 {
-  if (!hd)
-    return -1;
+  int rc;
+
   implicit_init ();
   enter_pth (__FUNCTION__);
-  if (hd->mx)
+
+  if (!ReleaseMutex (*mutex))
     {
-      CloseHandle (hd->mx);
-      hd->mx = NULL;
+      char strerr[256];
+
+      fprintf (stderr, "%s: pth_release_mutex %p failed: %s\n",
+               log_get_prefix (NULL), *mutex,
+               w32_strerror (strerr, sizeof strerr));
+      rc = FALSE;
     }
-  free (hd);
+  else
+    rc = TRUE;
+
   leave_pth (__FUNCTION__);
-  return 0;
+  return rc;
 }
 
 
 int
-pth_mutex_acquire (pth_mutex_t *hd, int tryonly, pth_event_t ev_extra)
+pth_mutex_acquire (pth_mutex_t *mutex, int tryonly, pth_event_t ev_extra)
 {
+  int code;
+  int rc;
+
   implicit_init ();
   enter_pth (__FUNCTION__);
 
-  if (!hd || !hd->mx)
-    {
-      leave_pth (__FUNCTION__);
-      return FALSE;
-    }
-    
-#if 0
-  /* still not locked, so simply acquire mutex? */
-  if (!(mutex->mx_state & PTH_MUTEX_LOCKED))
-    {
-      mutex->mx_state |= PTH_MUTEX_LOCKED;
-      mutex->mx_count = 1;
-      pth_ring_append(&(pth_current->mutexring), &(mutex->mx_node));
-      pth_debug1("pth_mutex_acquire: immediately locking mutex");
-      return 0;
-    }
-
-  /* already locked by caller? */
-  if (mutex->mx_count >= 1 && mutex->mx_owner == pth_current)
-    {
-      /* recursive lock */
-      mutex->mx_count++;
-      pth_debug1("pth_mutex_acquire: recursive locking");
-      return 0;
-    }
-
-  if (tryonly)
-    {
-      leave_pth (__FUNCTION__);
-      return -1;
-    }
-
-  for (;;)
+  /* FIXME: ev_extra is not yet supported.  */
+  
+  code = WaitForSingleObject (*mutex, INFINITE);
+  switch (code) 
     {
-      ev = pth_event(PTH_EVENT_MUTEX|PTH_MODE_STATIC, &ev_key, mutex);
-      if (ev_extra != NULL)
-        pth_event_concat (ev, ev_extra, NULL);
-      pth_wait (ev);
-      if (ev_extra != NULL)
+      case WAIT_FAILED:
         {
-          pth_event_isolate (ev);
-          if (do_pth_event_status(ev) == PTH_STATUS_PENDING)
-            {
-              leave_pth (__FUNCTION__);
-              return -1;
-            }
+          char strerr[256];
+          
+          fprintf (stderr, "%s: pth_mutex_acquire for %p failed: %s\n",
+                   log_get_prefix (NULL), *mutex,
+                   w32_strerror (strerr, sizeof strerr));
         }
-      if (!(mutex->mx_state & PTH_MUTEX_LOCKED))
+        rc = FALSE;
+        break;
+        
+      case WAIT_OBJECT_0:
+        rc = TRUE;
+        break;
+
+      default:
+        fprintf (stderr, "%s: WaitForSingleObject returned unexpected "
+                 "code %d for mutex %p\n",
+                 log_get_prefix (NULL), code, *mutex);
+        rc = FALSE;
         break;
     }
-#endif
 
-  hd->mx_state |= PTH_MUTEX_LOCKED;
   leave_pth (__FUNCTION__);
-  return TRUE;
+  return rc;
 }
 
 
+
 int
-pth_mutex_init (pth_mutex_t *hd)
+pth_mutex_init (pth_mutex_t *mutex)
 {
   SECURITY_ATTRIBUTES sa;
   
   implicit_init ();
   enter_pth (__FUNCTION__);
 
-  if (hd->mx)
-    {
-      ReleaseMutex (hd->mx);
-      CloseHandle (hd->mx);
-    }
   memset (&sa, 0, sizeof sa);
   sa.bInheritHandle = TRUE;
   sa.lpSecurityDescriptor = NULL;
   sa.nLength = sizeof sa;
-  hd->mx = CreateMutex (&sa, FALSE, NULL);
-  hd->mx_state = PTH_MUTEX_INITIALIZED;
-
+  *mutex = CreateMutex (&sa, FALSE, NULL);
+  if (!*mutex)
+   {
+      free (*mutex);
+      *mutex = NULL;
+      leave_pth (__FUNCTION__);
+      return FALSE;
+    }
+    
   leave_pth (__FUNCTION__);
   return TRUE;
 }
@@ -695,6 +679,12 @@ pth_spawn (pth_attr_t hd, void *(*func)(void *), void *arg)
 }
 
 
+pth_t 
+pth_self (void)
+{
+  return GetCurrentThread ();
+}
+
 int
 pth_join (pth_t hd, void **value)
 {
@@ -1271,9 +1261,6 @@ do_pth_wait (pth_event_t ev)
 
         case PTH_EVENT_MUTEX:
           fprintf (stderr, "pth_wait: add mutex event.\n");
-          hdidx[i++] = pos;
-          waitbuf[pos++] = tmp->u.mx->mx;
-          /* XXX: Use SetEvent(hd->ev) */
           break;
         }
     }
diff --git a/jnlib/w32-pth.h b/jnlib/w32-pth.h
index bcd82659c..5ef0ab240 100644
--- a/jnlib/w32-pth.h
+++ b/jnlib/w32-pth.h
@@ -53,7 +53,9 @@ enum
 /* Mutex values. */
 #define PTH_MUTEX_INITIALIZED  (1<<0)
 #define PTH_MUTEX_LOCKED       (1<<1)
-#define PTH_MUTEX_INIT         {PTH_MUTEX_INITIALIZED}
+
+/* Note: We can't do static initialization, thus we don't define the
+   initializer PTH_MUTEX_INIT.  */
 
 
 #define PTH_KEY_INIT	       (1<<0)
@@ -158,12 +160,7 @@ typedef void *pth_t;
 
 
 /* The Mutex object.  */
-struct pth_mutex_s 
-{
-  unsigned mx_state;
-  W32_PTH_HANDLE_INTERNAL mx; 
-};
-typedef struct pth_mutex_s pth_mutex_t;
+typedef W32_PTH_HANDLE_INTERNAL pth_mutex_t;
 
 
 /* The Event object.  */
@@ -214,6 +211,7 @@ int pth_attr_destroy (pth_attr_t hd);
 int pth_attr_set (pth_attr_t hd, int field, ...);
 
 pth_t pth_spawn (pth_attr_t hd, void *(*func)(void *), void *arg);
+pth_t pth_self (void);
 int pth_join (pth_t hd, void **value);
 int pth_abort (pth_t hd);
 void pth_exit (void *value);