gcc/
[official-gcc.git] / libcpp / errors.c
bloba33196e91578628493a6163d3f60d4cb5b1d1166
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
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.
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.
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/>.
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! */
25 #include "config.h"
26 #include "system.h"
27 #include "cpplib.h"
28 #include "internal.h"
30 /* Print a diagnostic at the location of the previously lexed token. */
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)
37 source_location src_loc;
38 bool ret;
40 if (CPP_OPTION (pfile, traditional))
42 if (pfile->state.in_directive)
43 src_loc = pfile->directive_line;
44 else
45 src_loc = pfile->line_table->highest_line;
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)
51 src_loc = 0;
53 else
55 src_loc = pfile->cur_token[-1].src_loc;
58 if (!pfile->cb.error)
59 abort ();
60 ret = pfile->cb.error (pfile, level, reason, src_loc, 0, _(msgid), ap);
62 return ret;
65 /* Print a warning or error, depending on the value of LEVEL. */
67 bool
68 cpp_error (cpp_reader * pfile, int level, const char *msgid, ...)
70 va_list ap;
71 bool ret;
73 va_start (ap, msgid);
75 ret = cpp_diagnostic (pfile, level, CPP_W_NONE, msgid, &ap);
77 va_end (ap);
78 return ret;
81 /* Print a warning. The warning reason may be given in REASON. */
83 bool
84 cpp_warning (cpp_reader * pfile, int reason, const char *msgid, ...)
86 va_list ap;
87 bool ret;
89 va_start (ap, msgid);
91 ret = cpp_diagnostic (pfile, CPP_DL_WARNING, reason, msgid, &ap);
93 va_end (ap);
94 return ret;
97 /* Print a pedantic warning. The warning reason may be given in REASON. */
99 bool
100 cpp_pedwarning (cpp_reader * pfile, int reason, const char *msgid, ...)
102 va_list ap;
103 bool ret;
105 va_start (ap, msgid);
107 ret = cpp_diagnostic (pfile, CPP_DL_PEDWARN, reason, msgid, &ap);
109 va_end (ap);
110 return ret;
113 /* Print a warning, including system headers. The warning reason may be
114 given in REASON. */
116 bool
117 cpp_warning_syshdr (cpp_reader * pfile, int reason, const char *msgid, ...)
119 va_list ap;
120 bool ret;
122 va_start (ap, msgid);
124 ret = cpp_diagnostic (pfile, CPP_DL_WARNING_SYSHDR, reason, msgid, &ap);
126 va_end (ap);
127 return ret;
130 /* Print a diagnostic at a specific location. */
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)
138 bool ret;
140 if (!pfile->cb.error)
141 abort ();
142 ret = pfile->cb.error (pfile, level, reason, src_loc, column, _(msgid), ap);
144 return ret;
147 /* Print a warning or error, depending on the value of LEVEL. */
149 bool
150 cpp_error_with_line (cpp_reader *pfile, int level,
151 source_location src_loc, unsigned int column,
152 const char *msgid, ...)
154 va_list ap;
155 bool ret;
157 va_start (ap, msgid);
159 ret = cpp_diagnostic_with_line (pfile, level, CPP_W_NONE, src_loc,
160 column, msgid, &ap);
162 va_end (ap);
163 return ret;
166 /* Print a warning. The warning reason may be given in REASON. */
168 bool
169 cpp_warning_with_line (cpp_reader *pfile, int reason,
170 source_location src_loc, unsigned int column,
171 const char *msgid, ...)
173 va_list ap;
174 bool ret;
176 va_start (ap, msgid);
178 ret = cpp_diagnostic_with_line (pfile, CPP_DL_WARNING, reason, src_loc,
179 column, msgid, &ap);
181 va_end (ap);
182 return ret;
185 /* Print a pedantic warning. The warning reason may be given in REASON. */
187 bool
188 cpp_pedwarning_with_line (cpp_reader *pfile, int reason,
189 source_location src_loc, unsigned int column,
190 const char *msgid, ...)
192 va_list ap;
193 bool ret;
195 va_start (ap, msgid);
197 ret = cpp_diagnostic_with_line (pfile, CPP_DL_PEDWARN, reason, src_loc,
198 column, msgid, &ap);
200 va_end (ap);
201 return ret;
204 /* Print a warning, including system headers. The warning reason may be
205 given in REASON. */
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, ...)
212 va_list ap;
213 bool ret;
215 va_start (ap, msgid);
217 ret = cpp_diagnostic_with_line (pfile, CPP_DL_WARNING_SYSHDR, reason, src_loc,
218 column, msgid, &ap);
220 va_end (ap);
221 return ret;
224 /* Print a warning or error, depending on the value of LEVEL. Include
225 information from errno. */
227 bool
228 cpp_errno (cpp_reader *pfile, int level, const char *msgid)
230 if (msgid[0] == '\0')
231 msgid = _("stdout");
233 return cpp_error (pfile, level, "%s: %s", msgid, xstrerror (errno));