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