ldbl-128ibm-compat: link tst-ldbl-efgcvt against loader too
[glibc.git] / nis / nis_removemember.c
blob215e2e69e52bf9460ac3adf365bb47e11f28fd8e
1 /* Copyright (c) 1997-2020 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3 Contributed by Thorsten Kukuk <kukuk@vt.uni-paderborn.de>, 1997.
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
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 Lesser General Public License for more details.
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, see
17 <https://www.gnu.org/licenses/>. */
19 #include <assert.h>
20 #include <string.h>
21 #include <rpcsvc/nis.h>
22 #include <shlib-compat.h>
24 nis_error
25 nis_removemember (const_nis_name member, const_nis_name group)
27 if (group != NULL && group[0] != '\0')
29 size_t grouplen = strlen (group);
30 char buf[grouplen + 14 + NIS_MAXNAMELEN];
31 char domainbuf[grouplen + 2];
32 nis_result *res, *res2;
33 nis_error status;
34 char *cp, *cp2;
36 cp = rawmemchr (nis_leaf_of_r (group, buf, sizeof (buf) - 1), '\0');
37 cp = stpcpy (cp, ".groups_dir");
38 cp2 = nis_domain_of_r (group, domainbuf, sizeof (domainbuf) - 1);
39 if (cp2 != NULL && cp2[0] != '\0')
41 cp = stpcpy (cp, ".");
42 stpcpy (cp, cp2);
44 res = nis_lookup (buf, FOLLOW_LINKS | EXPAND_NAME);
45 if (res == NULL)
46 return NIS_NOMEMORY;
47 if (NIS_RES_STATUS (res) != NIS_SUCCESS)
49 status = NIS_RES_STATUS (res);
50 nis_freeresult (res);
51 return status;
54 if (NIS_RES_NUMOBJ (res) != 1
55 || __type_of (NIS_RES_OBJECT (res)) != NIS_GROUP_OBJ)
57 nis_freeresult (res);
58 return NIS_INVALIDOBJ;
61 nis_name *gr_members_val
62 = NIS_RES_OBJECT(res)->GR_data.gr_members.gr_members_val;
63 u_int gr_members_len
64 = NIS_RES_OBJECT(res)->GR_data.gr_members.gr_members_len;
66 u_int j = 0;
67 for (u_int i = 0; i < gr_members_len; ++i)
68 if (strcmp (gr_members_val[i], member) != 0)
69 gr_members_val[j++] = gr_members_val[i];
70 else
71 free (gr_members_val[i]);
73 /* There is no need to reallocate the gr_members_val array. We
74 just adjust the size to match the number of strings still in
75 it. Yes, xdr_array will use mem_free with a size parameter
76 but this is mapped to a simple free call which determines the
77 size of the block by itself. */
78 NIS_RES_OBJECT (res)->GR_data.gr_members.gr_members_len = j;
80 cp = stpcpy (buf, NIS_RES_OBJECT (res)->zo_name);
81 *cp++ = '.';
82 strncpy (cp, NIS_RES_OBJECT (res)->zo_domain, NIS_MAXNAMELEN);
83 res2 = nis_modify (buf, NIS_RES_OBJECT (res));
84 status = NIS_RES_STATUS (res2);
85 nis_freeresult (res);
86 nis_freeresult (res2);
88 return status;
90 else
91 return NIS_FAIL;
93 libnsl_hidden_nolink_def (nis_removemember, GLIBC_2_1)