Initial revision

util/cpp/preprocess.c

@@ -0,0 +1,209 @@
+/* PREPROCESSOR DRIVER */
+
+#include <system.h>
+#include "input.h"
+#include "maxincl.h"
+#include "obufsize.h"
+#include "LLlex.h"
+#include "class.h"
+#include "idf.h"
+#include "idfsize.h"
+#include "bits.h"
+
+char _obuf[OBUFSIZE];
+
+#ifdef DOBITS
+char bits[128];
+#endif
+
+preprocess(fn)
+	char *fn;
+{
+	register int c;
+	register char *op = _obuf;
+	register char *ob = &_obuf[OBUFSIZE];
+	int lineno = 0;
+	extern char options[];
+
+#define flush(X)	(sys_write(STDOUT,_obuf,X), op = _obuf)
+#define echo(ch) 	(op != ob || flush(OBUFSIZE), *op++ = (ch))
+#define newline()	echo('\n')
+
+	for (;;) {
+		LineNumber++;
+		lineno++;
+		LoadChar(c);
+		while (c == '#') {
+			domacro();
+			lineno++;
+			newline();
+			LoadChar(c);
+		}
+		if (! options['P'] &&
+		     (lineno != LineNumber || fn != FileName)) {
+			char Xbuf[256];
+			register char *p = Xbuf;
+
+			fn = FileName;
+			lineno = LineNumber;
+			sprint(p, "#line %d \"%s\"\n", LineNumber,
+							FileName);
+			while (*p) echo(*p++);
+		}
+		for (;;) {
+			if (c & 0200)  {
+				if (c == EOI) {
+					flush(op-_obuf);
+					return;
+				}
+				fatal("non-ascii character read");
+			}
+			if (c == '/') {
+				LoadChar(c);
+				if (c == '*') {
+					NoUnstack++;
+					if (options['C']) {
+						echo('/');
+						echo('*');
+					}
+					for (;;) {
+						LoadChar(c);
+						if (class(c) == STNL) {
+							++LineNumber;
+							++lineno;
+							echo(c);
+						}
+						else if (c == EOI) {
+							flush(op - _obuf);
+							return;
+						}
+						else if (c == '*') {
+							if (options['C']) echo(c);
+							LoadChar(c);
+							if (c == '/') {
+								if (options['C']) echo(c);
+								break;
+							}
+							else {
+								PushBack();
+							}
+						}
+						else if (options['C']) echo(c);
+					}
+					NoUnstack--;
+					LoadChar(c);
+					continue;
+				}
+				echo('/');
+				continue;
+			}
+			switch(class(c)) {
+			case STNL:
+				echo(c);
+				break;
+			case STSTR:
+			case STCHAR: {
+				register int stopc = c;
+	
+				do {
+					echo(c);
+					LoadChar(c);
+					if (c == '\\') {
+						echo(c);
+						LoadChar(c);
+					}
+					if (c == '\n') {
+						++LineNumber;
+						lineno++;
+					}
+					else if (c == EOI) {
+						flush(op-_obuf);
+						return;
+					}
+				}
+				while (c != stopc);
+				echo(c);
+				LoadChar(c);
+				continue;
+				}
+			case STNUM:
+#define getdec(c)	do { echo(c); LoadChar(c);} while (is_dig(c))
+#define gethex(c)	do { echo(c); LoadChar(c);} while (is_hex(c))
+
+				if (c != '0') {
+					getdec(c);
+					if (c == '.') getdec(c);
+					if (c == 'e') {
+						echo(c);
+						LoadChar(c);
+						if (c == '+' || c == '-') {
+							echo(c);
+							LoadChar(c);
+						}
+						if (is_dig(c)) getdec(c);
+					}
+				}
+				else {
+					echo(c);
+					LoadChar(c);
+					if (c == 'x' || c == 'X') gethex(c);
+					else if (is_dig(c)) getdec(c);
+				}
+				continue;
+			    case STIDF: {
+				extern int idfsize;		/* ??? */
+				char buf[IDFSIZE + 1];
+				register char *tg = &buf[0];
+				register char *maxpos = &buf[idfsize];
+				register struct idf *idef;
+
+#define tstmac(bx)	if (!(bits[c] & bx)) goto nomac
+#define cpy		if (Unstacked) EnableMacros(); *tg++ = c
+#define load		LoadChar(c); if (!in_idf(c)) goto endidf
+
+#ifdef DOBITS
+				cpy; tstmac(bit0); load;
+				cpy; tstmac(bit1); load;
+				cpy; tstmac(bit2); load;
+				cpy; tstmac(bit3); load;
+				cpy; tstmac(bit4); load;
+				cpy; tstmac(bit5); load;
+				cpy; tstmac(bit6); load;
+				cpy; tstmac(bit7); load;
+#endif
+
+				for(;;) {
+					if (tg < maxpos) {
+						cpy;
+					}
+					load;
+				}
+			endidf:
+				PushBack();
+				*tg = '\0';	/* mark the end of the identifier */
+				idef = findidf(buf);
+				if ((idef && idef->id_macro && replace(idef))) {
+					LoadChar(c);
+					continue;
+				}
+			nomac:
+				*tg = 0;
+				tg = buf;
+				while (*tg) echo(*tg++);
+				LoadChar(c);
+				while (in_idf(c)) {
+					echo(c);
+					LoadChar(c);
+				}
+				continue;
+				}
+			    default:
+			    	echo(c);
+			    	LoadChar(c);
+			    	continue;
+			}
+			break;
+		}
+	}
+	/*NOTREACHED*/
+}