1 /* Default error handlers for CPP Library. 2 Copyright (C) 1986-2017 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 given location. */ 31 32 ATTRIBUTE_FPTR_PRINTF(5,0) 33 static bool 34 cpp_diagnostic_at_richloc (cpp_reader * pfile, int level, int reason, 35 rich_location *richloc, 36 const char *msgid, va_list *ap) 37 { 38 bool ret; 39 40 if (!pfile->cb.error) 41 abort (); 42 ret = pfile->cb.error (pfile, level, reason, richloc, _(msgid), ap); 43 44 return ret; 45 } 46 47 /* Print a diagnostic at the given location. */ 48 49 ATTRIBUTE_FPTR_PRINTF(5,0) 50 static bool 51 cpp_diagnostic_at (cpp_reader * pfile, int level, int reason, 52 source_location src_loc, 53 const char *msgid, va_list *ap) 54 { 55 bool ret; 56 57 if (!pfile->cb.error) 58 abort (); 59 rich_location richloc (pfile->line_table, src_loc); 60 ret = pfile->cb.error (pfile, level, reason, &richloc, _(msgid), ap); 61 62 return ret; 63 } 64 65 /* Print a diagnostic at the location of the previously lexed token. */ 66 67 ATTRIBUTE_FPTR_PRINTF(4,0) 68 static bool 69 cpp_diagnostic (cpp_reader * pfile, int level, int reason, 70 const char *msgid, va_list *ap) 71 { 72 source_location src_loc; 73 74 if (CPP_OPTION (pfile, traditional)) 75 { 76 if (pfile->state.in_directive) 77 src_loc = pfile->directive_line; 78 else 79 src_loc = pfile->line_table->highest_line; 80 } 81 /* We don't want to refer to a token before the beginning of the 82 current run -- that is invalid. */ 83 else if (pfile->cur_token == pfile->cur_run->base) 84 { 85 src_loc = 0; 86 } 87 else 88 { 89 src_loc = pfile->cur_token[-1].src_loc; 90 } 91 return cpp_diagnostic_at (pfile, level, reason, src_loc, msgid, ap); 92 } 93 94 /* Print a warning or error, depending on the value of LEVEL. */ 95 96 bool 97 cpp_error (cpp_reader * pfile, int level, const char *msgid, ...) 98 { 99 va_list ap; 100 bool ret; 101 102 va_start (ap, msgid); 103 104 ret = cpp_diagnostic (pfile, level, CPP_W_NONE, msgid, &ap); 105 106 va_end (ap); 107 return ret; 108 } 109 110 /* Print a warning. The warning reason may be given in REASON. */ 111 112 bool 113 cpp_warning (cpp_reader * pfile, int reason, const char *msgid, ...) 114 { 115 va_list ap; 116 bool ret; 117 118 va_start (ap, msgid); 119 120 ret = cpp_diagnostic (pfile, CPP_DL_WARNING, reason, msgid, &ap); 121 122 va_end (ap); 123 return ret; 124 } 125 126 /* Print a pedantic warning. The warning reason may be given in REASON. */ 127 128 bool 129 cpp_pedwarning (cpp_reader * pfile, int reason, const char *msgid, ...) 130 { 131 va_list ap; 132 bool ret; 133 134 va_start (ap, msgid); 135 136 ret = cpp_diagnostic (pfile, CPP_DL_PEDWARN, reason, msgid, &ap); 137 138 va_end (ap); 139 return ret; 140 } 141 142 /* Print a warning, including system headers. The warning reason may be 143 given in REASON. */ 144 145 bool 146 cpp_warning_syshdr (cpp_reader * pfile, int reason, const char *msgid, ...) 147 { 148 va_list ap; 149 bool ret; 150 151 va_start (ap, msgid); 152 153 ret = cpp_diagnostic (pfile, CPP_DL_WARNING_SYSHDR, reason, msgid, &ap); 154 155 va_end (ap); 156 return ret; 157 } 158 159 /* Print a diagnostic at a specific location. */ 160 161 ATTRIBUTE_FPTR_PRINTF(6,0) 162 static bool 163 cpp_diagnostic_with_line (cpp_reader * pfile, int level, int reason, 164 source_location src_loc, unsigned int column, 165 const char *msgid, va_list *ap) 166 { 167 bool ret; 168 169 if (!pfile->cb.error) 170 abort (); 171 rich_location richloc (pfile->line_table, src_loc); 172 if (column) 173 richloc.override_column (column); 174 ret = pfile->cb.error (pfile, level, reason, &richloc, _(msgid), ap); 175 176 return ret; 177 } 178 179 /* Print a warning or error, depending on the value of LEVEL. */ 180 181 bool 182 cpp_error_with_line (cpp_reader *pfile, int level, 183 source_location src_loc, unsigned int column, 184 const char *msgid, ...) 185 { 186 va_list ap; 187 bool ret; 188 189 va_start (ap, msgid); 190 191 ret = cpp_diagnostic_with_line (pfile, level, CPP_W_NONE, src_loc, 192 column, msgid, &ap); 193 194 va_end (ap); 195 return ret; 196 } 197 198 /* Print a warning. The warning reason may be given in REASON. */ 199 200 bool 201 cpp_warning_with_line (cpp_reader *pfile, int reason, 202 source_location src_loc, unsigned int column, 203 const char *msgid, ...) 204 { 205 va_list ap; 206 bool ret; 207 208 va_start (ap, msgid); 209 210 ret = cpp_diagnostic_with_line (pfile, CPP_DL_WARNING, reason, src_loc, 211 column, msgid, &ap); 212 213 va_end (ap); 214 return ret; 215 } 216 217 /* Print a pedantic warning. The warning reason may be given in REASON. */ 218 219 bool 220 cpp_pedwarning_with_line (cpp_reader *pfile, int reason, 221 source_location src_loc, unsigned int column, 222 const char *msgid, ...) 223 { 224 va_list ap; 225 bool ret; 226 227 va_start (ap, msgid); 228 229 ret = cpp_diagnostic_with_line (pfile, CPP_DL_PEDWARN, reason, src_loc, 230 column, msgid, &ap); 231 232 va_end (ap); 233 return ret; 234 } 235 236 /* Print a warning, including system headers. The warning reason may be 237 given in REASON. */ 238 239 bool 240 cpp_warning_with_line_syshdr (cpp_reader *pfile, int reason, 241 source_location src_loc, unsigned int column, 242 const char *msgid, ...) 243 { 244 va_list ap; 245 bool ret; 246 247 va_start (ap, msgid); 248 249 ret = cpp_diagnostic_with_line (pfile, CPP_DL_WARNING_SYSHDR, reason, src_loc, 250 column, msgid, &ap); 251 252 va_end (ap); 253 return ret; 254 } 255 256 /* As cpp_error, but use SRC_LOC as the location of the error, without 257 a column override. */ 258 259 bool 260 cpp_error_at (cpp_reader * pfile, int level, source_location src_loc, 261 const char *msgid, ...) 262 { 263 va_list ap; 264 bool ret; 265 266 va_start (ap, msgid); 267 268 ret = cpp_diagnostic_at (pfile, level, CPP_W_NONE, src_loc, 269 msgid, &ap); 270 271 va_end (ap); 272 return ret; 273 } 274 275 /* As cpp_error, but use RICHLOC as the location of the error, without 276 a column override. */ 277 278 bool 279 cpp_error_at_richloc (cpp_reader * pfile, int level, rich_location *richloc, 280 const char *msgid, ...) 281 { 282 va_list ap; 283 bool ret; 284 285 va_start (ap, msgid); 286 287 ret = cpp_diagnostic_at_richloc (pfile, level, CPP_W_NONE, richloc, 288 msgid, &ap); 289 290 va_end (ap); 291 return ret; 292 } 293 294 /* Print a warning or error, depending on the value of LEVEL. Include 295 information from errno. */ 296 297 bool 298 cpp_errno (cpp_reader *pfile, int level, const char *msgid) 299 { 300 return cpp_error (pfile, level, "%s: %s", _(msgid), xstrerror (errno)); 301 } 302 303 /* Print a warning or error, depending on the value of LEVEL. Include 304 information from errno. Unlike cpp_errno, the argument is a filename 305 that is not localized, but "" is replaced with localized "stdout". */ 306 307 bool 308 cpp_errno_filename (cpp_reader *pfile, int level, const char *filename, 309 source_location loc) 310 { 311 if (filename[0] == '\0') 312 filename = _("stdout"); 313 314 return cpp_error_at (pfile, level, loc, "%s: %s", filename, 315 xstrerror (errno)); 316 } 317