1 /* Default error handlers for CPP Library.
2 Copyright (C) 1986, 1987, 1989, 1992, 1993, 1994, 1995, 1998, 1999, 2000
3 Free Software Foundation, Inc.
4 Written by Per Bothner, 1994.
5 Based on CCCP program by Paul Rubin, June 1986
6 Adapted to ANSI C, Richard Stallman, Jan 1987
8 This program is free software; you can redistribute it and/or modify it
9 under the terms of the GNU General Public License as published by the
10 Free Software Foundation; either version 2, or (at your option) any
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
22 In other words, you are welcome to use, share and improve this program.
23 You are forbidden to forbid anyone else to use, share and improve
24 what you give them. Help stamp out software-hoarding! */
32 static void print_containing_files
PARAMS ((cpp_reader
*, cpp_buffer
*));
33 static void print_file_and_line
PARAMS ((const char *, unsigned int,
36 #define v_message(msgid, ap) \
37 do { vfprintf (stderr, _(msgid), ap); putc ('\n', stderr); } while (0)
39 /* Print the file names and line numbers of the #include
40 commands which led to the current file. */
43 print_containing_files (pfile
, ip
)
49 /* If stack of files hasn't changed since we last printed
50 this info, don't repeat it. */
51 if (pfile
->input_stack_listing_current
)
54 /* Find the other, outer source files. */
55 for (ip
= CPP_PREV_BUFFER (ip
); ip
!= NULL
; ip
= CPP_PREV_BUFFER (ip
))
60 /* N.B. The current line in each outer source file is one
61 greater than the line of the #include, so we must
62 subtract one to correct for that. */
63 fprintf (stderr
, _("In file included from %s:%u"),
64 ip
->nominal_fname
, CPP_BUF_LINE (ip
) - 1);
67 /* Translators note: this message is used in conjunction
68 with "In file included from %s:%ld" and some other
69 tricks. We want something like this:
71 | In file included from sys/select.h:123,
72 | from sys/types.h:234,
74 | bits/select.h:45: <error message here>
76 with all the "from"s lined up.
77 The trailing comma is at the beginning of this message,
78 and the trailing colon is not translated. */
79 fprintf (stderr
, _(",\n from %s:%u"),
80 ip
->nominal_fname
, CPP_BUF_LINE (ip
) - 1);
83 fputs (":\n", stderr
);
85 /* Record we have printed the status as of this time. */
86 pfile
->input_stack_listing_current
= 1;
90 print_file_and_line (filename
, line
, column
)
92 unsigned int line
, column
;
95 fputs (_("<command line>: "), stderr
);
98 if (filename
== 0 || *filename
== '\0')
101 fprintf (stderr
, "%s:%u:%u: ", filename
, line
, column
);
103 fprintf (stderr
, "%s:%u: ", filename
, line
);
107 /* Set up for an error message: print the file and line, bump the error
109 If it returns 0, this error has been suppressed. */
112 _cpp_begin_message (pfile
, code
, file
, line
, col
)
114 enum error_type code
;
119 cpp_buffer
*ip
= CPP_BUFFER (pfile
);
125 if (! CPP_OPTION (pfile
, warnings_are_errors
))
127 if (CPP_OPTION (pfile
, inhibit_warnings
))
133 if (CPP_OPTION (pfile
, inhibit_errors
))
135 if (pfile
->errors
< CPP_FATAL_LIMIT
)
141 if (! CPP_OPTION (pfile
, pedantic_errors
))
143 if (CPP_OPTION (pfile
, inhibit_warnings
))
149 if (CPP_OPTION (pfile
, inhibit_errors
))
151 if (pfile
->errors
< CPP_FATAL_LIMIT
)
157 if (CPP_OPTION (pfile
, inhibit_errors
))
159 if (pfile
->errors
< CPP_FATAL_LIMIT
)
162 /* Fatal errors cannot be inhibited. */
164 pfile
->errors
= CPP_FATAL_LIMIT
;
167 fprintf (stderr
, _("internal error: "));
168 pfile
->errors
= CPP_FATAL_LIMIT
;
175 file
= ip
->nominal_fname
;
177 line
= _cpp_get_line (pfile
, &col
);
178 print_containing_files (pfile
, ip
);
179 print_file_and_line (file
, line
,
180 CPP_OPTION (pfile
, show_column
) ? col
: 0);
183 fprintf (stderr
, "%s: ", progname
);
186 fputs (_("warning: "), stderr
);
191 /* Exported interface. */
193 /* For reporting internal errors. Prints "internal error: " for you,
194 otherwise identical to cpp_fatal. */
197 cpp_ice
VPARAMS ((cpp_reader
*pfile
, const char *msgid
, ...))
199 #ifndef ANSI_PROTOTYPES
205 VA_START (ap
, msgid
);
207 #ifndef ANSI_PROTOTYPES
208 pfile
= va_arg (ap
, cpp_reader
*);
209 msgid
= va_arg (ap
, const char *);
212 if (_cpp_begin_message (pfile
, ICE
, NULL
, 0, 0))
213 v_message (msgid
, ap
);
217 /* Same as cpp_error, except we consider the error to be "fatal",
218 such as inconsistent options. I.e. there is little point in continuing.
219 (We do not exit, to support use of cpplib as a library.
220 Instead, it is the caller's responsibility to check
224 cpp_fatal
VPARAMS ((cpp_reader
*pfile
, const char *msgid
, ...))
226 #ifndef ANSI_PROTOTYPES
232 VA_START (ap
, msgid
);
234 #ifndef ANSI_PROTOTYPES
235 pfile
= va_arg (ap
, cpp_reader
*);
236 msgid
= va_arg (ap
, const char *);
239 if (_cpp_begin_message (pfile
, FATAL
, NULL
, 0, 0))
240 v_message (msgid
, ap
);
245 cpp_error
VPARAMS ((cpp_reader
* pfile
, const char *msgid
, ...))
247 #ifndef ANSI_PROTOTYPES
255 #ifndef ANSI_PROTOTYPES
256 pfile
= va_arg (ap
, cpp_reader
*);
257 msgid
= va_arg (ap
, const char *);
260 if (_cpp_begin_message (pfile
, ERROR
, NULL
, 0, 0))
261 v_message (msgid
, ap
);
266 cpp_error_with_line
VPARAMS ((cpp_reader
*pfile
, int line
, int column
,
267 const char *msgid
, ...))
269 #ifndef ANSI_PROTOTYPES
277 VA_START (ap
, msgid
);
279 #ifndef ANSI_PROTOTYPES
280 pfile
= va_arg (ap
, cpp_reader
*);
281 line
= va_arg (ap
, int);
282 column
= va_arg (ap
, int);
283 msgid
= va_arg (ap
, const char *);
286 if (_cpp_begin_message (pfile
, ERROR
, NULL
, line
, column
))
287 v_message (msgid
, ap
);
291 /* Error including a message from `errno'. */
293 cpp_error_from_errno (pfile
, name
)
297 cpp_error (pfile
, "%s: %s", name
, xstrerror (errno
));
301 cpp_warning
VPARAMS ((cpp_reader
* pfile
, const char *msgid
, ...))
303 #ifndef ANSI_PROTOTYPES
309 VA_START (ap
, msgid
);
311 #ifndef ANSI_PROTOTYPES
312 pfile
= va_arg (ap
, cpp_reader
*);
313 msgid
= va_arg (ap
, const char *);
316 if (_cpp_begin_message (pfile
, WARNING
, NULL
, 0, 0))
317 v_message (msgid
, ap
);
322 cpp_warning_with_line
VPARAMS ((cpp_reader
* pfile
, int line
, int column
,
323 const char *msgid
, ...))
325 #ifndef ANSI_PROTOTYPES
333 VA_START (ap
, msgid
);
335 #ifndef ANSI_PROTOTYPES
336 pfile
= va_arg (ap
, cpp_reader
*);
337 line
= va_arg (ap
, int);
338 column
= va_arg (ap
, int);
339 msgid
= va_arg (ap
, const char *);
342 if (_cpp_begin_message (pfile
, WARNING
, NULL
, line
, column
))
343 v_message (msgid
, ap
);
348 cpp_pedwarn
VPARAMS ((cpp_reader
* pfile
, const char *msgid
, ...))
350 #ifndef ANSI_PROTOTYPES
356 VA_START (ap
, msgid
);
358 #ifndef ANSI_PROTOTYPES
359 pfile
= va_arg (ap
, cpp_reader
*);
360 msgid
= va_arg (ap
, const char *);
363 if (_cpp_begin_message (pfile
, PEDWARN
, NULL
, 0, 0))
364 v_message (msgid
, ap
);
369 cpp_pedwarn_with_line
VPARAMS ((cpp_reader
* pfile
, int line
, int column
,
370 const char *msgid
, ...))
372 #ifndef ANSI_PROTOTYPES
380 VA_START (ap
, msgid
);
382 #ifndef ANSI_PROTOTYPES
383 pfile
= va_arg (ap
, cpp_reader
*);
384 line
= va_arg (ap
, int);
385 column
= va_arg (ap
, int);
386 msgid
= va_arg (ap
, const char *);
389 if (_cpp_begin_message (pfile
, PEDWARN
, NULL
, line
, column
))
390 v_message (msgid
, ap
);
394 /* Report a warning (or an error if pedantic_errors)
395 giving specified file name and line number, not current. */
398 cpp_pedwarn_with_file_and_line
VPARAMS ((cpp_reader
*pfile
,
399 const char *file
, int line
, int col
,
400 const char *msgid
, ...))
402 #ifndef ANSI_PROTOTYPES
411 VA_START (ap
, msgid
);
413 #ifndef ANSI_PROTOTYPES
414 pfile
= va_arg (ap
, cpp_reader
*);
415 file
= va_arg (ap
, const char *);
416 line
= va_arg (ap
, int);
417 col
= va_arg (ap
, int);
418 msgid
= va_arg (ap
, const char *);
421 if (_cpp_begin_message (pfile
, PEDWARN
, file
, line
, col
))
422 v_message (msgid
, ap
);
426 /* Print an error message not associated with a file. */
428 cpp_notice
VPARAMS ((cpp_reader
*pfile
, const char *msgid
, ...))
430 #ifndef ANSI_PROTOTYPES
436 VA_START (ap
, msgid
);
438 #ifndef ANSI_PROTOTYPES
439 pfile
= va_arg (ap
, cpp_reader
*);
440 msgid
= va_arg (ap
, const char *);
443 if (pfile
->errors
< CPP_FATAL_LIMIT
)
446 vfprintf (stderr
, _(msgid
), ap
);
453 cpp_notice_from_errno (pfile
, name
)
459 cpp_notice (pfile
, "%s: %s", name
, xstrerror (errno
));
466 return (const char *) _cpp_token_spellings
[type
].name
;