/* Default error handlers for CPP Library.
- Copyright (C) 1986, 87, 89, 92, 93, 94, 1995 Free Software Foundation, Inc.
+ Copyright (C) 1986, 1987, 1989, 1992, 1993, 1994, 1995, 1998, 1999, 2000
+ Free Software Foundation, Inc.
Written by Per Bothner, 1994.
- Based on CCCP program by by Paul Rubin, June 1986
+ Based on CCCP program by Paul Rubin, June 1986
Adapted to ANSI C, Richard Stallman, Jan 1987
This program is free software; you can redistribute it and/or modify it
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
-Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
In other words, you are welcome to use, share and improve this program.
You are forbidden to forbid anyone else to use, share and improve
what you give them. Help stamp out software-hoarding! */
+#include "config.h"
+#include "system.h"
#include "cpplib.h"
-#include <stdio.h>
+#include "cpphash.h"
+#include "intl.h"
-/* Print the file names and line numbers of the #include
- commands which led to the current file. */
+static void print_location PARAMS ((cpp_reader *,
+ const cpp_lexer_pos *));
-void
-cpp_print_containing_files (pfile)
+/* Don't remove the blank before do, as otherwise the exgettext
+ script will mistake this as a function definition */
+#define v_message(msgid, ap) \
+ do { vfprintf (stderr, _(msgid), ap); putc ('\n', stderr); } while (0)
+
+static void
+print_location (pfile, pos)
cpp_reader *pfile;
+ const cpp_lexer_pos *pos;
{
- cpp_buffer *ip;
- int i;
- int first = 1;
+ cpp_buffer *buffer = pfile->buffer;
+
+ if (!buffer)
+ fprintf (stderr, "%s: ", progname);
+ else
+ {
+ unsigned int line, col;
+ const struct line_map *map;
+
+ if (pos == 0)
+ pos = cpp_get_line (pfile);
+ map = lookup_line (&pfile->line_maps, pos->line);
+
+ print_containing_files (&pfile->line_maps, map);
+
+ line = SOURCE_LINE (map, pos->line);
+ col = pos->col;
+ if (col == 0)
+ col = 1;
+
+ if (line == 0)
+ fprintf (stderr, "%s:", map->to_file);
+ else if (CPP_OPTION (pfile, show_column) == 0)
+ fprintf (stderr, "%s:%u:", map->to_file, line);
+ else
+ fprintf (stderr, "%s:%u:%u:", map->to_file, line, col);
- /* If stack of files hasn't changed since we last printed
- this info, don't repeat it. */
- if (pfile->input_stack_listing_current)
- return;
+ fputc (' ', stderr);
+ }
+}
- ip = cpp_file_buffer (pfile);
+/* Set up for an error message: print the file and line, bump the error
+ counter, etc.
+ If it returns 0, this error has been suppressed. */
- /* Give up if we don't find a source file. */
- if (ip == NULL)
- return;
+int
+_cpp_begin_message (pfile, code, pos)
+ cpp_reader *pfile;
+ enum error_type code;
+ const cpp_lexer_pos *pos;
+{
+ int is_warning = 0;
- /* Find the other, outer source files. */
- while ((ip = CPP_PREV_BUFFER (ip)), ip != CPP_NULL_BUFFER (pfile))
+ switch (code)
{
- long line, col;
- cpp_buf_line_and_col (ip, &line, &col);
- if (ip->fname != NULL)
+ case PEDWARN:
+ case WARNING:
+ if (CPP_IN_SYSTEM_HEADER (pfile)
+ && ! CPP_OPTION (pfile, warn_system_headers))
+ return 0;
+ case WARNING_SYSHDR:
+ if (CPP_OPTION (pfile, warnings_are_errors)
+ || (code == PEDWARN && CPP_OPTION (pfile, pedantic_errors)))
{
- if (first)
- {
- first = 0;
- fprintf (stderr, "In file included");
- }
- else
- fprintf (stderr, ",\n ");
+ if (CPP_OPTION (pfile, inhibit_errors))
+ return 0;
+ if (pfile->errors < CPP_FATAL_LIMIT)
+ pfile->errors++;
}
-
-/* start-sanitize-mpw */
-#ifdef MPW
- fprintf (stderr, " File \"%s\"; Line %d # ", ip->nominal_fname, line);
-#else
-/* end-sanitize-mpw */
- fprintf (stderr, " from %s:%d", ip->nominal_fname, line);
-/* start-sanitize-mpw */
-#endif /* MPW */
-/* end-sanitize-mpw */
+ else
+ {
+ if (CPP_OPTION (pfile, inhibit_warnings))
+ return 0;
+ is_warning = 1;
+ }
+ break;
+
+ case ERROR:
+ if (CPP_OPTION (pfile, inhibit_errors))
+ return 0;
+ if (pfile->errors < CPP_FATAL_LIMIT)
+ pfile->errors++;
+ break;
+ /* Fatal errors cannot be inhibited. */
+ case FATAL:
+ pfile->errors = CPP_FATAL_LIMIT;
+ break;
+ case ICE:
+ fprintf (stderr, _("internal error: "));
+ pfile->errors = CPP_FATAL_LIMIT;
+ break;
}
- if (! first)
- fprintf (stderr, ":\n");
- /* Record we have printed the status as of this time. */
- pfile->input_stack_listing_current = 1;
+ print_location (pfile, pos);
+ if (is_warning)
+ fputs (_("warning: "), stderr);
+
+ return 1;
+}
+
+/* Exported interface. */
+
+/* For reporting internal errors. Prints "internal error: " for you,
+ otherwise identical to cpp_fatal. */
+
+void
+cpp_ice VPARAMS ((cpp_reader *pfile, const char *msgid, ...))
+{
+ VA_OPEN (ap, msgid);
+ VA_FIXEDARG (ap, cpp_reader *, pfile);
+ VA_FIXEDARG (ap, const char *, msgid);
+
+ if (_cpp_begin_message (pfile, ICE, 0))
+ v_message (msgid, ap);
+
+ VA_CLOSE (ap);
}
+/* Same as cpp_error, except we consider the error to be "fatal",
+ such as inconsistent options. I.e. there is little point in continuing.
+ (We do not exit, to support use of cpplib as a library.
+ Instead, it is the caller's responsibility to check
+ CPP_FATAL_ERRORS. */
+
void
-cpp_file_line_for_message (pfile, filename, line, column)
- cpp_reader *pfile;
- char *filename;
- int line, column;
+cpp_fatal VPARAMS ((cpp_reader *pfile, const char *msgid, ...))
+{
+ VA_OPEN (ap, msgid);
+ VA_FIXEDARG (ap, cpp_reader *, pfile);
+ VA_FIXEDARG (ap, const char *, msgid);
+
+ if (_cpp_begin_message (pfile, FATAL, 0))
+ v_message (msgid, ap);
+
+ VA_CLOSE (ap);
+}
+
+void
+cpp_error VPARAMS ((cpp_reader * pfile, const char *msgid, ...))
{
- if (column > 0)
- fprintf (stderr, "%s:%d:%d: ", filename, line, column);
- else
- fprintf (stderr, "%s:%d: ", filename, line);
+ VA_OPEN (ap, msgid);
+ VA_FIXEDARG (ap, cpp_reader *, pfile);
+ VA_FIXEDARG (ap, const char *, msgid);
+
+ if (_cpp_begin_message (pfile, ERROR, 0))
+ v_message (msgid, ap);
+
+ VA_CLOSE (ap);
+}
+
+void
+cpp_error_with_line VPARAMS ((cpp_reader *pfile, int line, int column,
+ const char *msgid, ...))
+{
+ cpp_lexer_pos pos;
+
+ VA_OPEN (ap, msgid);
+ VA_FIXEDARG (ap, cpp_reader *, pfile);
+ VA_FIXEDARG (ap, int, line);
+ VA_FIXEDARG (ap, int, column);
+ VA_FIXEDARG (ap, const char *, msgid);
+
+ pos.line = line;
+ pos.col = column;
+ if (_cpp_begin_message (pfile, ERROR, &pos))
+ v_message (msgid, ap);
+
+ VA_CLOSE (ap);
}
-/* IS_ERROR is 1 for error, 0 for warning */
-void cpp_message (pfile, is_error, msg, arg1, arg2, arg3)
- int is_error;
+/* Error including a message from `errno'. */
+void
+cpp_error_from_errno (pfile, name)
cpp_reader *pfile;
- char *msg;
- char *arg1, *arg2, *arg3;
+ const char *name;
{
- if (is_error)
- pfile->errors++;
- else
- fprintf (stderr, "warning: ");
- fprintf (stderr, msg, arg1, arg2, arg3);
- fprintf (stderr, "\n");
+ cpp_error (pfile, "%s: %s", name, xstrerror (errno));
+}
+
+void
+cpp_warning VPARAMS ((cpp_reader * pfile, const char *msgid, ...))
+{
+ VA_OPEN (ap, msgid);
+ VA_FIXEDARG (ap, cpp_reader *, pfile);
+ VA_FIXEDARG (ap, const char *, msgid);
+
+ if (_cpp_begin_message (pfile, WARNING, 0))
+ v_message (msgid, ap);
+
+ VA_CLOSE (ap);
+}
+
+void
+cpp_warning_with_line VPARAMS ((cpp_reader * pfile, int line, int column,
+ const char *msgid, ...))
+{
+ cpp_lexer_pos pos;
+
+ VA_OPEN (ap, msgid);
+ VA_FIXEDARG (ap, cpp_reader *, pfile);
+ VA_FIXEDARG (ap, int, line);
+ VA_FIXEDARG (ap, int, column);
+ VA_FIXEDARG (ap, const char *, msgid);
+
+ pos.line = line;
+ pos.col = column;
+ if (_cpp_begin_message (pfile, WARNING, &pos))
+ v_message (msgid, ap);
+
+ VA_CLOSE (ap);
+}
+
+void
+cpp_pedwarn VPARAMS ((cpp_reader * pfile, const char *msgid, ...))
+{
+ VA_OPEN (ap, msgid);
+ VA_FIXEDARG (ap, cpp_reader *, pfile);
+ VA_FIXEDARG (ap, const char *, msgid);
+
+ if (_cpp_begin_message (pfile, PEDWARN, 0))
+ v_message (msgid, ap);
+
+ VA_CLOSE (ap);
+}
+
+void
+cpp_pedwarn_with_line VPARAMS ((cpp_reader * pfile, int line, int column,
+ const char *msgid, ...))
+{
+ cpp_lexer_pos pos;
+
+ VA_OPEN (ap, msgid);
+ VA_FIXEDARG (ap, cpp_reader *, pfile);
+ VA_FIXEDARG (ap, int, line);
+ VA_FIXEDARG (ap, int, column);
+ VA_FIXEDARG (ap, const char *, msgid);
+
+ pos.line = line;
+ pos.col = column;
+ if (_cpp_begin_message (pfile, PEDWARN, &pos))
+ v_message (msgid, ap);
+
+ VA_CLOSE (ap);
}
+/* Print an error message not associated with a file. */
void
-fatal (str, arg)
- char *str, *arg;
+cpp_notice VPARAMS ((cpp_reader *pfile, const char *msgid, ...))
{
- fprintf (stderr, "%s: ", progname);
- fprintf (stderr, str, arg);
- fprintf (stderr, "\n");
- exit (FAILURE_EXIT_CODE);
+ VA_OPEN (ap, msgid);
+ VA_FIXEDARG (ap, cpp_reader *, pfile);
+ VA_FIXEDARG (ap, const char *, msgid);
+
+ if (pfile->errors < CPP_FATAL_LIMIT)
+ pfile->errors++;
+
+ v_message (msgid, ap);
+
+ VA_CLOSE (ap);
}
-\f
void
-cpp_pfatal_with_name (pfile, name)
+cpp_notice_from_errno (pfile, name)
cpp_reader *pfile;
- char *name;
+ const char *name;
{
- cpp_perror_with_name (pfile, name);
-#ifdef VMS
- exit (vaxc$errno);
-#else
- exit (FAILURE_EXIT_CODE);
-#endif
+ if (name[0] == '\0')
+ name = "stdout";
+ cpp_notice (pfile, "%s: %s", name, xstrerror (errno));
}
OSDN Git Service
