Formerly ../hurd/hurdkill.c.~5~
[kopensolaris-gnu/glibc.git] / hurd / dtable.c
index 0f9d762..4812c69 100644 (file)
@@ -1,4 +1,4 @@
-/* Copyright (C) 1991, 1992, 1993 Free Software Foundation, Inc.
+/* Copyright (C) 1991, 1992, 1993, 1994 Free Software Foundation, Inc.
 This file is part of the GNU C Library.
 
 The GNU C Library is free software; you can redistribute it and/or
@@ -19,22 +19,23 @@ Cambridge, MA 02139, USA.  */
 #include <ansidecl.h>
 #include <hurd.h>
 #include <hurd/term.h>
+#include <hurd/fd.h>
 #include <gnu-stabs.h>
 #include <stdlib.h>
 #include <stdio.h>
 #include <fcntl.h>
 #include <limits.h>
+#include <cthreads.h>          /* For `struct mutex'.  */
+#include "set-hooks.h"
+#include "hurdmalloc.h"                /* XXX */
 
 
-#ifdef noteven
-struct mutex _hurd_dtable_lock;
-#endif
-struct _hurd_dtable _hurd_dtable;
-int _hurd_dtable_rlimit;
-int *_hurd_dtable_user_dealloc;
+struct mutex _hurd_dtable_lock = MUTEX_INITIALIZER; /* XXX ld bug; must init */
+struct hurd_fd **_hurd_dtable;
+int _hurd_dtablesize;
 
-const struct _hurd_dtable_resizes _hurd_dtable_resizes;
 
+DEFINE_HOOK (_hurd_fd_subinit, (void));
 
 /* Initialize the file descriptor table at startup.  */
 
@@ -43,30 +44,40 @@ init_dtable (void)
 {
   register size_t i;
 
-#ifdef noteven
   __mutex_init (&_hurd_dtable_lock);
-#endif
-
-  _hurd_dtable_user_dealloc = NULL;
 
   /* The initial size of the descriptor table is that of the passed-in
-     table, rounded up to a multiple of FOPEN_MAX descriptors.  */
-  _hurd_dtable.size
-    = (_hurd_init_dtablesize + FOPEN_MAX - 1) / FOPEN_MAX * FOPEN_MAX;
-  _hurd_dtable_rlimit = _hurd_dtable.size;
+     table.  It will be expanded as necessary up to _hurd_dtable_rlimit.  */
+  _hurd_dtablesize = _hurd_init_dtablesize;
 
-  _hurd_dtable.d = malloc (_hurd_dtable.size * sizeof (*_hurd_dtable.d));
-  if (_hurd_dtable.d == NULL)
+  /* Allocate the vector of pointers.  */
+  _hurd_dtable = malloc (_hurd_dtablesize * sizeof (*_hurd_dtable));
+  if (_hurd_dtablesize != 0 && _hurd_dtable == NULL)
     __libc_fatal ("hurd: Can't allocate file descriptor table\n");
 
+  /* Initialize the descriptor table.  */
   for (i = 0; i < _hurd_init_dtablesize; ++i)
     {
-      struct _hurd_fd *const d = &_hurd_dtable.d[i];
+      if (_hurd_init_dtable[i] == MACH_PORT_NULL)
+       /* An unused descriptor is marked by a null pointer.  */
+       _hurd_dtable[i] = NULL;
+      else
+       {
+         /* Allocate a new file descriptor structure.  */
+         struct hurd_fd *new = malloc (sizeof (struct hurd_fd));
+         if (new == NULL)
+           __libc_fatal ("hurd: Can't allocate initial file descriptors\n");
+
+         /* Initialize the port cells.  */
+         _hurd_port_init (&new->port, MACH_PORT_NULL);
+         _hurd_port_init (&new->ctty, MACH_PORT_NULL);
 
-      _hurd_port_init (&d->port, MACH_PORT_NULL);
-      _hurd_port_init (&d->ctty, MACH_PORT_NULL);
+         /* Install the port in the descriptor.
+            This sets up all the ctty magic.  */
+         _hurd_port2fd (new, _hurd_init_dtable[i], 0);
 
-      _hurd_port2fd (d, _hurd_init_dtable[i], 0);
+         _hurd_dtable[i] = new;
+       }
     }
 
   /* Clear out the initial descriptor table.
@@ -78,120 +89,20 @@ init_dtable (void)
   _hurd_init_dtablesize = 0;
 
   /* Initialize the remaining empty slots in the table.  */
-  for (; i < _hurd_dtable.size; ++i)
-    {
-      _hurd_port_init (&_hurd_dtable.d[i].port, MACH_PORT_NULL);
-      _hurd_port_init (&_hurd_dtable.d[i].ctty, MACH_PORT_NULL);
-      _hurd_dtable.d[i].flags = 0;
-    }
-}
-
-text_set_element (__libc_subinit, init_dtable);
-\f
-/* Allocate a new file descriptor and install PORT in it.  FLAGS are as for
-   `open'; only O_IGNORE_CTTY is meaningful, but all are saved.
-
-   If the descriptor table is full, set errno, and return -1.
-   If DEALLOC is nonzero, deallocate PORT first.  */
-int
-_hurd_intern_fd (io_t port, int flags, int dealloc)
-{
-  int fd;
-  struct _hurd_fd *d = _hurd_alloc_fd (&fd, 0);
-
-  if (d == NULL)
-    {
-      if (dealloc)
-       __mach_port_deallocate (__mach_task_self (), port);
-      return -1;
-    }
-
-  _hurd_port2fd (d, port, flags);
-  __spin_unlock (&d->port.lock);
-  return fd;
-}
-
-/* Allocate a new file descriptor and return it, locked.
-   If the table is full, set errno and return NULL.  */
-struct _hurd_fd *
-_hurd_alloc_fd (int *fd, const int first_fd)
-{
-  int i;
-
-  __mutex_lock (&hurd_dtable_lock);
-
-  for (i = first_fd; i < _hurd_dtable.size; ++i)
-    {
-      struct _hurd_fd *d = &_hurd_dtable.d[i];
-      __spin_lock (&d->port.lock);
-      if (d->port.port == MACH_PORT_NULL)
-       {
-         __mutex_unlock (&hurd_dtable_lock);
-         if (fd != NULL)
-           *fd = i;
-         return d;
-       }
-      else
-       __spin_unlock (&d->port.lock);
-    }
+  for (; i < _hurd_dtablesize; ++i)
+    _hurd_dtable[i] = NULL;
 
-  __mutex_unlock (&hurd_dtable_lock);
+  /* Run things that want to run after the file descriptor table
+     is initialized.  */
+  RUN_HOOK (_hurd_fd_subinit, ());
 
-  errno = EMFILE;
-  return NULL;
+  (void) &init_dtable;         /* Avoid "defined but not used" warning.  */
 }
 
