Update.
[glibc.git] / nis / nis_subr.c
blob78e58aeba942a1c39b1e8dfc5f34aa425ef1f90a
1 /* Copyright (c) 1997, 1999, 2000, 2004 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, write to the Free
17 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
18 02111-1307 USA. */
20 #include <errno.h>
21 #include <string.h>
22 #include <rpcsvc/nis.h>
24 nis_name
25 nis_leaf_of (const_nis_name name)
27 static char result[NIS_MAXNAMELEN + 1];
29 return nis_leaf_of_r (name, result, NIS_MAXNAMELEN);
32 nis_name
33 nis_leaf_of_r (const_nis_name name, char *buffer, size_t buflen)
35 size_t i = 0;
37 buffer[0] = '\0';
39 while (name[i] != '.' && name[i] != '\0')
40 i++;
42 if (i > buflen - 1)
44 errno = ERANGE;
45 return NULL;
48 if (i > 0)
50 if ((size_t)i >= buflen)
52 errno = ERANGE;
53 return NULL;
56 *((char *) __mempcpy (buffer, name, i)) = '\0';
59 return buffer;
62 nis_name
63 nis_name_of (const_nis_name name)
65 static char result[NIS_MAXNAMELEN + 1];
67 return nis_name_of_r (name, result, NIS_MAXNAMELEN);
70 nis_name
71 nis_name_of_r (const_nis_name name, char *buffer, size_t buflen)
73 char *local_domain;
74 int diff;
76 local_domain = nis_local_directory ();
78 diff = strlen (name) - strlen (local_domain);
79 if (diff <= 0)
80 return NULL;
82 if (strcmp (&name[diff], local_domain) != 0)
83 return NULL;
85 if ((size_t) diff >= buflen)
87 errno = ERANGE;
88 return NULL;
91 *((char *) __mempcpy (buffer, name, diff - 1)) = '\0';
93 if (diff - 1 == 0)
94 return NULL;
96 return buffer;
99 static int
100 count_dots (const_nis_name str)
102 int count = 0;
103 size_t i;
105 for (i = 0; i < strlen (str); ++i)
106 if (str[i] == '.')
107 ++count;
109 return count;
112 /* If we run out of memory, we don't give already allocated memory
113 free. The overhead for bringing getnames back in a safe state to
114 free it is to big. */
115 nis_name *
116 nis_getnames (const_nis_name name)
118 nis_name *getnames = NULL;
119 char local_domain[NIS_MAXNAMELEN + 1];
120 char *path;
121 char *cp;
122 int count;
123 int pos = 0;
124 int have_point;
125 char *saveptr;
127 strncpy (local_domain, nis_local_directory (), NIS_MAXNAMELEN);
128 local_domain[NIS_MAXNAMELEN] = '\0';
130 count = 1;
131 getnames = malloc ((count + 1) * sizeof (char *));
132 if (__builtin_expect (getnames == NULL, 0))
133 return NULL;
135 /* Do we have a fully qualified NIS+ name ? If yes, give it back */
136 if (name[strlen (name) - 1] == '.')
138 if ((getnames[0] = strdup (name)) == NULL)
140 free_null:
141 while (pos-- > 0)
142 free (getnames[pos]);
143 free (getnames);
144 return NULL;
147 getnames[1] = NULL;
149 return getnames;
152 /* Get the search path, where we have to search "name" */
153 path = getenv ("NIS_PATH");
154 if (path == NULL)
155 path = strdupa ("$");
156 else
157 path = strdupa (path);
159 have_point = (strchr (name, '.') != NULL);
161 cp = __strtok_r (path, ":", &saveptr);
162 while (cp)
164 if (strcmp (cp, "$") == 0)
166 char *cptr = local_domain;
167 char *tmp;
169 while ((have_point && *cptr != '\0') || (count_dots (cptr) >= 2))
171 if (pos >= count)
173 count += 5;
174 nis_name *newp = realloc (getnames,
175 (count + 1) * sizeof (char *));
176 if (__builtin_expect (newp == NULL, 0))
177 goto free_null;
178 getnames = newp;
180 tmp = malloc (strlen (cptr) + strlen (local_domain) +
181 strlen (name) + 2);
182 if (__builtin_expect (tmp == NULL, 0))
183 goto free_null;
185 getnames[pos] = tmp;
186 tmp = stpcpy (tmp, name);
187 *tmp++ = '.';
188 if (cptr[1] != '\0')
189 stpcpy (tmp, cptr);
190 else
191 ++cptr;
193 ++pos;
195 while (*cptr != '.' && *cptr != '\0')
196 ++cptr;
197 if (cptr[0] != '\0' && cptr[1] != '\0')
198 /* If we have only ".", don't remove the "." */
199 ++cptr;
202 else
204 char *tmp;
205 size_t cplen = strlen (cp);
207 if (cp[cplen - 1] == '$')
209 char *p;
211 tmp = malloc (cplen + strlen (local_domain) + strlen (name) + 2);
212 if (__builtin_expect (tmp == NULL, 0))
213 goto free_null;
215 p = __stpcpy (tmp, name);
216 *p++ = '.';
217 p = __mempcpy (p, cp, cplen);
218 --p;
219 if (p[-1] != '.')
220 *p++ = '.';
221 __stpcpy (p, local_domain);
223 else
225 char *p;
227 tmp = malloc (cplen + strlen (name) + 2);
228 if (__builtin_expect (tmp == NULL, 0))
229 goto free_null;
231 p = __stpcpy (tmp, name);
232 *p++ = '.';
233 memcpy (p, cp, cplen + 1);
236 if (pos >= count)
238 count += 5;
239 nis_name *newp = realloc (getnames,
240 (count + 1) * sizeof (char *));
241 if (__builtin_expect (newp == NULL, 0))
242 goto free_null;
243 getnames = newp;
245 getnames[pos] = tmp;
246 ++pos;
248 cp = __strtok_r (NULL, ":", &saveptr);
251 getnames[pos] = NULL;
253 return getnames;
256 void
257 nis_freenames (nis_name *names)
259 int i = 0;
261 while (names[i] != NULL)
263 free (names[i]);
264 ++i;
267 free (names);
270 name_pos
271 nis_dir_cmp (const_nis_name n1, const_nis_name n2)
273 int len1, len2;
275 len1 = strlen (n1);
276 len2 = strlen (n2);
278 if (len1 == len2)
280 if (strcmp (n1, n2) == 0)
281 return SAME_NAME;
282 else
283 return NOT_SEQUENTIAL;
286 if (len1 < len2)
288 if (n2[len2 - len1 - 1] != '.')
289 return NOT_SEQUENTIAL;
290 else if (strcmp (&n2[len2 - len1], n1) == 0)
291 return HIGHER_NAME;
292 else
293 return NOT_SEQUENTIAL;
295 else
297 if (n1[len1 - len2 - 1] != '.')
298 return NOT_SEQUENTIAL;
299 else if (strcmp (&n1[len1 - len2], n2) == 0)
300 return LOWER_NAME;
301 else
302 return NOT_SEQUENTIAL;
307 void
308 nis_destroy_object (nis_object *obj)
310 nis_free_object (obj);