1 files changed, 70 insertions, 0 deletions
diff --git a/libports/inhibit-bucket-rpcs.c b/libports/inhibit-bucket-rpcs.c
new file mode 100644
index 00000000..a04906ff
--- /dev/null
+++ b/libports/inhibit-bucket-rpcs.c
@@ -0,0 +1,70 @@
+/*
+   Copyright (C) 1995, 1996 Free Software Foundation, Inc.
+   Written by Michael I. Bushnell.
+
+   This file is part of the GNU Hurd.
+
+   The GNU Hurd is free software; you can redistribute it and/or
+   modify it under the terms of the GNU General Public License as
+   published by the Free Software Foundation; either version 2, or (at
+   your option) any later version.
+
+   The GNU Hurd is distributed in the hope that it will be useful, but
+   WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+   General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software
+   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
+
+#include "ports.h"
+#include <hurd.h>
+#include <cthreads.h>
+#include <hurd/ihash.h>
+
+error_t
+ports_inhibit_bucket_rpcs (struct port_bucket *bucket)
+{
+  error_t err = 0;
+
+  mutex_lock (&_ports_lock);
+
+  if (bucket->flags & (PORT_BUCKET_INHIBITED | PORT_BUCKET_INHIBIT_WAIT))
+    err = EBUSY;
+  else
+    {
+      int this_one = 0;
+      error_t interruptor (void *portstruct)
+	{
+	  struct rpc_info *rpc;
+	  struct port_info *pi = portstruct;
+
+	  for (rpc = pi->current_rpcs; rpc; rpc = rpc->next)
+	    if (hurd_thread_cancel (rpc->thread) == EINTR)
+	      this_one = 1;
+	  return 0;
+	}
+
+      ihash_iterate (bucket->htable, interruptor);
+
+      while (bucket->rpcs > this_one)
+	{
+	  bucket->flags |= PORT_BUCKET_INHIBIT_WAIT;
+	  if (hurd_condition_wait (&_ports_block, &_ports_lock))
+	    /* We got cancelled.  */
+	    {
+	      err = EINTR;
+	      break;
+	    }
+	}
+
+      bucket->flags &= ~PORT_BUCKET_INHIBIT_WAIT;
+      if (! err)
+	bucket->flags |= PORT_BUCKET_INHIBITED;
+    }
+
+  mutex_unlock (&_ports_lock);
+
+  return err;
+}