New file.
[kopensolaris-gnu/glibc.git] / sysdeps / mach / hurd / group_member.c
1 /* `group_member' -- test if process is in a given group.  Hurd version.
2 Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Library General Public License as
7 published by the Free Software Foundation; either version 2 of the
8 License, or (at your option) any later version.
9
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13 Library General Public License for more details.
14
15 You should have received a copy of the GNU Library General Public
16 License along with the GNU C Library; see the file COPYING.LIB.  If
17 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
18 Cambridge, MA 02139, USA.  */
19
20 #include <errno.h>
21 #include <unistd.h>
22 #include <hurd.h>
23 #include <hurd/id.h>
24
25 int
26 __group_member (gid)
27      gid_t gid;
28 {
29   int member = 0;
30   error_t err;
31   void *crit;
32
33   crit = _hurd_critical_section_lock ();
34   __mutex_lock (&_hurd_id.lock);
35
36   err = _hurd_check_ids ();
37   if (! err)
38     {
39       size_t i;
40       for (i = 0; i < _hurd_id.gen.ngids; ++i)
41         if (_hurd_id.gen.gids[i] == gid)
42           {
43             member = 1;
44             break;
45           }
46     }
47
48   __mutex_unlock (&_hurd_id.lock);
49   _hurd_critical_section_unlock (crit);
50
51   if (err)
52     __hurd_fail (err);
53   return member;
54 }
55
56 weak_alias (__group_member, group_member)