source: trunk/tools/wrc/preproc.c@ 10367

Last change on this file since 10367 was 6111, checked in by bird, 24 years ago

EMX was changed to WIN32OS2.
File size: 12.7 KB
Line 
1/*
2 * Copyright 1998 Bertho A. Stultiens (BS)
3 *
4 */
5
6#include "config.h"
7
8#include <stdio.h>
9#include <stdlib.h>
10#include <string.h>
11#include <assert.h>
12
13#include "wrc.h"
14#include "utils.h"
15#include "preproc.h"
16
17
18extern void set_pp_ignore(int); /* From parser.l */
19
20#define HASHKEY 2039
21static pp_entry_t *pp_defines[HASHKEY];
22
23#define MAXIFSTACK 64
24static if_state_t if_stack[MAXIFSTACK];
25static int if_stack_idx = 0;
26
27#if 0
28void pp_status(void) __attribute__((destructor));
29void pp_status(void)
30{
31 int i;
32 int sum;
33 int total = 0;
34 pp_entry_t *ppp;
35
36 fprintf(stderr, "Defines statistics:\n");
37 for(i = 0; i < HASHKEY; i++)
38 {
39 sum = 0;
40 for(ppp = pp_defines[i]; ppp; ppp = ppp->next)
41 sum++;
42 total += sum;
43 fprintf(stderr, "%4d, %3d\n", i, sum);
44 }
45 fprintf(stderr, "Total defines: %d\n", total);
46}
47#endif
48
49/* Don't comment on the hash, its primitive but functional... */
50int pphash(char *str)
51{
52 int sum = 0;
53 while(*str)
54 sum += *str++;
55 return sum % HASHKEY;
56}
57
58pp_entry_t *pplookup(char *ident)
59{
60 int idx = pphash(ident);
61 pp_entry_t *ppp;
62
63 for(ppp = pp_defines[idx]; ppp; ppp = ppp->next)
64 {
65 if(!strcmp(ident, ppp->ident))
66 return ppp;
67 }
68 return NULL;
69}
70
71void del_define(char *name)
72{
73 int idx;
74 pp_entry_t *ppp;
75
76 if((ppp = pplookup(name)) == NULL)
77 {
78 if(pedantic)
79 yywarning("%s was not defined", name);
80 return;
81 }
82
83 if(ppp->iep)
84 {
85 if(debuglevel & DEBUGLEVEL_PPMSG)
86 fprintf(stderr, "del_define: %s:%d: includelogic removed, include_ppp='%s', file=%s\n", input_name, line_number, name, ppp->iep->filename);
87 if(ppp->iep == includelogiclist)
88 {
89 includelogiclist = ppp->iep->next;
90 if(includelogiclist)
91 includelogiclist->prev = NULL;
92 }
93 else
94 {
95 ppp->iep->prev->next = ppp->iep->next;
96 if(ppp->iep->next)
97 ppp->iep->next->prev = ppp->iep->prev;
98 }
99 free(ppp->iep->filename);
100 free(ppp->iep);
101 }
102
103 idx = pphash(name);
104 if(pp_defines[idx] == ppp)
105 {
106 pp_defines[idx] = ppp->next;
107 if(pp_defines[idx])
108 pp_defines[idx]->prev = NULL;
109 }
110 else
111 {
112 ppp->prev->next = ppp->next;
113 if(ppp->next)
114 ppp->next->prev = ppp->prev;
115 }
116
117 free(ppp);
118
119 if(debuglevel & DEBUGLEVEL_PPMSG)
120 printf("Deleted (%s, %d) <%s>\n", input_name, line_number, name);
121}
122
123pp_entry_t *add_define(char *def, char *text)
124{
125 int len;
126 char *cptr;
127 int idx = pphash(def);
128 pp_entry_t *ppp;
129
130 if((ppp = pplookup(def)) != NULL)
131 {
132 if(pedantic)
133 yywarning("Redefinition of %s\n\tPrevious definition: %s:%d", def, ppp->filename, ppp->linenumber);
134 del_define(def);
135 }
136 ppp = (pp_entry_t *)xmalloc(sizeof(pp_entry_t));
137 ppp->ident = def;
138 ppp->type = def_define;
139 ppp->subst.text = text;
140 ppp->filename = input_name ? xstrdup(input_name) : "<internal or cmdline>";
141 ppp->linenumber = input_name ? line_number : 0;
142 ppp->next = pp_defines[idx];
143 pp_defines[idx] = ppp;
144 if(ppp->next)
145 ppp->next->prev = ppp;
146 if(text)
147 {
148 /* Strip trailing white space from subst text */
149 len = strlen(text);
150 while(len && strchr(" \t\r\n", text[len-1]))
151 {
152 text[--len] = '\0';
153 }
154 /* Strip leading white space from subst text */
155 for(cptr = text; *cptr && strchr(" \t\r", *cptr); cptr++)
156 ;
157 if(text != cptr)
158 memmove(text, cptr, strlen(cptr)+1);
159 }
160 if(debuglevel & DEBUGLEVEL_PPMSG)
161 printf("Added define (%s, %d) <%s> to <%s>\n", input_name, line_number, ppp->ident, text ? text : "(null)");
162
163 return ppp;
164}
165
166pp_entry_t *add_cmdline_define(char *set)
167{
168 char *cpy = xstrdup(set); /* Because gcc passes a R/O string */
169 char *cptr = strchr(cpy, '=');
170 if(cptr)
171 *cptr = '\0';
172 return add_define(cpy, xstrdup(cptr ? cptr+1 : ""));
173}
174
175pp_entry_t *add_special_define(char *id)
176{
177 pp_entry_t *ppp = add_define(xstrdup(id), xstrdup(""));
178 ppp->type = def_special;
179 return ppp;
180}
181
182pp_entry_t *add_macro(char *id, marg_t *args[], int nargs, mtext_t *exp)
183{
184 int idx = pphash(id);
185 pp_entry_t *ppp;
186
187 if((ppp = pplookup(id)) != NULL)
188 {
189 if(pedantic)
190 yywarning("Redefinition of %s\n\tPrevious definition: %s:%d", id, ppp->filename, ppp->linenumber);
191 del_define(id);
192 }
193 ppp = (pp_entry_t *)xmalloc(sizeof(pp_entry_t));
194 ppp->ident = id;
195 ppp->type = def_macro;
196 ppp->margs = args;
197 ppp->nargs = nargs;
198 ppp->subst.mtext= exp;
199 ppp->filename = input_name ? xstrdup(input_name) : "<internal or cmdline>";
200 ppp->linenumber = input_name ? line_number : 0;
201 ppp->next = pp_defines[idx];
202 pp_defines[idx] = ppp;
203 if(ppp->next)
204 ppp->next->prev = ppp;
205
206 if(debuglevel & DEBUGLEVEL_PPMSG)
207 {
208 fprintf(stderr, "Added macro (%s, %d) <%s(%d)> to <", input_name, line_number, ppp->ident, nargs);
209 for(; exp; exp = exp->next)
210 {
211 switch(exp->type)
212 {
213 case exp_text:
214 fprintf(stderr, " \"%s\" ", exp->subst.text);
215 break;
216 case exp_stringize:
217 fprintf(stderr, " #(%d) ", exp->subst.argidx);
218 break;
219 case exp_concat:
220 fprintf(stderr, "##");
221 break;
222 case exp_subst:
223 fprintf(stderr, " <%d> ", exp->subst.argidx);
224 break;
225 }
226 }
227 fprintf(stderr, ">\n");
228 }
229 return ppp;
230}
231
232
233/*
234 *-------------------------------------------------------------------------
235 * Include management
236 *-------------------------------------------------------------------------
237 */
238#if defined(_Windows) || defined(__MSDOS__) || defined(__SEMICOLON__)
239#define INCLUDESEPARATOR ";"
240#else
241#define INCLUDESEPARATOR ":"
242#endif
243
244static char **includepath;
245static int nincludepath = 0;
246
247void add_include_path(char *path)
248{
249 char *tok;
250 char *cpy = xstrdup(path);
251
252 tok = strtok(cpy, INCLUDESEPARATOR);
253 while(tok)
254 {
255 char *dir;
256 char *cptr;
257 if(strlen(tok) == 0)
258 continue;
259 dir = xstrdup(tok);
260 for(cptr = dir; *cptr; cptr++)
261 {
262 /* Convert to forward slash */
263 if(*cptr == '\\')
264 *cptr = '/';
265 }
266 /* Kill eventual trailing '/' */
267 if(*(cptr = dir + strlen(dir)-1) == '/')
268 *cptr = '\0';
269
270 /* Add to list */
271 nincludepath++;
272 includepath = (char **)xrealloc(includepath, nincludepath * sizeof(*includepath));
273 includepath[nincludepath-1] = dir;
274 tok = strtok(NULL, INCLUDESEPARATOR);
275 }
276 free(cpy);
277}
278
279FILE *open_include(const char *name, int search, char **newpath)
280{
281 char *cpy = xstrdup(name);
282 char *cptr;
283 FILE *fp;
284 int i;
285
286 for(cptr = cpy; *cptr; cptr++)
287 {
288 /* kill double backslash */
289 if(*cptr == '\\' && *(cptr+1) == '\\')
290 memmove(cptr, cptr+1, strlen(cptr));
291 /* Convert to forward slash */
292 if(*cptr == '\\')
293 *cptr = '/';
294 }
295
296 if(search)
297 {
298 /* Search current dir and then -I path */
299#if defined(__WIN32OS2__)
300 fp = fopen(cpy, "rb");
301#else
302 fp = fopen(cpy, "rt");
303#endif
304 if(fp)
305 {
306 if(debuglevel & DEBUGLEVEL_PPMSG)
307 printf("Going to include <%s>\n", name);
308 if(newpath)
309 *newpath = cpy;
310 else
311 free(cpy);
312 return fp;
313 }
314 }
315 /* Search -I path */
316 for(i = 0; i < nincludepath; i++)
317 {
318 char *path;
319 path = (char *)xmalloc(strlen(includepath[i]) + strlen(cpy) + 2);
320 strcpy(path, includepath[i]);
321 strcat(path, "/");
322 strcat(path, cpy);
323#if defined(__WIN32OS2__)
324 fp = fopen(path, "rb");
325#else
326 fp = fopen(path, "rt");
327#endif
328 if(fp && (debuglevel & DEBUGLEVEL_PPMSG))
329 printf("Going to include <%s>\n", path);
330 if(fp)
331 {
332 if(newpath)
333 *newpath = path;
334 else
335 free(path);
336 free(cpy);
337 return fp;
338 }
339 free(path);
340 }
341 free(cpy);
342 if(newpath)
343 *newpath = NULL;
344 return NULL;
345}
346
347/*
348 *-------------------------------------------------------------------------
349 * #if, #ifdef, #ifndef, #else, #elif and #endif state management
350 *
351 * #if state transitions are made on basis of the current TOS and the next
352 * required state. The state transitions are required to housekeep because
353 * #if:s can be nested. The ignore case is activated to prevent output from
354 * within a false clause.
355 * Some special cases come from the fact that the #elif cases are not
356 * binary, but three-state. The problem is that all other elif-cases must
357 * be false when one true one has been found. A second problem is that the
358 * #else clause is a final clause. No extra #else:s may follow.
359 *
360 * The states mean:
361 * if_true Process input to output
362 * if_false Process input but no output
363 * if_ignore Process input but no output
364 * if_elif Process input but no output
365 * if_elsefalse Process input but no output
366 * if_elsettrue Process input to output
367 *
368 * The possible state-sequences are [state(stack depth)] (rest can be deduced):
369 * TOS #if 1 #else #endif
370 * if_true(n) if_true(n+1) if_elsefalse(n+1)
371 * if_false(n) if_ignore(n+1) if_ignore(n+1)
372 * if_elsetrue(n) if_true(n+1) if_elsefalse(n+1)
373 * if_elsefalse(n) if_ignore(n+1) if_ignore(n+1)
374 * if_elif(n) if_ignore(n+1) if_ignore(n+1)
375 * if_ignore(n) if_ignore(n+1) if_ignore(n+1)
376 *
377 * TOS #if 1 #elif 0 #else #endif
378 * if_true(n) if_true(n+1) if_elif(n+1) if_elif(n+1)
379 * if_false(n) if_ignore(n+1) if_ignore(n+1) if_ignore(n+1)
380 * if_elsetrue(n) if_true(n+1) if_elif(n+1) if_elif(n+1)
381 * if_elsefalse(n) if_ignore(n+1) if_ignore(n+1) if_ignore(n+1)
382 * if_elif(n) if_ignore(n+1) if_ignore(n+1) if_ignore(n+1)
383 * if_ignore(n) if_ignore(n+1) if_ignore(n+1) if_ignore(n+1)
384 *
385 * TOS #if 0 #elif 1 #else #endif
386 * if_true(n) if_false(n+1) if_true(n+1) if_elsefalse(n+1)
387 * if_false(n) if_ignore(n+1) if_ignore(n+1) if_ignore(n+1)
388 * if_elsetrue(n) if_false(n+1) if_true(n+1) if_elsefalse(n+1)
389 * if_elsefalse(n) if_ignore(n+1) if_ignore(n+1) if_ignore(n+1)
390 * if_elif(n) if_ignore(n+1) if_ignore(n+1) if_ignore(n+1)
391 * if_ignore(n) if_ignore(n+1) if_ignore(n+1) if_ignore(n+1)
392 *
393 *-------------------------------------------------------------------------
394 */
395static char *if_state_str[] = {
396 "if_false",
397 "if_true",
398 "if_elif",
399 "if_elsefalse",
400 "if_elsetrue",
401 "if_ignore"
402};
403
404void push_if(if_state_t s)
405{
406 if(if_stack_idx >= MAXIFSTACK)
407 internal_error(__FILE__, __LINE__, "#if-stack overflow; #{if,ifdef,ifndef} nested too deeply (> %d)", MAXIFSTACK);
408
409 if(debuglevel & DEBUGLEVEL_PPLEX)
410 fprintf(stderr, "Push if %s:%d: %s(%d) -> %s(%d)\n", input_name, line_number, if_state_str[if_state()], if_stack_idx, if_state_str[s], if_stack_idx+1);
411
412 if_stack[if_stack_idx++] = s;
413
414 switch(s)
415 {
416 case if_true:
417 case if_elsetrue:
418 break;
419 case if_false:
420 case if_elsefalse:
421 case if_elif:
422 case if_ignore:
423 push_ignore_state();
424 break;
425 }
426}
427
428if_state_t pop_if(void)
429{
430 if(if_stack_idx <= 0)
431 yyerror("#{endif,else,elif} without #{if,ifdef,ifndef} (#if-stack underflow)");
432
433 switch(if_state())
434 {
435 case if_true:
436 case if_elsetrue:
437 break;
438 case if_false:
439 case if_elsefalse:
440 case if_elif:
441 case if_ignore:
442 pop_ignore_state();
443 break;
444 }
445
446 if(debuglevel & DEBUGLEVEL_PPLEX)
447 fprintf(stderr, "Pop if %s:%d: %s(%d) -> %s(%d)\n",
448 input_name,
449 line_number,
450 if_state_str[if_state()],
451 if_stack_idx,
452 if_state_str[if_stack[if_stack_idx <= 1 ? if_true : if_stack_idx-2]],
453 if_stack_idx-1);
454
455 return if_stack[--if_stack_idx];
456}
457
458if_state_t if_state(void)
459{
460 if(!if_stack_idx)
461 return if_true;
462 else
463 return if_stack[if_stack_idx-1];
464}
465
466
467void next_if_state(int i)
468{
469 switch(if_state())
470 {
471 case if_true:
472 case if_elsetrue:
473 push_if(i ? if_true : if_false);
474 break;
475 case if_false:
476 case if_elsefalse:
477 case if_elif:
478 case if_ignore:
479 push_if(if_ignore);
480 break;
481 default:
482 internal_error(__FILE__, __LINE__, "Invalid if_state (%d) in #{if,ifdef,ifndef} directive", (int)if_state());
483 }
484}
485
486int get_if_depth(void)
487{
488 return if_stack_idx;
489}
490
Note: See TracBrowser for help on using the repository browser.