-\f
-void
-_hurd_port2fd (struct _hurd_fd *d, io_t port, int flags)
-{
-  io_t ctty;
-  mach_port_t cttyid;
-  int is_ctty = !(flags & O_IGNORE_CTTY) && ! __term_getctty (port, &cttyid);
-
-  if (is_ctty)
-    {
-      /* This port is capable of being a controlling tty.
-        Is it ours?  */
-      is_ctty &= __USEPORT (CTTYID, port == cttyid);
-      __mach_port_deallocate (__mach_task_self (), cttyid);
-#if 0
-      struct _hurd_port *const id = &_hurd_ports[INIT_PORT_CTTYID];
-      __spin_lock (&id->lock);
-      if (id->port == MACH_PORT_NULL)
-       /* We have no controlling tty, so make this one it.  */
-       _hurd_port_locked_set (id, cttyid);
-      else
-       {
-         if (cttyid != id->port)
-           /* We have a controlling tty and this is not it.  */
-           is_ctty = 0;
-         /* Either we don't want CTTYID, or ID->port already is it.
-            So we don't need to change ID->port, and we
-            can release the reference to CTTYID.  */
-         __spin_unlock (&id->lock);
-         __mach_port_deallocate (__mach_task_self (), cttyid);
-       }
-#endif
-    }
-
-  if (is_ctty && ! __term_become_ctty (port, _hurd_pid, _hurd_pgrp,
-                                      _hurd_msgport, &ctty))
-    {
-      /* Operations on CTTY return EBACKGROUND when we are not a
-        foreground user of the tty.  */
-      d->port.port = ctty;
-      ctty = port;
-    }
-  else
-    /* XXX if IS_CTTY, then this port is our ctty, but we are
-       not doing ctty style i/o because term_become_ctty barfed.
-       What to do?  */
-    /* No ctty magic happening here.  */
-    ctty = MACH_PORT_NULL;
+text_set_element (_hurd_subinit, init_dtable);
 
-  _hurd_port_set (&d->ctty, ctty);
-}
+/* XXX when the linker supports it, the following functions should all be
+   elsewhere and just have text_set_elements here.  */
 \f
 /* Called by `getdport' to do its work.  */
 
