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