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