gcc/cpperror.c

   1 /* Default error handlers for CPP Library.
   2    Copyright (C) 1986, 87, 89, 92 - 95, 1998 Free Software Foundation, Inc.
   3    Written by Per Bothner, 1994.
   4    Based on CCCP program by Paul Rubin, June 1986
   5    Adapted to ANSI C, Richard Stallman, Jan 1987
   6
   7 This program is free software; you can redistribute it and/or modify it
   8 under the terms of the GNU General Public License as published by the
   9 Free Software Foundation; either version 2, or (at your option) any
  10 later version.
  11
  12 This program is distributed in the hope that it will be useful,
  13 but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 GNU General Public License for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with this program; if not, write to the Free Software
  19 Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  20
  21  In other words, you are welcome to use, share and improve this program.
  22  You are forbidden to forbid anyone else to use, share and improve
  23  what you give them.   Help stamp out software-hoarding!  */
  24
  25 #ifndef EMACS
  26 #include "config.h"
  27 #ifdef __STDC__
  28 #include <stdarg.h>
  29 #else
  30 #include <varargs.h>
  31 #endif
  32 #include "system.h"
  33 #include "gansidecl.h"
  34 #else
  35 #include <stdio.h>
  36 #endif /* not EMACS */
  37
  38 #include "cpplib.h"
  39
  40 /* Print the file names and line numbers of the #include
  41    commands which led to the current file.  */
  42
  43 void
  44 cpp_print_containing_files (pfile)
  45      cpp_reader *pfile;
  46 {
  47   cpp_buffer *ip;
  48   int first = 1;
  49
  50   /* If stack of files hasn't changed since we last printed
  51      this info, don't repeat it.  */
  52   if (pfile->input_stack_listing_current)
  53     return;
  54
  55   ip = cpp_file_buffer (pfile);
  56
  57   /* Give up if we don't find a source file.  */
  58   if (ip == NULL)
  59     return;
  60
  61   /* Find the other, outer source files.  */
  62   while ((ip = CPP_PREV_BUFFER (ip)), ip != CPP_NULL_BUFFER (pfile))
  63     {
  64       long line, col;
  65       cpp_buf_line_and_col (ip, &line, &col);
  66       if (ip->fname != NULL)
  67         {
  68           if (first)
  69             {
  70               first = 0;
  71               fprintf (stderr, "In file included");
  72             }
  73           else
  74             fprintf (stderr, ",\n                ");
  75         }
  76
  77       fprintf (stderr, " from %s:%ld", ip->nominal_fname, line);
  78     }
  79   if (! first)
  80     fprintf (stderr, ":\n");
  81
  82   /* Record we have printed the status as of this time.  */
  83   pfile->input_stack_listing_current = 1;
  84 }
  85
  86 void
  87 cpp_file_line_for_message (pfile, filename, line, column)
  88      cpp_reader *pfile ATTRIBUTE_UNUSED;
  89      char *filename;
  90      int line, column;
  91 {
  92   if (column > 0)
  93     fprintf (stderr, "%s:%d:%d: ", filename, line, column);
  94   else
  95     fprintf (stderr, "%s:%d: ", filename, line);
  96 }
  97
  98 /* IS_ERROR is 2 for "fatal" error, 1 for error, 0 for warning */
  99
 100 void
 101 v_cpp_message (pfile, is_error, msg, ap)
 102   cpp_reader * pfile;
 103   int is_error;
 104   const char *msg;
 105   va_list ap;
 106 {
 107   if (!is_error)
 108     fprintf (stderr, "warning: ");
 109   else if (is_error == 2)
 110     pfile->errors = CPP_FATAL_LIMIT;
 111   else if (pfile->errors < CPP_FATAL_LIMIT)
 112     pfile->errors++;
 113   vfprintf (stderr, msg, ap);
 114   fprintf (stderr, "\n");
 115 }
 116
 117 void
 118 cpp_message VPROTO ((cpp_reader *pfile, int is_error, const char *msg, ...))
 119 {
 120 #ifndef __STDC__
 121   cpp_reader *pfile;
 122   int is_error;
 123   const char *msg;
 124 #endif
 125   va_list ap;
 126
 127   VA_START (ap, msg);
 128
 129 #ifndef __STDC__
 130   pfile = va_arg (ap, cpp_reader *);
 131   is_error = va_arg (ap, int);
 132   msg = va_arg (ap, const char *);
 133 #endif
 134
 135   v_cpp_message(pfile, is_error, msg, ap);
 136   va_end(ap);
 137 }
 138
 139 /* Same as cpp_error, except we consider the error to be "fatal",
 140    such as inconsistent options.  I.e. there is little point in continuing.
 141    (We do not exit, to support use of cpplib as a library.
 142    Instead, it is the caller's responsibility to check
 143    CPP_FATAL_ERRORS.  */
 144
 145 void
 146 cpp_fatal VPROTO ((cpp_reader *pfile, const char *str, ...))
 147 {
 148 #ifndef __STDC__
 149   cpp_reader *pfile;
 150   const char *str;
 151 #endif
 152   va_list ap;
 153
 154   VA_START (ap, str);
 155
 156 #ifndef __STDC__
 157   pfile = va_arg (ap, cpp_reader *);
 158   str = va_arg (ap, const char *);
 159 #endif
 160
 161   fprintf (stderr, "%s: ", progname);
 162   v_cpp_message (pfile, 2, str, ap);
 163   va_end(ap);
 164 }
 165 \f
 166 void
 167 cpp_pfatal_with_name (pfile, name)
 168      cpp_reader *pfile;
 169      const char *name;
 170 {
 171   cpp_perror_with_name (pfile, name);
 172 #ifdef VMS
 173   exit (vaxc$errno);
 174 #else
 175   exit (FATAL_EXIT_CODE);
 176 #endif
 177 }