Mercurial > hg > octave-kai > gnulib-hg
annotate lib/getusershell.c @ 11224:5aa57cee93aa
avoid gcc 3.4.3 bug on long double NaN on Irix 6.5
* tests/nan.h (NaNl): Rewrite as function on Irix, to avoid
compilation bug by using runtime conversion.
* m4/isfinite.m4 (gl_ISFINITE): Likewise.
* m4/isnanl.m4 (gl_FUNC_ISNANL): Likewise.
* modules/ceill-tests (Files): Use nan.h.
* modules/floorl-tests (Files): Likewise.
* modules/frexpl-tests (Files): Likewise.
* modules/isnanl-tests (Files): Likewise.
* modules/ldexpl-tests (Files): Likewise.
* modules/roundl-tests (Files): Likewise.
* modules/truncl-tests (Files): Likewise.
* tests/test-ceill.c (main): Use a working NaN.
* tests/test-floorl.c (main): Likewise.
* tests/test-frexpl.c (main): Likewise.
* tests/test-isnan.c (test_long_double): Likewise.
* tests/test-isnanl.h (main): Likewise.
* tests/test-ldexpl.h (main): Likewise.
* tests/test-roundl.h (main): Likewise.
* tests/test-truncl.h (main): Likewise.
See http://lists.gnu.org/archive/html/bug-gnulib/2009-02/msg00190.html.
Signed-off-by: Eric Blake <ebb9@byu.net>
| author | Eric Blake <ebb9@byu.net> |
|---|---|
| date | Thu, 26 Feb 2009 20:18:42 -0700 |
| parents | d162e4057aa8 |
| children | e8d2c6fc33ad |
| rev | line source |
|---|---|
| 9 | 1 /* getusershell.c -- Return names of valid user shells. |
|
5318
7c24a825b51d
Remove dependencies on unlocked-io.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4827
diff
changeset
|
2 |
|
10666
d162e4057aa8
Add getusershell(), setusershell(), endusershell() declarations to <unistd.h>.
Bruno Haible <bruno@clisp.org>
parents:
9309
diff
changeset
|
3 Copyright (C) 1991, 1997, 2000, 2001, 2003, 2004, 2005, 2006, 2008 Free |
|
6927
fa896bb33133
* lib/memcasecmp.c: Include <limits.h>.
Paul Eggert <eggert@cs.ucla.edu>
parents:
6275
diff
changeset
|
4 Software Foundation, Inc. |
| 9 | 5 |
|
9309
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
7302
diff
changeset
|
6 This program is free software: you can redistribute it and/or modify |
| 9 | 7 it under the terms of the GNU General Public License as published by |
|
9309
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
7302
diff
changeset
|
8 the Free Software Foundation; either version 3 of the License, or |
|
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
7302
diff
changeset
|
9 (at your option) any later version. |
| 9 | 10 |
| 11 This program is distributed in the hope that it will be useful, | |
| 12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 14 GNU General Public License for more details. | |
| 15 | |
| 16 You should have received a copy of the GNU General Public License | |
|
9309
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
7302
diff
changeset
|
17 along with this program. If not, see <http://www.gnu.org/licenses/>. */ |
| 9 | 18 |
| 19 /* Written by David MacKenzie <djm@gnu.ai.mit.edu> */ | |
| 20 | |
|
7302
8a1a9361108c
* _fpending.c: Include <config.h> unconditionally, since we no
Paul Eggert <eggert@cs.ucla.edu>
parents:
6927
diff
changeset
|
21 #include <config.h> |
| 125 | 22 |
|
10666
d162e4057aa8
Add getusershell(), setusershell(), endusershell() declarations to <unistd.h>.
Bruno Haible <bruno@clisp.org>
parents:
9309
diff
changeset
|
23 /* Specification. */ |
|
d162e4057aa8
Add getusershell(), setusershell(), endusershell() declarations to <unistd.h>.
Bruno Haible <bruno@clisp.org>
parents:
9309
diff
changeset
|
24 #include <unistd.h> |
|
d162e4057aa8
Add getusershell(), setusershell(), endusershell() declarations to <unistd.h>.
Bruno Haible <bruno@clisp.org>
parents:
9309
diff
changeset
|
25 |
| 9 | 26 #ifndef SHELLS_FILE |
|
3052
5d2b5bde7c6f
[!SHELLS_FILE && __DJGPP__]: Define
Jim Meyering <jim@meyering.net>
parents:
2966
diff
changeset
|
27 # ifndef __DJGPP__ |
| 9 | 28 /* File containing a list of nonrestricted shells, one per line. */ |
|
3052
5d2b5bde7c6f
[!SHELLS_FILE && __DJGPP__]: Define
Jim Meyering <jim@meyering.net>
parents:
2966
diff
changeset
|
29 # define SHELLS_FILE "/etc/shells" |
|
5d2b5bde7c6f
[!SHELLS_FILE && __DJGPP__]: Define
Jim Meyering <jim@meyering.net>
parents:
2966
diff
changeset
|
30 # else |
|
5d2b5bde7c6f
[!SHELLS_FILE && __DJGPP__]: Define
Jim Meyering <jim@meyering.net>
parents:
2966
diff
changeset
|
31 /* This is a horrible kludge. Isn't there a better way? */ |
|
5d2b5bde7c6f
[!SHELLS_FILE && __DJGPP__]: Define
Jim Meyering <jim@meyering.net>
parents:
2966
diff
changeset
|
32 # define SHELLS_FILE "/dev/env/DJDIR/etc/shells" |
|
5d2b5bde7c6f
[!SHELLS_FILE && __DJGPP__]: Define
Jim Meyering <jim@meyering.net>
parents:
2966
diff
changeset
|
33 # endif |
| 9 | 34 #endif |
| 35 | |
| 4655 | 36 #include <stdlib.h> |
| 9 | 37 #include <ctype.h> |
|
5318
7c24a825b51d
Remove dependencies on unlocked-io.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4827
diff
changeset
|
38 |
| 6275 | 39 #include "stdio--.h" |
|
2654
c0220b12ea7d
(xmalloc, xrealloc): Remove functions.
Jim Meyering <jim@meyering.net>
parents:
1041
diff
changeset
|
40 #include "xalloc.h" |
| 9 | 41 |
|
5318
7c24a825b51d
Remove dependencies on unlocked-io.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4827
diff
changeset
|
42 #if USE_UNLOCKED_IO |
|
7c24a825b51d
Remove dependencies on unlocked-io.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4827
diff
changeset
|
43 # include "unlocked-io.h" |
|
7c24a825b51d
Remove dependencies on unlocked-io.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4827
diff
changeset
|
44 #endif |
|
7c24a825b51d
Remove dependencies on unlocked-io.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4827
diff
changeset
|
45 |
|
4656
4f4fb4d3874d
(readname, default_index, line_size, readname):
Paul Eggert <eggert@cs.ucla.edu>
parents:
4655
diff
changeset
|
46 static size_t readname (char **, size_t *, FILE *); |
| 9 | 47 |
|
3052
5d2b5bde7c6f
[!SHELLS_FILE && __DJGPP__]: Define
Jim Meyering <jim@meyering.net>
parents:
2966
diff
changeset
|
48 #if ! defined ADDITIONAL_DEFAULT_SHELLS && defined __MSDOS__ |
|
5d2b5bde7c6f
[!SHELLS_FILE && __DJGPP__]: Define
Jim Meyering <jim@meyering.net>
parents:
2966
diff
changeset
|
49 # define ADDITIONAL_DEFAULT_SHELLS \ |
|
5d2b5bde7c6f
[!SHELLS_FILE && __DJGPP__]: Define
Jim Meyering <jim@meyering.net>
parents:
2966
diff
changeset
|
50 "c:/dos/command.com", "c:/windows/command.com", "c:/command.com", |
|
5d2b5bde7c6f
[!SHELLS_FILE && __DJGPP__]: Define
Jim Meyering <jim@meyering.net>
parents:
2966
diff
changeset
|
51 #else |
|
5d2b5bde7c6f
[!SHELLS_FILE && __DJGPP__]: Define
Jim Meyering <jim@meyering.net>
parents:
2966
diff
changeset
|
52 # define ADDITIONAL_DEFAULT_SHELLS /* empty */ |
|
5d2b5bde7c6f
[!SHELLS_FILE && __DJGPP__]: Define
Jim Meyering <jim@meyering.net>
parents:
2966
diff
changeset
|
53 #endif |
|
5d2b5bde7c6f
[!SHELLS_FILE && __DJGPP__]: Define
Jim Meyering <jim@meyering.net>
parents:
2966
diff
changeset
|
54 |
| 9 | 55 /* List of shells to use if the shells file is missing. */ |
|
16
01c6d40adf9d
Make tables static and const when possible.
Jim Meyering <jim@meyering.net>
parents:
9
diff
changeset
|
56 static char const* const default_shells[] = |
| 9 | 57 { |
|
3052
5d2b5bde7c6f
[!SHELLS_FILE && __DJGPP__]: Define
Jim Meyering <jim@meyering.net>
parents:
2966
diff
changeset
|
58 ADDITIONAL_DEFAULT_SHELLS |
| 9 | 59 "/bin/sh", "/bin/csh", "/usr/bin/sh", "/usr/bin/csh", NULL |
| 60 }; | |
| 61 | |
| 62 /* Index of the next shell in `default_shells' to return. | |
| 63 0 means we are not using `default_shells'. */ | |
|
4656
4f4fb4d3874d
(readname, default_index, line_size, readname):
Paul Eggert <eggert@cs.ucla.edu>
parents:
4655
diff
changeset
|
64 static size_t default_index = 0; |
| 9 | 65 |
| 66 /* Input stream from the shells file. */ | |
| 67 static FILE *shellstream = NULL; | |
| 68 | |
| 69 /* Line of input from the shells file. */ | |
| 70 static char *line = NULL; | |
| 71 | |
| 72 /* Number of bytes allocated for `line'. */ | |
|
4656
4f4fb4d3874d
(readname, default_index, line_size, readname):
Paul Eggert <eggert@cs.ucla.edu>
parents:
4655
diff
changeset
|
73 static size_t line_size = 0; |
| 9 | 74 |
| 75 /* Return an entry from the shells file, ignoring comment lines. | |
| 167 | 76 If the file doesn't exist, use the list in DEFAULT_SHELLS (above). |
| 77 In any case, the returned string is in memory allocated through malloc. | |
| 9 | 78 Return NULL if there are no more entries. */ |
| 79 | |
| 80 char * | |
| 4655 | 81 getusershell (void) |
| 9 | 82 { |
| 83 if (default_index > 0) | |
| 84 { | |
| 85 if (default_shells[default_index]) | |
| 86 /* Not at the end of the list yet. */ | |
| 167 | 87 return xstrdup (default_shells[default_index++]); |
| 9 | 88 return NULL; |
| 89 } | |
| 90 | |
| 91 if (shellstream == NULL) | |
| 92 { | |
| 6275 | 93 shellstream = fopen (SHELLS_FILE, "r"); |
| 9 | 94 if (shellstream == NULL) |
| 95 { | |
| 96 /* No shells file. Use the default list. */ | |
| 97 default_index = 1; | |
| 167 | 98 return xstrdup (default_shells[0]); |
| 9 | 99 } |
| 100 } | |
| 101 | |
| 102 while (readname (&line, &line_size, shellstream)) | |
| 103 { | |
| 104 if (*line != '#') | |
| 105 return line; | |
| 106 } | |
| 107 return NULL; /* End of file. */ | |
| 108 } | |
| 109 | |
| 110 /* Rewind the shells file. */ | |
| 111 | |
| 112 void | |
| 4655 | 113 setusershell (void) |
| 9 | 114 { |
| 115 default_index = 0; | |
|
2966
8d2c63fa3a16
(setusershell): Use rewind rather than
Jim Meyering <jim@meyering.net>
parents:
2928
diff
changeset
|
116 if (shellstream) |
|
8d2c63fa3a16
(setusershell): Use rewind rather than
Jim Meyering <jim@meyering.net>
parents:
2928
diff
changeset
|
117 rewind (shellstream); |
| 9 | 118 } |
| 119 | |
| 120 /* Close the shells file. */ | |
| 121 | |
| 122 void | |
| 4655 | 123 endusershell (void) |
| 9 | 124 { |
| 125 if (shellstream) | |
| 126 { | |
| 127 fclose (shellstream); | |
| 128 shellstream = NULL; | |
| 129 } | |
| 130 } | |
| 131 | |
| 132 /* Read a line from STREAM, removing any newline at the end. | |
| 133 Place the result in *NAME, which is malloc'd | |
| 134 and/or realloc'd as necessary and can start out NULL, | |
| 135 and whose size is passed and returned in *SIZE. | |
| 136 | |
|
4656
4f4fb4d3874d
(readname, default_index, line_size, readname):
Paul Eggert <eggert@cs.ucla.edu>
parents:
4655
diff
changeset
|
137 Return the number of bytes placed in *NAME |
| 9 | 138 if some nonempty sequence was found, otherwise 0. */ |
| 139 | |
|
4656
4f4fb4d3874d
(readname, default_index, line_size, readname):
Paul Eggert <eggert@cs.ucla.edu>
parents:
4655
diff
changeset
|
140 static size_t |
|
4f4fb4d3874d
(readname, default_index, line_size, readname):
Paul Eggert <eggert@cs.ucla.edu>
parents:
4655
diff
changeset
|
141 readname (char **name, size_t *size, FILE *stream) |
| 9 | 142 { |
| 143 int c; | |
|
4656
4f4fb4d3874d
(readname, default_index, line_size, readname):
Paul Eggert <eggert@cs.ucla.edu>
parents:
4655
diff
changeset
|
144 size_t name_index = 0; |
| 9 | 145 |
| 146 /* Skip blank space. */ | |
|
6927
fa896bb33133
* lib/memcasecmp.c: Include <limits.h>.
Paul Eggert <eggert@cs.ucla.edu>
parents:
6275
diff
changeset
|
147 while ((c = getc (stream)) != EOF && isspace (c)) |
| 9 | 148 /* Do nothing. */ ; |
| 790 | 149 |
|
4827
a6d03da0fa67
Simplify the code by using new xalloc.h features.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4656
diff
changeset
|
150 for (;;) |
| 9 | 151 { |
|
4827
a6d03da0fa67
Simplify the code by using new xalloc.h features.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4656
diff
changeset
|
152 if (*size <= name_index) |
|
a6d03da0fa67
Simplify the code by using new xalloc.h features.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4656
diff
changeset
|
153 *name = x2nrealloc (*name, size, sizeof **name); |
|
6927
fa896bb33133
* lib/memcasecmp.c: Include <limits.h>.
Paul Eggert <eggert@cs.ucla.edu>
parents:
6275
diff
changeset
|
154 if (c == EOF || isspace (c)) |
|
4827
a6d03da0fa67
Simplify the code by using new xalloc.h features.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4656
diff
changeset
|
155 break; |
| 9 | 156 (*name)[name_index++] = c; |
| 157 c = getc (stream); | |
| 158 } | |
| 159 (*name)[name_index] = '\0'; | |
| 160 return name_index; | |
| 161 } | |
| 162 | |
| 163 #ifdef TEST | |
| 4655 | 164 int |
| 165 main (void) | |
| 9 | 166 { |
| 167 char *s; | |
| 168 | |
| 169 while (s = getusershell ()) | |
| 170 puts (s); | |
| 171 exit (0); | |
| 172 } | |
| 173 #endif |