/*
-** LCLint - annotation-assisted static program checker
-** Copyright (C) 1994-2001 University of Virginia,
+** Splint - annotation-assisted static program checker
+** Copyright (C) 1994-2003 University of Virginia,
** Massachusetts Institute of Technology
**
** This program is free software; you can redistribute it and/or modify it
** the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
** MA 02111-1307, USA.
**
-** For information on lclint: lclint-request@cs.virginia.edu
-** To report a bug: lclint-bug@cs.virginia.edu
-** For more information: http://lclint.cs.virginia.edu
+** For information on splint: info@splint.org
+** To report a bug: splint-bug@splint.org
+** For more information: http://www.splint.org
*/
/*
** llmain.c
**
-** Main module for LCLint checker
+** Main module for Splint annotation-assisted program checker
*/
# include <signal.h>
# include <process.h>
# endif
-# include "lclintMacros.nf"
-# include "llbasic.h"
+# include "splintMacros.nf"
+# include "basic.h"
# include "osd.h"
-
-# ifndef NOLCL
+# include "help.h"
# include "gram.h"
# include "lclscan.h"
# include "scanline.h"
# include "lclinit.h"
# include "lh.h"
# include "imports.h"
-# endif
-# include "version.h"
-# include "herald.h"
-# include "fileIdList.h"
+# include "Headers/version.h" /* Visual C++ finds the wrong version.h */
# include "lcllib.h"
# include "cgrammar.h"
+# include "rcfiles.h"
# include "llmain.h"
-# include "portab.h"
-
extern /*@external@*/ int yydebug;
-
-static void printMail (void);
-static void printMaintainer (void);
-static void printReferences (void);
-static void printFlags (void);
-static void printAnnotations (void);
-static void printParseErrors (void);
-static void printComments (void);
-static void describePrefixCodes (void);
static void cleanupFiles (void);
-static void showHelp (void);
-static void interrupt (int p_i);
+/*
+** evans 2002-07-03: renamed from interrupt to avoid conflict with WATCOM compiler keyword
+** (Suggested by Adam Clarke)
+*/
-static void loadrc (FILE *p_rcfile, cstringSList *p_passThroughArgs)
- /*@ensures closed p_rcfile@*/ ;
+static void llinterrupt (int p_i);
static void describeVars (void);
static bool specialFlagsHelp (char *p_next);
static bool anylcl = FALSE;
static clock_t inittime;
-static /*@only@*/ /*@null@*/ inputStream initFile = inputStream_undefined;
-
static fileIdList preprocessFiles (fileIdList, bool)
/*@modifies fileSystem@*/ ;
-# ifndef NOLCL
+static void warnSysFiles(fileIdList p_files) /*@modifies fileSystem@*/;
static
void lslCleanup (void)
sort_destroyMod ();
}
-static
- void lslInit (void)
- /*@globals undef g_symtab; @*/
- /*@modifies g_symtab, internalState, fileSystem; @*/
-{
- /*
- ** Open init file provided by user, or use the default LCL init file
- */
-
- cstring larchpath = context_getLarchPath ();
- inputStream LSLinitFile = inputStream_undefined;
-
- setCodePoint ();
-
- if (inputStream_isUndefined (initFile))
- {
- initFile = inputStream_create (cstring_makeLiteral (INITFILENAME),
- cstring_makeLiteralTemp (LCLINIT_SUFFIX),
- FALSE);
-
- if (!inputStream_getPath (larchpath, initFile))
- {
- lldiagmsg (message ("Continuing without LCL init file: %s",
- inputStream_fileName (initFile)));
- }
- else
- {
- if (!inputStream_open (initFile))
- {
- lldiagmsg (message ("Continuing without LCL init file: %s",
- inputStream_fileName (initFile)));
- }
- }
- }
- else
- {
- if (!inputStream_open (initFile))
- {
- lldiagmsg (message ("Continuing without LCL init file: %s",
- inputStream_fileName (initFile)));
- }
- }
-
- /* Initialize checker */
-
- lsymbol_initMod ();
- LCLSynTableInit ();
-
- setCodePoint ();
-
- LCLSynTableReset ();
- LCLTokenTableInit ();
-
- setCodePoint ();
-
- LCLScanLineInit ();
- setCodePoint ();
- LCLScanLineReset ();
- setCodePoint ();
- LCLScanInit ();
-
- setCodePoint ();
-
- /* need this to initialize LCL checker */
-
- llassert (inputStream_isDefined (initFile));
- if (inputStream_isOpen (initFile))
- {
- setCodePoint ();
-
- LCLScanReset (initFile);
- LCLProcessInitFileInit ();
- LCLProcessInitFileReset ();
-
- setCodePoint ();
- LCLProcessInitFile ();
- LCLProcessInitFileCleanup ();
-
- setCodePoint ();
- check (inputStream_close (initFile));
- }
-
- /* Initialize LSL init files, for parsing LSL signatures from LSL */
-
- LSLinitFile = inputStream_create (cstring_makeLiteral ("lslinit.lsi"),
- cstring_makeLiteralTemp (".lsi"),
- FALSE);
-
- if (!inputStream_getPath (larchpath, LSLinitFile))
- {
- lldiagmsg (message ("Continuing without LSL init file: %s",
- inputStream_fileName (LSLinitFile)));
- }
- else
- {
- if (!inputStream_open (LSLinitFile))
- {
- lldiagmsg (message ("Continuing without LSL init file: %s",
- inputStream_fileName (LSLinitFile)));
- }
- }
-
- setCodePoint ();
- lsynTableInit ();
- lsynTableReset ();
-
- setCodePoint ();
- ltokenTableInit ();
-
- setCodePoint ();
- lscanLineInit ();
- lscanLineReset ();
- LSLScanInit ();
-
- if (inputStream_isOpen (LSLinitFile))
- {
- setCodePoint ();
- LSLScanReset (LSLinitFile);
- LSLProcessInitFileInit ();
- setCodePoint ();
- LSLProcessInitFile ();
- setCodePoint ();
- check (inputStream_close (LSLinitFile));
- }
-
- inputStream_free (LSLinitFile);
-
- if (lclHadError ())
- {
- lclplainerror
- (cstring_makeLiteral ("LSL init file error. Attempting to continue."));
- }
-
- setCodePoint ();
- g_symtab = symtable_new ();
-
- /*
- ** sort_init must come after symtab has been initialized
- */
- sort_init ();
- abstract_init ();
- setCodePoint ();
-
- inittime = clock ();
-
- /*
- ** Equivalent to importing old spec_csupport.lcl
- ** define immutable LCL type "bool" and bool constants TRUE and FALSE
- ** and initialized them to be equal to LSL's "true" and "false".
- **
- ** Reads in CTrait.syms (derived from CTrait.lsl) on LARCH_PATH.
- */
-
- LCLBuiltins ();
- LCLReportEolTokens (FALSE);
-}
-
static void
lslProcess (fileIdList lclfiles)
/*@globals undef g_currentSpec, undef g_currentSpecName, g_currentloc,
bool parser_status = FALSE;
bool overallStatus = FALSE;
- lslInit ();
-
+ lslinit_process ();
+ inittime = clock ();
+
context_resetSpecLines ();
fileIdList_elements (lclfiles, fid)
{
cstring actualName = cstring_undefined;
- cstring fname = fileName (fid);
+ cstring fname = fileTable_fileName (fid);
if (osd_getPath (cstring_fromChars (g_localSpecPath),
fname, &actualName) == OSD_FILENOTFOUND)
{
if (mstring_equal (g_localSpecPath, "."))
{
- lldiagmsg (message ("Spec file not found: %s", fname));
+ lldiagmsg (message ("Spec file not found: %q", osd_outputPath (fname)));
}
else
{
- lldiagmsg (message ("Spec file not found: %s (on %s)",
- fname,
+ lldiagmsg (message ("Spec file not found: %q (on %s)",
+ osd_outputPath (fname),
cstring_fromChars (g_localSpecPath)));
}
}
setSpecFileId (fid);
- if (context_getFlag (FLG_SHOWSCAN))
- {
- lldiagmsg (message ("< reading spec %s >", g_currentSpec));
- }
+ displayScan (message ("reading spec %s", g_currentSpec));
- /* Open source file */
+ /* Open the source file */
if (!inputStream_open (specFile))
{
- lldiagmsg (message ("Cannot open file: %s",
- inputStream_fileName (specFile)));
+ lldiagmsg (message ("Cannot open file: %q",
+ osd_outputPath (inputStream_fileName (specFile))));
inputStream_free (specFile);
}
else
g_currentSpec = cstring_undefined;
g_currentSpecName = NULL;
}
-# endif
static void handlePassThroughFlag (char *arg)
{
void showHerald (void)
{
- if (hasShownHerald || context_getFlag (FLG_QUIET)) return;
-
- else
- {
- fprintf (g_msgstream, "%s\n\n", LCL_VERSION);
- hasShownHerald = TRUE;
- llflush ();
- }
-}
-
-static void addFile (fileIdList files, /*@only@*/ cstring s)
-{
- if (fileTable_exists (context_fileTable (), s))
- {
- showHerald ();
- lldiagmsg (message ("File listed multiple times: %s", s));
- cstring_free (s);
- }
- else
- {
- fileIdList_add (files, fileTable_addFileOnly (context_fileTable (), s));
- }
-}
-
-static void addXHFile (fileIdList files, /*@only@*/ cstring s)
-{
- if (fileTable_exists (context_fileTable (), s))
+ if (hasShownHerald || context_getFlag (FLG_QUIET))
{
- showHerald ();
- lldiagmsg (message ("File listed multiple times: %s", s));
- cstring_free (s);
+ return;
}
else
{
- fileIdList_add (files, fileTable_addXHFile (context_fileTable (), s));
- cstring_free (s);
+ fprintf (g_messagestream, "%s\n\n", SPLINT_VERSION);
+ hasShownHerald = TRUE;
+ llflush ();
}
}
/*
-** Disable MSVC++ warning about return value. Methinks humbly lclint control
+** Disable MSVC++ warning about return value. Methinks humbly splint control
** comments are a mite more legible.
*/
# endif
int main (int argc, char *argv[])
-# ifdef NOLCL
- /*@globals killed undef g_currentloc,
- killed undef yyin,
- undef g_msgstream;
- @*/
- /*@modifies g_currentloc, fileSystem,
- yyin;
- @*/
-# else
/*@globals killed undef g_currentloc,
- killed undef initFile,
killed g_localSpecPath,
killed undef g_currentSpec,
killed undef g_currentSpecName,
killed undef yyin,
- undef g_msgstream;
+ undef g_warningstream, g_messagestream, g_errorstream;
@*/
- /*@modifies g_currentloc, initFile,
- g_localSpecPath, g_currentSpec, g_currentSpecName, fileSystem,
- yyin;
+ /*@modifies g_currentloc, g_localSpecPath, g_currentSpec, g_currentSpecName,
+ fileSystem, yyin;
@*/
-# endif
{
bool first_time = TRUE;
- bool showhelp = FALSE;
- bool allhelp = TRUE;
bool expsuccess;
inputStream sourceFile = inputStream_undefined;
fileIdList dercfiles;
- cstringSList fl = cstringSList_undefined;
- cstringSList passThroughArgs = cstringSList_undefined;
+ cstringList passThroughArgs = cstringList_undefined;
fileIdList cfiles, xfiles, lclfiles, mtfiles;
clock_t before, lcltime, libtime, pptime, cptime, rstime;
int i = 0;
_wildcard (&argc, &argv);
# endif
- g_msgstream = stdout;
-
- (void) signal (SIGINT, interrupt);
- (void) signal (SIGSEGV, interrupt);
+ g_warningstream = stdout;
+ g_messagestream = stderr;
+ g_errorstream = stderr;
- cfiles = fileIdList_create ();
- xfiles = fileIdList_create ();
- lclfiles = fileIdList_create ();
- mtfiles = fileIdList_create ();
+ (void) signal (SIGINT, llinterrupt);
+ (void) signal (SIGSEGV, llinterrupt);
flags_initMod ();
+ qual_initMod ();
clabstract_initMod ();
typeIdSet_initMod ();
+ osd_initMod ();
cppReader_initMod ();
+
setCodePoint ();
g_currentloc = fileloc_createBuiltin ();
-
+
before = clock ();
context_initMod ();
if (argc <= 1)
{
- showHelp ();
- llexit (LLGIVEUP);
+ help_showAvailableHelp ();
+ llexit (LLSUCCESS);
+ }
+
+ /* -help must be the first flag to get help */
+ if (flagcode_isHelpFlag (flags_identifyFlag (cstring_fromChars (argv[1]))))
+ {
+ /*
+ ** Skip first flag and help flag
+ */
+
+ help_processFlags (argc - 2, argv + 2);
+ llexit (LLSUCCESS);
}
setCodePoint ();
{
/* Put C_INCLUDE_PATH directories in sysdirs */
cstring cincval = osd_getEnvironmentVariable (cstring_makeLiteralTemp ("C_INCLUDE_PATH"));
+
if (cstring_isDefined (cincval))
{
context_setString (FLG_SYSTEMDIRS, cstring_copy (cincval));
** check RCFILE for default flags
*/
+ /*
+ ** Process command line message formatting flags before reading rc file
+ */
+
{
cstring home = osd_getHomeDir ();
- char *fname = NULL;
- FILE *rcfile;
+ cstring fname = cstring_undefined;
bool defaultf = TRUE;
bool nof = FALSE;
if (*thisarg == '-' || *thisarg == '+')
{
+ bool set = (*thisarg == '+');
+ flagcode opt;
+
thisarg++;
- if (mstring_equal (thisarg, "nof"))
+ /*
+ ** Don't report warnings this time
+ */
+
+ opt = flags_identifyFlagQuiet (cstring_fromChars (thisarg));
+
+ if (opt == FLG_NOF)
{
nof = TRUE;
}
- else if (mstring_equal (thisarg, "f"))
+ else if (flagcode_isMessageControlFlag (opt))
{
- if (++i < argc)
- {
- defaultf = FALSE;
- fname = argv[i];
- rcfile = fopen (fname, "r");
+ /*
+ ** Need to set it immediately, so rc file scan is displayed
+ */
+
+ context_userSetFlag (opt, set);
- if (rcfile != NULL)
+ if (flagcode_hasArgument (opt))
+ {
+ llassert (flagcode_hasString (opt));
+
+ if (++i < argc)
{
- fileloc oloc = g_currentloc;
-
- g_currentloc = fileloc_createRc (cstring_fromChars (fname));
- loadrc (rcfile, &passThroughArgs);
- fileloc_reallyFree (g_currentloc);
- g_currentloc = oloc;
+ fname = cstring_fromChars (argv[i]);
+ flags_setStringFlag (opt, fname);
}
- else
+ else
{
- showHerald ();
- lldiagmsg (message ("Options file not found: %s",
- cstring_fromChars (fname)));
+ voptgenerror
+ (FLG_BADFLAG,
+ message
+ ("Flag %s must be followed by a string",
+ flagcode_unparse (opt)),
+ g_currentloc);
}
}
+ }
+ else if (opt == FLG_OPTF)
+ {
+ if (++i < argc)
+ {
+ defaultf = FALSE;
+ fname = cstring_fromChars (argv[i]);
+ (void) rcfiles_read (fname, &passThroughArgs, TRUE);
+ }
else
llfatalerror
(cstring_makeLiteral ("Flag f to select options file "
}
}
}
-
- if (fname == NULL)
- {
- if (!cstring_isEmpty (home)) {
- fname = cstring_toCharsSafe (message ("%s%h%s", home, CONNECTCHAR,
- cstring_fromChars (RCFILE)));
- mstring_markFree (fname);
- }
- }
-
+
setCodePoint ();
if (!nof && defaultf)
{
- if (!mstring_isEmpty (fname)) {
- rcfile = fopen (fname, "r");
+ /*
+ ** No explicit rc file, first try reading ~/.splintrc
+ */
+
+ if (cstring_isUndefined (fname))
+ {
+ if (!cstring_isEmpty (home))
+ {
+ bool readhomerc, readaltrc;
+ cstring homename, altname;
+
+ homename = message ("%s%h%s", home, CONNECTCHAR,
+ cstring_fromChars (RCFILE));
+ readhomerc = rcfiles_read (homename, &passThroughArgs, FALSE);
+
+ /*
+ ** Try ~/.splintrc also for historical accuracy
+ */
+
+ altname = message ("%s%h%s", home, CONNECTCHAR,
+ cstring_fromChars (ALTRCFILE));
+ readaltrc = rcfiles_read (altname, &passThroughArgs, FALSE);
+
+ if (readhomerc && readaltrc)
+ {
+
+ voptgenerror
+ (FLG_WARNRC,
+ message ("Found both %s and %s files. Using both files, "
+ "but recommend using only %s to avoid confusion.",
+ homename, altname, homename),
+ g_currentloc);
+ }
+
+ cstring_free (homename);
+ cstring_free (altname);
+ }
+ }
+
+ /*
+ ** Next, read .splintrc in the current working directory
+ */
+
+ {
+ cstring rcname = message ("%s%s",osd_getCurrentDirectory (), cstring_fromChars (RCFILE));
+ cstring altname = message ("%s%s",osd_getCurrentDirectory (), cstring_fromChars (ALTRCFILE));
+ bool readrc, readaltrc;
+
+ readrc = rcfiles_read (rcname, &passThroughArgs, FALSE);
+ readaltrc = rcfiles_read (altname, &passThroughArgs, FALSE);
- if (rcfile != NULL)
+ if (readrc && readaltrc)
{
- fileloc oloc = g_currentloc;
+ voptgenerror (FLG_WARNRC,
+ message ("Found both %s and %s files. Using both files, "
+ "but recommend using only %s to avoid confusion.",
+ rcname, altname, rcname),
+ g_currentloc);
- g_currentloc = fileloc_createRc (cstring_fromChars (fname));
- loadrc (rcfile, &passThroughArgs);
- fileloc_reallyFree (g_currentloc);
- g_currentloc = oloc;
}
+
+ cstring_free (rcname);
+ cstring_free (altname);
}
+ }
+ }
+
+ setCodePoint ();
+ llassert (fileloc_isBuiltin (g_currentloc));
-# if defined(MSDOS) || defined(OS2)
- fname = cstring_toCharsSafe (message ("%s",
- cstring_fromChars (RCFILE)));
-# else
- fname = cstring_toCharsSafe (message ("./%s",
- cstring_fromChars (RCFILE)));
-# endif
+ cfiles = fileIdList_create ();
+ xfiles = fileIdList_create ();
+ lclfiles = fileIdList_create ();
+ mtfiles = fileIdList_create ();
- rcfile = fopen (fname, "r");
+ /* argv[0] is the program name, don't pass it to flags_processFlags */
+ flags_processFlags (TRUE, xfiles, cfiles,
+ lclfiles, mtfiles,
+ &passThroughArgs,
+ argc - 1, argv + 1);
- if (rcfile != NULL)
- {
- fileloc oloc = g_currentloc;
+ showHerald ();
- g_currentloc = fileloc_createRc (cstring_fromChars (fname));
- loadrc (rcfile, &passThroughArgs);
- fileloc_reallyFree (g_currentloc);
- g_currentloc = oloc;
- }
+ if (context_getFlag (FLG_CSV)) {
+ cstring fname = context_getString (FLG_CSV);
- sfree (fname);
+ if (cstring_isDefined (fname)) {
+ if (osd_fileExists (fname) && !context_getFlag (FLG_CSVOVERWRITE)) {
+ lldiagmsg (message ("Specified CSV output file already exists (use +csvoverwrite to automatically overwrite): %s",
+ fname));
+ } else {
+ g_csvstream = fopen (cstring_toCharsSafe (fname), "w");
+
+ DPRINTF (("Creating: %s", fname));
+ if (g_csvstream == NULL) {
+ lldiagmsg (message ("Cannot open file for CSV output: %s", fname));
+ } else {
+ displayScan (message ("Starting CSV output file: %s", context_getString (FLG_CSV)));
+ fprintf (g_csvstream,
+ "Warning, Flag Code, Flag Name, Priority, File, Line, Column, Warning Text, Additional Text\n");
+ }
}
+ }
}
-
- setCodePoint ();
-
- for (i = 1; i < argc; i++)
- {
- char *thisarg;
- flagcode opt;
-
- thisarg = argv[i];
-
- if (showhelp)
- {
- if (allhelp)
- {
- showHerald ();
- }
-
- allhelp = FALSE;
-
- if (*thisarg == '-' || *thisarg == '+')
- {
- thisarg++; /* skip '-' */
- }
- if (mstring_equal (thisarg, "modes"))
- {
- llmsg (describeModes ());
- }
- else if (mstring_equal (thisarg, "vars")
- || mstring_equal (thisarg, "env"))
- {
- describeVars ();
- }
- else if (mstring_equal (thisarg, "annotations"))
- {
- printAnnotations ();
- }
- else if (mstring_equal (thisarg, "parseerrors"))
- {
- printParseErrors ();
- }
- else if (mstring_equal (thisarg, "comments"))
- {
- printComments ();
- }
- else if (mstring_equal (thisarg, "prefixcodes"))
- {
- describePrefixCodes ();
- }
- else if (mstring_equal (thisarg, "references")
- || mstring_equal (thisarg, "refs"))
- {
- printReferences ();
- }
- else if (mstring_equal (thisarg, "mail"))
- {
- printMail ();
- }
- else if (mstring_equal (thisarg, "maintainer")
- || mstring_equal (thisarg, "version"))
- {
- printMaintainer ();
- }
- else if (mstring_equal (thisarg, "flags"))
- {
- if (i + 1 < argc)
- {
- char *next = argv[i + 1];
-
- if (specialFlagsHelp (next))
- {
- i++;
- }
- else
- {
- flagkind k = identifyCategory (cstring_fromChars (next));
-
- if (k != FK_NONE)
- {
- printCategory (k);
- i++;
- }
- }
- }
- else
- {
- printFlags ();
- }
- }
- else
- {
- cstring s = describeFlag (cstring_fromChars (thisarg));
-
- if (cstring_isDefined (s))
- {
- llmsg (s);
- }
- }
- }
- else
- {
- if (*thisarg == '-' || *thisarg == '+')
- {
- bool set = (*thisarg == '+');
- cstring flagname;
-
- thisarg++; /* skip '-' */
- flagname = cstring_fromChars (thisarg);
- DPRINTF (("Flag: %s", flagname));
- opt = identifyFlag (flagname);
- DPRINTF (("Flag: %s", flagcode_unparse (opt)));
+# ifdef DOANNOTS
+ initAnnots ();
+# endif
- if (flagcode_isSkip (opt))
- {
- DPRINTF (("Skipping!"));
- }
- else if (flagcode_isInvalid (opt))
- {
- DPRINTF (("Invalid: %s", flagname));
-
- if (isMode (flagname))
- {
- context_setMode (flagname);
- }
- else
- {
- DPRINTF (("Error!"));
- voptgenerror (FLG_BADFLAG,
- message ("Unrecognized option: %s",
- cstring_fromChars (thisarg)),
- g_currentloc);
- }
- }
- else
- {
- context_userSetFlag (opt, set);
-
- if (flagcode_hasArgument (opt))
- {
- if (opt == FLG_HELP)
- {
- showhelp = TRUE;
- }
- else if (flagcode_isPassThrough (opt)) /* -D or -U */
- {
- passThroughArgs = cstringSList_add
- (passThroughArgs, cstring_fromChars (thisarg));
- }
- else if (flagcode_hasValue (opt))
- {
- if (++i < argc)
- {
- setValueFlag (opt, cstring_fromChars (argv[i]));
- }
- else
- {
- llfatalerror
- (message
- ("Flag %s must be followed by a number",
- flagcode_unparse (opt)));
- }
- }
- else if (opt == FLG_INCLUDEPATH || opt == FLG_SPECPATH)
- {
- cstring dir = cstring_suffix (cstring_fromChars (thisarg), 1); /* skip over I */
-
- switch (opt)
- {
- case FLG_INCLUDEPATH:
- cppAddIncludeDir (dir);
- /*@switchbreak@*/ break;
- case FLG_SPECPATH:
- /*@-mustfree@*/
- g_localSpecPath = cstring_toCharsSafe
- (message ("%s%h%s",
- cstring_fromChars (g_localSpecPath),
- PATH_SEPARATOR,
- dir));
- /*@=mustfree@*/
- /*@switchbreak@*/ break;
- BADDEFAULT;
- }
- }
- else if (flagcode_hasString (opt)
- || opt == FLG_INIT || opt == FLG_OPTF)
- {
- if (++i < argc)
- {
- cstring arg = cstring_fromChars (argv[i]);
-
- if (opt == FLG_OPTF)
- {
- ; /* -f already processed */
- }
- else if (opt == FLG_INIT)
- {
-# ifndef NOLCL
- initFile = inputStream_create
- (arg,
- cstring_makeLiteralTemp (LCLINIT_SUFFIX),
- FALSE);
-# endif
- break;
- }
- else
- {
- DPRINTF (("String flag: %s / %s",
- flagcode_unparse (opt), arg));
- if (opt == FLG_MTSFILE)
- {
- /*
- ** arg identifies mts files
- */
-
- addFile (mtfiles, message ("%s%s", arg, MTS_EXTENSION));
- addXHFile (xfiles, message ("%s%s", arg, XH_EXTENSION));
- }
- else
- {
- setStringFlag (opt, arg);
- }
- }
- }
- else
- {
- llfatalerror
- (message
- ("Flag %s must be followed by a string",
- flagcode_unparse (opt)));
- }
- }
- else
- {
- /* no argument */
- }
- }
- }
- }
- else /* its a filename */
- {
- DPRINTF (("Adding filename: %s", thisarg));
- fl = cstringSList_add (fl, cstring_fromChars (thisarg));
- }
- }
- }
-
- setCodePoint ();
-
- /*
- ** create lists of C and LCL files
- */
-
- cstringSList_elements (fl, current)
- {
- cstring ext = fileLib_getExtension (current);
-
- if (cstring_isUndefined (ext))
- {
- /* no extension --- both C and LCL with default extensions */
-
- addFile (cfiles, message ("%s%s", current, C_EXTENSION));
- addFile (lclfiles, message ("%s%s", current, LCL_EXTENSION));
- }
- else if (cstring_equal (ext, XH_EXTENSION))
- {
- addXHFile (xfiles, cstring_copy (current));
- }
- else if (cstring_equal (ext, PP_EXTENSION))
- {
- if (!context_getFlag (FLG_NOPP))
- {
- voptgenerror
- (FLG_FILEEXTENSIONS,
- message ("File extension %s used without +nopp flag (will be processed as C source code): %s",
- ext, current),
- g_currentloc);
- }
-
- addFile (cfiles, cstring_copy (current));
- }
- else if (cstring_equal (ext, LCL_EXTENSION))
- {
- addFile (lclfiles, cstring_copy (current));
- }
- else if (fileLib_isCExtension (ext))
- {
- addFile (cfiles, cstring_copy (current));
- }
- else if (cstring_equal (ext, MTS_EXTENSION))
- {
- addFile (mtfiles, cstring_copy (current));
- }
- else
- {
- voptgenerror
- (FLG_FILEEXTENSIONS,
- message ("Unrecognized file extension: %s (assuming %s is C source code)",
- current, ext),
- g_currentloc);
-
- addFile (cfiles, cstring_copy (current));
- }
- } end_cstringSList_elements;
-
- showHerald (); /*@i723 move earlier? */
-
- if (showhelp)
- {
- if (allhelp)
- {
- showHelp ();
- }
- fprintf (g_msgstream, "\n");
-
- fileIdList_free (cfiles);
- fileIdList_free (xfiles);
- fileIdList_free (lclfiles);
-
- llexit (LLSUCCESS);
- }
-
-# ifdef DOANNOTS
- initAnnots ();
-# endif
-
- inittime = clock ();
+ inittime = clock ();
context_resetErrors ();
context_clearInCommandLine ();
{
cstring m = context_getMerge ();
- if (context_getFlag (FLG_SHOWSCAN))
- {
- fprintf (g_msgstream, "< loading %s ", cstring_toCharsSafe (m));
- }
-
+ displayScanOpen (message ("< loading %s ", m));
loadState (m);
-
- if (context_getFlag (FLG_SHOWSCAN))
- {
- fprintf (g_msgstream, " >\n");
- }
+ displayScanClose ();
if (!usymtab_existsType (context_getBoolName ()))
{
fileIdList_elements (mtfiles, mtfile)
{
context_setFileId (mtfile);
-
- if (context_getFlag (FLG_SHOWSCAN))
- {
- lldiagmsg (message ("< processing %s >", rootFileName (mtfile)));
- }
-
- mtreader_readFile (cstring_copy (fileName (mtfile)));
+ displayScan (message ("processing %s", fileTable_rootFileName (mtfile)));
+ mtreader_readFile (cstring_copy (fileTable_fileName (mtfile)));
} end_fileIdList_elements;
libtime = clock ();
if (anylcl)
{
-# ifdef NOLCL
- llfatalerror (cstring_makeLiteral ("This version of LCLint does not handle LCL files."));
-# else
lslProcess (lclfiles);
-# endif
}
usymtab_initGlobalMarker ();
*/
context_setInCommandLine ();
-
+
DPRINTF (("Pass through: %s", cstringSList_unparse (passThroughArgs)));
- cstringSList_elements (passThroughArgs, thisarg) {
- handlePassThroughFlag (cstring_toCharsSafe (thisarg));
- } end_cstringSList_elements;
+ cstringList_elements (passThroughArgs, thisarg)
+ {
+ handlePassThroughFlag (cstring_toCharsSafe (thisarg));
+ }
+ end_cstringList_elements;
- cstringSList_free (passThroughArgs);
+ cstringList_free (passThroughArgs);
cleanupMessages ();
llflush ();
- if (context_getFlag (FLG_SHOWSCAN))
- {
- fprintf (stderr, "< preprocessing");
- }
+ displayScanOpen (cstring_makeLiteral ("preprocessing"));
lcltime = clock ();
context_setPreprocessing ();
dercfiles = preprocessFiles (xfiles, TRUE);
tfiles = preprocessFiles (cfiles, FALSE);
+ warnSysFiles(cfiles);
dercfiles = fileIdList_append (dercfiles, tfiles);
fileIdList_free (tfiles);
fileIdList_free (cfiles);
- if (context_getFlag (FLG_SHOWSCAN))
- {
- fprintf (stderr, " >\n");
- }
-
+ displayScanClose ();
pptime = clock ();
}
else
*/
{
-# ifdef WIN32
+# if defined (WIN32) || defined (OS2) && defined (__IBMC__)
int nfiles = /*@-unrecog@*/ _fcloseall (); /*@=unrecog@*/
if (nfiles != 0)
fileIdList_elements (dercfiles, fid)
{
- sourceFile = inputStream_create (cstring_copy (fileName (fid)), C_EXTENSION, TRUE);
+ sourceFile = inputStream_create (cstring_copy (fileTable_fileName (fid)), C_EXTENSION, TRUE);
context_setFileId (fid);
/* Open source file */
if (inputStream_isUndefined (sourceFile) || (!inputStream_open (sourceFile)))
{
/* previously, this was ignored ?! */
- llbug (message ("Could not open temp file: %s", fileName (fid)));
+ llbug (message ("Could not open temp file: %s", fileTable_fileName (fid)));
}
else
{
llassert (yyin != NULL);
- if (context_getFlag (FLG_SHOWSCAN))
- {
- lldiagmsg (message ("< checking %s >", rootFileName (fid)));
- }
+ displayScan (message ("checking %q", osd_outputPath (fileTable_rootFileName (fid))));
/*
** Every time, except the first time, through the loop,
(void) inputStream_close (sourceFile);
}
+
+ inputStream_free (sourceFile); /* evans 2002-07-12: why no warning without this?!! */
} end_fileIdList_elements;
+ fileIdList_free (dercfiles); /* evans 2002-07-12: why no warning without this?!! */
cptime = clock ();
/* process any leftover macros */
** is this correct behaviour?
*/
- if (context_getFlag (FLG_SHOWSCAN))
- {
- lldiagmsg (cstring_makeLiteral ("< global checks >"));
- }
+ displayScan (cstring_makeLiteral ("global checks"));
cleanupMessages ();
# endif
cleanupFiles ();
-
+
+ if (g_csvstream != NULL) {
+ displayScan (message ("Closing CSV file: %s", context_getString (FLG_CSV)));
+ check (fclose (g_csvstream) == 0);
+ }
+
if (context_getFlag (FLG_SHOWSUMMARY))
{
summarizeErrors ();
}
-
{
bool isQuiet = context_getFlag (FLG_QUIET);
cstring specErrors = cstring_undefined;
-# ifndef NOLCL
int nspecErrors = lclNumberErrors ();
-# endif
expsuccess = TRUE;
if (context_neednl ())
- fprintf (g_msgstream, "\n");
+ fprintf (g_warningstream, "\n");
-# ifndef NOLCL
if (nspecErrors > 0)
{
if (nspecErrors == context_getLCLExpect ())
{
specErrors =
- message ("%d spec error%& found, as expected\n ",
+ message ("%d spec warning%&, as expected\n ",
nspecErrors);
}
else
if (context_getLCLExpect () > 0)
{
specErrors =
- message ("%d spec error%& found, expected %d\n ",
+ message ("%d spec warning%&, expected %d\n ",
nspecErrors,
(int) context_getLCLExpect ());
}
else
{
- specErrors = message ("%d spec error%& found\n ",
+ specErrors = message ("%d spec warning%&\n ",
nspecErrors);
expsuccess = FALSE;
}
{
if (context_getLCLExpect () > 0)
{
- specErrors = message ("No spec errors found, expected %d\n ",
+ specErrors = message ("No spec warnings, expected %d\n ",
(int) context_getLCLExpect ());
expsuccess = FALSE;
}
}
-# endif
if (context_anyErrors ())
{
if (context_numErrors () == context_getExpect ())
{
if (!isQuiet) {
- llmsg (message ("Finished LCLint checking --- "
- "%s%d code error%& found, as expected",
+ llmsg (message ("Finished checking --- "
+ "%s%d code warning%&, as expected",
specErrors, context_numErrors ()));
}
}
{
if (!isQuiet) {
llmsg (message
- ("Finished LCLint checking --- "
- "%s%d code error%& found, expected %d",
+ ("Finished checking --- "
+ "%s%d code warning%&, expected %d",
specErrors, context_numErrors (),
(int) context_getExpect ()));
}
if (!isQuiet)
{
- llmsg (message ("Finished LCLint checking --- "
- "%s%d code error%& found",
+ llmsg (message ("Finished checking --- "
+ "%s%d code warning%&",
specErrors, context_numErrors ()));
}
{
if (!isQuiet) {
llmsg (message
- ("Finished LCLint checking --- "
- "%sno code errors found, expected %d",
+ ("Finished checking --- "
+ "%sno code warnings, expected %d",
specErrors,
(int) context_getExpect ()));
}
{
if (context_getLinesProcessed () > 0)
{
- if (!isQuiet) {
- llmsg (message ("Finished LCLint checking --- %sno code errors found",
- specErrors));
- }
+ if (cstring_isEmpty (specErrors))
+ {
+ if (!isQuiet)
+ {
+ llmsg (message ("Finished checking --- no warnings"));
+ }
+ }
+ else
+ {
+ if (!isQuiet)
+ {
+ llmsg (message ("Finished checking --- %sno code warnings",
+ specErrors));
+ }
+ }
}
else
{
if (!isQuiet) {
- llmsg (message ("Finished LCLint checking --- %sno code processed",
+ llmsg (message ("Finished checking --- %sno code processed",
specErrors));
}
}
}
cstring_free (specErrors);
+
+ if (context_numBugs () > 0) {
+ expsuccess = FALSE;
+ if (!isQuiet) {
+ llmsg (message (" %d internal bugs reported", context_numBugs ()));
+ }
+ }
}
if (context_getFlag (FLG_STATS))
{
clock_t ttime = clock () - before;
int specLines = context_getSpecLinesProcessed ();
+ cstring specmsg = cstring_undefined;
rstime = clock ();
if (specLines > 0)
{
- fprintf (g_msgstream, "%d spec, ", specLines);
+ specmsg = message ("%d spec, ", specLines);
}
+ /* The clock might wrap around, not platform-independent easy way to deal with this... */
+ if (ttime > 0)
+ {
# ifndef CLOCKS_PER_SEC
- fprintf (g_msgstream, "%d source lines in %ld time steps (steps/sec unknown)\n",
- context_getLinesProcessed (),
- (long) ttime);
+ lldiagmsg (message ("%s%d source lines in %d time steps (steps/sec unknown)\n",
+ specmsg,
+ context_getLinesProcessed (),
+ (int) ttime));
# else
- fprintf (g_msgstream, "%d source lines in %.2f s.\n",
- context_getLinesProcessed (),
- (double) ttime / CLOCKS_PER_SEC);
+ lldiagmsg (message ("%s%d source lines in %f s.\n",
+ specmsg,
+ context_getLinesProcessed (),
+ (double) ttime / CLOCKS_PER_SEC));
+ DPRINTF (("Time: %ld [%ld - %ld]", ttime, rstime, before));
# endif
+ }
+ else
+ {
+ lldiagmsg (message ("%s%d source lines\n",
+ specmsg,
+ context_getLinesProcessed ()));
+ }
+
}
else
{
if (anylcl)
{
- sprintf (msg,
- "Time distribution (percent): initialize %.2f / lcl %.2f / "
- "pre-process %.2f / c check %.2f / finalize %.2f \n",
- (100.0 * (double) (libtime - before) / ttime),
- (100.0 * (double) (lcltime - libtime) / ttime),
- (100.0 * (double) (pptime - lcltime) / ttime),
- (100.0 * (double) (cptime - pptime) / ttime),
- (100.0 * (double) (rstime - cptime) / ttime));
+ /* Gack: really should figure out how to make configure find snprintf... */
+# ifdef WIN32
+ (void) _snprintf (msg, 256,
+# else
+ (void) snprintf (msg, 256,
+# endif
+ "Time distribution (percent): initialize %.2f / lcl %.2f / "
+ "pre-process %.2f / c check %.2f / finalize %.2f \n",
+ (100.0 * (double) (libtime - before) / ttime),
+ (100.0 * (double) (lcltime - libtime) / ttime),
+ (100.0 * (double) (pptime - lcltime) / ttime),
+ (100.0 * (double) (cptime - pptime) / ttime),
+ (100.0 * (double) (rstime - cptime) / ttime));
}
else
{
- sprintf (msg,
- "Time distribution (percent): initialize %.2f / "
- "pre-process %.2f / c check %.2f / finalize %.2f \n",
- (100.0 * (double) (libtime - before) / ttime),
- (100.0 * (double) (pptime - libtime) / ttime),
- (100.0 * (double) (cptime - pptime) / ttime),
- (100.0 * (double) (rstime - cptime) / ttime));
+# ifdef WIN32
+ (void) _snprintf (msg, 256,
+# else
+ (void) snprintf (msg, 256,
+# endif
+ "Time distribution (percent): initialize %.2f / "
+ "pre-process %.2f / c check %.2f / finalize %.2f \n",
+ (100.0 * (double) (libtime - before) / ttime),
+ (100.0 * (double) (pptime - libtime) / ttime),
+ (100.0 * (double) (cptime - pptime) / ttime),
+ (100.0 * (double) (rstime - cptime) / ttime));
}
llgenindentmsgnoloc (cstring_fromCharsO (msg));
}
llexit (expsuccess ? LLSUCCESS : LLFAILURE);
+ BADBRANCHRET (LLFAILURE);
}
# ifdef WIN32
# endif
void
-showHelp (void)
-{
- showHerald ();
-
- llmsg (message ("Source files are .c, .h and %s files. If there is no suffix,",
- LCL_EXTENSION));
- llmsg (message (" LCLint will look for <file>.c and <file>%s.", LCL_EXTENSION));
- llmsglit ("");
- llmsglit ("Use lclint -help <topic or flag name> for more information");
- llmsglit ("");
- llmsglit ("Topics:");
- llmsglit ("");
- llmsglit (" annotations (describes source-code annotations)");
- llmsglit (" comments (describes control comments)");
- llmsglit (" flags (describes flag categories)");
- llmsglit (" flags <category> (describes flags in category)");
- llmsglit (" flags all (short description of all flags)");
- llmsglit (" flags alpha (list all flags alphabetically)");
- llmsglit (" flags full (full description of all flags)");
- llmsglit (" mail (information on mailing lists)");
- llmsglit (" modes (show mode settings)");
- llmsglit (" parseerrors (help on handling parser errors)");
- llmsglit (" prefixcodes (character codes in namespace prefixes)");
- llmsglit (" references (sources for more information)");
- llmsglit (" vars (environment variables)");
- llmsglit (" version (information on compilation, maintainer)");
- llmsglit ("");
-}
-
-static bool
-specialFlagsHelp (char *next)
-{
- if ((next != NULL) && (*next != '-') && (*next != '+'))
- {
- if (mstring_equal (next, "alpha"))
- {
- printAlphaFlags ();
- return TRUE;
- }
- else if (mstring_equal (next, "all"))
- {
- printAllFlags (TRUE, FALSE);
- return TRUE;
- }
- else if (mstring_equal (next, "categories")
- || mstring_equal (next, "cats"))
- {
- listAllCategories ();
- return TRUE;
- }
- else if (mstring_equal (next, "full"))
- {
- printAllFlags (FALSE, TRUE);
- return TRUE;
- }
- else
- {
- return FALSE;
- }
- }
- else
- {
- return FALSE;
- }
-}
-
-void
-printParseErrors (void)
-{
- llmsglit ("Parse Errors");
- llmsglit ("------------");
- llmsglit ("");
- llmsglit ("LCLint will sometimes encounter a parse error for code that "
- "can be parsed with a local compiler. There are a few likely "
- "causes for this and a number of techniques that can be used "
- "to work around the problem.");
- llmsglit ("");
- llmsglit ("Compiler extensions --- compilers sometimes extend the C "
- "language with compiler-specific keywords and syntax. While "
- "it is not advisible to use these, oftentimes one has no choice "
- "when the system header files use compiler extensions. ");
- llmsglit ("");
- llmsglit ("LCLint supports some of the GNU (gcc) compiler extensions, "
- "if the +gnuextensions flag is set. You may be able to workaround "
- "other compiler extensions by using a pre-processor define. "
- "Alternately, you can surround the unparseable code with");
- llmsglit ("");
- llmsglit (" # ifndef __LCLINT__");
- llmsglit (" ...");
- llmsglit (" # endif");
- llmsglit ("");
- /* evans 2000-12-21 fixed typo reported by Jeroen Ruigrok/Asmodai */
- llmsglit ("Missing type definitions --- an undefined type name will usually "
- "lead to a parse error. This often occurs when a standard header "
- "file defines some type that is not part of the standard library. ");
- llmsglit ("By default, LCLint does not process the local files corresponding "
- "to standard library headers, but uses a library specification "
- "instead so dependencies on local system headers can be detected. "
- "If another system header file that does not correspond to a "
- "standard library header uses one of these superfluous types, "
- "a parse error will result.");
- llmsglit ("");
- llmsglit ("If the parse error is inside a posix standard header file, the "
- "first thing to try is +posixlib. This make LCLint use "
- "the posix library specification instead of reading the posix "
- "header files.");
- llmsglit ("");
- llmsglit ("Otherwise, you may need to either manually define the problematic "
- "type (e.g., add -Dmlink_t=int to your .lclintrc file) or force "
- "lclint to process the header file that defines it. This is done "
- "by setting -skipansiheaders or -skipposixheaders before "
- "the file that defines the type is #include'd.");
- llmsglit ("(See lclint -help "
- "skipansiheaders and lclint -help skipposixheaders for a list of "
- "standard headers.) For example, if <sys/local.h> uses a type "
- "defined by posix header <sys/types.h> but not defined by the "
- "posix library, we might do: ");
- llmsglit ("");
- llmsglit (" /*@-skipposixheaders@*/");
- llmsglit (" # include <sys/types.h>");
- llmsglit (" /*@=skipposixheaders@*/");
- llmsglit (" # include <sys/local.h>");
- llmsglit ("");
- llmsglit ("to force LCLint to process <sys/types.h>.");
- llmsglit ("");
- llmsglit ("At last resort, +trytorecover can be used to make LCLint attempt "
- "to continue after a parse error. This is usually not successful "
- "and the author does not consider assertion failures when +trytorecover "
- "is used to be bugs.");
-}
-
-void
-printAnnotations (void)
-{
- llmsglit ("Annotations");
- llmsglit ("-----------");
- llmsglit ("");
- llmsglit ("Annotations are semantic comments that document certain "
- "assumptions about functions, variables, parameters, and types. ");
- llmsglit ("");
- llmsglit ("They may be used to indicate where the representation of a "
- "user-defined type is hidden, to limit where a global variable may "
- "be used or modified, to constrain what a function implementation "
- "may do to its parameters, and to express checked assumptions about "
- "variables, types, structure fields, function parameters, and "
- "function results.");
- llmsglit ("");
- llmsglit ("Annotations are introduced by \"/*@\". The role of the @ may be "
- "played by any printable character, selected using -commentchar <char>.");
- llmsglit ("");
- llmsglit ("Consult the User's Guide for descriptions of checking associated with each annotation.");
- llmsglit ("");
- llmsglit ("Globals: (in function declarations)");
- llmsglit (" /*@globals <globitem>,+ @*/");
- llmsglit (" globitem is an identifier, internalState or fileSystem");
- llmsglit ("");
- llmsglit ("Modifies: (in function declarations)");
- llmsglit (" /*@modifies <moditem>,+ @*/");
- llmsglit (" moditem is an lvalue");
- llmsglit (" /*@modifies nothing @*/");
- llmsglit (" /*@*/ (Abbreviation for no globals and modifies nothing.)");
- llmsglit ("");
- llmsglit ("Iterators:");
- llmsglit (" /*@iter <identifier> (<parameter-type-list>) @*/ - declare an iterator");
- llmsglit ("");
- llmsglit ("Constants:");
- llmsglit (" /*@constant <declaration> @*/ - declares a constant");
- llmsglit ("");
- llmsglit ("Alternate Types:");
- llmsglit (" /*@alt <basic-type>,+ @*/");
- llmsglit (" (e.g., int /*@alt char@*/ is a type matching either int or char)");
- llmsglit ("");
- llmsglit ("Declarator Annotations");
- llmsglit ("");
- llmsglit ("Type Definitions:");
- llmsglit (" /*@abstract@*/ - representation is hidden from clients");
- llmsglit (" /*@concrete@*/ - representation is visible to clients");
- llmsglit (" /*@immutable@*/ - instances of the type cannot change value");
- llmsglit (" /*@mutable@*/ - instances of the type can change value");
- llmsglit (" /*@refcounted@*/ - reference counted type");
- llmsglit ("");
- llmsglit ("Global Variables:");
- llmsglit (" /*@unchecked@*/ - weakest checking for global use");
- llmsglit (" /*@checkmod@*/ - check modification by not use of global");
- llmsglit (" /*@checked@*/ - check use and modification of global");
- llmsglit (" /*@checkedstrict@*/ - check use of global strictly");
- llmsglit ("");
- llmsglit ("Memory Management:");
- llmsglit (" /*@dependent@*/ - a reference to externally-owned storage");
- llmsglit (" /*@keep@*/ - a parameter that is kept by the called function");
- llmsglit (" /*@killref@*/ - a refcounted parameter, killed by the call");
- llmsglit (" /*@only@*/ - an unshared reference");
- llmsglit (" /*@owned@*/ - owner of storage that may be shared by /*@dependent@*/ references");
- llmsglit (" /*@shared@*/ - shared reference that is never deallocated");
- llmsglit (" /*@temp@*/ - temporary parameter");
- llmsglit ("");
- llmsglit ("Aliasing:");
- llmsglit (" /*@unique@*/ - may not be aliased by any other visible reference");
- llmsglit (" /*@returned@*/ - may be aliased by the return value");
- llmsglit ("");
- llmsglit ("Exposure:");
- llmsglit (" /*@observer@*/ - reference that cannot be modified");
- llmsglit (" /*@exposed@*/ - exposed reference to storage in another object");
- llmsglit ("");
- llmsglit ("Definition State:");
- llmsglit (" /*@out@*/ - storage reachable from reference need not be defined");
- llmsglit (" /*@in@*/ - all storage reachable from reference must be defined");
- llmsglit (" /*@partial@*/ - partially defined, may have undefined fields");
- llmsglit (" /*@reldef@*/ - relax definition checking");
- llmsglit ("");
- llmsglit ("Global State: (for globals lists, no /*@, since list is already in /*@\'s)");
- llmsglit (" undef - variable is undefined before the call");
- llmsglit (" killed - variable is undefined after the call");
- llmsglit ("");
- llmsglit ("Null State:");
- llmsglit (" /*@null@*/ - possibly null pointer");
- llmsglit (" /*@notnull@*/ - non-null pointer");
- llmsglit (" /*@relnull@*/ - relax null checking");
- llmsglit ("");
- llmsglit ("Null Predicates:");
- llmsglit (" /*@truenull@*/ - if result is TRUE, first parameter is NULL");
- llmsglit (" /*@falsenull@*/ - if result is TRUE, first parameter is not NULL");
- llmsglit ("");
- llmsglit ("Execution:");
- llmsglit (" /*@exits@*/ - function never returns");
- llmsglit (" /*@mayexit@*/ - function may or may not return");
- llmsglit (" /*@trueexit@*/ - function does not return if first parameter is TRUE");
- llmsglit (" /*@falseexit@*/ - function does not return if first parameter if FALSE");
- llmsglit (" /*@neverexit@*/ - function always returns");
- llmsglit ("");
- llmsglit ("Side-Effects:");
- llmsglit (" /*@sef@*/ - corresponding actual parameter has no side effects");
- llmsglit ("");
- llmsglit ("Declaration:");
- llmsglit (" /*@unused@*/ - need not be used (no unused errors reported)");
- llmsglit (" /*@external@*/ - defined externally (no undefined error reported)");
- llmsglit ("");
- llmsglit ("Case:");
- llmsglit (" /*@fallthrough@*/ - fall-through case");
- llmsglit ("");
- llmsglit ("Break:");
- llmsglit (" /*@innerbreak@*/ - break is breaking an inner loop or switch");
- llmsglit (" /*@loopbreak@*/ - break is breaking a loop");
- llmsglit (" /*@switchbreak@*/ - break is breaking a switch");
- llmsglit (" /*@innercontinue@*/ - continue is continuing an inner loop");
- llmsglit ("");
- llmsglit ("Unreachable Code:");
- llmsglit (" /*@notreached@*/ - statement may be unreachable.");
- llmsglit ("");
- llmsglit ("Special Functions:");
- llmsglit (" /*@printflike@*/ - check variable arguments like printf");
- llmsglit (" /*@scanflike@*/ - check variable arguments like scanf");
-}
-
-void
-printComments (void)
-{
- llmsglit ("Control Comments");
- llmsglit ("----------------");
- llmsglit ("");
- llmsglit ("Setting Flags");
- llmsglit ("");
- llmsglit ("Most flags (all except those characterized as \"globally-settable only\") can be set locally using control comments. A control comment can set flags locally to override the command line settings. The original flag settings are restored before processing the next file.");
- llmsglit ("");
- llmsglit ("The syntax for setting flags in control comments is the same as that of the command line, except that flags may also be preceded by = to restore their setting to the original command-line value. For instance,");
- llmsglit (" /*@+boolint -modifies =showfunc@*/");
- llmsglit ("sets boolint on (this makes bool and int indistinguishable types), sets modifies off (this prevents reporting of modification errors), and sets showfunc to its original setting (this controls whether or not the name of a function is displayed before a message).");
- llmsglit ("");
- llmsglit ("Error Suppression");
- llmsglit ("");
- llmsglit ("Several comments are provided for suppressing messages. In general, it is usually better to use specific flags to suppress a particular error permanently, but the general error suppression flags may be more convenient for quickly suppressing messages for code that will be corrected or documented later.");
- llmsglit ("");
- llmsglit ("/*@ignore@*/ ... /*@end@*/");
- llgenindentmsgnoloc
- (cstring_makeLiteral
- ("No errors will be reported in code regions between /*@ignore@*/ and /*@end@*/. These comments can be used to easily suppress an unlimited number of messages."));
- llmsglit ("/*@i@*/");
- llgenindentmsgnoloc
- (cstring_makeLiteral
- ("No errors will be reported from an /*@i@*/ comment to the end of the line."));
- llmsglit ("/*@i<n>@*/");
- llgenindentmsgnoloc
- (cstring_makeLiteral
- ("No errors will be reported from an /*@i<n>@*/ (e.g., /*@i3@*/) comment to the end of the line. If there are not exactly n errors suppressed from the comment point to the end of the line, LCLint will report an error."));
- llmsglit ("/*@t@*/, /*@t<n>@*/");
- llgenindentmsgnoloc
- (cstring_makeLiteral
- ("Like i and i<n>, except controlled by +tmpcomments flag. These can be used to temporarily suppress certain errors. Then, -tmpcomments can be set to find them again."));
- llmsglit ("");
- llmsglit ("Type Access");
- llmsglit ("");
- llmsglit ("/*@access <type>@*/");
- llmsglit (" Allows the following code to access the representation of <type>");
- llmsglit ("/*@noaccess <type>@*/");
- llmsglit (" Hides the representation of <type>");
- llmsglit ("");
- llmsglit ("Macro Expansion");
- llmsglit ("");
- llmsglit ("/*@notfunction@*/");
- llgenindentmsgnoloc
- (cstring_makeLiteral
- ("Indicates that the next macro definition is not intended to be a "
- "function, and should be expanded in line instead of checked as a "
- "macro function definition."));
-}
-
-
-void
-printFlags (void)
-{
- llmsglit ("Flag Categories");
- llmsglit ("---------------");
- listAllCategories ();
- llmsglit ("\nTo see the flags in a flag category, do\n lclint -help flags <category>");
- llmsglit ("To see a list of all flags in alphabetical order, do\n lclint -help flags alpha");
- llmsglit ("To see a full description of all flags, do\n lclint -help flags full");
-}
-
-void
-printMaintainer (void)
-{
- llmsg (message ("Maintainer: %s", cstring_makeLiteralTemp (LCLINT_MAINTAINER)));
- llmsglit (LCL_COMPILE);
-}
-
-void
-printMail (void)
-{
- llmsglit ("Mailing Lists");
- llmsglit ("-------------");
- llmsglit ("");
- llmsglit ("There are two mailing lists associated with LCLint: ");
- llmsglit ("");
- llmsglit (" lclint-announce@virginia.edu");
- llmsglit ("");
- llmsglit (" Reserved for announcements of new releases and bug fixes.");
- llmsglit (" To subscribe, send a message to majordomo@virginia.edu with body: ");
- llmsglit (" subscribe lclint-announce");
- llmsglit ("");
- llmsglit (" lclint-interest@virginia.edu");
- llmsglit ("");
- llmsglit (" Informal discussions on the use and development of lclint.");
- llmsglit (" To subscribe, send a message to majordomo@virginia.edu with body: ");
- llmsglit (" subscribe lclint-interest");
-}
-
-void
-printReferences (void)
-{
- llmsglit ("References");
- llmsglit ("----------");
- llmsglit ("");
- llmsglit ("The LCLint web site is http://lclint.cs.virginia.edu");
- llmsglit ("");
- llmsglit ("Technical papers relating to LCLint include:");
- llmsglit ("");
- llmsglit (" David Evans. \"Static Detection of Dynamic Memory Errors\".");
- llmsglit (" SIGPLAN Conference on Programming Language Design and ");
- llmsglit (" Implementation (PLDI '96), Philadelphia, PA, May 1996.");
- llmsglit ("");
- llmsglit (" David Evans, John Guttag, Jim Horning and Yang Meng Tan. ");
- llmsglit (" \"LCLint: A Tool for Using Specifications to Check Code\".");
- llmsglit (" SIGSOFT Symposium on the Foundations of Software Engineering,");
- llmsglit (" December 1994.");
- llmsglit ("");
- llmsglit ("A general book on Larch is:");
- llmsglit ("");
- llmsglit (" Guttag, John V., Horning, James J., (with Garland, S. J., Jones, ");
- llmsglit (" K. D., Modet, A., and Wing, J. M.), \"Larch: Languages and Tools ");
- llmsglit (" for Formal Specification\", Springer-Verlag, 1993.");
-}
-
-void
-describePrefixCodes (void)
-{
- llmsglit ("Prefix Codes");
- llmsglit ("------------");
- llmsglit ("");
- llmsglit ("These characters have special meaning in name prefixes:");
- llmsglit ("");
- llmsg (message (" %h Any uppercase letter [A-Z]", PFX_UPPERCASE));
- llmsg (message (" %h Any lowercase letter [a-z]", PFX_LOWERCASE));
- llmsg (message (" %h Any character (valid in a C identifier)", PFX_ANY));
- llmsg (message (" %h Any digit [0-9]", PFX_DIGIT));
- llmsg (message (" %h Any non-uppercase letter [a-z0-9_]", PFX_NOTUPPER));
- llmsg (message (" %h Any non-lowercase letter [A-Z0-9_]", PFX_NOTLOWER));
- llmsg (message (" %h Any letter [A-Za-z]", PFX_ANYLETTER));
- llmsg (message (" %h Any letter or digit [A-Za-z0-9]", PFX_ANYLETTERDIGIT));
- llmsglit (" * Zero or more repetitions of the previous character class until the end of the name");
-}
-
-void
-describeVars (void)
-{
- cstring eval;
- cstring def;
-
- eval = context_getLarchPath ();
- def = osd_getEnvironmentVariable (LARCH_PATH);
-
- if (cstring_isDefined (def) ||
- !cstring_equal (eval, cstring_fromChars (DEFAULT_LARCHPATH)))
- {
- llmsg (message ("LARCH_PATH = %s", eval));
- }
- else
- {
- llmsg (message ("LARCH_PATH = <not set> (default = %s)",
- cstring_fromChars (DEFAULT_LARCHPATH)));
- }
-
- llmsglit (" --- path used to find larch initialization files and LSL traits");
-
- eval = context_getLCLImportDir ();
- def = osd_getEnvironmentVariable (cstring_makeLiteralTemp (LCLIMPORTDIR));
-
- if (cstring_isDefined (def) ||
- !cstring_equal (eval, cstring_fromChars (DEFAULT_LCLIMPORTDIR)))
- {
- llmsg (message ("%q = %s", cstring_makeLiteral (LCLIMPORTDIR), eval));
- }
- else
- {
- llmsg (message ("%s = <not set, default: %s>", cstring_makeLiteralTemp (LCLIMPORTDIR),
- cstring_makeLiteralTemp (DEFAULT_LCLIMPORTDIR)));
- }
-
- llmsglit (" --- directory containing lcl standard library files "
- "(import with < ... >)");;
-
- llmsg (message
- ("include path = %q (set by environment variable %s and -I flags)",
- cppReader_getIncludePath (), INCLUDEPATH_VAR));
-
- llmsglit (" --- path used to find #include'd files");
-
- llmsg (message
- ("systemdirs = %s (set by -systemdirs or environment variable %s)", /*@i413223@*/
- context_getString (FLG_SYSTEMDIRS),
- INCLUDEPATH_VAR));
-
- llmsglit (" --- if file is found on this path, it is treated as a system file for error reporting");
-}
-
-void
-interrupt (int i)
+llinterrupt (int i)
{
switch (i)
{
case SIGINT:
- fprintf (stderr, "*** Interrupt\n");
+ fprintf (g_errorstream, "*** Interrupt\n");
llexit (LLINTERRUPT);
case SIGSEGV:
{
/* Cheat when there are parse errors */
checkParseError ();
- fprintf (stderr, "*** Segmentation Violation\n");
+ fprintf (g_errorstream, "*** Segmentation Violation\n");
/* Don't catch it if fileloc_unparse causes a signal */
(void) signal (SIGSEGV, NULL);
loc = fileloc_unparse (g_currentloc);
- fprintf (stderr, "*** Location (not trusted): %s\n",
+ fprintf (g_errorstream, "*** Location (not trusted): %s\n",
cstring_toCharsSafe (loc));
cstring_free (loc);
printCodePoint ();
- fprintf (stderr, "*** Please report bug to %s\n", LCLINT_MAINTAINER);
+ fprintf (g_errorstream, "*** Please report bug to %s\n", SPLINT_MAINTAINER);
exit (LLGIVEUP);
}
default:
- fprintf (stderr, "*** Signal: %d\n", i);
+ fprintf (g_errorstream, "*** Signal: %d\n", i);
/*@-mustfree@*/
- fprintf (stderr, "*** Location (not trusted): %s\n",
+ fprintf (g_errorstream, "*** Location (not trusted): %s\n",
cstring_toCharsSafe (fileloc_unparse (g_currentloc)));
/*@=mustfree@*/
printCodePoint ();
- fprintf (stderr, "*** Please report bug to %s ***\n", LCLINT_MAINTAINER);
+ fprintf (g_errorstream, "*** Please report bug to %s ***\n", SPLINT_MAINTAINER);
exit (LLGIVEUP);
}
}
setCodePoint ();
+ /*
+ ** Close all open files
+ ** (There should only be open files, if we exited after a fatal error.)
+ */
+
+ fileTable_closeAll (context_fileTable ());
+
if (context_getFlag (FLG_KEEP))
{
- check (fputs ("Temporary files kept:\n", stderr) != EOF);
+ check (fputs ("Temporary files kept:\n", g_messagestream) != EOF);
fileTable_printTemps (context_fileTable ());
}
else
{
-# ifdef WIN32
+# if defined (WIN32) || defined (OS2) && defined (__IBMC__)
int nfiles = /*@-unrecog@*/ _fcloseall (); /*@=unrecog@*/
if (nfiles != 0)
}
/*
-** cleans up temp files (if necessary)
-** exits lclint
+** cleans up temp files (if necessary) and exits
*/
-/*@exits@*/ void
+/*@noreturn@*/ void
llexit (int status)
{
DPRINTF (("llexit: %d", status));
-# ifdef WIN32
+# if defined (WIN32) || defined (OS2) && defined (__IBMC__)
if (status == LLFAILURE)
{
_fcloseall ();
if (status != LLFAILURE)
{
- context_destroyMod ();
+ usymtab_destroyMod ();
+
+ /*drl I'm commenting this line out
+ because it is causing Splint to crash when built with
+ 2.95 I'm not sure if this is a compiler bug or if if has to do with bool
+ Any way if we're going to exist the program why do we bother freeing stuff...
+ */
+ /* context_destroyMod (); */
exprNode_destroyMod ();
-
+ cppReader_destroyMod ();
sRef_destroyMod ();
uentry_destroyMod ();
typeIdSet_destroyMod ();
-
+ qual_destroyMod ();
+ osd_destroyMod ();
+ fileloc_destroyMod ();
# ifdef USEDMALLOC
dmalloc_shutdown ();
# endif
exit ((status == LLSUCCESS) ? EXIT_SUCCESS : EXIT_FAILURE);
}
-void
-loadrc (/*:open:*/ FILE *rcfile, cstringSList *passThroughArgs)
- /*@ensures closed rcfile@*/
-{
- char *s = mstring_create (MAX_LINE_LENGTH);
- char *os = s;
-
- DPRINTF (("Pass through: %s", cstringSList_unparse (*passThroughArgs)));
-
- s = os;
-
- while (reader_readLine (rcfile, s, MAX_LINE_LENGTH) != NULL)
- {
- char c;
- bool set = FALSE;
- char *thisflag;
- flagcode opt;
-
- DPRINTF (("Line: %s", s));
- DPRINTF (("Pass through: %s", cstringSList_unparse (*passThroughArgs)));
-
- while (*s == ' ' || *s == '\t')
- {
- s++;
- incColumn ();
- }
-
- while (*s != '\0')
- {
- bool escaped = FALSE;
- bool quoted = FALSE;
- c = *s;
-
- DPRINTF (("Process: %s", s));
- DPRINTF (("Pass through: %s", cstringSList_unparse (*passThroughArgs)));
- /* comment characters */
- if (c == '#' || c == ';' || c == '\n')
- {
- /*@innerbreak@*/
- break;
- }
-
- if (c == '-' || c == '+')
- {
- set = (c == '+');
- }
- else
- {
- showHerald ();
- voptgenerror (FLG_BADFLAG,
- message ("Bad flag syntax (+ or - expected, "
- "+ is assumed): %s",
- cstring_fromChars (s)),
- g_currentloc);
- s--;
- set = TRUE;
- }
-
- s++;
- incColumn ();
-
- thisflag = s;
-
- while ((c = *s) != '\0')
- { /* remember to handle spaces and quotes in -D and -U ... */
- if (escaped)
- {
- escaped = FALSE;
- }
- else if (quoted)
- {
- if (c == '\\')
- {
- escaped = TRUE;
- }
- else if (c == '\"')
- {
- quoted = FALSE;
- }
- else
- {
- ;
- }
- }
- else if (c == '\"')
- {
- quoted = TRUE;
- }
- else
- {
- if (c == ' ' || c == '\t' || c == '\n')
- {
- /*@innerbreak@*/ break;
- }
- }
-
- s++;
- incColumn ();
- }
-
- DPRINTF (("Nulling: %c", *s));
- *s = '\0';
-
- if (mstring_isEmpty (thisflag))
- {
- llfatalerror (message ("Missing flag: %s",
- cstring_fromChars (os)));
- }
-
- DPRINTF (("Flag: %s", thisflag));
-
- opt = identifyFlag (cstring_fromChars (thisflag));
-
- if (flagcode_isSkip (opt))
- {
- ;
- }
- else if (flagcode_isInvalid (opt))
- {
- DPRINTF (("Invalid: %s", thisflag));
-
- if (isMode (cstring_fromChars (thisflag)))
- {
- context_setMode (cstring_fromChars (thisflag));
- }
- else
- {
- voptgenerror (FLG_BADFLAG,
- message ("Unrecognized option: %s",
- cstring_fromChars (thisflag)),
- g_currentloc);
- }
- }
- else
- {
- context_userSetFlag (opt, set);
-
- if (flagcode_hasArgument (opt))
- {
- if (opt == FLG_HELP)
- {
- showHerald ();
- voptgenerror (FLG_BADFLAG,
- message ("Cannot use help in rc files"),
- g_currentloc);
- }
- else if (flagcode_isPassThrough (opt)) /* -D or -U */
- {
- cstring arg = cstring_fromCharsNew (thisflag);
- cstring_markOwned (arg);
- *passThroughArgs = cstringSList_add (*passThroughArgs, arg);
- DPRINTF (("Pass through: %s",
- cstringSList_unparse (*passThroughArgs)));
- }
- else if (opt == FLG_INCLUDEPATH
- || opt == FLG_SPECPATH)
- {
- cstring dir = cstring_suffix (cstring_fromChars (thisflag), 1); /* skip over I/S */
-
- switch (opt)
- {
- case FLG_INCLUDEPATH:
- cppAddIncludeDir (dir);
- /*@switchbreak@*/ break;
- case FLG_SPECPATH:
- /*@-mustfree@*/
- g_localSpecPath = cstring_toCharsSafe
- (message ("%s:%s", cstring_fromChars (g_localSpecPath), dir));
- /*@=mustfree@*/
- /*@switchbreak@*/ break;
- BADDEFAULT;
- }
- }
- else if (flagcode_hasString (opt)
- || flagcode_hasValue (opt)
- || opt == FLG_INIT || opt == FLG_OPTF)
- {
- cstring extra = cstring_undefined;
- char *rest, *orest;
- char rchar;
-
- *s = c;
- rest = mstring_copy (s);
- DPRINTF (("Here: rest = %s", rest));
- orest = rest;
- *s = '\0';
-
- while ((rchar = *rest) != '\0'
- && (isspace ((int) rchar)))
- {
- rest++;
- s++;
- }
-
- DPRINTF (("Yo: %s", rest));
-
- while ((rchar = *rest) != '\0'
- && !isspace ((int) rchar))
- {
- extra = cstring_appendChar (extra, rchar);
- rest++;
- s++;
- }
-
- DPRINTF (("Yo: %s", extra));
- sfree (orest);
-
- if (cstring_isUndefined (extra))
- {
- showHerald ();
- voptgenerror
- (FLG_BADFLAG,
- message
- ("Flag %s must be followed by an argument",
- flagcode_unparse (opt)),
- g_currentloc);
- }
- else
- {
- s--;
-
- DPRINTF (("Here we are: %s", extra));
-
- if (flagcode_hasValue (opt))
- {
- DPRINTF (("Set value flag: %s", extra));
- setValueFlag (opt, extra);
- cstring_free (extra);
- }
- else if (opt == FLG_OPTF)
- {
- FILE *innerf = fopen (cstring_toCharsSafe (extra), "r");
- cstring_markOwned (extra);
-
- if (innerf != NULL)
- {
- fileloc fc = g_currentloc;
- g_currentloc = fileloc_createRc (extra);
- loadrc (innerf, passThroughArgs);
- fileloc_reallyFree (g_currentloc);
- g_currentloc = fc;
- }
- else
- {
- showHerald ();
- voptgenerror
- (FLG_BADFLAG,
- message ("Options file not found: %s",
- extra),
- g_currentloc);
- }
- }
- else if (opt == FLG_INIT)
- {
-# ifndef NOLCL
- llassert (inputStream_isUndefined (initFile));
-
- initFile = inputStream_create
- (extra,
- cstring_makeLiteralTemp (LCLINIT_SUFFIX),
- FALSE);
-# else
- cstring_free (extra);
-# endif
- }
- else if (flagcode_hasString (opt))
- {
- if (cstring_firstChar (extra) == '"')
- {
- if (cstring_lastChar (extra) == '"')
- {
- char *extras = cstring_toCharsSafe (extra);
-
- llassert (extras[strlen(extras) - 1] == '"');
- extras[strlen(extras) - 1] = '\0';
- extra = cstring_fromChars (extras + 1);
- DPRINTF (("Remove quites: %s", extra));
- }
- else
- {
- voptgenerror
- (FLG_BADFLAG,
- message ("Unmatched \" in option string: %s",
- extra),
- g_currentloc);
- }
- }
-
- setStringFlag (opt, extra);
- }
- else
- {
- cstring_free (extra);
- BADEXIT;
- }
- }
- }
- else
- {
- BADEXIT;
- }
- }
- }
-
- *s = c;
- DPRINTF (("Pass through: %s", cstringSList_unparse (*passThroughArgs)));
- while ((c == ' ') || (c == '\t'))
- {
- c = *(++s);
- incColumn ();
- }
- }
- DPRINTF (("Pass through: %s", cstringSList_unparse (*passThroughArgs)));
- s = os;
- }
-
- DPRINTF (("Pass through: %s", cstringSList_unparse (*passThroughArgs)));
- sfree (os);
- check (fclose (rcfile) == 0);
-}
-
static fileIdList preprocessFiles (fileIdList fl, bool xhfiles)
/*@modifies fileSystem@*/
{
fileIdList_elements (fl, fid)
{
- cstring ppfname = fileName (fid);
+ cstring ppfname = fileTable_fileName (fid);
- if (xhfiles)
+ if (!(osd_fileIsReadable (ppfname)))
{
- cstring fpath;
-
- if (osd_findOnLarchPath (ppfname, &fpath) == OSD_FILEFOUND)
- {
- if (cstring_equal (ppfname, fpath))
- {
- ;
- }
- else
- {
- DPRINTF (("xh file: %s", fpath));
- ppfname = fpath;
- fileTable_setFilePath (context_fileTable (), fid, fpath);
- }
- }
- else
- {
- lldiagmsg (message ("Cannot find .xh file on LARCH_PATH: %s", ppfname));
- lldiagmsg (cstring_makeLiteral (" Check LARCH_PATH environment variable."));
- ppfname = cstring_undefined;
- }
- }
- else
- {
- if (!(osd_fileIsReadable (ppfname)))
- {
- lldiagmsg (message ("Cannot open file: %s", ppfname));
- ppfname = cstring_undefined;
- }
+ lldiagmsg (message ("Cannot open file: %q", osd_outputPath (ppfname)));
+ ppfname = cstring_undefined;
}
if (cstring_isDefined (ppfname))
{
fileId dfile = fileTable_addCTempFile (context_fileTable (), fid);
-
+
+ if (xhfiles)
+ {
+ llassert (fileTable_isXHFile (context_fileTable (), dfile));
+ }
+
llassert (cstring_isNonEmpty (ppfname));
if (msg)
if ((filesprocessed % skip) == 0)
{
if (filesprocessed == 0) {
- fprintf (stderr, " ");
+ displayScanContinue (cstring_makeLiteral (" "));
}
else {
- fprintf (stderr, ".");
+ displayScanContinue (cstring_makeLiteral ("."));
}
-
- (void) fflush (stderr);
}
filesprocessed++;
}
- if (cppProcess (ppfname, fileName (dfile)) != 0)
+ DPRINTF (("outfile: %s", fileTable_fileName (dfile)));
+
+ if (cppProcess (ppfname, fileTable_fileName (dfile)) != 0)
{
llfatalerror (message ("Preprocessing error for file: %s",
- rootFileName (fid)));
+ fileTable_rootFileName (fid)));
}
fileIdList_add (dfiles, dfile);
}
} end_fileIdList_elements;
-
- return dfiles;
+
+ return dfiles;
}
/* This should be in an lclUtils.c file... */
-# ifndef NOLCL
char *specFullName (char *specfile, /*@out@*/ char **inpath)
{
/* extract the path and the specname associated with the given file */
return specname;
}
-# endif
+
+void warnSysFiles(fileIdList files)
+{
+ fileIdList_elements (files, file)
+ {
+
+ if (fileTable_isSystemFile (context_fileTable (), file) )
+ {
+ if (!context_getFlag( FLG_SYSTEMDIRERRORS ) )
+ {
+ voptgenerror (FLG_WARNSYSFILES, message ("Warning %s is a considered a system file. No errors in this file will be reported.", fileTable_rootFileName (file) ), g_currentloc);
+ }
+ }
+ }
+ end_fileIdList_elements;
+}
andersk / splint.git / blobdiff