1 #define INS 32768 /* input buffer */
2 #define OBS 4096 /* outbut buffer */
3 #define NARG 32 /* Max number arguments to a macro */
4 #define NINCLUDE 32 /* Max number of include directories (-I) */
5 #define NIF 32 /* depth of nesting of #if */
14 typedef unsigned char uchar;
17 enum toktype { END, UNCLASS, NAME, NUMBER, STRING, CCON, NL, WS, DSHARP,
18 EQ, NEQ, LEQ, GEQ, LSH, RSH, LAND, LOR, PPLUS, MMINUS,
19 ARROW, SBRA, SKET, LP, RP, DOT, AND, STAR, PLUS, MINUS,
20 TILDE, NOT, SLASH, PCT, LT, GT, CIRC, OR, QUEST,
21 COLON, ASGN, COMMA, SHARP, SEMIC, CBRA, CKET,
22 ASPLUS, ASMINUS, ASSTAR, ASSLASH, ASPCT, ASCIRC, ASLSH,
23 ASRSH, ASOR, ASAND, ELLIPS,
24 DSHARP1, NAME1, DEFINED, UMINUS };
26 enum kwtype { KIF, KIFDEF, KIFNDEF, KELIF, KELSE, KENDIF, KINCLUDE, KDEFINE,
27 KUNDEF, KLINE, KWARNING, KERROR, KPRAGMA, KDEFINED,
28 KLINENO, KFILE, KDATE, KTIME, KSTDC, KEVAL };
30 #define ISDEFINED 01 /* has #defined value */
31 #define ISKW 02 /* is PP keyword */
32 #define ISUNCHANGE 04 /* can't be #defined in PP */
33 #define ISMAC 010 /* builtin macro, e.g. __LINE__ */
35 #define EOB 0xFE /* sentinel for end of input buffer */
36 #define EOFC 0xFD /* sentinel for end of input file */
37 #define XPWS 1 /* token flag: white space to assure token sep. */
39 typedef struct token {
42 unsigned short hideset;
48 typedef struct tokenrow {
49 Token *tp; /* current one to scan */
50 Token *bp; /* base (allocated value) */
51 Token *lp; /* last+1 token used */
52 int max; /* number allocated */
55 typedef struct source {
56 char *filename; /* name of file of the source */
57 int line; /* current line number */
58 int lineinc; /* adjustment for \\n lines */
59 uchar *inb; /* input buffer */
60 uchar *inp; /* input pointer */
61 uchar *inl; /* end of input */
62 int fd; /* input source */
63 int ifdepth; /* conditional nesting in include */
64 struct source *next; /* stack for #include */
67 typedef struct nlist {
71 Tokenrow *vp; /* value as macro */
72 Tokenrow *ap; /* list of argument names, if any */
73 char val; /* value as preprocessor name */
74 char flag; /* is defined, is pp name */
77 typedef struct includelist {
83 #define new(t) (t *)domalloc(sizeof(t))
84 #define quicklook(a,b) (namebit[(a)&077] & (1<<((b)&037)))
85 #define quickset(a,b) namebit[(a)&077] |= (1<<((b)&037))
86 extern unsigned long namebit[077+1];
88 enum errtype { WARNING, ERROR, FATAL };
92 void setup(int, char **);
93 int gettokens(Tokenrow *, int);
94 int comparetokens(Tokenrow *, Tokenrow *);
95 Source *setsource(char *, int, char *);
96 void unsetsource(void);
97 void puttokens(Tokenrow *);
98 void process(Tokenrow *);
101 void error(enum errtype, char *, ...);
103 int fillbuf(Source *);
104 int trigraph(Source *);
105 int foldline(Source *);
106 Nlist *lookup(Token *, int);
107 void control(Tokenrow *);
108 void dodefine(Tokenrow *);
109 void doadefine(Tokenrow *, int);
110 void doinclude(Tokenrow *);
111 void appendDirToIncludeList( char *dir );
112 void doif(Tokenrow *, enum kwtype);
113 void expand(Tokenrow *, Nlist *);
114 void builtin(Tokenrow *, int);
115 int gatherargs(Tokenrow *, Tokenrow **, int *);
116 void substargs(Nlist *, Tokenrow *, Tokenrow **);
117 void expandrow(Tokenrow *, char *);
118 void maketokenrow(int, Tokenrow *);
119 Tokenrow *copytokenrow(Tokenrow *, Tokenrow *);
120 Token *growtokenrow(Tokenrow *);
121 Tokenrow *normtokenrow(Tokenrow *);
122 void adjustrow(Tokenrow *, int);
123 void movetokenrow(Tokenrow *, Tokenrow *);
124 void insertrow(Tokenrow *, int, Tokenrow *);
125 void peektokens(Tokenrow *, char *);
126 void doconcat(Tokenrow *);
127 Tokenrow *stringify(Tokenrow *);
128 int lookuparg(Nlist *, Token *);
129 long eval(Tokenrow *, int);
131 void setempty(Tokenrow *);
132 void makespace(Tokenrow *);
133 char *outnum(char *, int);
135 uchar *newstring(uchar *, int, int);
136 int checkhideset(int, Nlist *);
138 int newhideset(int, Nlist *);
139 int unionhideset(int, int);
141 void setobjname(char *);
142 #define rowlen(tokrow) ((tokrow)->lp - (tokrow)->bp)
144 char *basepath( char *fname );
147 extern Token nltoken;
148 extern Source *cursource;
149 extern char *curtime;
152 extern int ifsatisfied[NIF];
156 extern int Cplusplus;
157 extern Nlist *kwdefined;
158 extern Includelist includelist[NINCLUDE];