Mercurial > hg > octave-nkf > gnulib-hg
annotate lib/error.c @ 4009:6f613df1e6f0
Add copyright date of 2002.
| author | Jim Meyering <jim@meyering.net> |
|---|---|
| date | Sat, 23 Nov 2002 15:07:14 +0000 |
| parents | 22d3032f0239 |
| children | 7158a1db8695 |
| rev | line source |
|---|---|
| 1268 | 1 /* Error handler for noninteractive utilities |
|
4009
6f613df1e6f0
Add copyright date of 2002.
Jim Meyering <jim@meyering.net>
parents:
3966
diff
changeset
|
2 Copyright (C) 1990-1998, 2000, 2001, 2002 Free Software Foundation, Inc. |
| 1289 | 3 This file is part of the GNU C Library. Its master source is NOT part of |
| 4 the C library, however. The master source lives in /gd/gnu/lib. | |
| 1268 | 5 |
| 1289 | 6 The GNU C Library is free software; you can redistribute it and/or |
| 3446 | 7 modify it under the terms of the GNU Lesser General Public |
| 8 License as published by the Free Software Foundation; either | |
| 9 version 2.1 of the License, or (at your option) any later version. | |
| 9 | 10 |
| 1289 | 11 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
|
12 but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 1289 | 13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
| 3446 | 14 Lesser General Public License for more details. |
| 572 | 15 |
| 3446 | 16 You should have received a copy of the GNU Lesser General Public |
| 17 License along with the GNU C Library; if not, write to the Free | |
| 18 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA | |
| 19 02111-1307 USA. */ | |
| 9 | 20 |
| 398 | 21 /* Written by David MacKenzie <djm@gnu.ai.mit.edu>. */ |
| 22 | |
| 1268 | 23 #ifdef HAVE_CONFIG_H |
| 1289 | 24 # include <config.h> |
| 398 | 25 #endif |
| 9 | 26 |
| 27 #include <stdio.h> | |
|
3966
22d3032f0239
Include gettext.h instead of <libintl.h> with #ifdefs.
Bruno Haible <bruno@clisp.org>
parents:
3618
diff
changeset
|
28 |
|
22d3032f0239
Include gettext.h instead of <libintl.h> with #ifdefs.
Bruno Haible <bruno@clisp.org>
parents:
3618
diff
changeset
|
29 #ifdef _LIBC |
|
2984
5b1fa2113060
Add a couple #includes, merging from GNU libc version.
Jim Meyering <jim@meyering.net>
parents:
2643
diff
changeset
|
30 # include <libintl.h> |
|
3966
22d3032f0239
Include gettext.h instead of <libintl.h> with #ifdefs.
Bruno Haible <bruno@clisp.org>
parents:
3618
diff
changeset
|
31 #else |
|
22d3032f0239
Include gettext.h instead of <libintl.h> with #ifdefs.
Bruno Haible <bruno@clisp.org>
parents:
3618
diff
changeset
|
32 # include "gettext.h" |
|
2984
5b1fa2113060
Add a couple #includes, merging from GNU libc version.
Jim Meyering <jim@meyering.net>
parents:
2643
diff
changeset
|
33 #endif |
|
3966
22d3032f0239
Include gettext.h instead of <libintl.h> with #ifdefs.
Bruno Haible <bruno@clisp.org>
parents:
3618
diff
changeset
|
34 #define _(msgid) gettext (msgid) |
|
22d3032f0239
Include gettext.h instead of <libintl.h> with #ifdefs.
Bruno Haible <bruno@clisp.org>
parents:
3618
diff
changeset
|
35 |
| 3446 | 36 #ifdef _LIBC |
| 37 # include <wchar.h> | |
| 38 # define mbsrtowcs __mbsrtowcs | |
| 39 #endif | |
| 9 | 40 |
| 527 | 41 #if HAVE_VPRINTF || HAVE_DOPRNT || _LIBC |
| 398 | 42 # if __STDC__ |
| 43 # include <stdarg.h> | |
| 44 # define VA_START(args, lastarg) va_start(args, lastarg) | |
| 45 # else | |
| 46 # include <varargs.h> | |
| 47 # define VA_START(args, lastarg) va_start(args) | |
| 48 # endif | |
| 49 #else | |
| 50 # define va_alist a1, a2, a3, a4, a5, a6, a7, a8 | |
| 51 # define va_dcl char *a1, *a2, *a3, *a4, *a5, *a6, *a7, *a8; | |
| 52 #endif | |
| 9 | 53 |
| 527 | 54 #if STDC_HEADERS || _LIBC |
| 398 | 55 # include <stdlib.h> |
| 56 # include <string.h> | |
| 57 #else | |
| 58 void exit (); | |
| 59 #endif | |
| 9 | 60 |
| 1268 | 61 #include "error.h" |
| 3618 | 62 #include "unlocked-io.h" |
| 1268 | 63 |
| 398 | 64 /* If NULL, error will flush stdout, then print on stderr the program |
| 65 name, a colon and a space. Otherwise, error will call this | |
| 66 function without parameters instead. */ | |
| 572 | 67 void (*error_print_progname) ( |
| 68 #if __STDC__ - 0 | |
| 69 void | |
| 70 #endif | |
| 71 ); | |
| 72 | |
| 73 /* This variable is incremented each time `error' is called. */ | |
| 74 unsigned int error_message_count; | |
| 9 | 75 |
| 527 | 76 #ifdef _LIBC |
| 572 | 77 /* In the GNU C library, there is a predefined variable for this. */ |
| 78 | |
| 1289 | 79 # define program_name program_invocation_name |
| 80 # include <errno.h> | |
| 572 | 81 |
| 1268 | 82 /* In GNU libc we want do not want to use the common name `error' directly. |
| 83 Instead make it a weak alias. */ | |
| 3446 | 84 extern void __error (int status, int errnum, const char *message, ...) |
| 85 __attribute__ ((__format__ (__printf__, 3, 4))); | |
| 86 extern void __error_at_line (int status, int errnum, const char *file_name, | |
| 87 unsigned int line_number, const char *message, | |
| 88 ...) | |
| 89 __attribute__ ((__format__ (__printf__, 5, 6)));; | |
| 1289 | 90 # define error __error |
| 91 # define error_at_line __error_at_line | |
| 1268 | 92 |
|
2984
5b1fa2113060
Add a couple #includes, merging from GNU libc version.
Jim Meyering <jim@meyering.net>
parents:
2643
diff
changeset
|
93 # ifdef USE_IN_LIBIO |
|
5b1fa2113060
Add a couple #includes, merging from GNU libc version.
Jim Meyering <jim@meyering.net>
parents:
2643
diff
changeset
|
94 # include <libio/iolibio.h> |
|
5b1fa2113060
Add a couple #includes, merging from GNU libc version.
Jim Meyering <jim@meyering.net>
parents:
2643
diff
changeset
|
95 # 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
|
96 # endif |
|
5b1fa2113060
Add a couple #includes, merging from GNU libc version.
Jim Meyering <jim@meyering.net>
parents:
2643
diff
changeset
|
97 |
| 1289 | 98 #else /* not _LIBC */ |
| 527 | 99 |
|
3550
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
100 # if !HAVE_DECL_STRERROR_R && STRERROR_R_CHAR_P |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
101 # ifndef HAVE_DECL_STRERROR_R |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
102 "this configure-time declaration test was not run" |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
103 # endif |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
104 char *strerror_r (); |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
105 # endif |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
106 |
| 398 | 107 /* The calling program should define program_name and set it to the |
| 108 name of the executing program. */ | |
| 109 extern char *program_name; | |
| 9 | 110 |
|
3550
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
111 # if HAVE_STRERROR_R || defined strerror_r |
| 1289 | 112 # define __strerror_r strerror_r |
| 113 # else | |
| 114 # if HAVE_STRERROR | |
|
3550
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
115 # ifndef HAVE_DECL_STRERROR |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
116 "this configure-time declaration test was not run" |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
117 # endif |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
118 # if !HAVE_DECL_STRERROR |
| 398 | 119 char *strerror (); |
| 1289 | 120 # endif |
| 121 # else | |
| 9 | 122 static char * |
|
3550
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
123 private_strerror (int errnum) |
| 9 | 124 { |
| 125 extern char *sys_errlist[]; | |
| 126 extern int sys_nerr; | |
| 127 | |
| 128 if (errnum > 0 && errnum <= sys_nerr) | |
| 1268 | 129 return _(sys_errlist[errnum]); |
| 572 | 130 return _("Unknown system error"); |
| 9 | 131 } |
| 1289 | 132 # define strerror private_strerror |
| 133 # endif /* HAVE_STRERROR */ | |
|
3550
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
134 # endif /* HAVE_STRERROR_R || defined strerror_r */ |
| 1289 | 135 #endif /* not _LIBC */ |
| 9 | 136 |
|
3550
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
137 static void |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
138 print_errno_message (int errnum) |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
139 { |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
140 char const *s; |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
141 |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
142 #if defined HAVE_STRERROR_R || _LIBC |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
143 char errbuf[1024]; |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
144 # if STRERROR_R_CHAR_P || _LIBC |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
145 s = __strerror_r (errnum, errbuf, sizeof errbuf); |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
146 # else |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
147 if (__strerror_r (errnum, errbuf, sizeof errbuf) == 0) |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
148 s = errbuf; |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
149 else |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
150 s = 0; |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
151 # endif |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
152 #else |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
153 s = strerror (errnum); |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
154 #endif |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
155 |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
156 #if !_LIBC |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
157 if (! s) |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
158 s = _("Unknown system error"); |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
159 #endif |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
160 |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
161 #if _LIBC && USE_IN_LIBIO |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
162 if (_IO_fwide (stderr, 0) > 0) |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
163 { |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
164 __fwprintf (stderr, L": %s", s); |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
165 return; |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
166 } |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
167 #endif |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
168 |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
169 fprintf (stderr, ": %s", s); |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
170 } |
| 3446 | 171 |
| 172 #ifdef VA_START | |
| 173 static void | |
| 174 error_tail (int status, int errnum, const char *message, va_list args) | |
| 175 { | |
| 176 # if HAVE_VPRINTF || _LIBC | |
| 177 # if _LIBC && USE_IN_LIBIO | |
| 178 if (_IO_fwide (stderr, 0) > 0) | |
| 179 { | |
| 180 # define ALLOCA_LIMIT 2000 | |
| 181 size_t len = strlen (message) + 1; | |
| 182 wchar_t *wmessage = NULL; | |
| 183 mbstate_t st; | |
| 184 size_t res; | |
| 185 const char *tmp; | |
| 186 | |
| 187 do | |
| 188 { | |
| 189 if (len < ALLOCA_LIMIT) | |
| 190 wmessage = (wchar_t *) alloca (len * sizeof (wchar_t)); | |
| 191 else | |
| 192 { | |
| 193 if (wmessage != NULL && len / 2 < ALLOCA_LIMIT) | |
| 194 wmessage = NULL; | |
| 195 | |
| 196 wmessage = (wchar_t *) realloc (wmessage, | |
| 197 len * sizeof (wchar_t)); | |
| 198 | |
| 199 if (wmessage == NULL) | |
| 200 { | |
| 201 fputws_unlocked (L"out of memory\n", stderr); | |
| 202 return; | |
| 203 } | |
| 204 } | |
| 205 | |
| 206 memset (&st, '\0', sizeof (st)); | |
| 207 tmp =message; | |
| 208 } | |
| 209 while ((res = mbsrtowcs (wmessage, &tmp, len, &st)) == len); | |
| 210 | |
| 211 if (res == (size_t) -1) | |
| 212 /* The string cannot be converted. */ | |
| 213 wmessage = (wchar_t *) L"???"; | |
| 214 | |
| 215 __vfwprintf (stderr, wmessage, args); | |
| 216 } | |
| 217 else | |
| 218 # endif | |
| 219 vfprintf (stderr, message, args); | |
| 220 # else | |
| 221 _doprnt (message, args, stderr); | |
| 222 # endif | |
| 223 va_end (args); | |
| 224 | |
| 225 ++error_message_count; | |
| 226 if (errnum) | |
|
3550
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
227 print_errno_message (errnum); |
| 3446 | 228 # if _LIBC && USE_IN_LIBIO |
| 229 if (_IO_fwide (stderr, 0) > 0) | |
| 230 putwc (L'\n', stderr); | |
| 231 else | |
| 232 # endif | |
| 233 putc ('\n', stderr); | |
| 234 fflush (stderr); | |
| 235 if (status) | |
| 236 exit (status); | |
| 237 } | |
| 238 #endif | |
| 239 | |
| 240 | |
| 9 | 241 /* Print the program name and error message MESSAGE, which is a printf-style |
| 242 format string with optional args. | |
| 243 If ERRNUM is nonzero, print its corresponding system error message. | |
| 244 Exit with status STATUS if it is nonzero. */ | |
| 245 /* VARARGS */ | |
| 246 void | |
| 1289 | 247 #if defined VA_START && __STDC__ |
| 398 | 248 error (int status, int errnum, const char *message, ...) |
| 249 #else | |
| 9 | 250 error (status, errnum, message, va_alist) |
| 251 int status; | |
| 252 int errnum; | |
| 253 char *message; | |
| 254 va_dcl | |
| 398 | 255 #endif |
| 9 | 256 { |
| 398 | 257 #ifdef VA_START |
| 9 | 258 va_list args; |
| 398 | 259 #endif |
| 9 | 260 |
| 3446 | 261 fflush (stdout); |
| 262 #ifdef _LIBC | |
| 263 # ifdef USE_IN_LIBIO | |
| 264 _IO_flockfile (stderr); | |
| 265 # else | |
| 266 __flockfile (stderr); | |
| 267 # endif | |
| 268 #endif | |
| 398 | 269 if (error_print_progname) |
| 270 (*error_print_progname) (); | |
| 271 else | |
| 272 { | |
| 3446 | 273 #if _LIBC && USE_IN_LIBIO |
| 274 if (_IO_fwide (stderr, 0) > 0) | |
| 275 __fwprintf (stderr, L"%s: ", program_name); | |
| 276 else | |
| 277 #endif | |
| 278 fprintf (stderr, "%s: ", program_name); | |
| 398 | 279 } |
| 280 | |
| 281 #ifdef VA_START | |
| 9 | 282 VA_START (args, message); |
| 3446 | 283 error_tail (status, errnum, message, args); |
| 398 | 284 #else |
| 9 | 285 fprintf (stderr, message, a1, a2, a3, a4, a5, a6, a7, a8); |
| 398 | 286 |
| 440 | 287 ++error_message_count; |
| 9 | 288 if (errnum) |
|
3550
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
289 print_errno_message (errnum); |
| 9 | 290 putc ('\n', stderr); |
| 291 fflush (stderr); | |
| 292 if (status) | |
| 293 exit (status); | |
| 3446 | 294 #endif |
| 295 | |
| 296 #ifdef _LIBC | |
| 297 # ifdef USE_IN_LIBIO | |
| 298 _IO_funlockfile (stderr); | |
| 299 # else | |
| 300 __funlockfile (stderr); | |
| 301 # endif | |
| 302 #endif | |
| 9 | 303 } |
| 572 | 304 |
|
573
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
305 /* 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
|
306 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
|
307 int error_one_per_line; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
308 |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
309 void |
| 1289 | 310 #if defined VA_START && __STDC__ |
|
573
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
311 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
|
312 unsigned int line_number, const char *message, ...) |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
313 #else |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
314 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
|
315 int status; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
316 int errnum; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
317 const char *file_name; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
318 unsigned int line_number; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
319 char *message; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
320 va_dcl |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
321 #endif |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
322 { |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
323 #ifdef VA_START |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
324 va_list args; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
325 #endif |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
326 |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
327 if (error_one_per_line) |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
328 { |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
329 static const char *old_file_name; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
330 static unsigned int old_line_number; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
331 |
| 3446 | 332 if (old_line_number == line_number |
| 333 && (file_name == old_file_name | |
| 334 || strcmp (old_file_name, file_name) == 0)) | |
|
573
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
335 /* Simply return and print nothing. */ |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
336 return; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
337 |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
338 old_file_name = file_name; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
339 old_line_number = line_number; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
340 } |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
341 |
| 3446 | 342 fflush (stdout); |
| 343 #ifdef _LIBC | |
| 344 # ifdef USE_IN_LIBIO | |
| 345 _IO_flockfile (stderr); | |
| 346 # else | |
| 347 __flockfile (stderr); | |
| 348 # endif | |
| 349 #endif | |
|
573
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
350 if (error_print_progname) |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
351 (*error_print_progname) (); |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
352 else |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
353 { |
| 3446 | 354 #if _LIBC && USE_IN_LIBIO |
| 355 if (_IO_fwide (stderr, 0) > 0) | |
| 356 __fwprintf (stderr, L"%s: ", program_name); | |
| 357 else | |
| 358 #endif | |
| 359 fprintf (stderr, "%s:", program_name); | |
|
573
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
360 } |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
361 |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
362 if (file_name != NULL) |
| 3446 | 363 { |
| 364 #if _LIBC && USE_IN_LIBIO | |
| 365 if (_IO_fwide (stderr, 0) > 0) | |
| 366 __fwprintf (stderr, L"%s:%d: ", file_name, line_number); | |
| 367 else | |
| 368 #endif | |
| 369 fprintf (stderr, "%s:%d: ", file_name, line_number); | |
| 370 } | |
|
573
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
371 |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
372 #ifdef VA_START |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
373 VA_START (args, message); |
| 3446 | 374 error_tail (status, errnum, message, args); |
|
573
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
375 #else |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
376 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
|
377 |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
378 ++error_message_count; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
379 if (errnum) |
|
3550
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
380 print_errno_message (errnum); |
|
573
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
381 putc ('\n', stderr); |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
382 fflush (stderr); |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
383 if (status) |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
384 exit (status); |
| 3446 | 385 #endif |
| 386 | |
| 387 #ifdef _LIBC | |
| 388 # ifdef USE_IN_LIBIO | |
| 389 _IO_funlockfile (stderr); | |
| 390 # else | |
| 391 __funlockfile (stderr); | |
| 392 # endif | |
| 393 #endif | |
|
573
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
394 } |
| 1268 | 395 |
| 396 #ifdef _LIBC | |
| 397 /* Make the weak alias. */ | |
| 1289 | 398 # undef error |
| 399 # undef error_at_line | |
| 1268 | 400 weak_alias (__error, error) |
| 401 weak_alias (__error_at_line, error_at_line) | |
| 402 #endif |