src/globals.c

   1 /*
   2 ** Splint - annotation-assisted static program checker
   3 ** Copyright (C) 1994-2002 University of Virginia,
   4 **         Massachusetts Institute of Technology
   5 **
   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.
  10 **
  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.
  15 **
  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.
  19 **
  20 ** For information on splint: splint@cs.virginia.edu
  21 ** To report a bug: splint-bug@cs.virginia.edu
  22 ** For more information: http://www.splint.org
  23 */
  24 /*
  25 ** globals.c
  26 */
  27
  28 # include "splintMacros.nf"
  29 # include "basic.h"
  30
  31 fileloc g_currentloc;
  32
  33 # ifndef NOLCL
  34 symtable g_symtab;
  35 /*@only@*/ lsymbolSet g_currentImports = lsymbolSet_undefined;
  36 # endif
  37
  38 cstring g_codeFile = cstring_undefined;
  39 int g_codeLine = 0;
  40
  41 cstring g_prevCodeFile = cstring_undefined;
  42 int g_prevCodeLine = 0;
  43 /*:open:*/ FILE *g_msgstream;
  44
  45 /*
  46 ** These were in llmain.c.  Most should not be globals...
  47 */
  48
  49 /*@observer@*/ char *g_localSpecPath = ".";
  50
  51 # ifndef NOLCL
  52 /*@only@*/ cstring g_currentSpec;
  53 /*@only@*/ char *g_currentSpecName;
  54 # endif
  55
  56 void printCodePoint (void)
  57 {
  58   static bool incode = FALSE;
  59
  60   if (incode) {
  61     fprintf (stderr, "[[[ in code! ]]]\n");
  62   }
  63
  64   incode = TRUE;
  65
  66   if (cstring_isDefined (g_codeFile))
  67     {
  68       cstring temps = fileloc_unparseRaw (g_codeFile, g_codeLine);
  69
  70       fprintf (stderr, "*** Last code point: %s\n",
  71                cstring_toCharsSafe (temps));
  72
  73       cstring_free (temps);
  74
  75       if (cstring_isDefined (g_prevCodeFile))
  76         {
  77           temps = fileloc_unparseRaw (g_prevCodeFile, g_prevCodeLine);
  78           fprintf (stderr, "*** Previous code point: %s\n",
  79                    cstring_toCharsSafe (temps));
  80
  81           cstring_free (temps);
  82         }
  83     }
  84
  85   incode = FALSE;
  86 }
  87
  88 # ifdef WIN32
  89 int yywrap (void)
  90 {
  91   return 1;
  92 }
  93 # endif
  94
  95
  96