Mercurial > hg > octave-nkf > gnulib-hg
annotate lib/error.c @ 4636:8b869710f671
Remove K&R cruft.
| author | Paul Eggert <eggert@cs.ucla.edu> |
|---|---|
| date | Mon, 08 Sep 2003 23:26:06 +0000 |
| parents | cdb224406ea7 |
| children | 0ec32cb1202f |
| rev | line source |
|---|---|
| 1268 | 1 /* Error handler for noninteractive utilities |
|
4500
cdb224406ea7
[!USE_IN_LIBIO]: Omit this case; assume USE_IN_LIBIO is 1.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4072
diff
changeset
|
2 Copyright (C) 1990-1998, 2000, 2001, 2002, 2003 Free Software Foundation, Inc. |
| 4020 | 3 This program is free software; you can redistribute it and/or modify |
| 4 it under the terms of the GNU General Public License as published by | |
| 5 the Free Software Foundation; either version 2, or (at your option) | |
| 6 any later version. | |
| 9 | 7 |
| 4020 | 8 This program 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
|
9 but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 4020 | 10 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 11 GNU General Public License for more details. | |
| 572 | 12 |
| 4020 | 13 You should have received a copy of the GNU General Public License along |
| 14 with this program; if not, write to the Free Software Foundation, | |
| 15 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ | |
| 9 | 16 |
| 398 | 17 /* Written by David MacKenzie <djm@gnu.ai.mit.edu>. */ |
| 18 | |
| 1268 | 19 #ifdef HAVE_CONFIG_H |
| 1289 | 20 # include <config.h> |
| 398 | 21 #endif |
| 9 | 22 |
| 4636 | 23 #include "error.h" |
| 24 | |
| 25 #include <stdarg.h> | |
| 9 | 26 #include <stdio.h> |
| 4636 | 27 #include <stdlib.h> |
| 28 #include <string.h> | |
|
3966
22d3032f0239
Include gettext.h instead of <libintl.h> with #ifdefs.
Bruno Haible <bruno@clisp.org>
parents:
3618
diff
changeset
|
29 |
|
22d3032f0239
Include gettext.h instead of <libintl.h> with #ifdefs.
Bruno Haible <bruno@clisp.org>
parents:
3618
diff
changeset
|
30 #ifdef _LIBC |
|
2984
5b1fa2113060
Add a couple #includes, merging from GNU libc version.
Jim Meyering <jim@meyering.net>
parents:
2643
diff
changeset
|
31 # include <libintl.h> |
|
3966
22d3032f0239
Include gettext.h instead of <libintl.h> with #ifdefs.
Bruno Haible <bruno@clisp.org>
parents:
3618
diff
changeset
|
32 #else |
|
22d3032f0239
Include gettext.h instead of <libintl.h> with #ifdefs.
Bruno Haible <bruno@clisp.org>
parents:
3618
diff
changeset
|
33 # include "gettext.h" |
|
2984
5b1fa2113060
Add a couple #includes, merging from GNU libc version.
Jim Meyering <jim@meyering.net>
parents:
2643
diff
changeset
|
34 #endif |
|
3966
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 |
|
4072
86ee34b1ec28
Be consistent: change `#ifndef _LIBC' to `#if !_LIBC'.
Jim Meyering <jim@meyering.net>
parents:
4070
diff
changeset
|
41 #if !_LIBC |
|
4070
925594d77a99
Merge in changes from libc's misc/error.c, in preparation
Jim Meyering <jim@meyering.net>
parents:
4020
diff
changeset
|
42 # include "unlocked-io.h" |
|
925594d77a99
Merge in changes from libc's misc/error.c, in preparation
Jim Meyering <jim@meyering.net>
parents:
4020
diff
changeset
|
43 #endif |
|
925594d77a99
Merge in changes from libc's misc/error.c, in preparation
Jim Meyering <jim@meyering.net>
parents:
4020
diff
changeset
|
44 |
|
925594d77a99
Merge in changes from libc's misc/error.c, in preparation
Jim Meyering <jim@meyering.net>
parents:
4020
diff
changeset
|
45 #ifndef _ |
|
925594d77a99
Merge in changes from libc's misc/error.c, in preparation
Jim Meyering <jim@meyering.net>
parents:
4020
diff
changeset
|
46 # define _(String) String |
|
925594d77a99
Merge in changes from libc's misc/error.c, in preparation
Jim Meyering <jim@meyering.net>
parents:
4020
diff
changeset
|
47 #endif |
| 1268 | 48 |
| 398 | 49 /* If NULL, error will flush stdout, then print on stderr the program |
| 50 name, a colon and a space. Otherwise, error will call this | |
| 51 function without parameters instead. */ | |
| 4636 | 52 void (*error_print_progname) (void); |
| 572 | 53 |
| 54 /* This variable is incremented each time `error' is called. */ | |
| 55 unsigned int error_message_count; | |
| 9 | 56 |
| 527 | 57 #ifdef _LIBC |
| 572 | 58 /* In the GNU C library, there is a predefined variable for this. */ |
| 59 | |
| 1289 | 60 # define program_name program_invocation_name |
|
4070
925594d77a99
Merge in changes from libc's misc/error.c, in preparation
Jim Meyering <jim@meyering.net>
parents:
4020
diff
changeset
|
61 # include <libio/libioP.h> |
| 572 | 62 |
| 1268 | 63 /* In GNU libc we want do not want to use the common name `error' directly. |
| 64 Instead make it a weak alias. */ | |
| 3446 | 65 extern void __error (int status, int errnum, const char *message, ...) |
| 66 __attribute__ ((__format__ (__printf__, 3, 4))); | |
| 67 extern void __error_at_line (int status, int errnum, const char *file_name, | |
| 68 unsigned int line_number, const char *message, | |
| 69 ...) | |
| 70 __attribute__ ((__format__ (__printf__, 5, 6)));; | |
| 1289 | 71 # define error __error |
| 72 # define error_at_line __error_at_line | |
| 1268 | 73 |
|
4500
cdb224406ea7
[!USE_IN_LIBIO]: Omit this case; assume USE_IN_LIBIO is 1.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4072
diff
changeset
|
74 # include <libio/iolibio.h> |
|
cdb224406ea7
[!USE_IN_LIBIO]: Omit this case; assume USE_IN_LIBIO is 1.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4072
diff
changeset
|
75 # define fflush(s) INTUSE(_IO_fflush) (s) |
|
cdb224406ea7
[!USE_IN_LIBIO]: Omit this case; assume USE_IN_LIBIO is 1.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4072
diff
changeset
|
76 # undef putc |
|
cdb224406ea7
[!USE_IN_LIBIO]: Omit this case; assume USE_IN_LIBIO is 1.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4072
diff
changeset
|
77 # define putc(c, fp) INTUSE(_IO_putc) (c, fp) |
|
2984
5b1fa2113060
Add a couple #includes, merging from GNU libc version.
Jim Meyering <jim@meyering.net>
parents:
2643
diff
changeset
|
78 |
| 1289 | 79 #else /* not _LIBC */ |
| 527 | 80 |
|
3550
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
81 # 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
|
82 # ifndef HAVE_DECL_STRERROR_R |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
83 "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
|
84 # endif |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
85 char *strerror_r (); |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
86 # endif |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
87 |
| 398 | 88 /* The calling program should define program_name and set it to the |
| 89 name of the executing program. */ | |
| 90 extern char *program_name; | |
| 9 | 91 |
|
3550
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
92 # if HAVE_STRERROR_R || defined strerror_r |
| 1289 | 93 # define __strerror_r strerror_r |
| 4636 | 94 # endif |
| 1289 | 95 #endif /* not _LIBC */ |
| 9 | 96 |
|
3550
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
97 static void |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
98 print_errno_message (int errnum) |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
99 { |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
100 char const *s; |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
101 |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
102 #if defined HAVE_STRERROR_R || _LIBC |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
103 char errbuf[1024]; |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
104 # if STRERROR_R_CHAR_P || _LIBC |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
105 s = __strerror_r (errnum, errbuf, sizeof errbuf); |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
106 # else |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
107 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
|
108 s = errbuf; |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
109 else |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
110 s = 0; |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
111 # endif |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
112 #else |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
113 s = strerror (errnum); |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
114 #endif |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
115 |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
116 #if !_LIBC |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
117 if (! s) |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
118 s = _("Unknown system error"); |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
119 #endif |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
120 |
|
4500
cdb224406ea7
[!USE_IN_LIBIO]: Omit this case; assume USE_IN_LIBIO is 1.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4072
diff
changeset
|
121 #if _LIBC |
|
3550
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
122 if (_IO_fwide (stderr, 0) > 0) |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
123 { |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
124 __fwprintf (stderr, L": %s", s); |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
125 return; |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
126 } |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
127 #endif |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
128 |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
129 fprintf (stderr, ": %s", s); |
|
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
130 } |
| 3446 | 131 |
| 132 static void | |
| 133 error_tail (int status, int errnum, const char *message, va_list args) | |
| 134 { | |
| 135 # if HAVE_VPRINTF || _LIBC | |
|
4500
cdb224406ea7
[!USE_IN_LIBIO]: Omit this case; assume USE_IN_LIBIO is 1.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4072
diff
changeset
|
136 # if _LIBC |
| 3446 | 137 if (_IO_fwide (stderr, 0) > 0) |
| 138 { | |
| 139 # define ALLOCA_LIMIT 2000 | |
| 140 size_t len = strlen (message) + 1; | |
| 141 wchar_t *wmessage = NULL; | |
| 142 mbstate_t st; | |
| 143 size_t res; | |
| 144 const char *tmp; | |
| 145 | |
| 146 do | |
| 147 { | |
| 148 if (len < ALLOCA_LIMIT) | |
| 149 wmessage = (wchar_t *) alloca (len * sizeof (wchar_t)); | |
| 150 else | |
| 151 { | |
| 152 if (wmessage != NULL && len / 2 < ALLOCA_LIMIT) | |
| 153 wmessage = NULL; | |
| 154 | |
| 155 wmessage = (wchar_t *) realloc (wmessage, | |
| 156 len * sizeof (wchar_t)); | |
| 157 | |
| 158 if (wmessage == NULL) | |
| 159 { | |
| 160 fputws_unlocked (L"out of memory\n", stderr); | |
| 161 return; | |
| 162 } | |
| 163 } | |
| 164 | |
| 165 memset (&st, '\0', sizeof (st)); | |
| 166 tmp =message; | |
| 167 } | |
| 168 while ((res = mbsrtowcs (wmessage, &tmp, len, &st)) == len); | |
| 169 | |
| 170 if (res == (size_t) -1) | |
| 171 /* The string cannot be converted. */ | |
| 172 wmessage = (wchar_t *) L"???"; | |
| 173 | |
| 174 __vfwprintf (stderr, wmessage, args); | |
| 175 } | |
| 176 else | |
| 177 # endif | |
| 178 vfprintf (stderr, message, args); | |
| 179 # else | |
| 180 _doprnt (message, args, stderr); | |
| 181 # endif | |
| 182 va_end (args); | |
| 183 | |
| 184 ++error_message_count; | |
| 185 if (errnum) | |
|
3550
c18604dda2d7
(strerror_r): Do not declare unless !_LIBC.
Jim Meyering <jim@meyering.net>
parents:
3446
diff
changeset
|
186 print_errno_message (errnum); |
|
4500
cdb224406ea7
[!USE_IN_LIBIO]: Omit this case; assume USE_IN_LIBIO is 1.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4072
diff
changeset
|
187 # if _LIBC |
| 3446 | 188 if (_IO_fwide (stderr, 0) > 0) |
| 189 putwc (L'\n', stderr); | |
| 190 else | |
| 191 # endif | |
| 192 putc ('\n', stderr); | |
| 193 fflush (stderr); | |
| 194 if (status) | |
| 195 exit (status); | |
| 196 } | |
| 197 | |
| 198 | |
| 9 | 199 /* Print the program name and error message MESSAGE, which is a printf-style |
| 200 format string with optional args. | |
| 201 If ERRNUM is nonzero, print its corresponding system error message. | |
| 202 Exit with status STATUS if it is nonzero. */ | |
| 203 /* VARARGS */ | |
| 204 void | |
| 398 | 205 error (int status, int errnum, const char *message, ...) |
| 9 | 206 { |
| 207 va_list args; | |
| 208 | |
| 3446 | 209 fflush (stdout); |
| 210 #ifdef _LIBC | |
| 211 _IO_flockfile (stderr); | |
| 212 #endif | |
| 398 | 213 if (error_print_progname) |
| 214 (*error_print_progname) (); | |
| 215 else | |
| 216 { | |
|
4500
cdb224406ea7
[!USE_IN_LIBIO]: Omit this case; assume USE_IN_LIBIO is 1.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4072
diff
changeset
|
217 #if _LIBC |
| 3446 | 218 if (_IO_fwide (stderr, 0) > 0) |
| 219 __fwprintf (stderr, L"%s: ", program_name); | |
| 220 else | |
| 221 #endif | |
| 222 fprintf (stderr, "%s: ", program_name); | |
| 398 | 223 } |
| 224 | |
| 4636 | 225 va_start (args, message); |
| 3446 | 226 error_tail (status, errnum, message, args); |
| 227 | |
| 228 #ifdef _LIBC | |
| 229 _IO_funlockfile (stderr); | |
| 230 #endif | |
| 9 | 231 } |
| 572 | 232 |
|
573
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
233 /* 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
|
234 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
|
235 int error_one_per_line; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
236 |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
237 void |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
238 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
|
239 unsigned int line_number, const char *message, ...) |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
240 { |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
241 va_list args; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
242 |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
243 if (error_one_per_line) |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
244 { |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
245 static const char *old_file_name; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
246 static unsigned int old_line_number; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
247 |
| 3446 | 248 if (old_line_number == line_number |
| 249 && (file_name == old_file_name | |
| 250 || 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
|
251 /* Simply return and print nothing. */ |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
252 return; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
253 |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
254 old_file_name = file_name; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
255 old_line_number = line_number; |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
256 } |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
257 |
| 3446 | 258 fflush (stdout); |
| 259 #ifdef _LIBC | |
| 260 _IO_flockfile (stderr); | |
| 261 #endif | |
|
573
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
262 if (error_print_progname) |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
263 (*error_print_progname) (); |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
264 else |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
265 { |
|
4500
cdb224406ea7
[!USE_IN_LIBIO]: Omit this case; assume USE_IN_LIBIO is 1.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4072
diff
changeset
|
266 #if _LIBC |
| 3446 | 267 if (_IO_fwide (stderr, 0) > 0) |
| 268 __fwprintf (stderr, L"%s: ", program_name); | |
| 269 else | |
| 270 #endif | |
| 271 fprintf (stderr, "%s:", program_name); | |
|
573
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
272 } |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
273 |
|
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
274 if (file_name != NULL) |
| 3446 | 275 { |
|
4500
cdb224406ea7
[!USE_IN_LIBIO]: Omit this case; assume USE_IN_LIBIO is 1.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4072
diff
changeset
|
276 #if _LIBC |
| 3446 | 277 if (_IO_fwide (stderr, 0) > 0) |
| 278 __fwprintf (stderr, L"%s:%d: ", file_name, line_number); | |
| 279 else | |
| 280 #endif | |
| 281 fprintf (stderr, "%s:%d: ", file_name, line_number); | |
| 282 } | |
|
573
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
283 |
| 4636 | 284 va_start (args, message); |
| 3446 | 285 error_tail (status, errnum, message, args); |
| 286 | |
| 287 #ifdef _LIBC | |
| 288 _IO_funlockfile (stderr); | |
| 289 #endif | |
|
573
8a90f3b04017
update from FSF:/home/gd/gnu/lib
Jim Meyering <jim@meyering.net>
parents:
572
diff
changeset
|
290 } |
| 1268 | 291 |
| 292 #ifdef _LIBC | |
| 293 /* Make the weak alias. */ | |
| 1289 | 294 # undef error |
| 295 # undef error_at_line | |
| 1268 | 296 weak_alias (__error, error) |
| 297 weak_alias (__error_at_line, error_at_line) | |
| 298 #endif |