]> andersk Git - splint.git/blob - src/cppmain.c
a01bf67424ac2fbdcb4b53ea33677908d0e393ee
[splint.git] / src / cppmain.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: info@splint.org
21 ** To report a bug: splint-bug@splint.org
22 ** For more information: http://www.splint.org
23 */
24 /*
25 ** cppmain.c
26 */
27 /* CPP main program, using CPP Library.
28    Copyright (C) 1995 Free Software Foundation, Inc.
29    Written by Per Bothner, 1994-95.
30
31 This program is free software; you can redistribute it and/or modify it
32 under the terms of the GNU General Public License as published by the
33 Free Software Foundation; either version 2, or (at your option) any
34 later version.
35
36 This program is distributed in the hope that it will be useful,
37 but WITHOUT ANY WARRANTY; without even the implied warranty of
38 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
39 GNU General Public License for more details.
40
41 You should have received a copy of the GNU General Public License
42 along with this program; if not, write to the Free Software
43 Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
44
45  In other words, you are welcome to use, share and improve this program.
46  You are forbidden to forbid anyone else to use, share and improve
47  what you give them.   Help stamp out software-hoarding!  */
48
49 # include "splintMacros.nf"
50 # include "llbasic.h"
51 # include "cpplib.h"
52 # include "cpphash.h"
53 # include "cpperror.h"
54 # include "llmain.h"
55 # include "osd.h"
56
57 # include <stdio.h>
58
59 # ifdef WIN32
60 /*@-ansireserved@*/
61 extern /*@external@*/ /*@observer@*/ char *getenv (const char *);
62 /*@=ansireserved@*/
63 # endif
64
65 /* char *progname; */
66
67 cppReader g_cppState;
68
69 #ifdef abort
70 /* More 'friendly' abort that prints the line and file.
71    config.h can #define abort fancy_abort if you like that sort of thing.  */
72
73 void
74 fancy_abort ()
75 {
76   fatal ("Internal gcc abort.");
77 }
78 #endif
79
80 void cppReader_initMod ()
81 {
82   struct cppOptions *opts = (struct cppOptions *) dmalloc (sizeof (*opts));
83
84   cpplib_init (&g_cppState);
85   llassert (g_cppState.opts == NULL);
86   g_cppState.opts = opts;
87
88   cppOptions_init (opts);
89   /*@-compdef@*/ /* g_cppState is not yet innitialized */
90 } /*@=compdef@*/
91
92 void cppReader_initialize ()
93 {
94   cpplib_initializeReader (&g_cppState);
95 }
96
97 int cppProcess (/*@dependent@*/ cstring infile, 
98                 /*@dependent@*/ cstring outfile) 
99 {
100   FILE *ofile;
101   struct cppOptions *opts = CPPOPTIONS (&g_cppState);
102   
103   opts->out_fname = outfile;
104   opts->in_fname = infile;
105   opts->out_fname = outfile;
106   
107   if (cpplib_fatalErrors (&g_cppState))
108     {
109       llexit (LLFAILURE);
110     }
111   
112   g_cppState.show_column = TRUE;
113
114   if (cppReader_startProcess (&g_cppState, opts->in_fname) == 0) 
115     {
116       llexit (LLFAILURE);
117     }
118
119   ofile = fileTable_createFile (context_fileTable (), outfile);
120   
121   if (ofile == NULL) 
122     {
123       fileTable_noDelete (context_fileTable (), outfile);
124       osd_setTempError ();
125       llfatalerror (message ("Cannot create temporary file for "
126                              "pre-processor output.  Trying to "
127                              "open: %s.  Use -tmpdir to change "
128                              "the directory for temporary files.",
129                              outfile));
130     }
131   
132   for (;;)
133     {
134       enum cpp_token kind;
135       
136       llassert (g_cppState.token_buffer != NULL);
137
138       if (!opts->no_output)
139         {
140           DPRINTF (("Writing: %s", cstring_copyLength (g_cppState.token_buffer, cpplib_getWritten (&g_cppState))));
141
142           (void) fwrite (g_cppState.token_buffer, (size_t) 1,
143                          cpplib_getWritten (&g_cppState), ofile);
144         }
145       
146       cppReader_setWritten (&g_cppState, 0);
147       kind = cpplib_getToken (&g_cppState);
148       
149       if (kind == CPP_EOF)
150         break;
151     }
152
153   cppReader_finish (&g_cppState);
154   check (fileTable_closeFile (context_fileTable (), ofile));
155
156   /* Restore the original definition table. */
157
158   if (!context_getFlag (FLG_SINGLEINCLUDE))
159     {
160       cppReader_restoreHashtab ();  
161     }
162
163   
164   /* Undefine everything from this file! */
165
166   if (g_cppState.errors != 0) {
167     return -1;
168   }
169
170   return 0;
171 }
172
173 void cppAddIncludeDir (cstring dir)
174 {
175   /* evans 2001-08-26
176   ** Add the -I- code.  This code provided by Robin Watts <Robin.Watts@wss.co.uk>
177   */
178
179   DPRINTF (("Adding include: %s", dir));
180
181   if (cstring_equalLit (dir, "-I-"))
182     {
183       struct cppOptions *opts = CPPOPTIONS (&g_cppState);    
184       opts->ignore_srcdir = TRUE;
185     } 
186   else 
187     {
188       /* -I option (Add directory to include path) */
189       struct file_name_list *dirtmp = (struct file_name_list *) dmalloc (sizeof (*dirtmp));
190       
191       llassert (cstring_firstChar (dir) == 'I');
192       dir = cstring_suffix (dir, 1);
193
194       DPRINTF (("Add include: %s", dir));
195
196       dirtmp->next = 0;         /* New one goes on the end */
197       dirtmp->control_macro = 0;
198       dirtmp->c_system_include_path = FALSE;
199       
200       /* This copy is necessary...but shouldn't be? */
201       /*@-onlytrans@*/
202       dirtmp->fname = cstring_copy (dir);
203       /*@=onlytrans@*/
204       
205       dirtmp->got_name_map = FALSE;
206       cppReader_addIncludeChain (&g_cppState, dirtmp);
207     }
208 }
209
210 void cppDoDefine (cstring str)
211 {
212   cppBuffer *tbuf = g_cppState.buffer;
213
214   g_cppState.buffer = NULL;
215   cppReader_define (&g_cppState, cstring_toCharsSafe (str));
216   g_cppState.buffer = tbuf;
217 }
218
219 void cppDoUndefine (cstring str)
220 {
221   size_t sym_length;
222   hashNode hp;
223   char *buf = cstring_toCharsSafe (str);
224
225   sym_length = cppReader_checkMacroName (&g_cppState, buf,
226                                          cstring_makeLiteralTemp ("macro"));
227   
228   while ((hp = cpphash_lookup (buf, size_toInt (sym_length), -1)) != NULL)
229     {
230       /*@-exposetrans@*/ /*@-dependenttrans@*/
231       cppReader_deleteMacro (hp);
232       /*@=exposetrans@*/ /*@=dependenttrans@*/
233     }
234 }
235
236 void cppReader_saveDefinitions ()
237 {
238   if (!context_getFlag (FLG_SINGLEINCLUDE))
239     {
240       cppReader_saveHashtab ();
241     }
242 }
This page took 0.040482 seconds and 3 git commands to generate.