00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028 # include "lclintMacros.nf"
00029 # include "basic.h"
00030
00031 fileloc g_currentloc;
00032
00033 # ifndef NOLCL
00034 symtable g_symtab;
00035 lsymbolSet g_currentImports = lsymbolSet_undefined;
00036 # endif
00037
00038 cstring g_codeFile = cstring_undefined;
00039 int g_codeLine = 0;
00040
00041 cstring g_prevCodeFile = cstring_undefined;
00042 int g_prevCodeLine = 0;
00043 FILE *g_msgstream;
00044
00045
00046
00047
00048
00049 char *g_localSpecPath = ".";
00050
00051 # ifndef NOLCL
00052 cstring g_currentSpec;
00053 char *g_currentSpecName;
00054 # endif
00055
00056 void printCodePoint (void)
00057 {
00058 static bool incode = FALSE;
00059
00060 if (incode) {
00061 fprintf (stderr, "[[[ in code! ]]]\n");
00062 }
00063
00064 incode = TRUE;
00065
00066 if (cstring_isDefined (g_codeFile))
00067 {
00068 cstring temps = fileloc_unparseRaw (g_codeFile, g_codeLine);
00069
00070 fprintf (stderr, "*** Last code point: %s\n",
00071 cstring_toCharsSafe (temps));
00072
00073 cstring_free (temps);
00074
00075 if (cstring_isDefined (g_prevCodeFile))
00076 {
00077 temps = fileloc_unparseRaw (g_prevCodeFile, g_prevCodeLine);
00078 fprintf (stderr, "*** Previous code point: %s\n",
00079 cstring_toCharsSafe (temps));
00080
00081 cstring_free (temps);
00082 }
00083 }
00084
00085 incode = FALSE;
00086 }
00087
00088 # ifdef WIN32
00089 int yywrap (void)
00090 {
00091 return 1;
00092 }
00093 # endif
00094
00095
00096