1 5cedca1b 2004-05-15 devnull #include "e.h"
  2 5cedca1b 2004-05-15 devnull #include "y.tab.h"
  3 5cedca1b 2004-05-15 devnull #include <ctype.h>
  4 5cedca1b 2004-05-15 devnull #include <errno.h>
  5 5cedca1b 2004-05-15 devnull 
  6 5cedca1b 2004-05-15 devnull Infile	infile[10];
  7 5cedca1b 2004-05-15 devnull Infile	*curfile = infile;
  8 5cedca1b 2004-05-15 devnull 
  9 5cedca1b 2004-05-15 devnull #define	MAXSRC	50
 10 5cedca1b 2004-05-15 devnull Src	src[MAXSRC];	/* input source stack */
 11 5cedca1b 2004-05-15 devnull Src	*srcp	= src;
 12 5cedca1b 2004-05-15 devnull 
 13 5cedca1b 2004-05-15 devnull extern int getarg(char *);
 14 5cedca1b 2004-05-15 devnull extern	void eprint(void);
 15 5cedca1b 2004-05-15 devnull 
 16 5cedca1b 2004-05-15 devnull void pushsrc(int type, char *ptr)	/* new input source */
 17 5cedca1b 2004-05-15 devnull {
 18 5cedca1b 2004-05-15 devnull 	if (++srcp >= src + MAXSRC)
 19 5cedca1b 2004-05-15 devnull 		ERROR "inputs nested too deep" FATAL;
 20 5cedca1b 2004-05-15 devnull 	srcp->type = type;
 21 5cedca1b 2004-05-15 devnull 	srcp->sp = ptr;
 22 5cedca1b 2004-05-15 devnull 	if (dbg > 1) {
 23 5cedca1b 2004-05-15 devnull 		printf("\n%3d ", srcp - src);
 24 5cedca1b 2004-05-15 devnull 		switch (srcp->type) {
 25 5cedca1b 2004-05-15 devnull 		case File:
 26 5cedca1b 2004-05-15 devnull 			printf("push file %s\n", ((Infile *)ptr)->fname);
 27 5cedca1b 2004-05-15 devnull 			break;
 28 5cedca1b 2004-05-15 devnull 		case Macro:
 29 5cedca1b 2004-05-15 devnull 			printf("push macro <%s>\n", ptr);
 30 5cedca1b 2004-05-15 devnull 			break;
 31 5cedca1b 2004-05-15 devnull 		case Char:
 32 5cedca1b 2004-05-15 devnull 			printf("push char <%c>\n", *ptr);
 33 5cedca1b 2004-05-15 devnull 			break;
 34 5cedca1b 2004-05-15 devnull 		case String:
 35 5cedca1b 2004-05-15 devnull 			printf("push string <%s>\n", ptr);
 36 5cedca1b 2004-05-15 devnull 			break;
 37 5cedca1b 2004-05-15 devnull 		case Free:
 38 5cedca1b 2004-05-15 devnull 			printf("push free <%s>\n", ptr);
 39 5cedca1b 2004-05-15 devnull 			break;
 40 5cedca1b 2004-05-15 devnull 		default:
 41 5cedca1b 2004-05-15 devnull 			ERROR "pushed bad type %d\n", srcp->type FATAL;
 42 5cedca1b 2004-05-15 devnull 		}
 43 5cedca1b 2004-05-15 devnull 	}
 44 5cedca1b 2004-05-15 devnull }
 45 5cedca1b 2004-05-15 devnull 
 46 5cedca1b 2004-05-15 devnull void popsrc(void)	/* restore an old one */
 47 5cedca1b 2004-05-15 devnull {
 48 5cedca1b 2004-05-15 devnull 	if (srcp <= src)
 49 5cedca1b 2004-05-15 devnull 		ERROR "too many inputs popped" FATAL;
 50 5cedca1b 2004-05-15 devnull 	if (dbg > 1) {
 51 5cedca1b 2004-05-15 devnull 		printf("%3d ", srcp - src);
 52 5cedca1b 2004-05-15 devnull 		switch (srcp->type) {
 53 5cedca1b 2004-05-15 devnull 		case File:
 54 5cedca1b 2004-05-15 devnull 			printf("pop file\n");
 55 5cedca1b 2004-05-15 devnull 			break;
 56 5cedca1b 2004-05-15 devnull 		case Macro:
 57 5cedca1b 2004-05-15 devnull 			printf("pop macro\n");
 58 5cedca1b 2004-05-15 devnull 			break;
 59 5cedca1b 2004-05-15 devnull 		case Char:
 60 5cedca1b 2004-05-15 devnull 			printf("pop char <%c>\n", *srcp->sp);
 61 5cedca1b 2004-05-15 devnull 			break;
 62 5cedca1b 2004-05-15 devnull 		case String:
 63 5cedca1b 2004-05-15 devnull 			printf("pop string\n");
 64 5cedca1b 2004-05-15 devnull 			break;
 65 5cedca1b 2004-05-15 devnull 		case Free:
 66 5cedca1b 2004-05-15 devnull 			printf("pop free\n");
 67 5cedca1b 2004-05-15 devnull 			break;
 68 5cedca1b 2004-05-15 devnull 		default:
 69 5cedca1b 2004-05-15 devnull 			ERROR "pop weird input %d\n", srcp->type FATAL;
 70 5cedca1b 2004-05-15 devnull 		}
 71 5cedca1b 2004-05-15 devnull 	}
 72 5cedca1b 2004-05-15 devnull 	srcp--;
 73 5cedca1b 2004-05-15 devnull }
 74 5cedca1b 2004-05-15 devnull 
 75 5cedca1b 2004-05-15 devnull Arg	args[10];	/* argument frames */
 76 5cedca1b 2004-05-15 devnull Arg	*argfp = args;	/* frame pointer */
 77 5cedca1b 2004-05-15 devnull int	argcnt;		/* number of arguments seen so far */
 78 5cedca1b 2004-05-15 devnull 
 79 5cedca1b 2004-05-15 devnull void dodef(tbl *stp)	/* collect args and switch input to defn */
 80 5cedca1b 2004-05-15 devnull {
 81 5cedca1b 2004-05-15 devnull 	int i, len;
 82 5cedca1b 2004-05-15 devnull 	char *p;
 83 5cedca1b 2004-05-15 devnull 	Arg *ap;
 84 5cedca1b 2004-05-15 devnull 
 85 5cedca1b 2004-05-15 devnull 	ap = argfp+1;
 86 5cedca1b 2004-05-15 devnull 	if (ap >= args+10)
 87 5cedca1b 2004-05-15 devnull 		ERROR "more than arguments\n" FATAL;
 88 5cedca1b 2004-05-15 devnull 	argcnt = 0;
 89 5cedca1b 2004-05-15 devnull 	if (input() != '(')
 90 5cedca1b 2004-05-15 devnull 		ERROR "disaster in dodef\n"FATAL;
 91 5cedca1b 2004-05-15 devnull 	if (ap->argval == 0)
 92 5cedca1b 2004-05-15 devnull 		ap->argval = malloc(1000);
 93 5cedca1b 2004-05-15 devnull 	for (p = ap->argval; (len = getarg(p)) != -1; p += len) {
 94 5cedca1b 2004-05-15 devnull 		ap->argstk[argcnt++] = p;
 95 5cedca1b 2004-05-15 devnull 		if (input() == ')')
 96 5cedca1b 2004-05-15 devnull 			break;
 97 5cedca1b 2004-05-15 devnull 	}
 98 5cedca1b 2004-05-15 devnull 	for (i = argcnt; i < MAXARGS; i++)
 99 5cedca1b 2004-05-15 devnull 		ap->argstk[i] = "";
100 5cedca1b 2004-05-15 devnull 	if (dbg)
101 5cedca1b 2004-05-15 devnull 		for (i = 0; i < argcnt; i++)
102 5cedca1b 2004-05-15 devnull 			printf("arg %d.%d = <%s>\n", ap-args, i+1, ap->argstk[i]);
103 5cedca1b 2004-05-15 devnull 	argfp = ap;
104 5cedca1b 2004-05-15 devnull 	pushsrc(Macro, stp->cval);
105 5cedca1b 2004-05-15 devnull }
106 5cedca1b 2004-05-15 devnull 
107 b237df90 2004-05-16 devnull int
108 5cedca1b 2004-05-15 devnull getarg(char *p)	/* pick up single argument, store in p, return length */
109 5cedca1b 2004-05-15 devnull {
110 5cedca1b 2004-05-15 devnull 	int n, c, npar;
111 5cedca1b 2004-05-15 devnull 
112 5cedca1b 2004-05-15 devnull 	n = npar = 0;
113 5cedca1b 2004-05-15 devnull 	for ( ;; ) {
114 5cedca1b 2004-05-15 devnull 		c = input();
115 5cedca1b 2004-05-15 devnull 		if (c == EOF)
116 5cedca1b 2004-05-15 devnull 			ERROR "end of file in getarg!\n" FATAL;
117 5cedca1b 2004-05-15 devnull 		if (npar == 0 && (c == ',' || c == ')'))
118 5cedca1b 2004-05-15 devnull 			break;
119 5cedca1b 2004-05-15 devnull 		if (c == '"')	/* copy quoted stuff intact */
120 5cedca1b 2004-05-15 devnull 			do {
121 5cedca1b 2004-05-15 devnull 				*p++ = c;
122 5cedca1b 2004-05-15 devnull 				n++;
123 5cedca1b 2004-05-15 devnull 			} while ((c = input()) != '"' && c != EOF);
124 5cedca1b 2004-05-15 devnull 		else if (c == '(')
125 5cedca1b 2004-05-15 devnull 			npar++;
126 5cedca1b 2004-05-15 devnull 		else if (c == ')')
127 5cedca1b 2004-05-15 devnull 			npar--;
128 5cedca1b 2004-05-15 devnull 		n++;
129 5cedca1b 2004-05-15 devnull 		*p++ = c;
130 5cedca1b 2004-05-15 devnull 	}
131 5cedca1b 2004-05-15 devnull 	*p = 0;
132 5cedca1b 2004-05-15 devnull 	unput(c);
133 5cedca1b 2004-05-15 devnull 	return(n + 1);
134 5cedca1b 2004-05-15 devnull }
135 5cedca1b 2004-05-15 devnull 
136 5cedca1b 2004-05-15 devnull #define	PBSIZE	2000
137 5cedca1b 2004-05-15 devnull char	pbuf[PBSIZE];		/* pushback buffer */
138 5cedca1b 2004-05-15 devnull char	*pb	= pbuf-1;	/* next pushed back character */
139 5cedca1b 2004-05-15 devnull 
140 5cedca1b 2004-05-15 devnull char	ebuf[200];		/* collect input here for error reporting */
141 5cedca1b 2004-05-15 devnull char	*ep	= ebuf;
142 5cedca1b 2004-05-15 devnull 
143 b237df90 2004-05-16 devnull int
144 5cedca1b 2004-05-15 devnull input(void)
145 5cedca1b 2004-05-15 devnull {
146 5cedca1b 2004-05-15 devnull 	register int c = 0;
147 5cedca1b 2004-05-15 devnull 
148 5cedca1b 2004-05-15 devnull   loop:
149 5cedca1b 2004-05-15 devnull 	switch (srcp->type) {
150 5cedca1b 2004-05-15 devnull 	case File:
151 5cedca1b 2004-05-15 devnull 		c = getc(curfile->fin);
152 5cedca1b 2004-05-15 devnull 		if (c == EOF) {
153 5cedca1b 2004-05-15 devnull 			if (curfile == infile)
154 5cedca1b 2004-05-15 devnull 				break;
155 5cedca1b 2004-05-15 devnull 			if (curfile->fin != stdin) {
156 5cedca1b 2004-05-15 devnull 				fclose(curfile->fin);
157 5cedca1b 2004-05-15 devnull 				free(curfile->fname);	/* assumes allocated */
158 5cedca1b 2004-05-15 devnull 			}
159 5cedca1b 2004-05-15 devnull 			curfile--;
160 5cedca1b 2004-05-15 devnull 			printf(".lf %d %s\n", curfile->lineno, curfile->fname);
161 5cedca1b 2004-05-15 devnull 			popsrc();
162 5cedca1b 2004-05-15 devnull 			goto loop;
163 5cedca1b 2004-05-15 devnull 		}
164 5cedca1b 2004-05-15 devnull 		if (c == '\n')
165 5cedca1b 2004-05-15 devnull 			curfile->lineno++;
166 5cedca1b 2004-05-15 devnull 		break;
167 5cedca1b 2004-05-15 devnull 	case Char:
168 5cedca1b 2004-05-15 devnull 		if (pb >= pbuf) {
169 5cedca1b 2004-05-15 devnull 			c = *pb--;
170 5cedca1b 2004-05-15 devnull 			popsrc();
171 5cedca1b 2004-05-15 devnull 			break;
172 5cedca1b 2004-05-15 devnull 		} else {	/* can't happen? */
173 5cedca1b 2004-05-15 devnull 			popsrc();
174 5cedca1b 2004-05-15 devnull 			goto loop;
175 5cedca1b 2004-05-15 devnull 		}
176 5cedca1b 2004-05-15 devnull 	case String:
177 5cedca1b 2004-05-15 devnull 		c = *srcp->sp++;
178 5cedca1b 2004-05-15 devnull 		if (c == '\0') {
179 5cedca1b 2004-05-15 devnull 			popsrc();
180 5cedca1b 2004-05-15 devnull 			goto loop;
181 5cedca1b 2004-05-15 devnull 		} else {
182 5cedca1b 2004-05-15 devnull 			if (*srcp->sp == '\0')	/* empty, so pop */
183 5cedca1b 2004-05-15 devnull 				popsrc();
184 5cedca1b 2004-05-15 devnull 			break;
185 5cedca1b 2004-05-15 devnull 		}
186 5cedca1b 2004-05-15 devnull 	case Macro:
187 5cedca1b 2004-05-15 devnull 		c = *srcp->sp++;
188 5cedca1b 2004-05-15 devnull 		if (c == '\0') {
189 5cedca1b 2004-05-15 devnull 			if (--argfp < args)
190 5cedca1b 2004-05-15 devnull 				ERROR "argfp underflow" FATAL;
191 5cedca1b 2004-05-15 devnull 			popsrc();
192 5cedca1b 2004-05-15 devnull 			goto loop;
193 5cedca1b 2004-05-15 devnull 		} else if (c == '$' && isdigit(*srcp->sp)) {
194 5cedca1b 2004-05-15 devnull 			int n = 0;
195 5cedca1b 2004-05-15 devnull 			while (isdigit(*srcp->sp))
196 5cedca1b 2004-05-15 devnull 				n = 10 * n + *srcp->sp++ - '0';
197 5cedca1b 2004-05-15 devnull 			if (n > 0 && n <= MAXARGS)
198 5cedca1b 2004-05-15 devnull 				pushsrc(String, argfp->argstk[n-1]);
199 5cedca1b 2004-05-15 devnull 			goto loop;
200 5cedca1b 2004-05-15 devnull 		}
201 5cedca1b 2004-05-15 devnull 		break;
202 5cedca1b 2004-05-15 devnull 	case Free:	/* free string */
203 5cedca1b 2004-05-15 devnull 		free(srcp->sp);
204 5cedca1b 2004-05-15 devnull 		popsrc();
205 5cedca1b 2004-05-15 devnull 		goto loop;
206 5cedca1b 2004-05-15 devnull 	}
207 5cedca1b 2004-05-15 devnull 	if (ep >= ebuf + sizeof ebuf)
208 5cedca1b 2004-05-15 devnull 		ep = ebuf;
209 5cedca1b 2004-05-15 devnull 	*ep++ = c;
210 5cedca1b 2004-05-15 devnull 	return c;
211 5cedca1b 2004-05-15 devnull }
212 5cedca1b 2004-05-15 devnull 
213 b237df90 2004-05-16 devnull int
214 5cedca1b 2004-05-15 devnull unput(int c)
215 5cedca1b 2004-05-15 devnull {
216 5cedca1b 2004-05-15 devnull 	if (++pb >= pbuf + sizeof pbuf)
217 5cedca1b 2004-05-15 devnull 		ERROR "pushback overflow\n"FATAL;
218 5cedca1b 2004-05-15 devnull 	if (--ep < ebuf)
219 5cedca1b 2004-05-15 devnull 		ep = ebuf + sizeof(ebuf) - 1;
220 5cedca1b 2004-05-15 devnull 	*pb = c;
221 5cedca1b 2004-05-15 devnull 	pushsrc(Char, pb);
222 5cedca1b 2004-05-15 devnull 	return c;
223 5cedca1b 2004-05-15 devnull }
224 5cedca1b 2004-05-15 devnull 
225 5cedca1b 2004-05-15 devnull void pbstr(char *s)
226 5cedca1b 2004-05-15 devnull {
227 5cedca1b 2004-05-15 devnull 	pushsrc(String, s);
228 5cedca1b 2004-05-15 devnull }
229 5cedca1b 2004-05-15 devnull 
230 5cedca1b 2004-05-15 devnull void error(int die, char *s)
231 5cedca1b 2004-05-15 devnull {
232 5cedca1b 2004-05-15 devnull 	extern char *cmdname;
233 5cedca1b 2004-05-15 devnull 
234 5cedca1b 2004-05-15 devnull 	if (synerr)
235 5cedca1b 2004-05-15 devnull 		return;
236 5cedca1b 2004-05-15 devnull 	fprintf(stderr, "%s: ", cmdname);
237 5cedca1b 2004-05-15 devnull 	fprintf(stderr, s);
238 5cedca1b 2004-05-15 devnull 	if (errno > 0)
239 5cedca1b 2004-05-15 devnull 		perror("???");
240 5cedca1b 2004-05-15 devnull 	if (curfile->fin)
241 5cedca1b 2004-05-15 devnull 		fprintf(stderr, " near %s:%d",
242 5cedca1b 2004-05-15 devnull 			curfile->fname, curfile->lineno+1);
243 5cedca1b 2004-05-15 devnull 	fprintf(stderr, "\n");
244 5cedca1b 2004-05-15 devnull 	eprint();
245 5cedca1b 2004-05-15 devnull 	synerr = 1;
246 5cedca1b 2004-05-15 devnull 	errno = 0;
247 5cedca1b 2004-05-15 devnull 	if (die) {
248 5cedca1b 2004-05-15 devnull 		if (dbg)
249 5cedca1b 2004-05-15 devnull 			abort();
250 5cedca1b 2004-05-15 devnull 		else
251 5cedca1b 2004-05-15 devnull 			exit(1);
252 5cedca1b 2004-05-15 devnull 	}
253 5cedca1b 2004-05-15 devnull }
254 5cedca1b 2004-05-15 devnull 
255 5cedca1b 2004-05-15 devnull void yyerror(char *s)
256 5cedca1b 2004-05-15 devnull {
257 5cedca1b 2004-05-15 devnull 	error(0, s);	/* temporary */
258 5cedca1b 2004-05-15 devnull }
259 5cedca1b 2004-05-15 devnull 
260 5cedca1b 2004-05-15 devnull char errbuf[200];
261 5cedca1b 2004-05-15 devnull 
262 5cedca1b 2004-05-15 devnull void eprint(void)	/* try to print context around error */
263 5cedca1b 2004-05-15 devnull {
264 5cedca1b 2004-05-15 devnull 	char *p, *q;
265 5cedca1b 2004-05-15 devnull 
266 5cedca1b 2004-05-15 devnull 	if (ep == ebuf)
267 5cedca1b 2004-05-15 devnull 		return;				/* no context */
268 5cedca1b 2004-05-15 devnull 	p = ep - 1;
269 5cedca1b 2004-05-15 devnull 	if (p > ebuf && *p == '\n')
270 5cedca1b 2004-05-15 devnull 		p--;
271 5cedca1b 2004-05-15 devnull 	for ( ; p >= ebuf && *p != '\n'; p--)
272 5cedca1b 2004-05-15 devnull 		;
273 5cedca1b 2004-05-15 devnull 	while (*p == '\n')
274 5cedca1b 2004-05-15 devnull 		p++;
275 5cedca1b 2004-05-15 devnull 	fprintf(stderr, " context is\n\t");
276 5cedca1b 2004-05-15 devnull 	for (q=ep-1; q>=p && *q!=' ' && *q!='\t' && *q!='\n'; q--)
277 5cedca1b 2004-05-15 devnull 		;
278 5cedca1b 2004-05-15 devnull 	while (p < q)
279 5cedca1b 2004-05-15 devnull 		putc(*p++, stderr);
280 5cedca1b 2004-05-15 devnull 	fprintf(stderr, " >>> ");
281 5cedca1b 2004-05-15 devnull 	while (p < ep)
282 5cedca1b 2004-05-15 devnull 		putc(*p++, stderr);
283 5cedca1b 2004-05-15 devnull 	fprintf(stderr, " <<< ");
284 5cedca1b 2004-05-15 devnull 	while (pb >= pbuf)
285 5cedca1b 2004-05-15 devnull 		putc(*pb--, stderr);
286 5cedca1b 2004-05-15 devnull 	if (curfile->fin)
287 5cedca1b 2004-05-15 devnull 		fgets(ebuf, sizeof ebuf, curfile->fin);
288 5cedca1b 2004-05-15 devnull 	fprintf(stderr, "%s", ebuf);
289 5cedca1b 2004-05-15 devnull 	pbstr("\n.EN\n");	/* safety first */
290 5cedca1b 2004-05-15 devnull 	ep = ebuf;
291 5cedca1b 2004-05-15 devnull }