libcpp/errors.c

   1 /* Default error handlers for CPP Library.
   2    Copyright (C) 1986-2013 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 3, 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; see the file COPYING3.  If not see
  19 <http://www.gnu.org/licenses/>.
  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 #include "config.h"
  26 #include "system.h"
  27 #include "cpplib.h"
  28 #include "internal.h"
  29
  30 /* Print a diagnostic at the location of the previously lexed token.  */
  31
  32 ATTRIBUTE_FPTR_PRINTF(4,0)
  33 static bool
  34 cpp_diagnostic (cpp_reader * pfile, int level, int reason,
  35                 const char *msgid, va_list *ap)
  36 {
  37   source_location src_loc;
  38   bool ret;
  39
  40   if (CPP_OPTION (pfile, traditional))
  41     {
  42       if (pfile->state.in_directive)
  43         src_loc = pfile->directive_line;
  44       else
  45         src_loc = pfile->line_table->highest_line;
  46     }
  47   /* We don't want to refer to a token before the beginning of the
  48      current run -- that is invalid.  */
  49   else if (pfile->cur_token == pfile->cur_run->base)
  50     {
  51       if (pfile->cur_run->prev != NULL)
  52         src_loc = pfile->cur_run->prev->limit->src_loc;
  53       else
  54         src_loc = 0;
  55     }
  56   else
  57     {
  58       src_loc = pfile->cur_token[-1].src_loc;
  59     }
  60
  61   if (!pfile->cb.error)
  62     abort ();
  63   ret = pfile->cb.error (pfile, level, reason, src_loc, 0, _(msgid), ap);
  64
  65   return ret;
  66 }
  67
  68 /* Print a warning or error, depending on the value of LEVEL.  */
  69
  70 bool
  71 cpp_error (cpp_reader * pfile, int level, const char *msgid, ...)
  72 {
  73   va_list ap;
  74   bool ret;
  75
  76   va_start (ap, msgid);
  77
  78   ret = cpp_diagnostic (pfile, level, CPP_W_NONE, msgid, &ap);
  79
  80   va_end (ap);
  81   return ret;
  82 }
  83
  84 /* Print a warning.  The warning reason may be given in REASON.  */
  85
  86 bool
  87 cpp_warning (cpp_reader * pfile, int reason, const char *msgid, ...)
  88 {
  89   va_list ap;
  90   bool ret;
  91
  92   va_start (ap, msgid);
  93
  94   ret = cpp_diagnostic (pfile, CPP_DL_WARNING, reason, msgid, &ap);
  95
  96   va_end (ap);
  97   return ret;
  98 }
  99
 100 /* Print a pedantic warning.  The warning reason may be given in REASON.  */
 101
 102 bool
 103 cpp_pedwarning (cpp_reader * pfile, int reason, const char *msgid, ...)
 104 {
 105   va_list ap;
 106   bool ret;
 107
 108   va_start (ap, msgid);
 109
 110   ret = cpp_diagnostic (pfile, CPP_DL_PEDWARN, reason, msgid, &ap);
 111
 112   va_end (ap);
 113   return ret;
 114 }
 115
 116 /* Print a warning, including system headers.  The warning reason may be
 117    given in REASON.  */
 118
 119 bool
 120 cpp_warning_syshdr (cpp_reader * pfile, int reason, const char *msgid, ...)
 121 {
 122   va_list ap;
 123   bool ret;
 124
 125   va_start (ap, msgid);
 126
 127   ret = cpp_diagnostic (pfile, CPP_DL_WARNING_SYSHDR, reason, msgid, &ap);
 128
 129   va_end (ap);
 130   return ret;
 131 }
 132
 133 /* Print a diagnostic at a specific location.  */
 134
 135 ATTRIBUTE_FPTR_PRINTF(6,0)
 136 static bool
 137 cpp_diagnostic_with_line (cpp_reader * pfile, int level, int reason,
 138                           source_location src_loc, unsigned int column,
 139                           const char *msgid, va_list *ap)
 140 {
 141   bool ret;
 142
 143   if (!pfile->cb.error)
 144     abort ();
 145   ret = pfile->cb.error (pfile, level, reason, src_loc, column, _(msgid), ap);
 146
 147   return ret;
 148 }
 149
 150 /* Print a warning or error, depending on the value of LEVEL.  */
 151
 152 bool
 153 cpp_error_with_line (cpp_reader *pfile, int level,
 154                      source_location src_loc, unsigned int column,
 155                      const char *msgid, ...)
 156 {
 157   va_list ap;
 158   bool ret;
 159
 160   va_start (ap, msgid);
 161
 162   ret = cpp_diagnostic_with_line (pfile, level, CPP_W_NONE, src_loc,
 163                                   column, msgid, &ap);
 164
 165   va_end (ap);
 166   return ret;
 167 }
 168
 169 /* Print a warning.  The warning reason may be given in REASON.  */
 170
 171 bool
 172 cpp_warning_with_line (cpp_reader *pfile, int reason,
 173                        source_location src_loc, unsigned int column,
 174                        const char *msgid, ...)
 175 {
 176   va_list ap;
 177   bool ret;
 178
 179   va_start (ap, msgid);
 180
 181   ret = cpp_diagnostic_with_line (pfile, CPP_DL_WARNING, reason, src_loc,
 182                                   column, msgid, &ap);
 183
 184   va_end (ap);
 185   return ret;
 186 }
 187
 188 /* Print a pedantic warning.  The warning reason may be given in REASON.  */
 189
 190 bool
 191 cpp_pedwarning_with_line (cpp_reader *pfile, int reason,
 192                           source_location src_loc, unsigned int column,
 193                           const char *msgid, ...)
 194 {
 195   va_list ap;
 196   bool ret;
 197
 198   va_start (ap, msgid);
 199
 200   ret = cpp_diagnostic_with_line (pfile, CPP_DL_PEDWARN, reason, src_loc,
 201                                   column, msgid, &ap);
 202
 203   va_end (ap);
 204   return ret;
 205 }
 206
 207 /* Print a warning, including system headers.  The warning reason may be
 208    given in REASON.  */
 209
 210 bool
 211 cpp_warning_with_line_syshdr (cpp_reader *pfile, int reason,
 212                               source_location src_loc, unsigned int column,
 213                               const char *msgid, ...)
 214 {
 215   va_list ap;
 216   bool ret;
 217
 218   va_start (ap, msgid);
 219
 220   ret = cpp_diagnostic_with_line (pfile, CPP_DL_WARNING_SYSHDR, reason, src_loc,
 221                                   column, msgid, &ap);
 222
 223   va_end (ap);
 224   return ret;
 225 }
 226
 227 /* Print a warning or error, depending on the value of LEVEL.  Include
 228    information from errno.  */
 229
 230 bool
 231 cpp_errno (cpp_reader *pfile, int level, const char *msgid)
 232 {
 233   if (msgid[0] == '\0')
 234     msgid = _("stdout");
 235
 236   return cpp_error (pfile, level, "%s: %s", msgid, xstrerror (errno));
 237 }