/*
-** 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
*/
/*
** source.c
** Joe Wild, Technical Languages and Environments, DECspec project
*/
-# include "lclintMacros.nf"
-# include "llbasic.h"
+# include "splintMacros.nf"
+# include "basic.h"
# include "osd.h"
# include "portab.h"
if (s->file != NULL)
{
- check (fclose (s->file) == 0);
+ check (fileTable_closeFile (context_fileTable (), s->file));
s->file = NULL;
return TRUE;
}
}
extern /*@only@*/ inputStream
- inputStream_create (cstring name, cstring suffix, bool echo)
+inputStream_create (cstring name, cstring suffix, bool echo)
{
char *ps;
inputStream s = (inputStream) dmalloc (sizeof (*s));
-
+
s->name = name;
s->file = NULL;
/*@access cstring@*/
llassert (cstring_isDefined (s->name));
- /*@i534 clean this up...*/
ps = strrchr (s->name, CONNECTCHAR);
if (ps == NULL)
s->fromString = FALSE;
s->stringSource = NULL;
s->stringSourceTail = NULL;
-
- /*@i3254@*/ return s;
+ s->buffer[0] = '\0';
+
+ return s;
}
extern /*@only@*/ inputStream
extern int inputStream_peekNChar (inputStream s, int n)
/* Doesn't work across lines! */
{
+ llassert (inputStream_isDefined (s));
llassert (s->curLine != NULL);
llassert (s->charNo + n < strlen (s->curLine));
return ((int) s->curLine [s->charNo + n]);
extern int inputStream_peekChar (inputStream s)
{
+ llassert (inputStream_isDefined (s));
+
if (s->curLine == NULL)
{
char *cur;
char *inputStream_nextLine (inputStream s)
{
char *currentLine;
- int len;
+ size_t len;
+ llassert (inputStream_isDefined (s));
llassert (s->curLine == NULL);
s->charNo = 0;
c = strchr (s->stringSourceTail, '\0');
}
- len = c - s->stringSourceTail + 1;
+ len = size_fromInt (c - s->stringSourceTail + 1);
- if (len > STUBMAXRECORDSIZE - 2)
+ if (len > size_fromInt (STUBMAXRECORDSIZE - 2))
{
- len = (STUBMAXRECORDSIZE - 2);
+ len = size_fromInt (STUBMAXRECORDSIZE - 2);
}
currentLine = &(s->buffer)[0];
- strncpy (currentLine, s->stringSourceTail, size_fromInt (len));
+ strncpy (currentLine, s->stringSourceTail, len);
currentLine[len] = '\0';
s->stringSourceTail += len;
/*@noaccess cstring@*/
}
else
{
- if (len >= STUBMAXRECORDSIZE - 2)
+ if (len >= size_fromInt (STUBMAXRECORDSIZE - 2))
{
lldiagmsg (message ("Input line too long: %s",
cstring_fromChars (currentLine)));
extern bool
inputStream_open (inputStream s)
{
+ llassert (inputStream_isDefined (s));
if (s->fromString)
{
/* not an error: tail is dependent */
return TRUE;
}
- DPRINTF (("Open: %s", s->name));
- s->file = fopen (cstring_toCharsSafe (s->name), "r");
+ DPRINTF (("Opening: %s", s->name));
+ s->file = fileTable_openReadFile (context_fileTable (), s->name);
return (s->file != 0 || s->fromString);
}
/*:open:*/ FILE *inputStream_getFile (inputStream s)
{
llassert (inputStream_isDefined (s));
+ llassert (s->file != NULL);
return s->file;
}