1 5cedca1b 2004-05-15 devnull #include <stdio.h>
  2 5cedca1b 2004-05-15 devnull #include <stdlib.h>
  3 5cedca1b 2004-05-15 devnull #include <string.h>
  4 5cedca1b 2004-05-15 devnull #include <ctype.h>
  5 5cedca1b 2004-05-15 devnull #include <errno.h>
  6 5cedca1b 2004-05-15 devnull #include "grap.h"
  7 5cedca1b 2004-05-15 devnull #include "y.tab.h"
  8 5cedca1b 2004-05-15 devnull 
  9 5cedca1b 2004-05-15 devnull Infile	infile[10];
 10 5cedca1b 2004-05-15 devnull Infile	*curfile = infile;
 11 5cedca1b 2004-05-15 devnull 
 12 5cedca1b 2004-05-15 devnull #define	MAXSRC	50
 13 5cedca1b 2004-05-15 devnull Src	src[MAXSRC];	/* input source stack */
 14 5cedca1b 2004-05-15 devnull Src	*srcp	= src;
 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) {
 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 3d5e34e1 2004-09-21 devnull 			printf("push file %s\n", ptr);
 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 Thru:
 35 5cedca1b 2004-05-15 devnull 			printf("push thru\n");
 36 5cedca1b 2004-05-15 devnull 			break;
 37 5cedca1b 2004-05-15 devnull 		case String:
 38 5cedca1b 2004-05-15 devnull 			printf("push string <%s>\n", ptr);
 39 5cedca1b 2004-05-15 devnull 			break;
 40 5cedca1b 2004-05-15 devnull 		case Free:
 41 5cedca1b 2004-05-15 devnull 			printf("push free <%s>\n", ptr);
 42 5cedca1b 2004-05-15 devnull 			break;
 43 5cedca1b 2004-05-15 devnull 		default:
 44 5cedca1b 2004-05-15 devnull 			ERROR "pushed bad type %d", srcp->type FATAL;
 45 5cedca1b 2004-05-15 devnull 		}
 46 5cedca1b 2004-05-15 devnull 	}
 47 5cedca1b 2004-05-15 devnull }
 48 5cedca1b 2004-05-15 devnull 
 49 5cedca1b 2004-05-15 devnull void popsrc(void)	/* restore an old one */
 50 5cedca1b 2004-05-15 devnull {
 51 5cedca1b 2004-05-15 devnull 	if (srcp <= src)
 52 5cedca1b 2004-05-15 devnull 		ERROR "too many inputs popped" FATAL;
 53 5cedca1b 2004-05-15 devnull 	if (dbg) {
 54 5cedca1b 2004-05-15 devnull 		printf("%3d ", srcp - src);
 55 5cedca1b 2004-05-15 devnull 		switch (srcp->type) {
 56 5cedca1b 2004-05-15 devnull 		case File:
 57 5cedca1b 2004-05-15 devnull 			printf("pop file\n");
 58 5cedca1b 2004-05-15 devnull 			break;
 59 5cedca1b 2004-05-15 devnull 		case Macro:
 60 5cedca1b 2004-05-15 devnull 			printf("pop macro\n");
 61 5cedca1b 2004-05-15 devnull 			break;
 62 5cedca1b 2004-05-15 devnull 		case Char:
 63 5cedca1b 2004-05-15 devnull 			printf("pop char <%c>\n", *srcp->sp);
 64 5cedca1b 2004-05-15 devnull 			break;
 65 5cedca1b 2004-05-15 devnull 		case Thru:
 66 5cedca1b 2004-05-15 devnull 			printf("pop thru\n");
 67 5cedca1b 2004-05-15 devnull 			break;
 68 5cedca1b 2004-05-15 devnull 		case String:
 69 5cedca1b 2004-05-15 devnull 			printf("pop string\n");
 70 5cedca1b 2004-05-15 devnull 			break;
 71 5cedca1b 2004-05-15 devnull 		case Free:
 72 5cedca1b 2004-05-15 devnull 			printf("pop free\n");
 73 5cedca1b 2004-05-15 devnull 			break;
 74 5cedca1b 2004-05-15 devnull 		default:
 75 5cedca1b 2004-05-15 devnull 			ERROR "pop weird input %d", srcp->type FATAL;
 76 5cedca1b 2004-05-15 devnull 		}
 77 5cedca1b 2004-05-15 devnull 	}
 78 5cedca1b 2004-05-15 devnull 	srcp--;
 79 5cedca1b 2004-05-15 devnull }
 80 5cedca1b 2004-05-15 devnull 
 81 5cedca1b 2004-05-15 devnull void definition(char *s)	/* collect definition for s and install */
 82 5cedca1b 2004-05-15 devnull 				/* definitions picked up lexically */
 83 5cedca1b 2004-05-15 devnull {
 84 5cedca1b 2004-05-15 devnull 	char *p;
 85 5cedca1b 2004-05-15 devnull 	Obj *stp;
 86 5cedca1b 2004-05-15 devnull 
 87 5cedca1b 2004-05-15 devnull 	p = delimstr("definition");
 88 5cedca1b 2004-05-15 devnull 	stp = lookup(s, 0);
 89 5cedca1b 2004-05-15 devnull 	if (stp != NULL) {	/* it's there before */
 90 5cedca1b 2004-05-15 devnull 		if (stp->type != DEFNAME) {
 91 5cedca1b 2004-05-15 devnull 			ERROR "%s used as variable and definition", s WARNING;
 92 5cedca1b 2004-05-15 devnull 			return;
 93 5cedca1b 2004-05-15 devnull 		}
 94 5cedca1b 2004-05-15 devnull 		free(stp->val);
 95 5cedca1b 2004-05-15 devnull 	} else {
 96 5cedca1b 2004-05-15 devnull 		stp = lookup(s, 1);
 97 5cedca1b 2004-05-15 devnull 		stp->type = DEFNAME;
 98 5cedca1b 2004-05-15 devnull 	}
 99 5cedca1b 2004-05-15 devnull 	stp->val = p;
100 5cedca1b 2004-05-15 devnull 	dprintf("installing %s as `%s'\n", s, p);
101 5cedca1b 2004-05-15 devnull }
102 5cedca1b 2004-05-15 devnull 
103 5cedca1b 2004-05-15 devnull char *delimstr(char *s)	/* get body of X ... X */
104 5cedca1b 2004-05-15 devnull 			/* message if too big */
105 5cedca1b 2004-05-15 devnull {
106 5cedca1b 2004-05-15 devnull 	int c, delim, rdelim, n, deep;
107 5cedca1b 2004-05-15 devnull 	static char *buf = NULL;
108 5cedca1b 2004-05-15 devnull 	static int nbuf = 0;
109 5cedca1b 2004-05-15 devnull 	char *p;
110 5cedca1b 2004-05-15 devnull 
111 5cedca1b 2004-05-15 devnull 	if (buf == NULL)
112 5cedca1b 2004-05-15 devnull 		buf = grow(buf, "buf", nbuf += 1000, sizeof(buf[0]));
113 5cedca1b 2004-05-15 devnull 	while ((delim = input()) == ' ' || delim == '\t' || delim == '\n')
114 5cedca1b 2004-05-15 devnull 		;
115 5cedca1b 2004-05-15 devnull 	rdelim = baldelim(delim, "{}");		/* could be "(){}[]`'" */
116 5cedca1b 2004-05-15 devnull 	deep = 1;
117 5cedca1b 2004-05-15 devnull 	for (p = buf; ; ) {
118 5cedca1b 2004-05-15 devnull 		c = input();
119 5cedca1b 2004-05-15 devnull 		if (c == rdelim)
120 5cedca1b 2004-05-15 devnull 			if (--deep == 0)
121 5cedca1b 2004-05-15 devnull 				break;
122 5cedca1b 2004-05-15 devnull 		if (c == delim)
123 5cedca1b 2004-05-15 devnull 			deep++;
124 5cedca1b 2004-05-15 devnull 		if (p >= buf + nbuf) {
125 5cedca1b 2004-05-15 devnull 			n = p - buf;
126 5cedca1b 2004-05-15 devnull 			buf = grow(buf, "buf", nbuf += 1000, sizeof(buf[0]));
127 5cedca1b 2004-05-15 devnull 			p = buf + n;
128 5cedca1b 2004-05-15 devnull 		}
129 5cedca1b 2004-05-15 devnull 		if (c == EOF)
130 5cedca1b 2004-05-15 devnull 			ERROR "end of file in %s %c %.20s... %c", s, delim, buf, delim FATAL;
131 5cedca1b 2004-05-15 devnull 		*p++ = c;
132 5cedca1b 2004-05-15 devnull 	}
133 5cedca1b 2004-05-15 devnull 	*p = '\0';
134 5cedca1b 2004-05-15 devnull 	dprintf("delimstr %s %c <%s> %c\n", s, delim, buf, delim);
135 5cedca1b 2004-05-15 devnull 	return tostring(buf);
136 5cedca1b 2004-05-15 devnull }
137 5cedca1b 2004-05-15 devnull 
138 b237df90 2004-05-16 devnull int
139 5cedca1b 2004-05-15 devnull baldelim(int c, char *s)	/* replace c by balancing entry in s */
140 5cedca1b 2004-05-15 devnull {
141 5cedca1b 2004-05-15 devnull 	for ( ; *s; s += 2)
142 5cedca1b 2004-05-15 devnull 		if (*s == c)
143 5cedca1b 2004-05-15 devnull 			return s[1];
144 5cedca1b 2004-05-15 devnull 	return c;
145 5cedca1b 2004-05-15 devnull }
146 5cedca1b 2004-05-15 devnull 
147 5cedca1b 2004-05-15 devnull Arg	args[10];	/* argument frames */
148 5cedca1b 2004-05-15 devnull Arg	*argfp = args;	/* frame pointer */
149 5cedca1b 2004-05-15 devnull int	argcnt;		/* number of arguments seen so far */
150 5cedca1b 2004-05-15 devnull 
151 5cedca1b 2004-05-15 devnull void dodef(Obj *stp)	/* collect args and switch input to defn */
152 5cedca1b 2004-05-15 devnull {
153 5cedca1b 2004-05-15 devnull 	int i, len;
154 5cedca1b 2004-05-15 devnull 	char *p;
155 5cedca1b 2004-05-15 devnull 	Arg *ap;
156 5cedca1b 2004-05-15 devnull 
157 5cedca1b 2004-05-15 devnull 	ap = argfp+1;
158 5cedca1b 2004-05-15 devnull 	if (ap >= args+10)
159 5cedca1b 2004-05-15 devnull 		ERROR "arguments too deep" FATAL;
160 5cedca1b 2004-05-15 devnull 	argcnt = 0;
161 5cedca1b 2004-05-15 devnull 	if (input() != '(')
162 5cedca1b 2004-05-15 devnull 		ERROR "disaster in dodef" FATAL;
163 5cedca1b 2004-05-15 devnull 	if (ap->argval == 0)
164 5cedca1b 2004-05-15 devnull 		ap->argval = malloc(1000);
165 5cedca1b 2004-05-15 devnull 	for (p = ap->argval; (len = getarg(p)) != -1; p += len) {
166 5cedca1b 2004-05-15 devnull 		ap->argstk[argcnt++] = p;
167 5cedca1b 2004-05-15 devnull 		if (input() == ')')
168 5cedca1b 2004-05-15 devnull 			break;
169 5cedca1b 2004-05-15 devnull 	}
170 5cedca1b 2004-05-15 devnull 	for (i = argcnt; i < MAXARGS; i++)
171 5cedca1b 2004-05-15 devnull 		ap->argstk[i] = "";
172 5cedca1b 2004-05-15 devnull 	if (dbg)
173 5cedca1b 2004-05-15 devnull 		for (i = 0; i < argcnt; i++)
174 5cedca1b 2004-05-15 devnull 			printf("arg %d.%d = <%s>\n", ap-args, i+1, ap->argstk[i]);
175 5cedca1b 2004-05-15 devnull 	argfp = ap;
176 5cedca1b 2004-05-15 devnull 	pushsrc(Macro, stp->val);
177 5cedca1b 2004-05-15 devnull }
178 5cedca1b 2004-05-15 devnull 
179 b237df90 2004-05-16 devnull int
180 5cedca1b 2004-05-15 devnull getarg(char *p)	/* pick up single argument, store in p, return length */
181 5cedca1b 2004-05-15 devnull {
182 5cedca1b 2004-05-15 devnull 	int n, c, npar;
183 5cedca1b 2004-05-15 devnull 
184 5cedca1b 2004-05-15 devnull 	n = npar = 0;
185 5cedca1b 2004-05-15 devnull 	for ( ;; ) {
186 5cedca1b 2004-05-15 devnull 		c = input();
187 5cedca1b 2004-05-15 devnull 		if (c == EOF)
188 5cedca1b 2004-05-15 devnull 			ERROR "end of file in getarg!" FATAL;
189 5cedca1b 2004-05-15 devnull 		if (npar == 0 && (c == ',' || c == ')'))
190 5cedca1b 2004-05-15 devnull 			break;
191 5cedca1b 2004-05-15 devnull 		if (c == '"')	/* copy quoted stuff intact */
192 5cedca1b 2004-05-15 devnull 			do {
193 5cedca1b 2004-05-15 devnull 				*p++ = c;
194 5cedca1b 2004-05-15 devnull 				n++;
195 5cedca1b 2004-05-15 devnull 			} while ((c = input()) != '"' && c != EOF);
196 5cedca1b 2004-05-15 devnull 		else if (c == '(')
197 5cedca1b 2004-05-15 devnull 			npar++;
198 5cedca1b 2004-05-15 devnull 		else if (c == ')')
199 5cedca1b 2004-05-15 devnull 			npar--;
200 5cedca1b 2004-05-15 devnull 		n++;
201 5cedca1b 2004-05-15 devnull 		*p++ = c;
202 5cedca1b 2004-05-15 devnull 	}
203 5cedca1b 2004-05-15 devnull 	*p = 0;
204 5cedca1b 2004-05-15 devnull 	unput(c);
205 5cedca1b 2004-05-15 devnull 	return(n + 1);
206 5cedca1b 2004-05-15 devnull }
207 5cedca1b 2004-05-15 devnull 
208 5cedca1b 2004-05-15 devnull #define	PBSIZE	2000
209 5cedca1b 2004-05-15 devnull char	pbuf[PBSIZE];		/* pushback buffer */
210 5cedca1b 2004-05-15 devnull char	*pb	= pbuf-1;	/* next pushed back character */
211 5cedca1b 2004-05-15 devnull 
212 5cedca1b 2004-05-15 devnull char	ebuf[200];		/* collect input here for error reporting */
213 5cedca1b 2004-05-15 devnull char	*ep	= ebuf;
214 5cedca1b 2004-05-15 devnull 
215 5cedca1b 2004-05-15 devnull int	begin	= 0;
216 5cedca1b 2004-05-15 devnull extern	int	thru;
217 5cedca1b 2004-05-15 devnull extern	Obj	*thrudef;
218 5cedca1b 2004-05-15 devnull extern	char	*untilstr;
219 5cedca1b 2004-05-15 devnull 
220 b237df90 2004-05-16 devnull int
221 5cedca1b 2004-05-15 devnull input(void)
222 5cedca1b 2004-05-15 devnull {
223 5cedca1b 2004-05-15 devnull 	register int c;
224 5cedca1b 2004-05-15 devnull 
225 5cedca1b 2004-05-15 devnull 	if (thru && begin) {
226 5cedca1b 2004-05-15 devnull 		do_thru();
227 5cedca1b 2004-05-15 devnull 		begin = 0;
228 5cedca1b 2004-05-15 devnull 	}
229 5cedca1b 2004-05-15 devnull 	c = nextchar();
230 5cedca1b 2004-05-15 devnull 	dprintf(" <%c>", c);
231 5cedca1b 2004-05-15 devnull 	if (ep >= ebuf + sizeof ebuf)
232 5cedca1b 2004-05-15 devnull 		ep = ebuf;
233 5cedca1b 2004-05-15 devnull 	return *ep++ = c;
234 5cedca1b 2004-05-15 devnull }
235 5cedca1b 2004-05-15 devnull 
236 b237df90 2004-05-16 devnull int
237 5cedca1b 2004-05-15 devnull nextchar(void)
238 5cedca1b 2004-05-15 devnull {
239 5cedca1b 2004-05-15 devnull 	register int c;
240 5cedca1b 2004-05-15 devnull 
241 b237df90 2004-05-16 devnull 	c = 0; /* gcc */
242 b237df90 2004-05-16 devnull 
243 5cedca1b 2004-05-15 devnull   loop:
244 5cedca1b 2004-05-15 devnull 	switch (srcp->type) {
245 5cedca1b 2004-05-15 devnull 	case Free:	/* free string */
246 5cedca1b 2004-05-15 devnull 		free(srcp->sp);
247 5cedca1b 2004-05-15 devnull 		popsrc();
248 5cedca1b 2004-05-15 devnull 		goto loop;
249 5cedca1b 2004-05-15 devnull 	case Thru:	/* end of pushed back line */
250 5cedca1b 2004-05-15 devnull 		begin = 1;
251 5cedca1b 2004-05-15 devnull 		popsrc();
252 5cedca1b 2004-05-15 devnull 		c = '\n';
253 5cedca1b 2004-05-15 devnull 		break;
254 5cedca1b 2004-05-15 devnull 	case Char:
255 5cedca1b 2004-05-15 devnull 		if (pb >= pbuf) {
256 5cedca1b 2004-05-15 devnull 			c = *pb--;
257 5cedca1b 2004-05-15 devnull 			popsrc();
258 5cedca1b 2004-05-15 devnull 			break;
259 5cedca1b 2004-05-15 devnull 		} else {	/* can't happen? */
260 5cedca1b 2004-05-15 devnull 			popsrc();
261 5cedca1b 2004-05-15 devnull 			goto loop;
262 5cedca1b 2004-05-15 devnull 		}
263 5cedca1b 2004-05-15 devnull 	case String:
264 5cedca1b 2004-05-15 devnull 		c = *srcp->sp++;
265 5cedca1b 2004-05-15 devnull 		if (c == '\0') {
266 5cedca1b 2004-05-15 devnull 			popsrc();
267 5cedca1b 2004-05-15 devnull 			goto loop;
268 5cedca1b 2004-05-15 devnull 		} else {
269 5cedca1b 2004-05-15 devnull 			if (*srcp->sp == '\0')	/* empty, so pop */
270 5cedca1b 2004-05-15 devnull 				popsrc();
271 5cedca1b 2004-05-15 devnull 			break;
272 5cedca1b 2004-05-15 devnull 		}
273 5cedca1b 2004-05-15 devnull 	case Macro:
274 5cedca1b 2004-05-15 devnull 		c = *srcp->sp++;
275 5cedca1b 2004-05-15 devnull 		if (c == '\0') {
276 5cedca1b 2004-05-15 devnull 			if (--argfp < args)
277 5cedca1b 2004-05-15 devnull 				ERROR "argfp underflow" FATAL;
278 5cedca1b 2004-05-15 devnull 			popsrc();
279 5cedca1b 2004-05-15 devnull 			goto loop;
280 5cedca1b 2004-05-15 devnull 		} else if (c == '$' && isdigit(*srcp->sp)) {	/* $3 */
281 5cedca1b 2004-05-15 devnull 			int n = 0;
282 5cedca1b 2004-05-15 devnull 			while (isdigit(*srcp->sp))
283 5cedca1b 2004-05-15 devnull 				n = 10 * n + *srcp->sp++ - '0';
284 5cedca1b 2004-05-15 devnull 			if (n > 0 && n <= MAXARGS)
285 5cedca1b 2004-05-15 devnull 				pushsrc(String, argfp->argstk[n-1]);
286 5cedca1b 2004-05-15 devnull 			goto loop;
287 5cedca1b 2004-05-15 devnull 		}
288 5cedca1b 2004-05-15 devnull 		break;
289 5cedca1b 2004-05-15 devnull 	case File:
290 5cedca1b 2004-05-15 devnull 		c = getc(curfile->fin);
291 5cedca1b 2004-05-15 devnull 		if (c == EOF) {
292 5cedca1b 2004-05-15 devnull 			if (curfile == infile)
293 5cedca1b 2004-05-15 devnull 				ERROR "end of file inside .G1/.G2" FATAL;
294 5cedca1b 2004-05-15 devnull 			if (curfile->fin != stdin) {
295 5cedca1b 2004-05-15 devnull 				fclose(curfile->fin);
296 5cedca1b 2004-05-15 devnull 				free(curfile->fname);	/* assumes allocated */
297 5cedca1b 2004-05-15 devnull 			}
298 5cedca1b 2004-05-15 devnull 			curfile--;
299 5cedca1b 2004-05-15 devnull 			printf(".lf %d %s\n", curfile->lineno, curfile->fname);
300 5cedca1b 2004-05-15 devnull 			popsrc();
301 5cedca1b 2004-05-15 devnull 			thru = 0;	/* chicken out */
302 5cedca1b 2004-05-15 devnull 			thrudef = 0;
303 5cedca1b 2004-05-15 devnull 			if (untilstr) {
304 5cedca1b 2004-05-15 devnull 				free(untilstr);
305 5cedca1b 2004-05-15 devnull 				untilstr = 0;
306 5cedca1b 2004-05-15 devnull 			}
307 5cedca1b 2004-05-15 devnull 			goto loop;
308 5cedca1b 2004-05-15 devnull 		}
309 5cedca1b 2004-05-15 devnull 		if (c == '\n')
310 5cedca1b 2004-05-15 devnull 			curfile->lineno++;
311 5cedca1b 2004-05-15 devnull 		break;
312 5cedca1b 2004-05-15 devnull 	}
313 5cedca1b 2004-05-15 devnull 	return c;
314 5cedca1b 2004-05-15 devnull }
315 5cedca1b 2004-05-15 devnull 
316 5cedca1b 2004-05-15 devnull void do_thru(void)	/* read one line, make into a macro expansion */
317 5cedca1b 2004-05-15 devnull {
318 5cedca1b 2004-05-15 devnull 	int c, i;
319 5cedca1b 2004-05-15 devnull 	char *p;
320 5cedca1b 2004-05-15 devnull 	Arg *ap;
321 5cedca1b 2004-05-15 devnull 
322 5cedca1b 2004-05-15 devnull 	ap = argfp+1;
323 5cedca1b 2004-05-15 devnull 	if (ap >= args+10)
324 5cedca1b 2004-05-15 devnull 		ERROR "arguments too deep" FATAL;
325 5cedca1b 2004-05-15 devnull 	if (ap->argval == NULL)
326 5cedca1b 2004-05-15 devnull 		ap->argval = malloc(1000);
327 5cedca1b 2004-05-15 devnull 	p = ap->argval;
328 5cedca1b 2004-05-15 devnull 	argcnt = 0;
329 5cedca1b 2004-05-15 devnull 	c = nextchar();
330 5cedca1b 2004-05-15 devnull 	if (thru == 0) {	/* end of file was seen, so thru is done */
331 5cedca1b 2004-05-15 devnull 		unput(c);
332 5cedca1b 2004-05-15 devnull 		return;
333 5cedca1b 2004-05-15 devnull 	}
334 5cedca1b 2004-05-15 devnull 	for ( ; c != '\n' && c != EOF; ) {
335 5cedca1b 2004-05-15 devnull 		if (c == ' ' || c == '\t') {
336 5cedca1b 2004-05-15 devnull 			c = nextchar();
337 5cedca1b 2004-05-15 devnull 			continue;
338 5cedca1b 2004-05-15 devnull 		}
339 5cedca1b 2004-05-15 devnull 		if (argcnt >= MAXARGS)
340 5cedca1b 2004-05-15 devnull 			ERROR "too many fields on input line" FATAL;
341 5cedca1b 2004-05-15 devnull 		ap->argstk[argcnt++] = p;
342 5cedca1b 2004-05-15 devnull 		if (c == '"') {
343 5cedca1b 2004-05-15 devnull 			do {
344 5cedca1b 2004-05-15 devnull 				*p++ = c;
345 5cedca1b 2004-05-15 devnull 				if ((c = nextchar()) == '\\') {
346 5cedca1b 2004-05-15 devnull 					*p++ = c;
347 5cedca1b 2004-05-15 devnull 					*p++ = nextchar();
348 5cedca1b 2004-05-15 devnull 					c = nextchar();
349 5cedca1b 2004-05-15 devnull 				}
350 5cedca1b 2004-05-15 devnull 			} while (c != '"' && c != '\n' && c != EOF);
351 5cedca1b 2004-05-15 devnull 			*p++ = '"';
352 5cedca1b 2004-05-15 devnull 			if (c == '"')
353 5cedca1b 2004-05-15 devnull 				c = nextchar();
354 5cedca1b 2004-05-15 devnull 		} else {
355 5cedca1b 2004-05-15 devnull 			do {
356 5cedca1b 2004-05-15 devnull 				*p++ = c;
357 5cedca1b 2004-05-15 devnull 			} while ((c = nextchar())!=' ' && c!='\t' && c!='\n' && c!=',' && c!=EOF);
358 5cedca1b 2004-05-15 devnull 			if (c == ',')
359 5cedca1b 2004-05-15 devnull 				c = nextchar();
360 5cedca1b 2004-05-15 devnull 		}
361 5cedca1b 2004-05-15 devnull 		*p++ = '\0';
362 5cedca1b 2004-05-15 devnull 	}
363 5cedca1b 2004-05-15 devnull 	if (c == EOF)
364 5cedca1b 2004-05-15 devnull 		ERROR "unexpected end of file in do_thru" FATAL;
365 5cedca1b 2004-05-15 devnull 	if (argcnt == 0) {	/* ignore blank line */
366 5cedca1b 2004-05-15 devnull 		pushsrc(Thru, (char *) 0);
367 5cedca1b 2004-05-15 devnull 		return;
368 5cedca1b 2004-05-15 devnull 	}
369 5cedca1b 2004-05-15 devnull 	for (i = argcnt; i < MAXARGS; i++)
370 5cedca1b 2004-05-15 devnull 		ap->argstk[i] = "";
371 5cedca1b 2004-05-15 devnull 	if (dbg)
372 5cedca1b 2004-05-15 devnull 		for (i = 0; i < argcnt; i++)
373 5cedca1b 2004-05-15 devnull 			printf("arg %d.%d = <%s>\n", ap-args, i+1, ap->argstk[i]);
374 5cedca1b 2004-05-15 devnull 	if (strcmp(ap->argstk[0], ".G2") == 0) {
375 5cedca1b 2004-05-15 devnull 		thru = 0;
376 5cedca1b 2004-05-15 devnull 		thrudef = 0;
377 5cedca1b 2004-05-15 devnull 		pushsrc(String, "\n.G2\n");
378 5cedca1b 2004-05-15 devnull 		return;
379 5cedca1b 2004-05-15 devnull 	}
380 5cedca1b 2004-05-15 devnull 	if (untilstr && strcmp(ap->argstk[0], untilstr) == 0) {
381 5cedca1b 2004-05-15 devnull 		thru = 0;
382 5cedca1b 2004-05-15 devnull 		thrudef = 0;
383 5cedca1b 2004-05-15 devnull 		free(untilstr);
384 5cedca1b 2004-05-15 devnull 		untilstr = 0;
385 5cedca1b 2004-05-15 devnull 		return;
386 5cedca1b 2004-05-15 devnull 	}
387 5cedca1b 2004-05-15 devnull 	pushsrc(Thru, (char *) 0);
388 5cedca1b 2004-05-15 devnull 	dprintf("do_thru pushing back <%s>\n", thrudef->val);
389 5cedca1b 2004-05-15 devnull 	argfp = ap;
390 5cedca1b 2004-05-15 devnull 	pushsrc(Macro, thrudef->val);
391 5cedca1b 2004-05-15 devnull }
392 5cedca1b 2004-05-15 devnull 
393 b237df90 2004-05-16 devnull int
394 5cedca1b 2004-05-15 devnull unput(int c)
395 5cedca1b 2004-05-15 devnull {
396 5cedca1b 2004-05-15 devnull 	if (++pb >= pbuf + sizeof pbuf)
397 5cedca1b 2004-05-15 devnull 		ERROR "pushback overflow" FATAL;
398 5cedca1b 2004-05-15 devnull 	if (--ep < ebuf)
399 5cedca1b 2004-05-15 devnull 		ep = ebuf + sizeof(ebuf) - 1;
400 5cedca1b 2004-05-15 devnull 	*pb = c;
401 5cedca1b 2004-05-15 devnull 	pushsrc(Char, pb);
402 5cedca1b 2004-05-15 devnull 	return c;
403 5cedca1b 2004-05-15 devnull }
404 5cedca1b 2004-05-15 devnull 
405 5cedca1b 2004-05-15 devnull void pbstr(char *s)
406 5cedca1b 2004-05-15 devnull {
407 5cedca1b 2004-05-15 devnull 	pushsrc(String, s);
408 5cedca1b 2004-05-15 devnull }
409 5cedca1b 2004-05-15 devnull 
410 5cedca1b 2004-05-15 devnull double errcheck(double x, char *s)
411 5cedca1b 2004-05-15 devnull {
412 5cedca1b 2004-05-15 devnull 	if (errno == EDOM) {
413 5cedca1b 2004-05-15 devnull 		errno = 0;
414 5cedca1b 2004-05-15 devnull 		ERROR "%s argument out of domain", s WARNING;
415 5cedca1b 2004-05-15 devnull 	} else if (errno == ERANGE) {
416 5cedca1b 2004-05-15 devnull 		errno = 0;
417 5cedca1b 2004-05-15 devnull 		ERROR "%s result out of range", s WARNING;
418 5cedca1b 2004-05-15 devnull 	}
419 5cedca1b 2004-05-15 devnull 	return x;
420 5cedca1b 2004-05-15 devnull }
421 5cedca1b 2004-05-15 devnull 
422 5cedca1b 2004-05-15 devnull char	errbuf[200];
423 5cedca1b 2004-05-15 devnull 
424 5cedca1b 2004-05-15 devnull void yyerror(char *s)
425 5cedca1b 2004-05-15 devnull {
426 5cedca1b 2004-05-15 devnull 	extern char *cmdname;
427 5cedca1b 2004-05-15 devnull 	int ern = errno;	/* cause some libraries clobber it */
428 5cedca1b 2004-05-15 devnull 
429 5cedca1b 2004-05-15 devnull 	if (synerr)
430 5cedca1b 2004-05-15 devnull 		return;
431 5cedca1b 2004-05-15 devnull 	fflush(stdout);
432 5cedca1b 2004-05-15 devnull 	fprintf(stderr, "%s: %s", cmdname, s);
433 5cedca1b 2004-05-15 devnull 	if (ern > 0) {
434 5cedca1b 2004-05-15 devnull 		errno = ern;
435 5cedca1b 2004-05-15 devnull 		perror("???");
436 5cedca1b 2004-05-15 devnull 	}
437 5cedca1b 2004-05-15 devnull 	fprintf(stderr, " near %s:%d\n",
438 5cedca1b 2004-05-15 devnull 		curfile->fname, curfile->lineno+1);
439 5cedca1b 2004-05-15 devnull 	eprint();
440 5cedca1b 2004-05-15 devnull 	synerr = 1;
441 5cedca1b 2004-05-15 devnull 	errno = 0;
442 5cedca1b 2004-05-15 devnull }
443 5cedca1b 2004-05-15 devnull 
444 5cedca1b 2004-05-15 devnull void eprint(void)	/* try to print context around error */
445 5cedca1b 2004-05-15 devnull {
446 5cedca1b 2004-05-15 devnull 	char *p, *q;
447 5cedca1b 2004-05-15 devnull 
448 5cedca1b 2004-05-15 devnull 	p = ep - 1;
449 5cedca1b 2004-05-15 devnull 	if (p > ebuf && *p == '\n')
450 5cedca1b 2004-05-15 devnull 		p--;
451 5cedca1b 2004-05-15 devnull 	for ( ; p >= ebuf && *p != '\n'; p--)
452 5cedca1b 2004-05-15 devnull 		;
453 5cedca1b 2004-05-15 devnull 	while (*p == '\n')
454 5cedca1b 2004-05-15 devnull 		p++;
455 5cedca1b 2004-05-15 devnull 	fprintf(stderr, " context is\n\t");
456 5cedca1b 2004-05-15 devnull 	for (q=ep-1; q>=p && *q!=' ' && *q!='\t' && *q!='\n'; q--)
457 5cedca1b 2004-05-15 devnull 		;
458 5cedca1b 2004-05-15 devnull 	for (; p < q; p++)
459 5cedca1b 2004-05-15 devnull 		if (isprint(*p))
460 5cedca1b 2004-05-15 devnull 			putc(*p, stderr);
461 5cedca1b 2004-05-15 devnull 	fprintf(stderr, " >>> ");
462 5cedca1b 2004-05-15 devnull 	for (; p < q; p++)
463 5cedca1b 2004-05-15 devnull 		if (isprint(*p))
464 5cedca1b 2004-05-15 devnull 			putc(*p, stderr);
465 5cedca1b 2004-05-15 devnull 	fprintf(stderr, " <<< ");
466 5cedca1b 2004-05-15 devnull 	while (pb >= pbuf)
467 5cedca1b 2004-05-15 devnull 		putc(*pb--, stderr);
468 5cedca1b 2004-05-15 devnull 	fgets(ebuf, sizeof ebuf, curfile->fin);
469 5cedca1b 2004-05-15 devnull 	fprintf(stderr, "%s", ebuf);
470 5cedca1b 2004-05-15 devnull 	pbstr("\n.G2\n");	/* safety first */
471 5cedca1b 2004-05-15 devnull 	ep = ebuf;
472 5cedca1b 2004-05-15 devnull }
473 5cedca1b 2004-05-15 devnull 
474 5cedca1b 2004-05-15 devnull int yywrap(void) {return 1;}
475 5cedca1b 2004-05-15 devnull 
476 5cedca1b 2004-05-15 devnull char	*newfile = 0;		/* filename for file copy */
477 5cedca1b 2004-05-15 devnull char	*untilstr = 0;		/* string that terminates a thru */
478 5cedca1b 2004-05-15 devnull int	thru	= 0;		/* 1 if copying thru macro */
479 5cedca1b 2004-05-15 devnull Obj	*thrudef = 0;		/* macro being used */
480 5cedca1b 2004-05-15 devnull 
481 5cedca1b 2004-05-15 devnull void copyfile(char *s)	/* remember file to start reading from */
482 5cedca1b 2004-05-15 devnull {
483 5cedca1b 2004-05-15 devnull 	newfile = s;
484 5cedca1b 2004-05-15 devnull }
485 5cedca1b 2004-05-15 devnull 
486 5cedca1b 2004-05-15 devnull void copydef(Obj *p)	/* remember macro Obj */
487 5cedca1b 2004-05-15 devnull {
488 5cedca1b 2004-05-15 devnull 	thrudef = p;
489 5cedca1b 2004-05-15 devnull }
490 5cedca1b 2004-05-15 devnull 
491 5cedca1b 2004-05-15 devnull Obj *copythru(char *s)	/* collect the macro name or body for thru */
492 5cedca1b 2004-05-15 devnull {
493 5cedca1b 2004-05-15 devnull 	Obj *p;
494 5cedca1b 2004-05-15 devnull 	char *q;
495 5cedca1b 2004-05-15 devnull 
496 5cedca1b 2004-05-15 devnull 	p = lookup(s, 0);
497 5cedca1b 2004-05-15 devnull 	if (p != NULL) {
498 5cedca1b 2004-05-15 devnull 		if (p->type == DEFNAME) {
499 5cedca1b 2004-05-15 devnull 			p->val = addnewline(p->val);
500 5cedca1b 2004-05-15 devnull 			return p;
501 5cedca1b 2004-05-15 devnull 		} else
502 5cedca1b 2004-05-15 devnull 			ERROR "%s used as define and name", s FATAL;
503 5cedca1b 2004-05-15 devnull 	}
504 5cedca1b 2004-05-15 devnull 	/* have to collect the definition */
505 5cedca1b 2004-05-15 devnull 	pbstr(s);	/* first char is the delimiter */
506 5cedca1b 2004-05-15 devnull 	q = delimstr("thru body");
507 5cedca1b 2004-05-15 devnull 	p = lookup("nameless", 1);
508 5cedca1b 2004-05-15 devnull 	if (p != NULL)
509 5cedca1b 2004-05-15 devnull 		if (p->val)
510 5cedca1b 2004-05-15 devnull 			free(p->val);
511 5cedca1b 2004-05-15 devnull 	p->type = DEFNAME;
512 5cedca1b 2004-05-15 devnull 	p->val = q;
513 5cedca1b 2004-05-15 devnull 	p->val = addnewline(p->val);
514 5cedca1b 2004-05-15 devnull 	dprintf("installing nameless as `%s'\n", p->val);
515 5cedca1b 2004-05-15 devnull 	return p;
516 5cedca1b 2004-05-15 devnull }
517 5cedca1b 2004-05-15 devnull 
518 5cedca1b 2004-05-15 devnull char *addnewline(char *p)	/* add newline to end of p */
519 5cedca1b 2004-05-15 devnull {
520 5cedca1b 2004-05-15 devnull 	int n;
521 5cedca1b 2004-05-15 devnull 
522 5cedca1b 2004-05-15 devnull 	n = strlen(p);
523 5cedca1b 2004-05-15 devnull 	if (p[n-1] != '\n') {
524 5cedca1b 2004-05-15 devnull 		p = realloc(p, n+2);
525 5cedca1b 2004-05-15 devnull 		p[n] = '\n';
526 5cedca1b 2004-05-15 devnull 		p[n+1] = '\0';
527 5cedca1b 2004-05-15 devnull 	}
528 5cedca1b 2004-05-15 devnull 	return p;
529 5cedca1b 2004-05-15 devnull }
530 5cedca1b 2004-05-15 devnull 
531 5cedca1b 2004-05-15 devnull void copyuntil(char *s)	/* string that terminates a thru */
532 5cedca1b 2004-05-15 devnull {
533 5cedca1b 2004-05-15 devnull 	untilstr = s;
534 5cedca1b 2004-05-15 devnull }
535 5cedca1b 2004-05-15 devnull 
536 5cedca1b 2004-05-15 devnull void copy(void)	/* begin input from file, etc. */
537 5cedca1b 2004-05-15 devnull {
538 5cedca1b 2004-05-15 devnull 	FILE *fin;
539 5cedca1b 2004-05-15 devnull 
540 5cedca1b 2004-05-15 devnull 	if (newfile) {
541 18b08117 2004-08-17 devnull 		if ((fin = fopen(newfile, "r")) == NULL)
542 5cedca1b 2004-05-15 devnull 			ERROR "can't open file %s", newfile FATAL;
543 5cedca1b 2004-05-15 devnull 		curfile++;
544 5cedca1b 2004-05-15 devnull 		curfile->fin = fin;
545 5cedca1b 2004-05-15 devnull 		curfile->fname = tostring(newfile);
546 5cedca1b 2004-05-15 devnull 		curfile->lineno = 0;
547 5cedca1b 2004-05-15 devnull 		printf(".lf 1 %s\n", curfile->fname);
548 5cedca1b 2004-05-15 devnull 		pushsrc(File, curfile->fname);
549 5cedca1b 2004-05-15 devnull 		newfile = 0;
550 5cedca1b 2004-05-15 devnull 	}
551 5cedca1b 2004-05-15 devnull 	if (thrudef) {
552 5cedca1b 2004-05-15 devnull 		thru = 1;
553 5cedca1b 2004-05-15 devnull 		begin = 1;	/* wrong place */
554 5cedca1b 2004-05-15 devnull 	}
555 5cedca1b 2004-05-15 devnull }
556 5cedca1b 2004-05-15 devnull 
557 5cedca1b 2004-05-15 devnull char	shellbuf[1000], *shellp;
558 5cedca1b 2004-05-15 devnull 
559 5cedca1b 2004-05-15 devnull void shell_init(void)	/* set up to interpret a shell command */
560 5cedca1b 2004-05-15 devnull {
561 5cedca1b 2004-05-15 devnull 	fprintf(tfd, "# shell cmd...\n");
562 5cedca1b 2004-05-15 devnull 	sprintf(shellbuf, "rc -c '");
563 5cedca1b 2004-05-15 devnull 	shellp = shellbuf + strlen(shellbuf);
564 5cedca1b 2004-05-15 devnull }
565 5cedca1b 2004-05-15 devnull 
566 5cedca1b 2004-05-15 devnull void shell_text(char *s)	/* add string to command being collected */
567 5cedca1b 2004-05-15 devnull {
568 5cedca1b 2004-05-15 devnull 	/* fprintf(tfd, "#add <%s> to <%s>\n", s, shellbuf); */
569 5cedca1b 2004-05-15 devnull 	while (*s) {
570 5cedca1b 2004-05-15 devnull 		if (*s == '\'')	{	/* protect interior quotes */
571 5cedca1b 2004-05-15 devnull 			*shellp++ = '\'';
572 5cedca1b 2004-05-15 devnull 			*shellp++ = '\\';
573 5cedca1b 2004-05-15 devnull 			*shellp++ = '\'';
574 5cedca1b 2004-05-15 devnull 		}
575 5cedca1b 2004-05-15 devnull 		*shellp++ = *s++;
576 5cedca1b 2004-05-15 devnull 	}
577 5cedca1b 2004-05-15 devnull }
578 5cedca1b 2004-05-15 devnull 
579 5cedca1b 2004-05-15 devnull void shell_exec(void)	/* do it */
580 5cedca1b 2004-05-15 devnull {
581 5cedca1b 2004-05-15 devnull 	/* fprintf(tfd, "# run <%s>\n", shellbuf); */
582 5cedca1b 2004-05-15 devnull 	*shellp++ = '\'';
583 5cedca1b 2004-05-15 devnull 	*shellp = '\0';
584 5cedca1b 2004-05-15 devnull 	system(shellbuf);
585 5cedca1b 2004-05-15 devnull }