1 /*********************************************************************** 2 * * 3 * This software is part of the ast package * 4 * Copyright (c) 1986-2009 AT&T Intellectual Property * 5 * and is licensed under the * 6 * Common Public License, Version 1.0 * 7 * by AT&T Intellectual Property * 8 * * 9 * A copy of the License is available at * 10 * http://www.opensource.org/licenses/cpl1.0.txt * 11 * (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) * 12 * * 13 * Information and Software Systems Research * 14 * AT&T Research * 15 * Florham Park NJ * 16 * * 17 * Glenn Fowler <gsf@research.att.com> * 18 * * 19 ***********************************************************************/ 20 #pragma prototyped 21 /* 22 * Glenn Fowler 23 * AT&T Research 24 * 25 * preprocessor data 26 * 27 * intended to be a conforming implementation of the translation phases 28 * (2.1.1.2) 1,2,3,4 and 6 of the "American National Standard for 29 * Information Systems -- Programming Language -- C", ANSI X3.159-1989. 30 * 31 * STANDARD INTERPRETATION: 32 * 33 * include files are forced to preserve #if nesting levels 34 * support for this is found in the recursive description for 35 * include file processing in the translation phases 36 * 37 * ID"..." produces two tokens: {ID}{"..."} 38 * ID'...' produces two tokens: {ID}{'...'} 39 * 40 * COMPATIBILITY: 41 * 42 * only sane Reiser compatibility is implemented 43 * 44 * strange handling of `\newline', especially in directives, 45 * is not implemented 46 * 47 * dissappearing comments used as concatenation operators work 48 * only within macro bodies 49 */ 50 51 static const char id[] = "\n@(#)$Id: libpp (AT&T Research) 2009-02-02 $\0\n"; 52 53 #include "pplib.h" 54 55 #ifndef IDNAME 56 #define IDNAME "pp" 57 #endif 58 59 static char addbuf[MAXTOKEN+1]; /* ADD buffer */ 60 static char argsbuf[MAXTOKEN+1]; /* predicate args */ 61 static char catbuf[MAXTOKEN+1]; /* catenation buffer */ 62 static char hidebuf[MAXTOKEN+1]; /* pp:hide buffer */ 63 static char outbuf[2*(PPBUFSIZ+MAXTOKEN)];/* output buffer */ 64 static char pathbuf[MAXTOKEN+1]; /* full path of last #include */ 65 static char tmpbuf[MAXTOKEN+1]; /* very temporary buffer */ 66 static char tokbuf[2*MAXTOKEN+1]; /* token buffer */ 67 static char valbuf[MAXTOKEN+1]; /* builtin macro value buffer */ 68 69 static char optflags[X_last_option+1];/* OPT_* flags indexed by X_* */ 70 71 static char null[1]; 72 73 static struct ppinstk instack = /* input stream stack */ 74 { 75 &null[0] /* nextchr */ 76 }; 77 78 static struct ppdirs stddir = /* standard include directory */ 79 { 80 PPSTANDARD, 0, 1, INC_STANDARD, TYPE_INCLUDE|TYPE_DIRECTORY|TYPE_HOSTED 81 }; 82 83 static struct ppdirs firstdir = /* first include directory */ 84 { 85 "", &stddir, 0, INC_PREFIX, TYPE_INCLUDE|TYPE_DIRECTORY 86 }; 87 88 struct ppglobals pp = 89 { 90 /* public globals */ 91 92 &id[10], /* version */ 93 "", /* lineid */ 94 "/dev/stdout", /* outfile */ 95 IDNAME, /* pass */ 96 &tokbuf[0], /* token */ 97 0, /* symbol */ 98 99 /* exposed for the output macros */ 100 101 &outbuf[0], /* outb */ 102 &outbuf[0], /* outbuf */ 103 &outbuf[0], /* outp */ 104 &outbuf[PPBUFSIZ], /* oute */ 105 0, /* offset */ 106 107 /* public context */ 108 109 &firstdir, /* lcldirs */ 110 &firstdir, /* stddirs */ 111 0, /* flags */ 112 0, /* symtab */ 113 114 /* private context */ 115 116 0, /* context */ 117 0, /* state */ 118 ALLMULTIPLE|CATLITERAL, /* mode */ 119 PREFIX, /* option */ 120 0, /* test */ 121 0, /* filedeps.sp */ 122 0, /* filedeps.flags */ 123 &firstdir, /* firstdir */ 124 &firstdir, /* lastdir */ 125 0, /* hide */ 126 0, /* column */ 127 -1, /* pending */ 128 0, /* firstfile */ 129 0, /* lastfile */ 130 0, /* ignore */ 131 0, /* probe */ 132 0, /* filtab */ 133 0, /* prdtab */ 134 0, /* date */ 135 0, /* time */ 136 0, /* maps */ 137 0, /* ro_state */ 138 0, /* ro_mode */ 139 0, /* ro_option */ 140 {0}, /* cdir */ 141 {0}, /* hostdir */ 142 0, /* ppdefault */ 143 0, /* firstindex */ 144 0, /* lastindex */ 145 0, /* firstop */ 146 0, /* lastop */ 147 0, /* firsttx */ 148 0, /* lasttx */ 149 0, /* arg_file */ 150 0, /* arg_mode */ 151 0, /* arg_style */ 152 0, /* c */ 153 0, /* hosted */ 154 0, /* ignoresrc */ 155 0, /* initialized */ 156 0, /* standalone */ 157 0, /* spare_1 */ 158 159 /* library private globals */ 160 161 "\"08/11/94\"", /* checkpoint (with quotes!) */ 162 128, /* constack */ 163 &instack, /* in */ 164 &addbuf[0], /* addp */ 165 &argsbuf[0], /* args */ 166 &addbuf[0], /* addbuf */ 167 &catbuf[0], /* catbuf */ 168 0, /* hdrbuf */ 169 &hidebuf[0], /* hidebuf */ 170 &pathbuf[0], /* path */ 171 &tmpbuf[0], /* tmpbuf */ 172 &valbuf[0], /* valbuf */ 173 &optflags[0], /* optflags */ 174 '\n', /* lastout */ 175 176 /* the rest are implicitly initialized */ 177 }; 178 179 char ppctype[UCHAR_MAX+1]; 180