Formerly ../hurd/alloc-fd.c.~4~
[kopensolaris-gnu/glibc.git] / hurd / alloc-fd.c
1 /* Copyright (C) 1994 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3
4 The GNU C Library is free software; you can redistribute it and/or
5 modify it under the terms of the GNU Library General Public License as
6 published by the Free Software Foundation; either version 2 of the
7 License, or (at your option) any later version.
8
9 The GNU C Library is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12 Library General Public License for more details.
13
14 You should have received a copy of the GNU Library General Public
15 License along with the GNU C Library; see the file COPYING.LIB.  If
16 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
17 Cambridge, MA 02139, USA.  */
18
19 #include <hurd/fd.h>
20 #include <stdlib.h>
21
22 /* Allocate a new file descriptor and return it, locked.  The new
23    descriptor number will be no less than FIRST_FD.  If the table is full,
24    set errno to EMFILE and return NULL.  If FIRST_FD is negative or bigger
25    than the size of the table, set errno to EINVAL and return NULL.  */
26
27 struct hurd_fd *
28 _hurd_alloc_fd (int *fd, const int first_fd)
29 {
30   int i;
31
32   if (first_fd < 0)
33     {
34       errno = EINVAL;
35       return NULL;
36     }
37
38   __mutex_lock (&_hurd_dtable_lock);
39
40   for (i = first_fd; i < _hurd_dtable.size; ++i)
41     {
42       struct hurd_fd *d = &_hurd_dtable.d[i];
43       if (d == NULL)
44         {
45           /* Allocate a new descriptor structure for this slot,
46              initializing its port cells to nil.  The test below will catch
47              and return this descriptor cell after locking it.  */
48           d = _hurd_new_fd (MACH_PORT_NULL, MACH_PORT_NULL);
49           if (d == NULL)
50             {
51               __mutex_unlock (&hurd_dtable_lock);
52               return NULL;
53             }
54         }
55
56       __spin_lock (&d->port.lock);
57       if (d->port.port == MACH_PORT_NULL)
58         {
59           __mutex_unlock (&hurd_dtable_lock);
60           if (fd != NULL)
61             *fd = i;
62           return d;
63         }
64       else
65         __spin_unlock (&d->port.lock);
66     }
67
68   errno = first_fd < _hurd_dtable.size ? EMFILE : EINVAL;
69
70   __mutex_unlock (&hurd_dtable_lock);
71
72   return NULL;
73 }