@@ -199,11 +110,10 @@ static file_t
 get_dtable_port (int fd)
 {
   file_t dport;
-  int err = _HURD_DPORT_USE (fd,
-                            __mach_port_mod_refs (__mach_task_self (),
-                                                  (dport = port),
-                                                  MACH_PORT_RIGHT_SEND,
-                                                  1));
+  int err = HURD_DPORT_USE (fd, __mach_port_mod_refs (__mach_task_self (),
+                                                     (dport = ctty ?: port),
+                                                     MACH_PORT_RIGHT_SEND,
+                                                     1));
   if (err)
     {
       errno = err;
@@ -213,43 +123,97 @@ get_dtable_port (int fd)
     return dport;
 }
 
-text_set_element (_hurd_getdport_fn, get_dtable_port);
+file_t (*_hurd_getdport_fn) (int fd) = get_dtable_port;
 \f
-/* Called on fork to install the dtable in NEWTASK.
-   The dtable lock is held.  */
+#include <hurd/signal.h>
 
+/* We are in the child fork; the dtable lock is still held.
+   The parent has inserted send rights for all the normal io ports,
+   but we must recover ctty-special ports for ourselves.  */
 static error_t
-fork_dtable (task_t newtask)
+fork_child_dtable (void)
 {
   error_t err;
   int i;
 
   err = 0;
 
-  for (i = 0; !err && i < _hurd_dtable.size; ++i)
+  for (i = 0; !err && i < _hurd_dtablesize; ++i)
     {
-      int dealloc, dealloc_ctty;
-      io_t port = _hurd_port_get (&_hurd_dtable.d[i].port, &dealloc);
-      io_t ctty = _hurd_port_get (&_hurd_dtable.d[i].ctty, &dealloc_ctty);
+      struct hurd_fd *d = _hurd_dtable[i];
+      if (d == NULL)
+       continue;
 
-      if (port != MACH_PORT_NULL)
-       err = __mach_port_insert_right (newtask, port, port,
-                                       MACH_MSG_TYPE_COPY_SEND);
-      if (!err && ctty != MACH_PORT_NULL)
-       err = __mach_port_insert_right (newtask, ctty, ctty,
-                                       MACH_MSG_TYPE_COPY_SEND);
+      /* No other thread is using the send rights in the child task.  */
+      d->port.users = d->ctty.users = NULL;
 
-      _hurd_port_free (&_hurd_dtable.d[i].port, &dealloc, port);
-      _hurd_port_free (&_hurd_dtable.d[i].ctty, &dealloc_ctty, ctty);
+      if (d->ctty.port != MACH_PORT_NULL)
+       {
+         /* There was a ctty-special port in the parent.
+            We need to get one for ourselves too.  */
+         __mach_port_deallocate (__mach_task_self (), d->port.port);
+         err = __term_open_ctty (d->ctty.port, _hurd_pid, _hurd_pgrp,
+                                 &d->port.port);
+         if (err)
+           {
+             d->port.port = d->ctty.port;
+             d->ctty.port = MACH_PORT_NULL;
+           }
+       }
 
       /* XXX for each fd with a cntlmap, reauth and re-map_cntl.  */
     }
-  __mutex_unlock (&_hurd_dtable_lock);
   return err;
+
+  (void) &fork_child_dtable;   /* Avoid "defined but not used" warning.  */
 }
 
-text_set_element (_hurd_fork_hook, fork_dtable);
-text_set_element (_hurd_fork_locks, _hurd_dtable_lock);
+data_set_element (_hurd_fork_locks, _hurd_dtable_lock);        /* XXX ld bug: bss */
+text_set_element (_hurd_fork_child_hook, fork_child_dtable);
+\f
+/* Called when our process group has changed.  */
+
+static void
+ctty_new_pgrp (void)
+{
+  int i;
+  
+  HURD_CRITICAL_BEGIN;
+  __mutex_lock (&_hurd_dtable_lock);
+
+  for (i = 0; i < _hurd_dtablesize; ++i)
+    {
+      struct hurd_fd *const d = _hurd_dtable[i];
+      struct hurd_userlink ulink, ctty_ulink;
+      io_t port, ctty;
+
+      if (d == NULL)
+       /* Nothing to do for an unused descriptor cell.  */
+       continue;
+
+      port = _hurd_port_get (&d->port, &ulink);
+      ctty = _hurd_port_get (&d->ctty, &ctty_ulink);
+
+      if (ctty)
+       {
+         /* This fd has a ctty-special port.  We need a new one, to tell
+             the io server of our different process group.  */
+         io_t new;
+         if (! __term_open_ctty (ctty, _hurd_pid, _hurd_pgrp, &new))
+           _hurd_port_set (&d->port, new);
+       }
+
+      _hurd_port_free (&d->port, &ulink, port);
+      _hurd_port_free (&d->ctty, &ctty_ulink, ctty);
+    }
+
+  __mutex_unlock (&_hurd_dtable_lock);
+  HURD_CRITICAL_END;
+
+  (void) &ctty_new_pgrp;       /* Avoid "defined but not used" warning.  */
+}
+
+text_set_element (_hurd_pgrp_changed_hook, ctty_new_pgrp);
 \f
 /* Called to reauthenticate the dtable when the auth port changes.  */
 
@@ -258,13 +222,18 @@ reauth_dtable (void)
 {
   int i;
 
+  HURD_CRITICAL_BEGIN;
   __mutex_lock (&_hurd_dtable_lock);
 
-  for (i = 0; i < _hurd_dtable.size; ++i)
+  for (i = 0; i < _hurd_dtablesize; ++i)
     {
-      struct _hurd_fd *const d = &_hurd_dtable.d[i];
+      struct hurd_fd *const d = _hurd_dtable[i];
       mach_port_t new, newctty;
       
+      if (d == NULL)
+       /* Nothing to do for an unused descriptor cell.  */
+       continue;
+
       /* Take the descriptor cell's lock.  */
       __spin_lock (&d->port.lock);
       
@@ -294,109 +263,9 @@ reauth_dtable (void)
     }
 
   __mutex_unlock (&_hurd_dtable_lock);
-}
+  HURD_CRITICAL_END;
 
-text_set_element (_hurd_reauth_hook, reauth_dtable);
-\f
-static void
-rectty_dtable (mach_port_t cttyid)
-{
-  int i;
-  
-  __mutex_lock (&_hurd_dtable_lock);
-
-  for (i = 0; i < _hurd_dtable.size; ++i)
-    {
-      struct _hurd_fd *const d = &_hurd_dtable.d[i];
-      mach_port_t newctty;
-
-      if (cttyid == MACH_PORT_NULL)
-       /* We now have no controlling tty at all.  */
-       newctty = MACH_PORT_NULL;
-      else
-       _HURD_PORT_USE (&d->port,
-                       ({ mach_port_t id;
-                          /* Get the io object's cttyid port.  */
-                          if (! __term_getctty (port, &id))
-                            {
-                              if (id == cttyid && /* Is it ours?  */
-                                  /* Get the ctty io port.  */
-                                  __term_become_ctty (port, _hurd_pid,
-                                                      _hurd_pgrp,
-                                                      _hurd_msgport,
-                                                      &newctty))
-                                /* XXX it is our ctty but the call failed? */
-                                newctty = MACH_PORT_NULL;
-                              __mach_port_deallocate
-                                (__mach_task_self (), (mach_port_t) id);
-                            }
-                          else
-                            newctty = MACH_PORT_NULL;
-                          0;
-                        }));
-
-      /* Install the new ctty port.  */
-      _hurd_port_set (&d->ctty, newctty);
-    }
-
-  __mutex_unlock (&_hurd_dtable_lock);
+  (void) &reauth_dtable;       /* Avoid "defined but not used" warning.  */
 }
-\f
-#if 0
-
-#include <sys/ioctl.h>
-
-
-/* Make FD be the controlling terminal.
-   This function is called for `ioctl (fd, TCIOSCTTY)'.  */
-
-static int
-tiocsctty (int fd,
-          int request,         /* Always TCIOSCTTY.  */
-          void *arg)           /* Not used.  */
-{
-  mach_port_t cttyid;
-  error_t err;
-
-  /* Get FD's cttyid port, unless it is already ours.  */
-  err = _HURD_DPORT_USE (fd,
-                        ctty ? EADDRINUSE : __term_getctty (port, &cttyid));
-  if (err == EADDRINUSE)
-    /* FD is already the ctty.  Nothing to do.  */
-    return 0;
-  else if (err)
-    return err;
 
-  /* Make it our own.  */
-  _hurd_port_set (&_hurd_ports[INIT_PORT_CTTYID], cttyid); /* Consumes ref.  */
-
-  /* Reset all the ctty ports in all the descriptors.  */
-  _HURD_PORT_USE (&_hurd_ports[INIT_PORT_CTTYID], (rectty_dtable (port), 0));
-
-  return 0;
-}
-_HURD_HANDLE_IOCTL (tiocsctty, TIOCSCTTY);
-
-#ifdef TIOCNOCTTY
-/* Dissociate from the controlling terminal.  */
-
-static int
-tiocnoctty (int fd,
-           int request,        /* Always TIOCNOCTTY.  */
-           void *arg)          /* Not used.  */
-{
-  /* XXX should verify that FD is ctty and return EINVAL? */
-
-  /* Clear our cttyid port cell.  */
-  _hurd_port_set (&_hurd_ports[INIT_PORT_CTTYID], MACH_PORT_NULL);
-
-  /* Reset all the ctty ports in all the descriptors.  */
-  _HURD_PORT_USE (&_hurd_ports[INIT_PORT_CTTYID],
-                 (rectty_dtable (MACH_PORT_NULL), 0));
-
-  return 0;
-}
-_HURD_HANDLE_IOCTL (tiocnotty, TIOCNOTTY);
-#endif
-
-#endif
+text_set_element (_hurd_reauth_hook, reauth_dtable);