contrib/gcc-5.0/libcpp/errors.c

   1 /* Default error handlers for CPP Library.
   2    Copyright (C) 1986-2015 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       src_loc = 0;
  52     }
  53   else
  54     {
  55       src_loc = pfile->cur_token[-1].src_loc;
  56     }
  57
  58   if (!pfile->cb.error)
  59     abort ();
  60   ret = pfile->cb.error (pfile, level, reason, src_loc, 0, _(msgid), ap);
  61
  62   return ret;
  63 }
  64
  65 /* Print a warning or error, depending on the value of LEVEL.  */
  66
  67 bool
  68 cpp_error (cpp_reader * pfile, int level, const char *msgid, ...)
  69 {
  70   va_list ap;
  71   bool ret;
  72
  73   va_start (ap, msgid);
  74
  75   ret = cpp_diagnostic (pfile, level, CPP_W_NONE, msgid, &ap);
  76
  77   va_end (ap);
  78   return ret;
  79 }
  80
  81 /* Print a warning.  The warning reason may be given in REASON.  */
  82
  83 bool
  84 cpp_warning (cpp_reader * pfile, int reason, const char *msgid, ...)
  85 {
  86   va_list ap;
  87   bool ret;
  88
  89   va_start (ap, msgid);
  90
  91   ret = cpp_diagnostic (pfile, CPP_DL_WARNING, reason, msgid, &ap);
  92
  93   va_end (ap);
  94   return ret;
  95 }
  96
  97 /* Print a pedantic warning.  The warning reason may be given in REASON.  */
  98
  99 bool
 100 cpp_pedwarning (cpp_reader * pfile, int reason, const char *msgid, ...)
 101 {
 102   va_list ap;
 103   bool ret;
 104
 105   va_start (ap, msgid);
 106
 107   ret = cpp_diagnostic (pfile, CPP_DL_PEDWARN, reason, msgid, &ap);
 108
 109   va_end (ap);
 110   return ret;
 111 }
 112
 113 /* Print a warning, including system headers.  The warning reason may be
 114    given in REASON.  */
 115
 116 bool
 117 cpp_warning_syshdr (cpp_reader * pfile, int reason, const char *msgid, ...)
 118 {
 119   va_list ap;
 120   bool ret;
 121
 122   va_start (ap, msgid);
 123
 124   ret = cpp_diagnostic (pfile, CPP_DL_WARNING_SYSHDR, reason, msgid, &ap);
 125
 126   va_end (ap);
 127   return ret;
 128 }
 129
 130 /* Print a diagnostic at a specific location.  */
 131
 132 ATTRIBUTE_FPTR_PRINTF(6,0)
 133 static bool
 134 cpp_diagnostic_with_line (cpp_reader * pfile, int level, int reason,
 135                           source_location src_loc, unsigned int column,
 136                           const char *msgid, va_list *ap)
 137 {
 138   bool ret;
 139
 140   if (!pfile->cb.error)
 141     abort ();
 142   ret = pfile->cb.error (pfile, level, reason, src_loc, column, _(msgid), ap);
 143
 144   return ret;
 145 }
 146
 147 /* Print a warning or error, depending on the value of LEVEL.  */
 148
 149 bool
 150 cpp_error_with_line (cpp_reader *pfile, int level,
 151                      source_location src_loc, unsigned int column,
 152                      const char *msgid, ...)
 153 {
 154   va_list ap;
 155   bool ret;
 156
 157   va_start (ap, msgid);
 158
 159   ret = cpp_diagnostic_with_line (pfile, level, CPP_W_NONE, src_loc,
 160                                   column, msgid, &ap);
 161
 162   va_end (ap);
 163   return ret;
 164 }
 165
 166 /* Print a warning.  The warning reason may be given in REASON.  */
 167
 168 bool
 169 cpp_warning_with_line (cpp_reader *pfile, int reason,
 170                        source_location src_loc, unsigned int column,
 171                        const char *msgid, ...)
 172 {
 173   va_list ap;
 174   bool ret;
 175
 176   va_start (ap, msgid);
 177
 178   ret = cpp_diagnostic_with_line (pfile, CPP_DL_WARNING, reason, src_loc,
 179                                   column, msgid, &ap);
 180
 181   va_end (ap);
 182   return ret;
 183 }
 184
 185 /* Print a pedantic warning.  The warning reason may be given in REASON.  */
 186
 187 bool
 188 cpp_pedwarning_with_line (cpp_reader *pfile, int reason,
 189                           source_location src_loc, unsigned int column,
 190                           const char *msgid, ...)
 191 {
 192   va_list ap;
 193   bool ret;
 194
 195   va_start (ap, msgid);
 196
 197   ret = cpp_diagnostic_with_line (pfile, CPP_DL_PEDWARN, reason, src_loc,
 198                                   column, msgid, &ap);
 199
 200   va_end (ap);
 201   return ret;
 202 }
 203
 204 /* Print a warning, including system headers.  The warning reason may be
 205    given in REASON.  */
 206
 207 bool
 208 cpp_warning_with_line_syshdr (cpp_reader *pfile, int reason,
 209                               source_location src_loc, unsigned int column,
 210                               const char *msgid, ...)
 211 {
 212   va_list ap;
 213   bool ret;
 214
 215   va_start (ap, msgid);
 216
 217   ret = cpp_diagnostic_with_line (pfile, CPP_DL_WARNING_SYSHDR, reason, src_loc,
 218                                   column, msgid, &ap);
 219
 220   va_end (ap);
 221   return ret;
 222 }
 223
 224 /* Print a warning or error, depending on the value of LEVEL.  Include
 225    information from errno.  */
 226
 227 bool
 228 cpp_errno (cpp_reader *pfile, int level, const char *msgid)
 229 {
 230   if (msgid[0] == '\0')
 231     msgid = _("stdout");
 232
 233   return cpp_error (pfile, level, "%s: %s", msgid, xstrerror (errno));
 234 }