Line data Source code
1 : /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
2 : /*
3 : * This file is part of the LibreOffice project.
4 : *
5 : * This Source Code Form is subject to the terms of the Mozilla Public
6 : * License, v. 2.0. If a copy of the MPL was not distributed with this
7 : * file, You can obtain one at http://mozilla.org/MPL/2.0/.
8 : *
9 : * This file incorporates work covered by the following license notice:
10 : *
11 : * Licensed to the Apache Software Foundation (ASF) under one or more
12 : * contributor license agreements. See the NOTICE file distributed
13 : * with this work for additional information regarding copyright
14 : * ownership. The ASF licenses this file to you under the Apache
15 : * License, Version 2.0 (the "License"); you may not use this file
16 : * except in compliance with the License. You may obtain a copy of
17 : * the License at http://www.apache.org/licenses/LICENSE-2.0 .
18 : */
19 :
20 : #include <stdio.h>
21 : #include <stdlib.h>
22 : #include <string.h>
23 : #include <time.h>
24 : #include <stdarg.h>
25 : #include "cpp.h"
26 :
27 : #define OUTS 16384
28 : char outbuf[OUTS];
29 : char *outptr = outbuf;
30 : Source *cursource;
31 : int nerrs;
32 : struct token nltoken = {NL, 0, 0, 1, (uchar *) "\n", 0};
33 : char *curtime;
34 : int incdepth;
35 : int ifdepth;
36 : int ifsatisfied[NIF];
37 : int skipping;
38 :
39 : int
40 : #ifdef _WIN32
41 : __cdecl
42 : #endif // _WIN32
43 112 : main(int argc, char **argv)
44 : {
45 :
46 : Tokenrow tr;
47 : time_t t;
48 : char ebuf[BUFSIZ];
49 :
50 112 : setbuf(stderr, ebuf);
51 112 : t = time(NULL);
52 112 : curtime = ctime(&t);
53 112 : maketokenrow(3, &tr);
54 112 : expandlex();
55 112 : setup(argc, argv);
56 112 : fixlex();
57 112 : if (!Pflag)
58 0 : genline();
59 112 : process(&tr);
60 112 : flushout();
61 112 : fflush(stderr);
62 112 : exit(nerrs > 0);
63 : }
64 :
65 : void
66 112 : process(Tokenrow * trp)
67 : {
68 112 : int anymacros = 0;
69 :
70 : for (;;)
71 : {
72 80312 : if (trp->tp >= trp->lp)
73 : {
74 80312 : trp->tp = trp->lp = trp->bp;
75 80312 : outptr = outbuf;
76 80312 : anymacros |= gettokens(trp, 1);
77 80312 : trp->tp = trp->bp;
78 : }
79 80312 : if (trp->tp->type == END)
80 : {
81 406 : if (--incdepth >= 0)
82 : {
83 294 : if (cursource->ifdepth)
84 0 : error(ERROR,
85 : "Unterminated conditional in #include");
86 294 : unsetsource();
87 294 : cursource->line += cursource->lineinc;
88 294 : trp->tp = trp->lp;
89 294 : if (!Pflag)
90 0 : genline();
91 294 : continue;
92 : }
93 112 : if (ifdepth)
94 0 : error(ERROR, "Unterminated #if/#ifdef/#ifndef");
95 112 : break;
96 : }
97 79906 : if (trp->tp->type == SHARP)
98 : {
99 22654 : trp->tp += 1;
100 22654 : control(trp);
101 : }
102 : else
103 57252 : if (!skipping && anymacros)
104 16010 : expandrow(trp, NULL);
105 79906 : if (skipping)
106 9450 : setempty(trp);
107 79906 : puttokens(trp);
108 79906 : anymacros = 0;
109 79906 : cursource->line += cursource->lineinc;
110 79906 : if (cursource->lineinc > 1)
111 : {
112 8162 : if (!Pflag)
113 0 : genline();
114 : }
115 80200 : }
116 112 : }
117 :
118 : void
119 22654 : control(Tokenrow * trp)
120 : {
121 : Nlist *np;
122 : Token *tp;
123 :
124 22654 : tp = trp->tp;
125 22654 : if (tp->type != NAME)
126 : {
127 0 : if (tp->type == NUMBER)
128 0 : goto kline;
129 0 : if (tp->type != NL)
130 0 : error(ERROR, "Unidentifiable control line");
131 0 : return; /* else empty line */
132 : }
133 22654 : if ((np = lookup(tp, 0)) == NULL || ((np->flag & ISKW) == 0 && !skipping))
134 : {
135 0 : error(WARNING, "Unknown preprocessor control %t", tp);
136 0 : return;
137 : }
138 22654 : if (skipping)
139 : {
140 5548 : switch (np->val)
141 : {
142 : case KENDIF:
143 1008 : if (--ifdepth < skipping)
144 874 : skipping = 0;
145 1008 : --cursource->ifdepth;
146 1008 : setempty(trp);
147 1008 : return;
148 :
149 : case KIFDEF:
150 : case KIFNDEF:
151 : case KIF:
152 134 : if (++ifdepth >= NIF)
153 0 : error(FATAL, "#if too deeply nested");
154 134 : ++cursource->ifdepth;
155 134 : return;
156 :
157 : case KELIF:
158 : case KELSE:
159 1270 : if (ifdepth <= skipping)
160 1158 : break;
161 112 : return;
162 :
163 : default:
164 3136 : return;
165 : }
166 : }
167 18264 : switch (np->val)
168 : {
169 : case KDEFINE:
170 12430 : dodefine(trp);
171 12430 : break;
172 :
173 : case KUNDEF:
174 0 : tp += 1;
175 0 : if (tp->type != NAME || trp->lp - trp->bp != 4)
176 : {
177 0 : error(ERROR, "Syntax error in #undef");
178 0 : break;
179 : }
180 0 : if ((np = lookup(tp, 0)) != NULL)
181 : {
182 0 : np->flag &= ~ISDEFINED;
183 :
184 0 : if (Mflag)
185 : {
186 0 : if (np->ap)
187 0 : error(INFO, "Macro deletion of %s(%r)", np->name, np->ap);
188 : else
189 0 : error(INFO, "Macro deletion of %s", np->name);
190 : }
191 : }
192 0 : break;
193 :
194 : case KPRAGMA:
195 : case KIDENT:
196 0 : for (tp = trp->tp - 1; ((tp->type != NL) && (tp < trp->lp)); tp++)
197 0 : tp->type = UNCLASS;
198 0 : return;
199 :
200 : case KIFDEF:
201 : case KIFNDEF:
202 : case KIF:
203 2402 : if (++ifdepth >= NIF)
204 0 : error(FATAL, "#if too deeply nested");
205 2402 : ++cursource->ifdepth;
206 2402 : ifsatisfied[ifdepth] = 0;
207 2402 : if (eval(trp, np->val))
208 938 : ifsatisfied[ifdepth] = 1;
209 : else
210 1464 : skipping = ifdepth;
211 2402 : break;
212 :
213 : case KELIF:
214 116 : if (ifdepth == 0)
215 : {
216 0 : error(ERROR, "#elif with no #if");
217 0 : return;
218 : }
219 116 : if (ifsatisfied[ifdepth] == 2)
220 0 : error(ERROR, "#elif after #else");
221 116 : if (eval(trp, np->val))
222 : {
223 4 : if (ifsatisfied[ifdepth])
224 4 : skipping = ifdepth;
225 : else
226 : {
227 0 : skipping = 0;
228 0 : ifsatisfied[ifdepth] = 1;
229 : }
230 : }
231 : else
232 112 : skipping = ifdepth;
233 116 : break;
234 :
235 : case KELSE:
236 1494 : if (ifdepth == 0 || cursource->ifdepth == 0)
237 : {
238 0 : error(ERROR, "#else with no #if");
239 0 : return;
240 : }
241 1494 : if (ifsatisfied[ifdepth] == 2)
242 0 : error(ERROR, "#else after #else");
243 1494 : if (trp->lp - trp->bp != 3)
244 0 : error(ERROR, "Syntax error in #else");
245 1494 : skipping = ifsatisfied[ifdepth] ? ifdepth : 0;
246 1494 : ifsatisfied[ifdepth] = 2;
247 1494 : break;
248 :
249 : case KENDIF:
250 1528 : if (ifdepth == 0 || cursource->ifdepth == 0)
251 : {
252 0 : error(ERROR, "#endif with no #if");
253 0 : return;
254 : }
255 1528 : --ifdepth;
256 1528 : --cursource->ifdepth;
257 1528 : if (trp->lp - trp->bp != 3)
258 0 : error(WARNING, "Syntax error in #endif");
259 1528 : break;
260 :
261 : case KERROR:
262 0 : trp->tp = tp + 1;
263 0 : error(WARNING, "#error directive: %r", trp);
264 0 : break;
265 :
266 : case KLINE:
267 0 : trp->tp = tp + 1;
268 0 : expandrow(trp, "<line>");
269 0 : tp = trp->bp + 2;
270 : kline:
271 0 : if (tp + 1 >= trp->lp || tp->type != NUMBER || tp + 3 < trp->lp
272 0 : || (tp + 3 == trp->lp
273 0 : && ((tp + 1)->type != STRING || *(tp + 1)->t == 'L')))
274 : {
275 0 : error(ERROR, "Syntax error in #line");
276 0 : return;
277 : }
278 0 : cursource->line = atol((char *) tp->t) - 1;
279 0 : if (cursource->line < 0 || cursource->line >= 32768)
280 0 : error(WARNING, "#line specifies number out of range");
281 0 : tp = tp + 1;
282 0 : if (tp + 1 < trp->lp)
283 0 : cursource->filename = (char *) newstring(tp->t + 1, tp->len - 2, 0);
284 0 : return;
285 :
286 : case KDEFINED:
287 0 : error(ERROR, "Bad syntax for control line");
288 0 : break;
289 :
290 : case KIMPORT:
291 0 : doinclude(trp, -1, 1);
292 0 : trp->lp = trp->bp;
293 0 : return;
294 :
295 : case KINCLUDE:
296 294 : doinclude(trp, -1, 0);
297 294 : trp->lp = trp->bp;
298 294 : return;
299 :
300 : case KINCLUDENEXT:
301 0 : doinclude(trp, cursource->pathdepth, 0);
302 0 : trp->lp = trp->bp;
303 0 : return;
304 :
305 : case KEVAL:
306 0 : eval(trp, np->val);
307 0 : break;
308 :
309 : default:
310 0 : error(ERROR, "Preprocessor control `%t' not yet implemented", tp);
311 0 : break;
312 : }
313 17970 : setempty(trp);
314 17970 : return;
315 : }
316 :
317 : void *
318 4729852 : domalloc(size_t size)
319 : {
320 4729852 : void *p = malloc(size);
321 :
322 4729852 : if (p == NULL)
323 0 : error(FATAL, "Out of memory from malloc");
324 4729852 : return p;
325 : }
326 :
327 : void
328 1484210 : dofree(void *p)
329 : {
330 1484210 : free(p);
331 1484210 : }
332 :
333 : void
334 0 : error(enum errtype type, char *string,...)
335 : {
336 : va_list ap;
337 : char c, *cp, *ep;
338 : Token *tp;
339 : Tokenrow *trp;
340 : Source *s;
341 : int i;
342 :
343 0 : fprintf(stderr, "cpp: ");
344 0 : for (s = cursource; s; s = s->next)
345 0 : if (*s->filename)
346 0 : fprintf(stderr, "%s:%d ", s->filename, s->line);
347 0 : va_start(ap, string);
348 0 : for (ep = string; *ep; ep++)
349 : {
350 0 : if (*ep == '%')
351 : {
352 0 : switch (*++ep)
353 : {
354 :
355 : case 'c':
356 0 : c = (char) va_arg(ap, int);
357 0 : fprintf(stderr, "%c", c);
358 0 : break;
359 :
360 : case 's':
361 0 : cp = va_arg(ap, char *);
362 0 : fprintf(stderr, "%s", cp);
363 0 : break;
364 :
365 : case 'd':
366 0 : i = va_arg(ap, int);
367 0 : fprintf(stderr, "%d", i);
368 0 : break;
369 :
370 : case 't':
371 0 : tp = va_arg(ap, Token *);
372 0 : fprintf(stderr, "%.*s", (int)tp->len, tp->t);
373 0 : break;
374 :
375 : case 'r':
376 0 : trp = va_arg(ap, Tokenrow *);
377 0 : for (tp = trp->tp; tp < trp->lp && tp->type != NL; tp++)
378 : {
379 0 : if (tp > trp->tp && tp->wslen)
380 0 : fputc(' ', stderr);
381 0 : fprintf(stderr, "%.*s", (int)tp->len, tp->t);
382 : }
383 0 : break;
384 :
385 : default:
386 0 : fputc(*ep, stderr);
387 0 : break;
388 : }
389 : }
390 : else
391 0 : fputc(*ep, stderr);
392 : }
393 0 : va_end(ap);
394 0 : fputc('\n', stderr);
395 0 : if (type == FATAL)
396 0 : exit(1);
397 0 : if (type != WARNING)
398 0 : nerrs = 1;
399 0 : fflush(stderr);
400 0 : }
401 :
402 : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|
