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;
94 if (filename == 0 || *filename == '\0')
97 if (line == (unsigned int)-1)
98 fprintf (stderr, "%s: ", filename);
100 fprintf (stderr, "%s:%u:%u: ", filename, line, column);
102 fprintf (stderr, "%s:%u: ", filename, line);
105 /* Set up for an error message: print the file and line, bump the error
107 If it returns 0, this error has been suppressed. */
110 _cpp_begin_message (pfile, code, file, line, col)
112 enum error_type code;
117 cpp_buffer *ip = CPP_BUFFER (pfile);
123 if (! CPP_OPTION (pfile, warnings_are_errors))
125 if (CPP_OPTION (pfile, inhibit_warnings))
131 if (CPP_OPTION (pfile, inhibit_errors))
133 if (pfile->errors < CPP_FATAL_LIMIT)
139 if (! CPP_OPTION (pfile, pedantic_errors))
141 if (CPP_OPTION (pfile, inhibit_warnings))
147 if (CPP_OPTION (pfile, inhibit_errors))
149 if (pfile->errors < CPP_FATAL_LIMIT)
155 if (CPP_OPTION (pfile, inhibit_errors))
157 if (pfile->errors < CPP_FATAL_LIMIT)
160 /* Fatal errors cannot be inhibited. */
162 pfile->errors = CPP_FATAL_LIMIT;
165 fprintf (stderr, _("internal error: "));
166 pfile->errors = CPP_FATAL_LIMIT;
173 file = ip->nominal_fname;
175 line = _cpp_get_line (pfile, &col);
176 print_containing_files (pfile, ip);
177 print_file_and_line (file, line,
178 CPP_OPTION (pfile, show_column) ? col : 0);
181 fprintf (stderr, "%s: ", progname);
184 fputs (_("warning: "), stderr);
189 /* Exported interface. */
191 /* For reporting internal errors. Prints "internal error: " for you,
192 otherwise identical to cpp_fatal. */
195 cpp_ice VPARAMS ((cpp_reader *pfile, const char *msgid, ...))
197 #ifndef ANSI_PROTOTYPES
203 VA_START (ap, msgid);
205 #ifndef ANSI_PROTOTYPES
206 pfile = va_arg (ap, cpp_reader *);
207 msgid = va_arg (ap, const char *);
210 if (_cpp_begin_message (pfile, ICE, NULL, 0, 0))
211 v_message (msgid, ap);
215 /* Same as cpp_error, except we consider the error to be "fatal",
216 such as inconsistent options. I.e. there is little point in continuing.
217 (We do not exit, to support use of cpplib as a library.
218 Instead, it is the caller's responsibility to check
222 cpp_fatal VPARAMS ((cpp_reader *pfile, const char *msgid, ...))
224 #ifndef ANSI_PROTOTYPES
230 VA_START (ap, msgid);
232 #ifndef ANSI_PROTOTYPES
233 pfile = va_arg (ap, cpp_reader *);
234 msgid = va_arg (ap, const char *);
237 if (_cpp_begin_message (pfile, FATAL, NULL, 0, 0))
238 v_message (msgid, ap);
243 cpp_error VPARAMS ((cpp_reader * pfile, const char *msgid, ...))
245 #ifndef ANSI_PROTOTYPES
253 #ifndef ANSI_PROTOTYPES
254 pfile = va_arg (ap, cpp_reader *);
255 msgid = va_arg (ap, const char *);
258 if (_cpp_begin_message (pfile, ERROR, NULL, 0, 0))
259 v_message (msgid, ap);
264 cpp_error_with_line VPARAMS ((cpp_reader *pfile, int line, int column,
265 const char *msgid, ...))
267 #ifndef ANSI_PROTOTYPES
275 VA_START (ap, msgid);
277 #ifndef ANSI_PROTOTYPES
278 pfile = va_arg (ap, cpp_reader *);
279 line = va_arg (ap, int);
280 column = va_arg (ap, int);
281 msgid = va_arg (ap, const char *);
284 if (_cpp_begin_message (pfile, ERROR, NULL, line, column))
285 v_message (msgid, ap);
289 /* Error including a message from `errno'. */
291 cpp_error_from_errno (pfile, name)
295 cpp_error (pfile, "%s: %s", name, xstrerror (errno));
299 cpp_warning VPARAMS ((cpp_reader * pfile, const char *msgid, ...))
301 #ifndef ANSI_PROTOTYPES
307 VA_START (ap, msgid);
309 #ifndef ANSI_PROTOTYPES
310 pfile = va_arg (ap, cpp_reader *);
311 msgid = va_arg (ap, const char *);
314 if (_cpp_begin_message (pfile, WARNING, NULL, 0, 0))
315 v_message (msgid, ap);
320 cpp_warning_with_line VPARAMS ((cpp_reader * pfile, int line, int column,
321 const char *msgid, ...))
323 #ifndef ANSI_PROTOTYPES
331 VA_START (ap, msgid);
333 #ifndef ANSI_PROTOTYPES
334 pfile = va_arg (ap, cpp_reader *);
335 line = va_arg (ap, int);
336 column = va_arg (ap, int);
337 msgid = va_arg (ap, const char *);
340 if (_cpp_begin_message (pfile, WARNING, NULL, line, column))
341 v_message (msgid, ap);
346 cpp_pedwarn VPARAMS ((cpp_reader * pfile, const char *msgid, ...))
348 #ifndef ANSI_PROTOTYPES
354 VA_START (ap, msgid);
356 #ifndef ANSI_PROTOTYPES
357 pfile = va_arg (ap, cpp_reader *);
358 msgid = va_arg (ap, const char *);
361 if (_cpp_begin_message (pfile, PEDWARN, NULL, 0, 0))
362 v_message (msgid, ap);
367 cpp_pedwarn_with_line VPARAMS ((cpp_reader * pfile, int line, int column,
368 const char *msgid, ...))
370 #ifndef ANSI_PROTOTYPES
378 VA_START (ap, msgid);
380 #ifndef ANSI_PROTOTYPES
381 pfile = va_arg (ap, cpp_reader *);
382 line = va_arg (ap, int);
383 column = va_arg (ap, int);
384 msgid = va_arg (ap, const char *);
387 if (_cpp_begin_message (pfile, PEDWARN, NULL, line, column))
388 v_message (msgid, ap);
392 /* Report a warning (or an error if pedantic_errors)
393 giving specified file name and line number, not current. */
396 cpp_pedwarn_with_file_and_line VPARAMS ((cpp_reader *pfile,
397 const char *file, int line, int col,
398 const char *msgid, ...))
400 #ifndef ANSI_PROTOTYPES
409 VA_START (ap, msgid);
411 #ifndef ANSI_PROTOTYPES
412 pfile = va_arg (ap, cpp_reader *);
413 file = va_arg (ap, const char *);
414 line = va_arg (ap, int);
415 col = va_arg (ap, int);
416 msgid = va_arg (ap, const char *);
419 if (_cpp_begin_message (pfile, PEDWARN, file, line, col))
420 v_message (msgid, ap);
424 /* Print an error message not associated with a file. */
426 cpp_notice VPARAMS ((cpp_reader *pfile, const char *msgid, ...))
428 #ifndef ANSI_PROTOTYPES
434 VA_START (ap, msgid);
436 #ifndef ANSI_PROTOTYPES
437 pfile = va_arg (ap, cpp_reader *);
438 msgid = va_arg (ap, const char *);
441 if (pfile->errors < CPP_FATAL_LIMIT)
444 vfprintf (stderr, _(msgid), ap);
451 cpp_notice_from_errno (pfile, name)
457 cpp_notice (pfile, "%s: %s", name, xstrerror (errno));
464 return (const char *) _cpp_token_spellings[type].name;