Mercurial > hg > octave-jordi > gnulib-hg
annotate lib/error.c @ 2984:5b1fa2113060
Add a couple #includes, merging from GNU libc version.
| author | Jim Meyering <jim@meyering.net> |
|---|---|
| date | Sat, 11 Nov 2000 14:32:00 +0000 |
| parents | e6f767353d34 |
| children | 849a40d65bee |
| rev | line source |
|---|---|
| 1268 | 1 /* Error handler for noninteractive utilities |
|
2984
5b1fa2113060
Add a couple #includes, merging from GNU libc version.
Jim Meyering <jim@meyering.net>
parents:
2643
diff
changeset
|
2 Copyright (C) 1990-1998, 2000 Free Software Foundation, Inc. |
| 1268 | 3 |
| 1289 | 4 This file is part of the GNU C Library. Its master source is NOT part of |
| 5 the C library, however. The master source lives in /gd/gnu/lib. | |
| 1268 | 6 |
| 1289 | 7 The GNU C Library is free software; you can redistribute it and/or |
| 8 modify it under the terms of the GNU Library General Public License as | |
| 9 published by the Free Software Foundation; either version 2 of the | |
| 10 License, or (at your option) any later version. | |
| 9 | 11 |
| 1289 | 12 The GNU C Library is distributed in the hope that it will be useful, |
|
724
3f555c6de1b9
Use #if, not #ifdef in test for HAVE_CONFIG_H.
Jim Meyering <jim@meyering.net>
parents:
719
diff
changeset
|
13 but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 1289 | 14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
| 15 Library General Public License for more details. | |
| 572 | 16 |
| 1289 | 17 You should have received a copy of the GNU Library General Public |
| 18 License along with the GNU C Library; see the file COPYING.LIB. If not, | |
| 19 write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
| 20 Boston, MA 02111-1307, USA. */ | |
| 9 | 21 |
| 398 | 22 /* Written by David MacKenzie <djm@gnu.ai.mit.edu>. */ |
| 23 | |
| 1268 | 24 #ifdef HAVE_CONFIG_H |
| 1289 | 25 # include <config.h> |
| 398 | 26 #endif |
| 9 | 27 |
| 28 #include <stdio.h> | |
|
2984
5b1fa2113060
Add a couple #includes, merging from GNU libc version.
Jim Meyering <jim@meyering.net>
parents:
2643
diff
changeset
|
29 #if HAVE_LIBINTL_H |
|
5b1fa2113060
Add a couple #includes, merging from GNU libc version.
Jim Meyering <jim@meyering.net>
parents:
2643
diff
changeset
|
30 # include <libintl.h> |
|
5b1fa2113060
Add a couple #includes, merging from GNU libc version.
Jim Meyering <jim@meyering.net>
parents:
2643
diff
changeset
|
31 #endif |
| 9 | 32 |
| 527 | 33 #if HAVE_VPRINTF || HAVE_DOPRNT || _LIBC |
| 398 | 34 # if __STDC__ |
| 35 # include <stdarg.h> | |
| 36 # define VA_START(args, lastarg) va_start(args, lastarg) | |
| 37 # else | |
| 38 # include <varargs.h> | |
| 39 # define VA_START(args, lastarg) va_start(args) | |
| 40 # endif | |
| 41 #else | |
| 42 # define va_alist a1, a2, a3, a4, a5, a6, a7, a8 | |
| 43 # define va_dcl char *a1, *a2, *a3, *a4, *a5, *a6, *a7, *a8; | |
| 44 #endif | |
| 9 | 45 |
| 527 | 46 #if STDC_HEADERS || _LIBC |
| 398 | 47 # include <stdlib.h> |
| 48 # include <string.h> | |
| 49 #else | |
| 50 void exit (); | |
| 51 #endif | |
| 9 | 52 |
| 1268 | 53 #include "error.h" |
| 54 | |
|
2643
e6f767353d34
[!HAVE_DECL_STRERROR_R]: Declare strerror_r.
Jim Meyering <jim@meyering.net>
parents:
2101
diff
changeset
|
55 #ifndef HAVE_DECL_STRERROR_R |
|
e6f767353d34
[!HAVE_DECL_STRERROR_R]: Declare strerror_r.
Jim Meyering <jim@meyering.net>
parents:
2101
diff
changeset
|
56 "this configure-time declaration test was not run" |
|
e6f767353d34
[!HAVE_DECL_STRERROR_R]: Declare strerror_r.
Jim Meyering <jim@meyering.net>
parents:
2101
diff
changeset
|
57 #endif |
|
e6f767353d34
[!HAVE_DECL_STRERROR_R]: Declare strerror_r.
Jim Meyering <jim@meyering.net>
parents:
2101
diff
changeset
|
58 #if !HAVE_DECL_STRERROR_R |
|
e6f767353d34
[!HAVE_DECL_STRERROR_R]: Declare strerror_r.
Jim Meyering <jim@meyering.net>
parents:
2101
diff
changeset
|
59 char *strerror_r (); |
|
e6f767353d34
[!HAVE_DECL_STRERROR_R]: Declare strerror_r.
Jim Meyering <jim@meyering.net>
parents:
2101
diff
changeset
|
60 #endif |
|
e6f767353d34
[!HAVE_DECL_STRERROR_R]: Declare strerror_r.
Jim Meyering <jim@meyering.net>
parents:
2101
diff
changeset
|
61 |
| 572 | 62 #ifndef _ |
| 1289 | 63 # define _(String) String |
| 572 | 64 #endif |
| 440 | 65 |
| 398 | 66 /* If NULL, error will flush stdout, then print on stderr the program |
| 67 name, a colon and a space. Otherwise, error will call this | |
| 68 function without parameters instead. */ | |
| 572 | 69 void (*error_print_progname) ( |
| 70 #if __STDC__ - 0 | |
| 71 void | |
| 72 #endif | |
| 73 ); | |
| 74 | |
| 75 /* This variable is incremented each time `error' is called. */ | |
| 76 unsigned int error_message_count; | |
| 9 | 77 |
| 527 | 78 #ifdef _LIBC |
| 572 | 79 /* In the GNU C library, there is a predefined variable for this. */ |
| 80 | |
| 1289 | 81 # define program_name program_invocation_name |
| 82 # include <errno.h> | |
| 572 | 83 |
| 1268 | 84 /* In GNU libc we want do not want to use the common name `error' directly. |
| 85 Instead make it a weak alias. */ | |
| 1289 | 86 # define error __error |
| 87 # define error_at_line __error_at_line | |
| 1268 | 88 |
|
2984
5b1fa2113060
Add a couple #includes, merging from GNU libc version.
Jim Meyering <jim@meyering.net>
parents:
2643
diff
changeset
|
89 # ifdef USE_IN_LIBIO |
|
5b1fa2113060
Add a couple #includes, merging from GNU libc version.
Jim Meyering <jim@meyering.net>
parents:
2643
diff
changeset
|
90 # include <libio/iolibio.h> |
|
5b1fa2113060
Add a couple #includes, merging from GNU libc version.
Jim Meyering <jim@meyering.net>
parents:
2643
diff
changeset
|
91 # define fflush(s) _IO_fflush (s) |
|
5b1fa2113060
Add a couple #includes, merging from GNU libc version.
Jim Meyering <jim@meyering.net>
parents:
2643
diff
changeset
|
92 # endif |
|
5b1fa2113060
Add a couple #includes, merging from GNU libc version.
Jim Meyering <jim@meyering.net>
parents:
2643
diff
changeset
|
93 |
| 1289 | 94 #else /* not _LIBC */ |
| 527 | 95 |
| 398 | 96 /* The calling program should define program_name and set it to the |
| 97 name of the executing program. */ | |
| 98 extern char *program_name; | |
| 9 | 99 |
| 1289 | 100 # ifdef HAVE_STRERROR_R |
| 101 # define __strerror_r strerror_r | |
| 102 # else | |
| 103 # if HAVE_STRERROR | |
| 104 # ifndef strerror /* On some systems, strerror is a macro */ | |
| 398 | 105 char *strerror (); |
| 1289 | 106 # endif |
| 107 # else | |
| 9 | 108 static char * |
| 109 private_strerror (errnum) | |
| 110 int errnum; | |
| 111 { | |
| 112 extern char *sys_errlist[]; | |
| 113 extern int sys_nerr; | |
| 114 | |
| 115 if (errnum > 0 && errnum <= sys_nerr) | |
| 1268 | 116 return _(sys_errlist[errnum]); |
| 572 | 117 return _("Unknown system error"); |
| 9 | 118 } |
| 1289 | 119 # define strerror private_strerror |
| 120 # endif /* HAVE_STRERROR */ | |
| 121 # endif /* HAVE_STRERROR_R */ | |
| 122 #endif /* not _LIBC */ | |
| 9 | 123 |
| 124 /* Print the program name and error message MESSAGE, which is a printf-style | |
| 125 format string with optional args. | |
| 126 If ERRNUM is nonzero, print its corresponding system error message. | |
| 127 Exit with status STATUS if it is nonzero. */ | |
| 128 /* VARARGS */ | |
| 398 | 129 |
| 9 | 130 void |
| 1289 | 131 #if defined VA_START && __STDC__ |
| 398 | 132 error (int status, int errnum, const char *message, ...) |
| 133 #else | |
| 9 | 134 error (status, errnum, message, va_alist) |
| 135 int status; | |
| 136 int errnum; | |
| 137 char *message; | |
| 138 va_dcl | |
| 398 | 139 #endif |
| 9 | 140 { |
| 398 | 141 #ifdef VA_START |
| 9 | 142 va_list args; |
| 398 | 143 #endif |
| 9 | 144 |
| 398 | 145 if (error_print_progname) |
| 146 (*error_print_progname) (); | |
| 147 else | |
| 148 { | |
| 149 fflush (stdout); | |
| 150 fprintf (stderr, "%s: ", program_name); | |
| 151 } | |
| 152 | |
| 153 #ifdef VA_START | |
| 9 | 154 VA_START (args, message); |
| 527 | 155 # if HAVE_VPRINTF || _LIBC |
| 9 | 156 vfprintf (stderr, message, args); |
| 398 | 157 # else |
| 158 _doprnt (message, args, stderr); | |
| 159 # endif | |
| 9 | 160 va_end (args); |
| 398 | 161 #else |
| 9 | 162 fprintf (stderr, message, a1, a2, a3, a4, a5, a6, a7, a8); |
| 398 | 163 #endif |
| 164 | |
| 440 | 165 ++error_message_count; |
| 9 | 166 if (errnum) |
| 1268 | 167 { |
|
2099
910892507841
(error): Use __strerror_r's return value only if HAVE_WORKING_STRERROR_R.
Jim Meyering <jim@meyering.net>
parents:
1957
diff
changeset
|
168 #if defined HAVE_STRERROR_R || _LIBC |
| 1268 | 169 char errbuf[1024]; |
|
2099
910892507841
(error): Use __strerror_r's return value only if HAVE_WORKING_STRERROR_R.
Jim Meyering <jim@meyering.net>
parents:
1957
diff
changeset
|
170 # if HAVE_WORKING_STRERROR_R || _LIBC |
|
910892507841
(error): Use __strerror_r's return value only if HAVE_WORKING_STRERROR_R.
Jim Meyering <jim@meyering.net>
parents:
1957
diff
changeset
|
171 fprintf (stderr, ": %s", __strerror_r (errnum, errbuf, sizeof errbuf)); |
|
910892507841
(error): Use __strerror_r's return value only if HAVE_WORKING_STRERROR_R.
Jim Meyering <jim@meyering.net>
parents:
1957
diff
changeset
|
172 # else |
|
1552
6c6b0d080a36
(error): Don't use strerror_r's return value.
Jim Meyering <jim@meyering.net>
parents:
1289
diff
changeset
|
173 /* Don't use __strerror_r's return value because on some systems |
|
6c6b0d080a36
(error): Don't use strerror_r's return value.
Jim Meyering <jim@meyering.net>
parents:
1289
diff
changeset
|
174 (at least DEC UNIX 4.0[A-D]) strerror_r returns `int'. */ |
|
6c6b0d080a36
(error): Don't use strerror_r's return value.
Jim Meyering <jim@meyering.net>
parents:
1289
diff
changeset
|
175 __strerror_r (errnum, errbuf, sizeof errbuf); |
|
6c6b0d080a36
(error): Don't use strerror_r's return value.
Jim Meyering <jim@meyering.net>
parents:
1289
diff
changeset
|
176 fprintf (stderr, ": %s", errbuf); |
|
2099
910892507841
(error): Use __strerror_r's return value only if HAVE_WORKING_STRERROR_R.
Jim Meyering <jim@meyering.net>
parents:
1957
diff
changeset
|
177 # endif |
| 1268 | 178 #else |
| 179 fprintf (stderr, ": %s", strerror (errnum)); | |
| 180 #endif | |
| 181 } | |
| 9 | 182 putc ('\n', stderr); |
| 183 fflush (stderr); | |
| 184 if (status) | |
| 185 exit (status); | |
| 186 } | |
| 572 | 187 |
|
573
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
188 /* Sometimes we want to have at most one error per line. This |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
189 variable controls whether this mode is selected or not. */ |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
190 int error_one_per_line; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
191 |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
192 void |
| 1289 | 193 #if defined VA_START && __STDC__ |
|
573
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
194 error_at_line (int status, int errnum, const char *file_name, |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
195 unsigned int line_number, const char *message, ...) |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
196 #else |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
197 error_at_line (status, errnum, file_name, line_number, message, va_alist) |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
198 int status; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
199 int errnum; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
200 const char *file_name; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
201 unsigned int line_number; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
202 char *message; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
203 va_dcl |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
204 #endif |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
205 { |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
206 #ifdef VA_START |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
207 va_list args; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
208 #endif |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
209 |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
210 if (error_one_per_line) |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
211 { |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
212 static const char *old_file_name; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
213 static unsigned int old_line_number; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
214 |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
215 if (old_line_number == line_number && |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
216 (file_name == old_file_name || !strcmp (old_file_name, file_name))) |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
217 /* Simply return and print nothing. */ |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
218 return; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
219 |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
220 old_file_name = file_name; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
221 old_line_number = line_number; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
222 } |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
223 |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
224 if (error_print_progname) |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
225 (*error_print_progname) (); |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
226 else |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
227 { |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
228 fflush (stdout); |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
229 fprintf (stderr, "%s:", program_name); |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
230 } |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
231 |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
232 if (file_name != NULL) |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
233 fprintf (stderr, "%s:%d: ", file_name, line_number); |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
234 |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
235 #ifdef VA_START |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
236 VA_START (args, message); |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
237 # if HAVE_VPRINTF || _LIBC |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
238 vfprintf (stderr, message, args); |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
239 # else |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
240 _doprnt (message, args, stderr); |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
241 # endif |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
242 va_end (args); |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
243 #else |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
244 fprintf (stderr, message, a1, a2, a3, a4, a5, a6, a7, a8); |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
245 #endif |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
246 |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
247 ++error_message_count; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
248 if (errnum) |
| 1268 | 249 { |
|
2101
4c34c8e77805
remove stray define before _LIBC
Jim Meyering <jim@meyering.net>
parents:
2099
diff
changeset
|
250 #if defined HAVE_STRERROR_R || _LIBC |
| 1268 | 251 char errbuf[1024]; |
|
2099
910892507841
(error): Use __strerror_r's return value only if HAVE_WORKING_STRERROR_R.
Jim Meyering <jim@meyering.net>
parents:
1957
diff
changeset
|
252 # if HAVE_WORKING_STRERROR_R || _LIBC |
|
910892507841
(error): Use __strerror_r's return value only if HAVE_WORKING_STRERROR_R.
Jim Meyering <jim@meyering.net>
parents:
1957
diff
changeset
|
253 fprintf (stderr, ": %s", __strerror_r (errnum, errbuf, sizeof errbuf)); |
|
910892507841
(error): Use __strerror_r's return value only if HAVE_WORKING_STRERROR_R.
Jim Meyering <jim@meyering.net>
parents:
1957
diff
changeset
|
254 # else |
|
1957
ff7525910d7b
(error_at_line): Use strerror portably here, too,
Jim Meyering <jim@meyering.net>
parents:
1552
diff
changeset
|
255 /* Don't use __strerror_r's return value because on some systems |
|
ff7525910d7b
(error_at_line): Use strerror portably here, too,
Jim Meyering <jim@meyering.net>
parents:
1552
diff
changeset
|
256 (at least DEC UNIX 4.0[A-D]) strerror_r returns `int'. */ |
|
ff7525910d7b
(error_at_line): Use strerror portably here, too,
Jim Meyering <jim@meyering.net>
parents:
1552
diff
changeset
|
257 __strerror_r (errnum, errbuf, sizeof errbuf); |
|
ff7525910d7b
(error_at_line): Use strerror portably here, too,
Jim Meyering <jim@meyering.net>
parents:
1552
diff
changeset
|
258 fprintf (stderr, ": %s", errbuf); |
|
2099
910892507841
(error): Use __strerror_r's return value only if HAVE_WORKING_STRERROR_R.
Jim Meyering <jim@meyering.net>
parents:
1957
diff
changeset
|
259 # endif |
| 1268 | 260 #else |
| 261 fprintf (stderr, ": %s", strerror (errnum)); | |
| 262 #endif | |
| 263 } | |
|
573
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
264 putc ('\n', stderr); |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
265 fflush (stderr); |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
266 if (status) |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
267 exit (status); |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
268 } |
| 1268 | 269 |
| 270 #ifdef _LIBC | |
| 271 /* Make the weak alias. */ | |
| 1289 | 272 # undef error |
| 273 # undef error_at_line | |
| 1268 | 274 weak_alias (__error, error) |
| 275 weak_alias (__error_at_line, error_at_line) | |
| 276 #endif |