2 ** Splint - annotation-assisted static program checker
3 ** Copyright (C) 1994-2002 University of Virginia,
4 ** Massachusetts Institute of Technology
6 ** This program is free software; you can redistribute it and/or modify it
7 ** under the terms of the GNU General Public License as published by the
8 ** Free Software Foundation; either version 2 of the License, or (at your
9 ** option) any later version.
11 ** This program is distributed in the hope that it will be useful, but
12 ** WITHOUT ANY WARRANTY; without even the implied warranty of
13 ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 ** General Public License for more details.
16 ** The GNU General Public License is available from http://www.gnu.org/ or
17 ** the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
18 ** MA 02111-1307, USA.
20 ** For information on lclint: lclint-request@cs.virginia.edu
21 ** To report a bug: lclint-bug@cs.virginia.edu
22 ** For more information: http://www.splint.org
27 /* Default error handlers for CPP Library.
28 Copyright (C) 1986, 87, 89, 92, 93, 94, 1995 Free Software Foundation, Inc.
29 Written by Per Bothner, 1994.
30 Based on CCCP program by by Paul Rubin, June 1986
31 Adapted to ANSI C, Richard Stallman, Jan 1987
33 This program is free software; you can redistribute it and/or modify it
34 under the terms of the GNU General Public License as published by the
35 Free Software Foundation; either version 2, or (at your option) any
38 This program is distributed in the hope that it will be useful,
39 but WITHOUT ANY WARRANTY; without even the implied warranty of
40 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
41 GNU General Public License for more details.
43 You should have received a copy of the GNU General Public License
44 along with this program; if not, write to the Free Software
45 Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
47 In other words, you are welcome to use, share and improve this program.
48 You are forbidden to forbid anyone else to use, share and improve
49 what you give them. Help stamp out software-hoarding! */
58 /*@-loopswitchbreak@*/
59 /*@-switchloopbreak@*/
76 /*@+matchanyintegral@*/
78 /*@-onlyunqglobaltrans@*/
85 # define FATAL_EXIT_CODE EXIT_FAILURE
87 # include "lclintMacros.nf"
90 # include "cpperror.h"
92 static void cppReader_printFileAndLine (cppReader *p_pfile);
93 static void cppReader_warningWithLine (cppReader *p_pfile,
94 int p_line, int p_column,
95 /*@only@*/ cstring p_msg);
97 /* Print the file names and line numbers of the #include
98 commands which led to the current file. */
100 void cppReader_printContainingFiles (cppReader *pfile)
106 /* Error processing command line. */
110 /* If stack of files hasn't changed since we last printed
111 this info, don't repeat it. */
112 if (pfile->input_stack_listing_current)
117 ip = cppReader_fileBuffer (pfile);
119 /* Give up if we don't find a source file. */
125 /* Find the other, outer source files. */
126 while ((ip = cppBuffer_prevBuffer (ip)),
127 ip != cppReader_nullBuffer (pfile))
132 cppBuffer_lineAndColumn (ip, &line, &col);
133 if (ip->fname != NULL)
138 fprintf (g_msgstream, " In file included");
141 fprintf (g_msgstream, ",\n ");
144 fprintf (g_msgstream, " from %s",
145 cstring_toCharsSafe (temps = fileloc_unparseRaw (ip->nominal_fname, line)));
147 cstring_free (temps);
152 fprintf (g_msgstream, "\n");
155 /* Record we have printed the status as of this time. */
156 pfile->input_stack_listing_current = 1;
160 cppReader_fileLineForMessage (cstring filename, long line, long column)
166 if (filename != NULL)
168 fprintf (stderr, "%s: ",
169 cstring_toCharsSafe (temps = fileloc_unparseRawCol (filename, (int) line, (int) column)));
173 fprintf (stderr, "%s: ",
174 cstring_toCharsSafe (temps = fileloc_unparseRawCol (cstring_makeLiteralTemp ("<no file>"),
175 (int) line, (int) column)));
178 cstring_free (temps);
184 if (filename != NULL)
186 fprintf (stderr, "%s: ",
187 cstring_toCharsSafe (temps = fileloc_unparseRaw (filename, (int) line)));
192 fprintf (stderr, "%s: ",
193 cstring_toCharsSafe (temps = fileloc_unparseRaw (cstring_makeLiteralTemp ("<no file>"),
197 cstring_free (temps);
201 /* IS_ERROR is 2 for "fatal" error, 1 for error, 0 for warning */
204 cppReader_message (cppReader *pfile, int is_error, /*@only@*/ cstring msg)
208 /* fprintf (stderr, "warning: "); */
210 else if (is_error == 2)
212 pfile->errors = cppReader_fatalErrorLimit;
214 else if (pfile->errors < cppReader_fatalErrorLimit)
223 fprintf (stderr, "%s", cstring_toCharsSafe (msg));
224 fprintf (stderr, "\n");
227 /* Same as cppReader_error, except we consider the error to be "fatal",
228 such as inconsistent options. I.e. there is little point in continuing.
229 (We do not exit, to support use of cpplib as a library.
230 Instead, it is the caller's responsibility to check
234 cppReader_fatalError (cppReader *pfile, /*@only@*/ cstring str)
236 fprintf (stderr, "preprocessor: ");
237 cppReader_message (pfile, 2, str);
241 cppReader_pfatalWithName (cppReader *pfile, cstring name)
243 cppReader_perrorWithName (pfile, name);
244 exit (FATAL_EXIT_CODE);
248 cppReader_getLoc (cppReader *pfile)
250 cppBuffer *ip = cppReader_fileBuffer (pfile);
255 cstring fname = ip->nominal_fname;
256 fileId fid = fileTable_lookup (context_fileTable (), fname);
258 llassert (fileId_isValid (fid));
260 cppBuffer_lineAndColumn (ip, &line, &col);
262 return fileloc_create (fid, line, col);
266 return fileloc_createBuiltin ();
271 cppReader_printFileAndLine (cppReader *pfile)
273 cppBuffer *ip = cppReader_fileBuffer (pfile);
279 cppBuffer_lineAndColumn (ip, &line, &col);
280 cppReader_fileLineForMessage (ip->nominal_fname,
281 line, pfile->show_column ? col : -1);
285 fprintf (stderr, "Command Line: ");
290 cppReader_errorLit (cppReader *pfile, /*@observer@*/ cstring msg)
292 cppReader_error (pfile, cstring_copy (msg));
296 cppReader_error (cppReader *pfile, /*@only@*/ cstring msg)
299 cppReader_printContainingFiles (pfile);
300 cppReader_printFileAndLine (pfile);
301 cppReader_message (pfile, 1, msg);
305 /* Print error message but don't count it. */
308 cppReader_warningLit (cppReader *pfile, cstring msg)
310 cppReader_warning (pfile, cstring_copy (msg));
314 cppReader_warning (cppReader *pfile, /*@only@*/ cstring msg)
316 if (CPPOPTIONS (pfile)->warnings_are_errors)
320 cppReader_printContainingFiles (pfile);
321 cppReader_printFileAndLine (pfile);
322 cppReader_message (pfile, 0, msg);
326 /* Print an error message and maybe count it. */
329 cppReader_pedwarnLit (cppReader *pfile, /*@observer@*/ cstring msg)
331 cppReader_pedwarn (pfile, cstring_copy (msg));
335 cppReader_pedwarn (cppReader *pfile, /*@only@*/ cstring msg)
337 if (CPPOPTIONS (pfile)->pedantic_errors)
339 cppReader_error (pfile, msg);
343 cppReader_warning (pfile, msg);
348 cppReader_errorWithLine (cppReader *pfile, long line, long column,
349 /*@only@*/ cstring msg)
351 cppBuffer *ip = cppReader_fileBuffer (pfile);
354 cppReader_printContainingFiles (pfile);
357 cppReader_fileLineForMessage (ip->nominal_fname, line, column);
359 cppReader_message (pfile, 1, msg);
364 cppReader_warningWithLine (cppReader *pfile,
365 int line, int column,
366 /*@only@*/ cstring msg)
370 if (CPPOPTIONS (pfile)->warnings_are_errors)
375 cppReader_printContainingFiles (pfile);
377 ip = cppReader_fileBuffer (pfile);
381 cppReader_fileLineForMessage (ip->nominal_fname, line, column);
384 cppReader_message (pfile, 0, msg);
389 cppReader_pedwarnWithLine (cppReader *pfile, int line, int column,
390 /*@only@*/ cstring msg)
392 if (CPPOPTIONS (pfile)->pedantic_errors)
394 cppReader_errorWithLine (pfile, column, line, msg);
398 cppReader_warningWithLine (pfile, line, column, msg);
402 void cppReader_perrorWithName (cppReader *pfile, cstring name)
404 cppReader_message (pfile, 1,
405 message ("Preprocessing error for %s: %s",
406 name, lldecodeerror (errno)));