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 "pic.h"
7 5cedca1b 2004-05-15 devnull #include "y.tab.h"
9 5cedca1b 2004-05-15 devnull Infile infile[10];
10 5cedca1b 2004-05-15 devnull Infile *curfile = infile;
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;
16 5cedca1b 2004-05-15 devnull void do_thru(void);
17 5cedca1b 2004-05-15 devnull int nextchar(void);
18 5cedca1b 2004-05-15 devnull int getarg(char *);
19 5cedca1b 2004-05-15 devnull void freedef(char *);
20 5cedca1b 2004-05-15 devnull int baldelim(int, char *);
22 5cedca1b 2004-05-15 devnull void pushsrc(int type, char *ptr) /* new input source */
24 5cedca1b 2004-05-15 devnull if (++srcp >= src + MAXSRC)
25 5cedca1b 2004-05-15 devnull ERROR "inputs nested too deep" FATAL;
26 5cedca1b 2004-05-15 devnull srcp->type = type;
27 5cedca1b 2004-05-15 devnull srcp->sp = ptr;
28 5cedca1b 2004-05-15 devnull if (dbg > 1) {
29 98f7b73f 2005-12-29 devnull printf("\n%3d ", (int)(srcp - src));
30 5cedca1b 2004-05-15 devnull switch (srcp->type) {
31 5cedca1b 2004-05-15 devnull case File:
32 5cedca1b 2004-05-15 devnull printf("push file %s\n", ((Infile *)ptr)->fname);
34 5cedca1b 2004-05-15 devnull case Macro:
35 5cedca1b 2004-05-15 devnull printf("push macro <%s>\n", ptr);
37 5cedca1b 2004-05-15 devnull case Char:
38 5cedca1b 2004-05-15 devnull printf("push char <%c>\n", *ptr);
40 5cedca1b 2004-05-15 devnull case Thru:
41 5cedca1b 2004-05-15 devnull printf("push thru\n");
43 5cedca1b 2004-05-15 devnull case String:
44 5cedca1b 2004-05-15 devnull printf("push string <%s>\n", ptr);
46 5cedca1b 2004-05-15 devnull case Free:
47 5cedca1b 2004-05-15 devnull printf("push free <%s>\n", ptr);
50 5cedca1b 2004-05-15 devnull ERROR "pushed bad type %d", srcp->type FATAL;
55 5cedca1b 2004-05-15 devnull void popsrc(void) /* restore an old one */
57 5cedca1b 2004-05-15 devnull if (srcp <= src)
58 5cedca1b 2004-05-15 devnull ERROR "too many inputs popped" FATAL;
59 5cedca1b 2004-05-15 devnull if (dbg > 1) {
60 5f1cf8e6 2004-05-16 devnull printf("%3d ", (int) (srcp - src));
61 5cedca1b 2004-05-15 devnull switch (srcp->type) {
62 5cedca1b 2004-05-15 devnull case File:
63 5cedca1b 2004-05-15 devnull printf("pop file\n");
65 5cedca1b 2004-05-15 devnull case Macro:
66 5cedca1b 2004-05-15 devnull printf("pop macro\n");
68 5cedca1b 2004-05-15 devnull case Char:
69 5cedca1b 2004-05-15 devnull printf("pop char <%c>\n", *srcp->sp);
71 5cedca1b 2004-05-15 devnull case Thru:
72 5cedca1b 2004-05-15 devnull printf("pop thru\n");
74 5cedca1b 2004-05-15 devnull case String:
75 5cedca1b 2004-05-15 devnull printf("pop string\n");
77 5cedca1b 2004-05-15 devnull case Free:
78 5cedca1b 2004-05-15 devnull printf("pop free\n");
81 5cedca1b 2004-05-15 devnull ERROR "pop weird input %d", srcp->type FATAL;
87 5cedca1b 2004-05-15 devnull void definition(char *s) /* collect definition for s and install */
88 5cedca1b 2004-05-15 devnull /* definitions picked up lexically */
91 5cedca1b 2004-05-15 devnull struct symtab *stp;
93 5cedca1b 2004-05-15 devnull p = delimstr("definition");
94 5cedca1b 2004-05-15 devnull stp = lookup(s);
95 5cedca1b 2004-05-15 devnull if (stp != NULL) { /* it's there before */
96 5cedca1b 2004-05-15 devnull if (stp->s_type != DEFNAME) {
97 5cedca1b 2004-05-15 devnull ERROR "%s used as variable and definition", s WARNING;
100 5cedca1b 2004-05-15 devnull free(stp->s_val.p);
101 5cedca1b 2004-05-15 devnull stp->s_val.p = p;
102 5cedca1b 2004-05-15 devnull } else {
103 5cedca1b 2004-05-15 devnull YYSTYPE u;
104 5cedca1b 2004-05-15 devnull u.p = p;
105 5cedca1b 2004-05-15 devnull makevar(tostring(s), DEFNAME, u);
107 5cedca1b 2004-05-15 devnull dprintf("installing %s as `%s'\n", s, p);
110 5cedca1b 2004-05-15 devnull char *delimstr(char *s) /* get body of X ... X */
111 5cedca1b 2004-05-15 devnull /* message if too big */
113 5cedca1b 2004-05-15 devnull int c, delim, rdelim, n, deep;
114 5cedca1b 2004-05-15 devnull static char *buf = NULL;
115 5cedca1b 2004-05-15 devnull static int nbuf = 0;
116 5cedca1b 2004-05-15 devnull char *p;
118 5cedca1b 2004-05-15 devnull if (buf == NULL)
119 5cedca1b 2004-05-15 devnull buf = grow(buf, "buf", nbuf += 1000, sizeof(buf[0]));
120 5cedca1b 2004-05-15 devnull while ((delim = input()) == ' ' || delim == '\t' || delim == '\n')
122 5cedca1b 2004-05-15 devnull rdelim = baldelim(delim, "{}"); /* could be "(){}[]`'" */
123 5cedca1b 2004-05-15 devnull deep = 1;
124 5cedca1b 2004-05-15 devnull for (p = buf; ; ) {
125 5cedca1b 2004-05-15 devnull c = input();
126 5cedca1b 2004-05-15 devnull if (c == rdelim)
127 5cedca1b 2004-05-15 devnull if (--deep == 0)
129 5cedca1b 2004-05-15 devnull if (c == delim)
131 5cedca1b 2004-05-15 devnull if (p >= buf + nbuf) {
132 5cedca1b 2004-05-15 devnull n = p - buf;
133 5cedca1b 2004-05-15 devnull buf = grow(buf, "buf", nbuf += 1000, sizeof(buf[0]));
134 5cedca1b 2004-05-15 devnull p = buf + n;
136 5cedca1b 2004-05-15 devnull if (c == EOF)
137 5cedca1b 2004-05-15 devnull ERROR "end of file in %s %c %.20s... %c", s, delim, buf, delim FATAL;
138 5cedca1b 2004-05-15 devnull *p++ = c;
140 5cedca1b 2004-05-15 devnull *p = '\0';
141 5cedca1b 2004-05-15 devnull dprintf("delimstr %s %c <%s> %c\n", s, delim, buf, delim);
142 5cedca1b 2004-05-15 devnull return tostring(buf);
146 5cedca1b 2004-05-15 devnull baldelim(int c, char *s) /* replace c by balancing entry in s */
148 5cedca1b 2004-05-15 devnull for ( ; *s; s += 2)
149 5cedca1b 2004-05-15 devnull if (*s == c)
150 5cedca1b 2004-05-15 devnull return s[1];
151 5cedca1b 2004-05-15 devnull return c;
154 5cedca1b 2004-05-15 devnull void undefine(char *s) /* undefine macro */
156 5cedca1b 2004-05-15 devnull while (*s != ' ' && *s != '\t') /* skip "undef..." */
158 5cedca1b 2004-05-15 devnull while (*s == ' ' || *s == '\t')
160 5cedca1b 2004-05-15 devnull freedef(s);
164 5cedca1b 2004-05-15 devnull Arg args[10]; /* argument frames */
165 5cedca1b 2004-05-15 devnull Arg *argfp = args; /* frame pointer */
166 5cedca1b 2004-05-15 devnull int argcnt; /* number of arguments seen so far */
168 5cedca1b 2004-05-15 devnull void dodef(struct symtab *stp) /* collect args and switch input to defn */
170 5cedca1b 2004-05-15 devnull int i, len;
171 5cedca1b 2004-05-15 devnull char *p;
172 5cedca1b 2004-05-15 devnull Arg *ap;
174 5cedca1b 2004-05-15 devnull ap = argfp+1;
175 5cedca1b 2004-05-15 devnull if (ap >= args+10)
176 5cedca1b 2004-05-15 devnull ERROR "arguments too deep" FATAL;
177 5cedca1b 2004-05-15 devnull argcnt = 0;
178 5cedca1b 2004-05-15 devnull if (input() != '(')
179 5cedca1b 2004-05-15 devnull ERROR "disaster in dodef" FATAL;
180 5cedca1b 2004-05-15 devnull if (ap->argval == 0)
181 5cedca1b 2004-05-15 devnull ap->argval = malloc(1000);
182 5cedca1b 2004-05-15 devnull for (p = ap->argval; (len = getarg(p)) != -1; p += len) {
183 5cedca1b 2004-05-15 devnull ap->argstk[argcnt++] = p;
184 5cedca1b 2004-05-15 devnull if (input() == ')')
187 5cedca1b 2004-05-15 devnull for (i = argcnt; i < MAXARGS; i++)
188 5cedca1b 2004-05-15 devnull ap->argstk[i] = "";
189 5cedca1b 2004-05-15 devnull if (dbg)
190 5cedca1b 2004-05-15 devnull for (i = 0; i < argcnt; i++)
191 5f1cf8e6 2004-05-16 devnull printf("arg %d.%d = <%s>\n", (int) (ap-args), i+1, ap->argstk[i]);
192 5cedca1b 2004-05-15 devnull argfp = ap;
193 5cedca1b 2004-05-15 devnull pushsrc(Macro, stp->s_val.p);
197 5cedca1b 2004-05-15 devnull getarg(char *p) /* pick up single argument, store in p, return length */
199 5cedca1b 2004-05-15 devnull int n, c, npar;
201 5cedca1b 2004-05-15 devnull n = npar = 0;
202 5cedca1b 2004-05-15 devnull for ( ;; ) {
203 5cedca1b 2004-05-15 devnull c = input();
204 5cedca1b 2004-05-15 devnull if (c == EOF)
205 5cedca1b 2004-05-15 devnull ERROR "end of file in getarg" FATAL;
206 5cedca1b 2004-05-15 devnull if (npar == 0 && (c == ',' || c == ')'))
208 5cedca1b 2004-05-15 devnull if (c == '"') /* copy quoted stuff intact */
210 5cedca1b 2004-05-15 devnull *p++ = c;
212 5cedca1b 2004-05-15 devnull } while ((c = input()) != '"' && c != EOF);
213 5cedca1b 2004-05-15 devnull else if (c == '(')
215 5cedca1b 2004-05-15 devnull else if (c == ')')
218 5cedca1b 2004-05-15 devnull *p++ = c;
221 5cedca1b 2004-05-15 devnull unput(c);
222 5cedca1b 2004-05-15 devnull return(n + 1);
225 5cedca1b 2004-05-15 devnull #define PBSIZE 2000
226 5cedca1b 2004-05-15 devnull char pbuf[PBSIZE]; /* pushback buffer */
227 5cedca1b 2004-05-15 devnull char *pb = pbuf-1; /* next pushed back character */
229 5cedca1b 2004-05-15 devnull char ebuf[200]; /* collect input here for error reporting */
230 5cedca1b 2004-05-15 devnull char *ep = ebuf;
232 5cedca1b 2004-05-15 devnull int begin = 0;
233 5cedca1b 2004-05-15 devnull extern int thru;
234 5cedca1b 2004-05-15 devnull extern struct symtab *thrudef;
235 5cedca1b 2004-05-15 devnull extern char *untilstr;
238 5cedca1b 2004-05-15 devnull input(void)
240 5cedca1b 2004-05-15 devnull register int c;
242 5cedca1b 2004-05-15 devnull if (thru && begin) {
243 5cedca1b 2004-05-15 devnull do_thru();
244 5cedca1b 2004-05-15 devnull begin = 0;
246 5cedca1b 2004-05-15 devnull c = nextchar();
247 5cedca1b 2004-05-15 devnull if (dbg > 1)
248 5cedca1b 2004-05-15 devnull printf(" <%c>", c);
249 5cedca1b 2004-05-15 devnull if (ep >= ebuf + sizeof ebuf)
250 5cedca1b 2004-05-15 devnull ep = ebuf;
251 5cedca1b 2004-05-15 devnull return *ep++ = c;
255 5cedca1b 2004-05-15 devnull nextchar(void)
257 5cedca1b 2004-05-15 devnull register int c;
259 5f1cf8e6 2004-05-16 devnull c = 0; /* Botch: gcc */
262 5cedca1b 2004-05-15 devnull switch (srcp->type) {
263 5cedca1b 2004-05-15 devnull case Free: /* free string */
264 5cedca1b 2004-05-15 devnull free(srcp->sp);
265 5cedca1b 2004-05-15 devnull popsrc();
266 5cedca1b 2004-05-15 devnull goto loop;
267 5cedca1b 2004-05-15 devnull case Thru: /* end of pushed back line */
268 5cedca1b 2004-05-15 devnull begin = 1;
269 5cedca1b 2004-05-15 devnull popsrc();
270 5cedca1b 2004-05-15 devnull c = '\n';
272 5cedca1b 2004-05-15 devnull case Char:
273 5cedca1b 2004-05-15 devnull if (pb >= pbuf) {
274 5cedca1b 2004-05-15 devnull c = *pb--;
275 5cedca1b 2004-05-15 devnull popsrc();
277 5cedca1b 2004-05-15 devnull } else { /* can't happen? */
278 5cedca1b 2004-05-15 devnull popsrc();
279 5cedca1b 2004-05-15 devnull goto loop;
281 5cedca1b 2004-05-15 devnull case String:
282 5cedca1b 2004-05-15 devnull c = *srcp->sp++;
283 5cedca1b 2004-05-15 devnull if (c == '\0') {
284 5cedca1b 2004-05-15 devnull popsrc();
285 5cedca1b 2004-05-15 devnull goto loop;
286 5cedca1b 2004-05-15 devnull } else {
287 5cedca1b 2004-05-15 devnull if (*srcp->sp == '\0') /* empty, so pop */
288 5cedca1b 2004-05-15 devnull popsrc();
291 5cedca1b 2004-05-15 devnull case Macro:
292 5cedca1b 2004-05-15 devnull c = *srcp->sp++;
293 5cedca1b 2004-05-15 devnull if (c == '\0') {
294 5cedca1b 2004-05-15 devnull if (--argfp < args)
295 5cedca1b 2004-05-15 devnull ERROR "argfp underflow" FATAL;
296 5cedca1b 2004-05-15 devnull popsrc();
297 5cedca1b 2004-05-15 devnull goto loop;
298 5f1cf8e6 2004-05-16 devnull } else if (c == '$' && isdigit((unsigned char) *srcp->sp)) {
299 5cedca1b 2004-05-15 devnull int n = 0;
300 5f1cf8e6 2004-05-16 devnull while (isdigit((unsigned char) *srcp->sp))
301 5cedca1b 2004-05-15 devnull n = 10 * n + *srcp->sp++ - '0';
302 5cedca1b 2004-05-15 devnull if (n > 0 && n <= MAXARGS)
303 5cedca1b 2004-05-15 devnull pushsrc(String, argfp->argstk[n-1]);
304 5cedca1b 2004-05-15 devnull goto loop;
307 5cedca1b 2004-05-15 devnull case File:
308 5cedca1b 2004-05-15 devnull c = getc(curfile->fin);
309 5cedca1b 2004-05-15 devnull if (c == EOF) {
310 5cedca1b 2004-05-15 devnull if (curfile == infile)
311 5cedca1b 2004-05-15 devnull ERROR "end of file inside .PS/.PE" FATAL;
312 5cedca1b 2004-05-15 devnull if (curfile->fin != stdin) {
313 5cedca1b 2004-05-15 devnull fclose(curfile->fin);
314 5cedca1b 2004-05-15 devnull free(curfile->fname); /* assumes allocated */
316 5cedca1b 2004-05-15 devnull curfile--;
317 5cedca1b 2004-05-15 devnull printlf(curfile->lineno, curfile->fname);
318 5cedca1b 2004-05-15 devnull popsrc();
319 5cedca1b 2004-05-15 devnull thru = 0; /* chicken out */
320 5cedca1b 2004-05-15 devnull thrudef = 0;
321 5cedca1b 2004-05-15 devnull if (untilstr) {
322 5cedca1b 2004-05-15 devnull free(untilstr);
323 5cedca1b 2004-05-15 devnull untilstr = 0;
325 5cedca1b 2004-05-15 devnull goto loop;
327 5cedca1b 2004-05-15 devnull if (c == '\n')
328 5cedca1b 2004-05-15 devnull curfile->lineno++;
331 5cedca1b 2004-05-15 devnull return c;
334 5cedca1b 2004-05-15 devnull void do_thru(void) /* read one line, make into a macro expansion */
336 5cedca1b 2004-05-15 devnull int c, i;
337 5cedca1b 2004-05-15 devnull char *p;
338 5cedca1b 2004-05-15 devnull Arg *ap;
340 5cedca1b 2004-05-15 devnull ap = argfp+1;
341 5cedca1b 2004-05-15 devnull if (ap >= args+10)
342 5cedca1b 2004-05-15 devnull ERROR "arguments too deep" FATAL;
343 5cedca1b 2004-05-15 devnull if (ap->argval == NULL)
344 5cedca1b 2004-05-15 devnull ap->argval = malloc(1000);
345 5cedca1b 2004-05-15 devnull p = ap->argval;
346 5cedca1b 2004-05-15 devnull argcnt = 0;
347 5cedca1b 2004-05-15 devnull c = nextchar();
348 5cedca1b 2004-05-15 devnull if (thru == 0) { /* end of file was seen, so thru is done */
349 5cedca1b 2004-05-15 devnull unput(c);
352 5cedca1b 2004-05-15 devnull for ( ; c != '\n' && c != EOF; ) {
353 5cedca1b 2004-05-15 devnull if (c == ' ' || c == '\t') {
354 5cedca1b 2004-05-15 devnull c = nextchar();
355 5cedca1b 2004-05-15 devnull continue;
357 5cedca1b 2004-05-15 devnull ap->argstk[argcnt++] = p;
358 5cedca1b 2004-05-15 devnull if (c == '"') {
360 5cedca1b 2004-05-15 devnull *p++ = c;
361 5cedca1b 2004-05-15 devnull if ((c = nextchar()) == '\\') {
362 5cedca1b 2004-05-15 devnull *p++ = c;
363 5cedca1b 2004-05-15 devnull *p++ = nextchar();
364 5cedca1b 2004-05-15 devnull c = nextchar();
366 5cedca1b 2004-05-15 devnull } while (c != '"' && c != '\n' && c != EOF);
367 5cedca1b 2004-05-15 devnull *p++ = '"';
368 5cedca1b 2004-05-15 devnull if (c == '"')
369 5cedca1b 2004-05-15 devnull c = nextchar();
370 5cedca1b 2004-05-15 devnull } else {
372 5cedca1b 2004-05-15 devnull *p++ = c;
373 5cedca1b 2004-05-15 devnull } while ((c = nextchar())!=' ' && c!='\t' && c!='\n' && c!=',' && c!=EOF);
374 5cedca1b 2004-05-15 devnull if (c == ',')
375 5cedca1b 2004-05-15 devnull c = nextchar();
377 5cedca1b 2004-05-15 devnull *p++ = '\0';
379 5cedca1b 2004-05-15 devnull if (c == EOF)
380 5cedca1b 2004-05-15 devnull ERROR "unexpected end of file in do_thru" FATAL;
381 5cedca1b 2004-05-15 devnull if (argcnt == 0) { /* ignore blank line */
382 5cedca1b 2004-05-15 devnull pushsrc(Thru, (char *) 0);
385 5cedca1b 2004-05-15 devnull for (i = argcnt; i < MAXARGS; i++)
386 5cedca1b 2004-05-15 devnull ap->argstk[i] = "";
387 5cedca1b 2004-05-15 devnull if (dbg)
388 5cedca1b 2004-05-15 devnull for (i = 0; i < argcnt; i++)
389 5f1cf8e6 2004-05-16 devnull printf("arg %d.%d = <%s>\n", (int) (ap-args), i+1, ap->argstk[i]);
390 5cedca1b 2004-05-15 devnull if (strcmp(ap->argstk[0], ".PE") == 0) {
391 5cedca1b 2004-05-15 devnull thru = 0;
392 5cedca1b 2004-05-15 devnull thrudef = 0;
393 5cedca1b 2004-05-15 devnull pushsrc(String, "\n.PE\n");
396 5cedca1b 2004-05-15 devnull if (untilstr && strcmp(ap->argstk[0], untilstr) == 0) {
397 5cedca1b 2004-05-15 devnull thru = 0;
398 5cedca1b 2004-05-15 devnull thrudef = 0;
399 5cedca1b 2004-05-15 devnull free(untilstr);
400 5cedca1b 2004-05-15 devnull untilstr = 0;
403 5cedca1b 2004-05-15 devnull pushsrc(Thru, (char *) 0);
404 5cedca1b 2004-05-15 devnull dprintf("do_thru pushing back <%s>\n", thrudef->s_val.p);
405 5cedca1b 2004-05-15 devnull argfp = ap;
406 5cedca1b 2004-05-15 devnull pushsrc(Macro, thrudef->s_val.p);
410 5cedca1b 2004-05-15 devnull unput(int c)
412 5cedca1b 2004-05-15 devnull if (++pb >= pbuf + sizeof pbuf)
413 5cedca1b 2004-05-15 devnull ERROR "pushback overflow" FATAL;
414 5cedca1b 2004-05-15 devnull if (--ep < ebuf)
415 5cedca1b 2004-05-15 devnull ep = ebuf + sizeof(ebuf) - 1;
416 5cedca1b 2004-05-15 devnull *pb = c;
417 5cedca1b 2004-05-15 devnull pushsrc(Char, pb);
418 5cedca1b 2004-05-15 devnull return c;
421 5cedca1b 2004-05-15 devnull void pbstr(char *s)
423 5cedca1b 2004-05-15 devnull pushsrc(String, s);
426 5cedca1b 2004-05-15 devnull double errcheck(double x, char *s)
428 5cedca1b 2004-05-15 devnull if (errno == EDOM) {
429 5cedca1b 2004-05-15 devnull errno = 0;
430 5cedca1b 2004-05-15 devnull ERROR "%s argument out of domain", s WARNING;
431 5cedca1b 2004-05-15 devnull } else if (errno == ERANGE) {
432 5cedca1b 2004-05-15 devnull errno = 0;
433 5cedca1b 2004-05-15 devnull ERROR "%s result out of range", s WARNING;
435 5cedca1b 2004-05-15 devnull return x;
438 5cedca1b 2004-05-15 devnull char errbuf[200];
440 5cedca1b 2004-05-15 devnull void eprint(void);
442 5cedca1b 2004-05-15 devnull void yyerror(char *s)
444 5cedca1b 2004-05-15 devnull extern char *cmdname;
445 5cedca1b 2004-05-15 devnull int ern = errno; /* cause some libraries clobber it */
447 5cedca1b 2004-05-15 devnull if (synerr)
449 5cedca1b 2004-05-15 devnull fflush(stdout);
450 5cedca1b 2004-05-15 devnull fprintf(stderr, "%s: %s", cmdname, s);
451 5cedca1b 2004-05-15 devnull if (ern > 0) {
452 5cedca1b 2004-05-15 devnull errno = ern;
453 5cedca1b 2004-05-15 devnull perror("???");
455 5cedca1b 2004-05-15 devnull fprintf(stderr, " near %s:%d\n",
456 5cedca1b 2004-05-15 devnull curfile->fname, curfile->lineno+1);
457 5cedca1b 2004-05-15 devnull eprint();
458 5cedca1b 2004-05-15 devnull synerr = 1;
459 5cedca1b 2004-05-15 devnull errno = 0;
462 5cedca1b 2004-05-15 devnull void eprint(void) /* try to print context around error */
464 5cedca1b 2004-05-15 devnull char *p, *q;
466 5cedca1b 2004-05-15 devnull p = ep - 1;
467 5cedca1b 2004-05-15 devnull if (p > ebuf && *p == '\n')
469 5cedca1b 2004-05-15 devnull for ( ; p >= ebuf && *p != '\n'; p--)
471 5cedca1b 2004-05-15 devnull while (*p == '\n')
473 5cedca1b 2004-05-15 devnull fprintf(stderr, " context is\n\t");
474 5cedca1b 2004-05-15 devnull for (q=ep-1; q>=p && *q!=' ' && *q!='\t' && *q!='\n'; q--)
476 5cedca1b 2004-05-15 devnull while (p < q)
477 5cedca1b 2004-05-15 devnull putc(*p++, stderr);
478 5cedca1b 2004-05-15 devnull fprintf(stderr, " >>> ");
479 5cedca1b 2004-05-15 devnull while (p < ep)
480 5cedca1b 2004-05-15 devnull putc(*p++, stderr);
481 5cedca1b 2004-05-15 devnull fprintf(stderr, " <<< ");
482 5cedca1b 2004-05-15 devnull while (pb >= pbuf)
483 5cedca1b 2004-05-15 devnull putc(*pb--, stderr);
484 5cedca1b 2004-05-15 devnull fgets(ebuf, sizeof ebuf, curfile->fin);
485 5cedca1b 2004-05-15 devnull fprintf(stderr, "%s", ebuf);
486 5cedca1b 2004-05-15 devnull pbstr("\n.PE\n"); /* safety first */
487 5cedca1b 2004-05-15 devnull ep = ebuf;
490 5cedca1b 2004-05-15 devnull void yywrap(void) {}
492 5cedca1b 2004-05-15 devnull char *newfile = 0; /* filename for file copy */
493 5cedca1b 2004-05-15 devnull char *untilstr = 0; /* string that terminates a thru */
494 5cedca1b 2004-05-15 devnull int thru = 0; /* 1 if copying thru macro */
495 5cedca1b 2004-05-15 devnull struct symtab *thrudef = 0; /* macro being used */
497 5cedca1b 2004-05-15 devnull void copyfile(char *s) /* remember file to start reading from */
499 5cedca1b 2004-05-15 devnull newfile = s;
502 5cedca1b 2004-05-15 devnull void copydef(struct symtab *p) /* remember macro symtab ptr */
504 5cedca1b 2004-05-15 devnull thrudef = p;
507 5cedca1b 2004-05-15 devnull struct symtab *copythru(char *s) /* collect the macro name or body for thru */
509 5cedca1b 2004-05-15 devnull struct symtab *p;
510 5cedca1b 2004-05-15 devnull char *q, *addnewline(char *);
512 5cedca1b 2004-05-15 devnull p = lookup(s);
513 5cedca1b 2004-05-15 devnull if (p != NULL) {
514 5cedca1b 2004-05-15 devnull if (p->s_type == DEFNAME) {
515 5cedca1b 2004-05-15 devnull p->s_val.p = addnewline(p->s_val.p);
516 5cedca1b 2004-05-15 devnull return p;
518 5cedca1b 2004-05-15 devnull ERROR "%s used as define and name", s FATAL;
520 5cedca1b 2004-05-15 devnull /* have to collect the definition */
521 5cedca1b 2004-05-15 devnull pbstr(s); /* first char is the delimiter */
522 5cedca1b 2004-05-15 devnull q = delimstr("thru body");
523 5cedca1b 2004-05-15 devnull s = "nameless";
524 5cedca1b 2004-05-15 devnull p = lookup(s);
525 5cedca1b 2004-05-15 devnull if (p != NULL) {
526 5cedca1b 2004-05-15 devnull if (p->s_val.p)
527 5cedca1b 2004-05-15 devnull free(p->s_val.p);
528 5cedca1b 2004-05-15 devnull p->s_val.p = q;
529 5cedca1b 2004-05-15 devnull } else {
530 5cedca1b 2004-05-15 devnull YYSTYPE u;
531 5cedca1b 2004-05-15 devnull u.p = q;
532 5cedca1b 2004-05-15 devnull p = makevar(tostring(s), DEFNAME, u);
534 5cedca1b 2004-05-15 devnull p->s_val.p = addnewline(p->s_val.p);
535 5cedca1b 2004-05-15 devnull dprintf("installing %s as `%s'\n", s, p->s_val.p);
536 5cedca1b 2004-05-15 devnull return p;
539 5cedca1b 2004-05-15 devnull char *addnewline(char *p) /* add newline to end of p */
543 5cedca1b 2004-05-15 devnull n = strlen(p);
544 5cedca1b 2004-05-15 devnull if (p[n-1] != '\n') {
545 5cedca1b 2004-05-15 devnull p = realloc(p, n+2);
546 5cedca1b 2004-05-15 devnull p[n] = '\n';
547 5cedca1b 2004-05-15 devnull p[n+1] = '\0';
549 5cedca1b 2004-05-15 devnull return p;
552 5cedca1b 2004-05-15 devnull void copyuntil(char *s) /* string that terminates a thru */
554 5cedca1b 2004-05-15 devnull untilstr = s;
557 5cedca1b 2004-05-15 devnull void copy(void) /* begin input from file, etc. */
559 5cedca1b 2004-05-15 devnull FILE *fin;
561 5cedca1b 2004-05-15 devnull if (newfile) {
562 5cedca1b 2004-05-15 devnull if ((fin = fopen(newfile, "r")) == NULL)
563 5cedca1b 2004-05-15 devnull ERROR "can't open file %s", newfile FATAL;
564 5cedca1b 2004-05-15 devnull curfile++;
565 5cedca1b 2004-05-15 devnull curfile->fin = fin;
566 5cedca1b 2004-05-15 devnull curfile->fname = newfile;
567 5cedca1b 2004-05-15 devnull curfile->lineno = 0;
568 5cedca1b 2004-05-15 devnull printlf(1, curfile->fname);
569 5cedca1b 2004-05-15 devnull pushsrc(File, curfile->fname);
570 5cedca1b 2004-05-15 devnull newfile = 0;
572 5cedca1b 2004-05-15 devnull if (thrudef) {
573 5cedca1b 2004-05-15 devnull thru = 1;
574 5cedca1b 2004-05-15 devnull begin = 1; /* wrong place */
578 5cedca1b 2004-05-15 devnull char shellbuf[1000], *shellp;
580 5cedca1b 2004-05-15 devnull void shell_init(void) /* set up to interpret a shell command */
582 5cedca1b 2004-05-15 devnull sprintf(shellbuf, "rc -c '");
583 5cedca1b 2004-05-15 devnull shellp = shellbuf + strlen(shellbuf);
586 5cedca1b 2004-05-15 devnull void shell_text(char *s) /* add string to command being collected */
588 5f1cf8e6 2004-05-16 devnull while ((*shellp++ = *s++))
590 5cedca1b 2004-05-15 devnull shellp--;
593 5cedca1b 2004-05-15 devnull void shell_exec(void) /* do it */
595 5cedca1b 2004-05-15 devnull *shellp++ = '\'';
596 5cedca1b 2004-05-15 devnull *shellp = '\0';
597 5cedca1b 2004-05-15 devnull system(shellbuf);
