Mercurial > hg > octave-nkf > gnulib-hg
annotate lib/userspec.c @ 2284:ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
then first look up the entire `.'-containing string as a login name.
author | Jim Meyering <jim@meyering.net> |
---|---|
date | Sun, 27 Feb 2000 11:13:16 +0000 |
parents | ad48a40e44bb |
children | aff553209434 |
rev | line source |
---|---|
5 | 1 /* userspec.c -- Parse a user and group string. |
2271 | 2 Copyright (C) 1989-1992, 1997, 1998, 2000 Free Software Foundation, Inc. |
5 | 3 |
4 This program is free software; you can redistribute it and/or modify | |
5 it under the terms of the GNU General Public License as published by | |
6 the Free Software Foundation; either version 2, or (at your option) | |
7 any later version. | |
8 | |
9 This program 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 | |
12 GNU General Public License for more details. | |
13 | |
14 You should have received a copy of the GNU General Public License | |
650
b4ef1c1a0171
update FSF address in copyright
Jim Meyering <jim@meyering.net>
parents:
499
diff
changeset
|
15 along with this program; if not, write to the Free Software Foundation, |
b4ef1c1a0171
update FSF address in copyright
Jim Meyering <jim@meyering.net>
parents:
499
diff
changeset
|
16 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ |
5 | 17 |
18 /* Written by David MacKenzie <djm@gnu.ai.mit.edu>. */ | |
966 | 19 |
20 #if HAVE_CONFIG_H | |
21 # include <config.h> | |
105 | 22 #endif |
23 | |
231 | 24 #ifdef __GNUC__ |
432
a56993d69333
(parse_user_spec): Use strchr, not index.
Jim Meyering <jim@meyering.net>
parents:
316
diff
changeset
|
25 # define alloca __builtin_alloca |
231 | 26 #else |
1278
9ad625a30b7d
Use #if, not #ifdef with HAVE_ macros
Jim Meyering <jim@meyering.net>
parents:
1260
diff
changeset
|
27 # if HAVE_ALLOCA_H |
432
a56993d69333
(parse_user_spec): Use strchr, not index.
Jim Meyering <jim@meyering.net>
parents:
316
diff
changeset
|
28 # include <alloca.h> |
a56993d69333
(parse_user_spec): Use strchr, not index.
Jim Meyering <jim@meyering.net>
parents:
316
diff
changeset
|
29 # else |
a56993d69333
(parse_user_spec): Use strchr, not index.
Jim Meyering <jim@meyering.net>
parents:
316
diff
changeset
|
30 # ifdef _AIX |
966 | 31 # pragma alloca |
432
a56993d69333
(parse_user_spec): Use strchr, not index.
Jim Meyering <jim@meyering.net>
parents:
316
diff
changeset
|
32 # else |
231 | 33 char *alloca (); |
432
a56993d69333
(parse_user_spec): Use strchr, not index.
Jim Meyering <jim@meyering.net>
parents:
316
diff
changeset
|
34 # endif |
a56993d69333
(parse_user_spec): Use strchr, not index.
Jim Meyering <jim@meyering.net>
parents:
316
diff
changeset
|
35 # endif |
231 | 36 #endif |
230 | 37 |
5 | 38 #include <stdio.h> |
39 #include <sys/types.h> | |
40 #include <pwd.h> | |
41 #include <grp.h> | |
42 | |
966 | 43 #if HAVE_STRING_H |
432
a56993d69333
(parse_user_spec): Use strchr, not index.
Jim Meyering <jim@meyering.net>
parents:
316
diff
changeset
|
44 # include <string.h> |
5 | 45 #else |
432
a56993d69333
(parse_user_spec): Use strchr, not index.
Jim Meyering <jim@meyering.net>
parents:
316
diff
changeset
|
46 # include <strings.h> |
a56993d69333
(parse_user_spec): Use strchr, not index.
Jim Meyering <jim@meyering.net>
parents:
316
diff
changeset
|
47 # ifndef strchr |
a56993d69333
(parse_user_spec): Use strchr, not index.
Jim Meyering <jim@meyering.net>
parents:
316
diff
changeset
|
48 # define strchr index |
a56993d69333
(parse_user_spec): Use strchr, not index.
Jim Meyering <jim@meyering.net>
parents:
316
diff
changeset
|
49 # endif |
5 | 50 #endif |
51 | |
966 | 52 #if STDC_HEADERS |
432
a56993d69333
(parse_user_spec): Use strchr, not index.
Jim Meyering <jim@meyering.net>
parents:
316
diff
changeset
|
53 # include <stdlib.h> |
5 | 54 #endif |
55 | |
966 | 56 #if HAVE_UNISTD_H |
432
a56993d69333
(parse_user_spec): Use strchr, not index.
Jim Meyering <jim@meyering.net>
parents:
316
diff
changeset
|
57 # include <unistd.h> |
5 | 58 #endif |
59 | |
2273 | 60 #if ENABLE_NLS |
61 # include <libintl.h> | |
62 # define _(Text) gettext (Text) | |
63 #else | |
64 # define _(Text) Text | |
65 #endif | |
66 #define N_(Text) Text | |
67 | |
5 | 68 #ifndef _POSIX_VERSION |
69 struct passwd *getpwnam (); | |
70 struct group *getgrnam (); | |
71 struct group *getgrgid (); | |
72 #endif | |
73 | |
499
62aa0b766a11
[HAVE_ENDGRENT]: Define away endgrent.
Jim Meyering <jim@meyering.net>
parents:
475
diff
changeset
|
74 #ifndef HAVE_ENDGRENT |
62aa0b766a11
[HAVE_ENDGRENT]: Define away endgrent.
Jim Meyering <jim@meyering.net>
parents:
475
diff
changeset
|
75 # define endgrent() ((void) 0) |
62aa0b766a11
[HAVE_ENDGRENT]: Define away endgrent.
Jim Meyering <jim@meyering.net>
parents:
475
diff
changeset
|
76 #endif |
62aa0b766a11
[HAVE_ENDGRENT]: Define away endgrent.
Jim Meyering <jim@meyering.net>
parents:
475
diff
changeset
|
77 |
62aa0b766a11
[HAVE_ENDGRENT]: Define away endgrent.
Jim Meyering <jim@meyering.net>
parents:
475
diff
changeset
|
78 #ifndef HAVE_ENDPWENT |
62aa0b766a11
[HAVE_ENDGRENT]: Define away endgrent.
Jim Meyering <jim@meyering.net>
parents:
475
diff
changeset
|
79 # define endpwent() ((void) 0) |
5 | 80 #endif |
81 | |
230 | 82 /* Perform the equivalent of the statement `dest = strdup (src);', |
83 but obtaining storage via alloca instead of from the heap. */ | |
84 | |
85 #define V_STRDUP(dest, src) \ | |
86 do \ | |
87 { \ | |
88 int _len = strlen ((src)); \ | |
89 (dest) = (char *) alloca (_len + 1); \ | |
90 strcpy (dest, src); \ | |
91 } \ | |
92 while (0) | |
93 | |
2271 | 94 /* ISDIGIT differs from isdigit, as follows: |
95 - Its arg may be any int or unsigned int; it need not be an unsigned char. | |
96 - It's guaranteed to evaluate its argument exactly once. | |
97 - It's typically faster. | |
98 Posix 1003.2-1992 section 2.5.2.1 page 50 lines 1556-1558 says that | |
99 only '0' through '9' are digits. Prefer ISDIGIT to isdigit unless | |
100 it's important to use the locale's definition of `digit' even when the | |
101 host does not conform to Posix. */ | |
102 #define ISDIGIT(c) ((unsigned) (c) - '0' <= 9) | |
5 | 103 |
1347
e7dc6e5a3be5
Don't declare strdup if it's defined as a macro.
Jim Meyering <jim@meyering.net>
parents:
1278
diff
changeset
|
104 #ifndef strdup |
5 | 105 char *strdup (); |
1347
e7dc6e5a3be5
Don't declare strdup if it's defined as a macro.
Jim Meyering <jim@meyering.net>
parents:
1278
diff
changeset
|
106 #endif |
194 | 107 |
108 /* Return nonzero if STR represents an unsigned decimal integer, | |
109 otherwise return 0. */ | |
110 | |
111 static int | |
1557 | 112 is_number (const char *str) |
194 | 113 { |
114 for (; *str; str++) | |
2271 | 115 if (!ISDIGIT (*str)) |
194 | 116 return 0; |
117 return 1; | |
118 } | |
5 | 119 |
120 /* Extract from NAME, which has the form "[user][:.][group]", | |
121 a USERNAME, UID U, GROUPNAME, and GID G. | |
122 Either user or group, or both, must be present. | |
2284
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
123 If the group is omitted but the ":" separator is given, |
5 | 124 use the given user's login group. |
2284
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
125 If SPEC_ARG contains a `:', then use that as the separator, ignoring |
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
126 any `.'s. If there is no `:', but there is a `.', then first look |
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
127 up SPEC_ARG as a login name. If that look-up fails, then try again |
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
128 interpreting the `.' as a separator. |
5 | 129 |
130 USERNAME and GROUPNAME will be in newly malloc'd memory. | |
131 Either one might be NULL instead, indicating that it was not | |
132 given and the corresponding numeric ID was left unchanged. | |
133 | |
134 Return NULL if successful, a static error message string if not. */ | |
135 | |
194 | 136 const char * |
1580 | 137 parse_user_spec (const char *spec_arg, uid_t *uid, gid_t *gid, |
138 char **username_arg, char **groupname_arg) | |
5 | 139 { |
2273 | 140 static const char *E_no_memory = N_("virtual memory exhausted"); |
141 static const char *E_invalid_user = N_("invalid user"); | |
142 static const char *E_invalid_group = N_("invalid group"); | |
143 static const char *E_bad_spec = | |
144 N_("cannot get the login group of a numeric UID"); | |
145 static const char *E_cannot_omit_both = | |
146 N_("cannot omit both user and group"); | |
147 | |
194 | 148 const char *error_msg; |
149 char *spec; /* A copy we can write on. */ | |
5 | 150 struct passwd *pwd; |
151 struct group *grp; | |
194 | 152 char *g, *u, *separator; |
230 | 153 char *groupname; |
2284
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
154 int maybe_retry = 0; |
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
155 char *dot = NULL; |
5 | 156 |
194 | 157 error_msg = NULL; |
230 | 158 *username_arg = *groupname_arg = NULL; |
159 groupname = NULL; | |
5 | 160 |
231 | 161 V_STRDUP (spec, spec_arg); |
194 | 162 |
2284
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
163 /* Find the POSIX `:' separator if there is one. */ |
432
a56993d69333
(parse_user_spec): Use strchr, not index.
Jim Meyering <jim@meyering.net>
parents:
316
diff
changeset
|
164 separator = strchr (spec, ':'); |
2273 | 165 |
2284
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
166 /* If there is no colon, then see if there's a `.'. */ |
194 | 167 if (separator == NULL) |
2284
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
168 { |
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
169 dot = strchr (spec, '.'); |
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
170 /* If there's no colon but there is a `.', then first look up the |
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
171 whole spec, in case it's an OWNER name that includes a dot. |
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
172 If that fails, then we'll try again, but interpreting the `.' |
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
173 as a separator. */ |
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
174 /* FIXME: accepting `.' as the separator is contrary to POSIX. |
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
175 someday we should drop support for this. */ |
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
176 if (dot) |
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
177 maybe_retry = 1; |
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
178 } |
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
179 |
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
180 retry: |
194 | 181 |
182 /* Replace separator with a NUL. */ | |
183 if (separator != NULL) | |
184 *separator = '\0'; | |
185 | |
186 /* Set U and G to non-zero length strings corresponding to user and | |
187 group specifiers or to NULL. */ | |
188 u = (*spec == '\0' ? NULL : spec); | |
189 | |
190 g = (separator == NULL || *(separator + 1) == '\0' | |
191 ? NULL | |
192 : separator + 1); | |
193 | |
194 if (u == NULL && g == NULL) | |
2273 | 195 return _(E_cannot_omit_both); |
194 | 196 |
1260
7aff74949325
(parse_user_spec) [__DJGPP__]: Make function know
Jim Meyering <jim@meyering.net>
parents:
966
diff
changeset
|
197 #ifdef __DJGPP__ |
7aff74949325
(parse_user_spec) [__DJGPP__]: Make function know
Jim Meyering <jim@meyering.net>
parents:
966
diff
changeset
|
198 /* Pretend that we are the user U whose group is G. This makes |
7aff74949325
(parse_user_spec) [__DJGPP__]: Make function know
Jim Meyering <jim@meyering.net>
parents:
966
diff
changeset
|
199 pwd and grp functions ``know'' about the UID and GID of these. */ |
7aff74949325
(parse_user_spec) [__DJGPP__]: Make function know
Jim Meyering <jim@meyering.net>
parents:
966
diff
changeset
|
200 if (u && !is_number (u)) |
7aff74949325
(parse_user_spec) [__DJGPP__]: Make function know
Jim Meyering <jim@meyering.net>
parents:
966
diff
changeset
|
201 setenv ("USER", u, 1); |
7aff74949325
(parse_user_spec) [__DJGPP__]: Make function know
Jim Meyering <jim@meyering.net>
parents:
966
diff
changeset
|
202 if (g && !is_number (g)) |
7aff74949325
(parse_user_spec) [__DJGPP__]: Make function know
Jim Meyering <jim@meyering.net>
parents:
966
diff
changeset
|
203 setenv ("GROUP", g, 1); |
7aff74949325
(parse_user_spec) [__DJGPP__]: Make function know
Jim Meyering <jim@meyering.net>
parents:
966
diff
changeset
|
204 #endif |
7aff74949325
(parse_user_spec) [__DJGPP__]: Make function know
Jim Meyering <jim@meyering.net>
parents:
966
diff
changeset
|
205 |
194 | 206 if (u != NULL) |
5 | 207 { |
194 | 208 pwd = getpwnam (u); |
209 if (pwd == NULL) | |
5 | 210 { |
194 | 211 |
475
7e3e0dd559c7
(isnumber): Rename to is_number.
Jim Meyering <jim@meyering.net>
parents:
432
diff
changeset
|
212 if (!is_number (u)) |
2273 | 213 error_msg = _(E_invalid_user); |
5 | 214 else |
194 | 215 { |
216 int use_login_group; | |
217 use_login_group = (separator != NULL && g == NULL); | |
218 if (use_login_group) | |
2273 | 219 error_msg = _(E_bad_spec); |
194 | 220 else |
2272
9d6da67904b5
add FIXME comments for use of atoi
Jim Meyering <jim@meyering.net>
parents:
2271
diff
changeset
|
221 { |
9d6da67904b5
add FIXME comments for use of atoi
Jim Meyering <jim@meyering.net>
parents:
2271
diff
changeset
|
222 /* FIXME: don't use atoi! */ |
9d6da67904b5
add FIXME comments for use of atoi
Jim Meyering <jim@meyering.net>
parents:
2271
diff
changeset
|
223 *uid = atoi (u); |
9d6da67904b5
add FIXME comments for use of atoi
Jim Meyering <jim@meyering.net>
parents:
2271
diff
changeset
|
224 } |
194 | 225 } |
5 | 226 } |
227 else | |
228 { | |
194 | 229 *uid = pwd->pw_uid; |
230 if (g == NULL && separator != NULL) | |
5 | 231 { |
194 | 232 /* A separator was given, but a group was not specified, |
233 so get the login group. */ | |
234 *gid = pwd->pw_gid; | |
235 grp = getgrgid (pwd->pw_gid); | |
236 if (grp == NULL) | |
237 { | |
238 /* This is enough room to hold the unsigned decimal | |
239 representation of any 32-bit quantity and the trailing | |
240 zero byte. */ | |
241 char uint_buf[21]; | |
242 sprintf (uint_buf, "%u", (unsigned) (pwd->pw_gid)); | |
230 | 243 V_STRDUP (groupname, uint_buf); |
194 | 244 } |
245 else | |
246 { | |
230 | 247 V_STRDUP (groupname, grp->gr_name); |
194 | 248 } |
249 endgrent (); | |
5 | 250 } |
194 | 251 } |
252 endpwent (); | |
5 | 253 } |
254 | |
195 | 255 if (g != NULL && error_msg == NULL) |
194 | 256 { |
257 /* Explicit group. */ | |
258 grp = getgrnam (g); | |
259 if (grp == NULL) | |
260 { | |
475
7e3e0dd559c7
(isnumber): Rename to is_number.
Jim Meyering <jim@meyering.net>
parents:
432
diff
changeset
|
261 if (!is_number (g)) |
2273 | 262 error_msg = _(E_invalid_group); |
194 | 263 else |
2272
9d6da67904b5
add FIXME comments for use of atoi
Jim Meyering <jim@meyering.net>
parents:
2271
diff
changeset
|
264 { |
9d6da67904b5
add FIXME comments for use of atoi
Jim Meyering <jim@meyering.net>
parents:
2271
diff
changeset
|
265 /* FIXME: don't use atoi! */ |
9d6da67904b5
add FIXME comments for use of atoi
Jim Meyering <jim@meyering.net>
parents:
2271
diff
changeset
|
266 *gid = atoi (g); |
9d6da67904b5
add FIXME comments for use of atoi
Jim Meyering <jim@meyering.net>
parents:
2271
diff
changeset
|
267 } |
194 | 268 } |
269 else | |
270 *gid = grp->gr_gid; | |
271 endgrent (); /* Save a file descriptor. */ | |
5 | 272 |
194 | 273 if (error_msg == NULL) |
230 | 274 V_STRDUP (groupname, g); |
5 | 275 } |
194 | 276 |
230 | 277 if (error_msg == NULL) |
5 | 278 { |
230 | 279 if (u != NULL) |
280 { | |
281 *username_arg = strdup (u); | |
282 if (*username_arg == NULL) | |
2273 | 283 error_msg = _(E_no_memory); |
230 | 284 } |
285 | |
286 if (groupname != NULL && error_msg == NULL) | |
5 | 287 { |
230 | 288 *groupname_arg = strdup (groupname); |
289 if (*groupname_arg == NULL) | |
290 { | |
291 if (*username_arg != NULL) | |
292 { | |
293 free (*username_arg); | |
294 *username_arg = NULL; | |
295 } | |
2273 | 296 error_msg = _(E_no_memory); |
230 | 297 } |
5 | 298 } |
299 } | |
194 | 300 |
2284
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
301 if (error_msg && maybe_retry) |
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
302 { |
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
303 maybe_retry = 0; |
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
304 separator = dot; |
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
305 error_msg = NULL; |
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
306 goto retry; |
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
307 } |
ce1bca7b77d5
(parse_user_spec): If there is no `:' but there is a `.',
Jim Meyering <jim@meyering.net>
parents:
2273
diff
changeset
|
308 |
194 | 309 return error_msg; |
5 | 310 } |
311 | |
232
0d9395790eb7
(main): Change #ifdef TESTING to TEST.
Jim Meyering <jim@meyering.net>
parents:
231
diff
changeset
|
312 #ifdef TEST |
194 | 313 |
966 | 314 # define NULL_CHECK(s) ((s) == NULL ? "(null)" : (s)) |
194 | 315 |
316 int | |
317 main (int argc, char **argv) | |
318 { | |
319 int i; | |
320 | |
321 for (i = 1; i < argc; i++) | |
322 { | |
323 const char *e; | |
324 char *username, *groupname; | |
325 uid_t uid; | |
326 gid_t gid; | |
327 char *tmp; | |
5 | 328 |
194 | 329 tmp = strdup (argv[i]); |
330 e = parse_user_spec (tmp, &uid, &gid, &username, &groupname); | |
331 free (tmp); | |
332 printf ("%s: %u %u %s %s %s\n", | |
333 argv[i], | |
334 (unsigned int) uid, | |
335 (unsigned int) gid, | |
336 NULL_CHECK (username), | |
337 NULL_CHECK (groupname), | |
338 NULL_CHECK (e)); | |
339 } | |
340 | |
341 exit (0); | |
5 | 342 } |
194 | 343 |
344 #endif |