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"
8 b6d98463 2006-04-14 devnull Infile infile[10];
9 b6d98463 2006-04-14 devnull Infile *curfile = infile;
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;
16 b6d98463 2006-04-14 devnull pushsrc(int type, char *ptr) /* new input source */
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);
28 b6d98463 2006-04-14 devnull case Macro:
29 b6d98463 2006-04-14 devnull printf("push macro <%s>\n", ptr);
31 b6d98463 2006-04-14 devnull case Char:
32 b6d98463 2006-04-14 devnull printf("push char <%c>\n", *ptr);
34 b6d98463 2006-04-14 devnull case Thru:
35 b6d98463 2006-04-14 devnull printf("push thru\n");
37 b6d98463 2006-04-14 devnull case String:
38 b6d98463 2006-04-14 devnull printf("push string <%s>\n", ptr);
40 b6d98463 2006-04-14 devnull case Free:
41 b6d98463 2006-04-14 devnull printf("push free <%s>\n", ptr);
44 b6d98463 2006-04-14 devnull ERROR "pushed bad type %d", srcp->type FATAL;
50 b6d98463 2006-04-14 devnull popsrc(void) /* restore an old one */
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");
60 b6d98463 2006-04-14 devnull case Macro:
61 b6d98463 2006-04-14 devnull printf("pop macro\n");
63 b6d98463 2006-04-14 devnull case Char:
64 b6d98463 2006-04-14 devnull printf("pop char <%c>\n", *srcp->sp);
66 b6d98463 2006-04-14 devnull case Thru:
67 b6d98463 2006-04-14 devnull printf("pop thru\n");
69 b6d98463 2006-04-14 devnull case String:
70 b6d98463 2006-04-14 devnull printf("pop string\n");
72 b6d98463 2006-04-14 devnull case Free:
73 b6d98463 2006-04-14 devnull printf("pop free\n");
76 b6d98463 2006-04-14 devnull ERROR "pop weird input %d", srcp->type FATAL;
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 */
87 b6d98463 2006-04-14 devnull struct symtab *stp;
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;
96 b6d98463 2006-04-14 devnull free(stp->s_val.p);
97 b6d98463 2006-04-14 devnull stp->s_val.p = p;
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);
103 b6d98463 2006-04-14 devnull dprintf("installing %s as `%s'\n", s, p);
107 b6d98463 2006-04-14 devnull delimstr(char *s) /* get body of X ... X */
108 b6d98463 2006-04-14 devnull /* message if too big */
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;
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')
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)
126 b6d98463 2006-04-14 devnull if (c == delim)
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;
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;
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);
143 b6d98463 2006-04-14 devnull baldelim(int c, char *s) /* replace c by balancing entry in s */
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;
152 b6d98463 2006-04-14 devnull undefine(char *s) /* undefine macro */
154 b6d98463 2006-04-14 devnull while (*s != ' ' && *s != '\t') /* skip "undef..." */
156 b6d98463 2006-04-14 devnull while (*s == ' ' || *s == '\t')
158 b6d98463 2006-04-14 devnull freedef(s);
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 */
167 b6d98463 2006-04-14 devnull dodef(struct symtab *stp) /* collect args and switch input to defn */
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;
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() == ')')
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);
196 b6d98463 2006-04-14 devnull getarg(char *p) /* pick up single argument, store in p, return length */
198 b6d98463 2006-04-14 devnull int n, c, npar;
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 == ')'))
207 b6d98463 2006-04-14 devnull if (c == '"') /* copy quoted stuff intact */
209 b6d98463 2006-04-14 devnull *p++ = c;
211 b6d98463 2006-04-14 devnull } while ((c = input()) != '"' && c != EOF);
212 b6d98463 2006-04-14 devnull else if (c == '(')
214 b6d98463 2006-04-14 devnull else if (c == ')')
217 b6d98463 2006-04-14 devnull *p++ = c;
220 b6d98463 2006-04-14 devnull unput(c);
221 b6d98463 2006-04-14 devnull return(n + 1);
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 */
228 b6d98463 2006-04-14 devnull char ebuf[200]; /* collect input here for error reporting */
229 b6d98463 2006-04-14 devnull char *ep = ebuf;
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;
237 b6d98463 2006-04-14 devnull input(void)
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;
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;
254 b6d98463 2006-04-14 devnull nextchar(void)
259 b6d98463 2006-04-14 devnull switch (srcp->type) {
260 b6d98463 2006-04-14 devnull default:
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';
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();
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;
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();
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;
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 */
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;
325 b6d98463 2006-04-14 devnull goto loop;
327 b6d98463 2006-04-14 devnull if (c == '\n')
328 b6d98463 2006-04-14 devnull curfile->lineno++;
331 b6d98463 2006-04-14 devnull return c;
335 b6d98463 2006-04-14 devnull do_thru(void) /* read one line, make into a macro expansion */
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;
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);
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;
358 b6d98463 2006-04-14 devnull ap->argstk[argcnt++] = p;
359 b6d98463 2006-04-14 devnull if (c == '"') {
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();
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 {
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();
378 b6d98463 2006-04-14 devnull *p++ = '\0';
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);
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");
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;
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);
411 b6d98463 2006-04-14 devnull unput(int c)
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;
423 b6d98463 2006-04-14 devnull pbstr(char *s)
425 b6d98463 2006-04-14 devnull pushsrc(String, s);
429 b6d98463 2006-04-14 devnull errcheck(double x, char *s)
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;
438 b6d98463 2006-04-14 devnull return x;
441 b6d98463 2006-04-14 devnull char errbuf[200];
444 b6d98463 2006-04-14 devnull yyerror(char *s)
446 b6d98463 2006-04-14 devnull extern char *cmdname;
448 b6d98463 2006-04-14 devnull if (synerr)
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;
462 b6d98463 2006-04-14 devnull eprint(void) /* try to print context around error */
464 b6d98463 2006-04-14 devnull char *p, *q;
466 b6d98463 2006-04-14 devnull p = ep - 1;
467 b6d98463 2006-04-14 devnull if (p > ebuf && *p == '\n')
469 b6d98463 2006-04-14 devnull for ( ; p >= ebuf && *p != '\n'; p--)
471 b6d98463 2006-04-14 devnull while (*p == '\n')
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--)
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;
490 b6d98463 2006-04-14 devnull void yywrap(void) {;}
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 */
498 b6d98463 2006-04-14 devnull copyfile(char *s) /* remember file to start reading from */
500 b6d98463 2006-04-14 devnull newfile = s;
504 b6d98463 2006-04-14 devnull copydef(struct symtab *p) /* remember macro symtab ptr */
506 b6d98463 2006-04-14 devnull thrudef = p;
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 */
512 b6d98463 2006-04-14 devnull struct symtab *p;
513 90a99688 2006-04-14 devnull char *q;
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;
521 b6d98463 2006-04-14 devnull ERROR "%s used as define and name", s FATAL;
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);
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;
543 b6d98463 2006-04-14 devnull addnewline(char *p) /* add newline to end of p */
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';
553 b6d98463 2006-04-14 devnull return p;
557 b6d98463 2006-04-14 devnull copyuntil(char *s) /* string that terminates a thru */
559 b6d98463 2006-04-14 devnull untilstr = s;
563 b6d98463 2006-04-14 devnull copy(void) /* begin input from file, etc. */
565 b6d98463 2006-04-14 devnull FILE *fin;
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;
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 */
584 b6d98463 2006-04-14 devnull char shellbuf[1000], *shellp;
587 b6d98463 2006-04-14 devnull shell_init(void) /* set up to interpret a shell command */
589 b6d98463 2006-04-14 devnull sprintf(shellbuf, "sh -c '");
590 b6d98463 2006-04-14 devnull shellp = shellbuf + strlen(shellbuf);
594 b6d98463 2006-04-14 devnull shell_text(char *s) /* add string to command being collected */
596 b6d98463 2006-04-14 devnull while (*shellp++ = *s++)
598 b6d98463 2006-04-14 devnull shellp--;
602 b6d98463 2006-04-14 devnull shell_exec(void) /* do it */
604 b6d98463 2006-04-14 devnull *shellp++ = '\'';
605 b6d98463 2006-04-14 devnull *shellp = '\0';
606 b6d98463 2006-04-14 devnull system(shellbuf);