1 604ad4d8 2005-11-01 devnull #include <u.h>
2 5cedca1b 2004-05-15 devnull #include <stdio.h>
3 5cedca1b 2004-05-15 devnull #include <stdlib.h>
4 5cedca1b 2004-05-15 devnull #include <string.h>
5 5cedca1b 2004-05-15 devnull #include <ctype.h>
6 5cedca1b 2004-05-15 devnull #include <errno.h>
7 5cedca1b 2004-05-15 devnull #include "grap.h"
8 5cedca1b 2004-05-15 devnull #include "y.tab.h"
10 5cedca1b 2004-05-15 devnull Infile infile[10];
11 5cedca1b 2004-05-15 devnull Infile *curfile = infile;
13 5cedca1b 2004-05-15 devnull #define MAXSRC 50
14 5cedca1b 2004-05-15 devnull Src src[MAXSRC]; /* input source stack */
15 5cedca1b 2004-05-15 devnull Src *srcp = src;
17 5cedca1b 2004-05-15 devnull void pushsrc(int type, char *ptr) /* new input source */
19 5cedca1b 2004-05-15 devnull if (++srcp >= src + MAXSRC)
20 5cedca1b 2004-05-15 devnull ERROR "inputs nested too deep" FATAL;
21 5cedca1b 2004-05-15 devnull srcp->type = type;
22 5cedca1b 2004-05-15 devnull srcp->sp = ptr;
23 5cedca1b 2004-05-15 devnull if (dbg) {
24 98f7b73f 2005-12-29 devnull printf("\n%3ld ", (long)(srcp - src));
25 5cedca1b 2004-05-15 devnull switch (srcp->type) {
26 5cedca1b 2004-05-15 devnull case File:
27 3d5e34e1 2004-09-21 devnull printf("push file %s\n", ptr);
29 5cedca1b 2004-05-15 devnull case Macro:
30 5cedca1b 2004-05-15 devnull printf("push macro <%s>\n", ptr);
32 5cedca1b 2004-05-15 devnull case Char:
33 5cedca1b 2004-05-15 devnull printf("push char <%c>\n", *ptr);
35 5cedca1b 2004-05-15 devnull case Thru:
36 5cedca1b 2004-05-15 devnull printf("push thru\n");
38 5cedca1b 2004-05-15 devnull case String:
39 5cedca1b 2004-05-15 devnull printf("push string <%s>\n", ptr);
41 5cedca1b 2004-05-15 devnull case Free:
42 5cedca1b 2004-05-15 devnull printf("push free <%s>\n", ptr);
45 5cedca1b 2004-05-15 devnull ERROR "pushed bad type %d", srcp->type FATAL;
50 5cedca1b 2004-05-15 devnull void popsrc(void) /* restore an old one */
52 5cedca1b 2004-05-15 devnull if (srcp <= src)
53 5cedca1b 2004-05-15 devnull ERROR "too many inputs popped" FATAL;
54 5cedca1b 2004-05-15 devnull if (dbg) {
55 85f59538 2005-12-30 devnull printf("%3ld ", (long)(srcp - src));
56 5cedca1b 2004-05-15 devnull switch (srcp->type) {
57 5cedca1b 2004-05-15 devnull case File:
58 5cedca1b 2004-05-15 devnull printf("pop file\n");
60 5cedca1b 2004-05-15 devnull case Macro:
61 5cedca1b 2004-05-15 devnull printf("pop macro\n");
63 5cedca1b 2004-05-15 devnull case Char:
64 5cedca1b 2004-05-15 devnull printf("pop char <%c>\n", *srcp->sp);
66 5cedca1b 2004-05-15 devnull case Thru:
67 5cedca1b 2004-05-15 devnull printf("pop thru\n");
69 5cedca1b 2004-05-15 devnull case String:
70 5cedca1b 2004-05-15 devnull printf("pop string\n");
72 5cedca1b 2004-05-15 devnull case Free:
73 5cedca1b 2004-05-15 devnull printf("pop free\n");
76 5cedca1b 2004-05-15 devnull ERROR "pop weird input %d", srcp->type FATAL;
82 5cedca1b 2004-05-15 devnull void definition(char *s) /* collect definition for s and install */
83 5cedca1b 2004-05-15 devnull /* definitions picked up lexically */
86 5cedca1b 2004-05-15 devnull Obj *stp;
88 5cedca1b 2004-05-15 devnull p = delimstr("definition");
89 5cedca1b 2004-05-15 devnull stp = lookup(s, 0);
90 5cedca1b 2004-05-15 devnull if (stp != NULL) { /* it's there before */
91 5cedca1b 2004-05-15 devnull if (stp->type != DEFNAME) {
92 5cedca1b 2004-05-15 devnull ERROR "%s used as variable and definition", s WARNING;
95 5cedca1b 2004-05-15 devnull free(stp->val);
97 5cedca1b 2004-05-15 devnull stp = lookup(s, 1);
98 5cedca1b 2004-05-15 devnull stp->type = DEFNAME;
100 5cedca1b 2004-05-15 devnull stp->val = p;
101 5cedca1b 2004-05-15 devnull dprintf("installing %s as `%s'\n", s, p);
104 5cedca1b 2004-05-15 devnull char *delimstr(char *s) /* get body of X ... X */
105 5cedca1b 2004-05-15 devnull /* message if too big */
107 5cedca1b 2004-05-15 devnull int c, delim, rdelim, n, deep;
108 5cedca1b 2004-05-15 devnull static char *buf = NULL;
109 5cedca1b 2004-05-15 devnull static int nbuf = 0;
110 5cedca1b 2004-05-15 devnull char *p;
112 5cedca1b 2004-05-15 devnull if (buf == NULL)
113 5cedca1b 2004-05-15 devnull buf = grow(buf, "buf", nbuf += 1000, sizeof(buf[0]));
114 5cedca1b 2004-05-15 devnull while ((delim = input()) == ' ' || delim == '\t' || delim == '\n')
116 5cedca1b 2004-05-15 devnull rdelim = baldelim(delim, "{}"); /* could be "(){}[]`'" */
117 5cedca1b 2004-05-15 devnull deep = 1;
118 5cedca1b 2004-05-15 devnull for (p = buf; ; ) {
119 5cedca1b 2004-05-15 devnull c = input();
120 5cedca1b 2004-05-15 devnull if (c == rdelim)
121 5cedca1b 2004-05-15 devnull if (--deep == 0)
123 5cedca1b 2004-05-15 devnull if (c == delim)
125 5cedca1b 2004-05-15 devnull if (p >= buf + nbuf) {
126 5cedca1b 2004-05-15 devnull n = p - buf;
127 5cedca1b 2004-05-15 devnull buf = grow(buf, "buf", nbuf += 1000, sizeof(buf[0]));
128 5cedca1b 2004-05-15 devnull p = buf + n;
130 5cedca1b 2004-05-15 devnull if (c == EOF)
131 5cedca1b 2004-05-15 devnull ERROR "end of file in %s %c %.20s... %c", s, delim, buf, delim FATAL;
132 5cedca1b 2004-05-15 devnull *p++ = c;
134 5cedca1b 2004-05-15 devnull *p = '\0';
135 5cedca1b 2004-05-15 devnull dprintf("delimstr %s %c <%s> %c\n", s, delim, buf, delim);
136 5cedca1b 2004-05-15 devnull return tostring(buf);
140 5cedca1b 2004-05-15 devnull baldelim(int c, char *s) /* replace c by balancing entry in s */
142 5cedca1b 2004-05-15 devnull for ( ; *s; s += 2)
143 5cedca1b 2004-05-15 devnull if (*s == c)
144 5cedca1b 2004-05-15 devnull return s[1];
145 5cedca1b 2004-05-15 devnull return c;
148 5cedca1b 2004-05-15 devnull Arg args[10]; /* argument frames */
149 5cedca1b 2004-05-15 devnull Arg *argfp = args; /* frame pointer */
150 5cedca1b 2004-05-15 devnull int argcnt; /* number of arguments seen so far */
152 5cedca1b 2004-05-15 devnull void dodef(Obj *stp) /* collect args and switch input to defn */
154 5cedca1b 2004-05-15 devnull int i, len;
155 5cedca1b 2004-05-15 devnull char *p;
156 5cedca1b 2004-05-15 devnull Arg *ap;
158 5cedca1b 2004-05-15 devnull ap = argfp+1;
159 5cedca1b 2004-05-15 devnull if (ap >= args+10)
160 5cedca1b 2004-05-15 devnull ERROR "arguments too deep" FATAL;
161 5cedca1b 2004-05-15 devnull argcnt = 0;
162 5cedca1b 2004-05-15 devnull if (input() != '(')
163 5cedca1b 2004-05-15 devnull ERROR "disaster in dodef" FATAL;
164 5cedca1b 2004-05-15 devnull if (ap->argval == 0)
165 5cedca1b 2004-05-15 devnull ap->argval = malloc(1000);
166 5cedca1b 2004-05-15 devnull for (p = ap->argval; (len = getarg(p)) != -1; p += len) {
167 5cedca1b 2004-05-15 devnull ap->argstk[argcnt++] = p;
168 5cedca1b 2004-05-15 devnull if (input() == ')')
171 5cedca1b 2004-05-15 devnull for (i = argcnt; i < MAXARGS; i++)
172 5cedca1b 2004-05-15 devnull ap->argstk[i] = "";
173 5cedca1b 2004-05-15 devnull if (dbg)
174 5cedca1b 2004-05-15 devnull for (i = 0; i < argcnt; i++)
175 98f7b73f 2005-12-29 devnull printf("arg %ld.%d = <%s>\n", (long)(ap-args), i+1, ap->argstk[i]);
176 5cedca1b 2004-05-15 devnull argfp = ap;
177 5cedca1b 2004-05-15 devnull pushsrc(Macro, stp->val);
181 5cedca1b 2004-05-15 devnull getarg(char *p) /* pick up single argument, store in p, return length */
183 5cedca1b 2004-05-15 devnull int n, c, npar;
185 5cedca1b 2004-05-15 devnull n = npar = 0;
186 5cedca1b 2004-05-15 devnull for ( ;; ) {
187 5cedca1b 2004-05-15 devnull c = input();
188 5cedca1b 2004-05-15 devnull if (c == EOF)
189 5cedca1b 2004-05-15 devnull ERROR "end of file in getarg!" FATAL;
190 5cedca1b 2004-05-15 devnull if (npar == 0 && (c == ',' || c == ')'))
192 5cedca1b 2004-05-15 devnull if (c == '"') /* copy quoted stuff intact */
194 5cedca1b 2004-05-15 devnull *p++ = c;
196 5cedca1b 2004-05-15 devnull } while ((c = input()) != '"' && c != EOF);
197 5cedca1b 2004-05-15 devnull else if (c == '(')
199 5cedca1b 2004-05-15 devnull else if (c == ')')
202 5cedca1b 2004-05-15 devnull *p++ = c;
205 5cedca1b 2004-05-15 devnull unput(c);
206 5cedca1b 2004-05-15 devnull return(n + 1);
209 5cedca1b 2004-05-15 devnull #define PBSIZE 2000
210 5cedca1b 2004-05-15 devnull char pbuf[PBSIZE]; /* pushback buffer */
211 5cedca1b 2004-05-15 devnull char *pb = pbuf-1; /* next pushed back character */
213 5cedca1b 2004-05-15 devnull char ebuf[200]; /* collect input here for error reporting */
214 5cedca1b 2004-05-15 devnull char *ep = ebuf;
216 5cedca1b 2004-05-15 devnull int begin = 0;
217 5cedca1b 2004-05-15 devnull extern int thru;
218 5cedca1b 2004-05-15 devnull extern Obj *thrudef;
219 5cedca1b 2004-05-15 devnull extern char *untilstr;
222 5cedca1b 2004-05-15 devnull input(void)
224 5cedca1b 2004-05-15 devnull register int c;
226 5cedca1b 2004-05-15 devnull if (thru && begin) {
227 5cedca1b 2004-05-15 devnull do_thru();
228 5cedca1b 2004-05-15 devnull begin = 0;
230 5cedca1b 2004-05-15 devnull c = nextchar();
231 5cedca1b 2004-05-15 devnull dprintf(" <%c>", c);
232 5cedca1b 2004-05-15 devnull if (ep >= ebuf + sizeof ebuf)
233 5cedca1b 2004-05-15 devnull ep = ebuf;
234 5cedca1b 2004-05-15 devnull return *ep++ = c;
238 5cedca1b 2004-05-15 devnull nextchar(void)
240 5cedca1b 2004-05-15 devnull register int c;
242 b237df90 2004-05-16 devnull c = 0; /* gcc */
245 5cedca1b 2004-05-15 devnull switch (srcp->type) {
246 5cedca1b 2004-05-15 devnull case Free: /* free string */
247 5cedca1b 2004-05-15 devnull free(srcp->sp);
248 5cedca1b 2004-05-15 devnull popsrc();
249 5cedca1b 2004-05-15 devnull goto loop;
250 5cedca1b 2004-05-15 devnull case Thru: /* end of pushed back line */
251 5cedca1b 2004-05-15 devnull begin = 1;
252 5cedca1b 2004-05-15 devnull popsrc();
253 5cedca1b 2004-05-15 devnull c = '\n';
255 5cedca1b 2004-05-15 devnull case Char:
256 5cedca1b 2004-05-15 devnull if (pb >= pbuf) {
257 5cedca1b 2004-05-15 devnull c = *pb--;
258 5cedca1b 2004-05-15 devnull popsrc();
260 5cedca1b 2004-05-15 devnull } else { /* can't happen? */
261 5cedca1b 2004-05-15 devnull popsrc();
262 5cedca1b 2004-05-15 devnull goto loop;
264 5cedca1b 2004-05-15 devnull case String:
265 5cedca1b 2004-05-15 devnull c = *srcp->sp++;
266 5cedca1b 2004-05-15 devnull if (c == '\0') {
267 5cedca1b 2004-05-15 devnull popsrc();
268 5cedca1b 2004-05-15 devnull goto loop;
269 5cedca1b 2004-05-15 devnull } else {
270 5cedca1b 2004-05-15 devnull if (*srcp->sp == '\0') /* empty, so pop */
271 5cedca1b 2004-05-15 devnull popsrc();
274 5cedca1b 2004-05-15 devnull case Macro:
275 5cedca1b 2004-05-15 devnull c = *srcp->sp++;
276 5cedca1b 2004-05-15 devnull if (c == '\0') {
277 5cedca1b 2004-05-15 devnull if (--argfp < args)
278 5cedca1b 2004-05-15 devnull ERROR "argfp underflow" FATAL;
279 5cedca1b 2004-05-15 devnull popsrc();
280 5cedca1b 2004-05-15 devnull goto loop;
281 74374cc8 2005-10-31 devnull } else if (c == '$' && isdigit((uchar)*srcp->sp)) { /* $3 */
282 5cedca1b 2004-05-15 devnull int n = 0;
283 74374cc8 2005-10-31 devnull while (isdigit((uchar)*srcp->sp))
284 5cedca1b 2004-05-15 devnull n = 10 * n + *srcp->sp++ - '0';
285 5cedca1b 2004-05-15 devnull if (n > 0 && n <= MAXARGS)
286 5cedca1b 2004-05-15 devnull pushsrc(String, argfp->argstk[n-1]);
287 5cedca1b 2004-05-15 devnull goto loop;
290 5cedca1b 2004-05-15 devnull case File:
291 5cedca1b 2004-05-15 devnull c = getc(curfile->fin);
292 5cedca1b 2004-05-15 devnull if (c == EOF) {
293 5cedca1b 2004-05-15 devnull if (curfile == infile)
294 5cedca1b 2004-05-15 devnull ERROR "end of file inside .G1/.G2" FATAL;
295 5cedca1b 2004-05-15 devnull if (curfile->fin != stdin) {
296 5cedca1b 2004-05-15 devnull fclose(curfile->fin);
297 5cedca1b 2004-05-15 devnull free(curfile->fname); /* assumes allocated */
299 5cedca1b 2004-05-15 devnull curfile--;
300 5cedca1b 2004-05-15 devnull printf(".lf %d %s\n", curfile->lineno, curfile->fname);
301 5cedca1b 2004-05-15 devnull popsrc();
302 5cedca1b 2004-05-15 devnull thru = 0; /* chicken out */
303 5cedca1b 2004-05-15 devnull thrudef = 0;
304 5cedca1b 2004-05-15 devnull if (untilstr) {
305 5cedca1b 2004-05-15 devnull free(untilstr);
306 5cedca1b 2004-05-15 devnull untilstr = 0;
308 5cedca1b 2004-05-15 devnull goto loop;
310 5cedca1b 2004-05-15 devnull if (c == '\n')
311 5cedca1b 2004-05-15 devnull curfile->lineno++;
314 5cedca1b 2004-05-15 devnull return c;
317 5cedca1b 2004-05-15 devnull void do_thru(void) /* read one line, make into a macro expansion */
319 5cedca1b 2004-05-15 devnull int c, i;
320 5cedca1b 2004-05-15 devnull char *p;
321 5cedca1b 2004-05-15 devnull Arg *ap;
323 5cedca1b 2004-05-15 devnull ap = argfp+1;
324 5cedca1b 2004-05-15 devnull if (ap >= args+10)
325 5cedca1b 2004-05-15 devnull ERROR "arguments too deep" FATAL;
326 5cedca1b 2004-05-15 devnull if (ap->argval == NULL)
327 5cedca1b 2004-05-15 devnull ap->argval = malloc(1000);
328 5cedca1b 2004-05-15 devnull p = ap->argval;
329 5cedca1b 2004-05-15 devnull argcnt = 0;
330 5cedca1b 2004-05-15 devnull c = nextchar();
331 5cedca1b 2004-05-15 devnull if (thru == 0) { /* end of file was seen, so thru is done */
332 5cedca1b 2004-05-15 devnull unput(c);
335 5cedca1b 2004-05-15 devnull for ( ; c != '\n' && c != EOF; ) {
336 5cedca1b 2004-05-15 devnull if (c == ' ' || c == '\t') {
337 5cedca1b 2004-05-15 devnull c = nextchar();
338 5cedca1b 2004-05-15 devnull continue;
340 5cedca1b 2004-05-15 devnull if (argcnt >= MAXARGS)
341 5cedca1b 2004-05-15 devnull ERROR "too many fields on input line" FATAL;
342 5cedca1b 2004-05-15 devnull ap->argstk[argcnt++] = p;
343 5cedca1b 2004-05-15 devnull if (c == '"') {
345 5cedca1b 2004-05-15 devnull *p++ = c;
346 5cedca1b 2004-05-15 devnull if ((c = nextchar()) == '\\') {
347 5cedca1b 2004-05-15 devnull *p++ = c;
348 5cedca1b 2004-05-15 devnull *p++ = nextchar();
349 5cedca1b 2004-05-15 devnull c = nextchar();
351 5cedca1b 2004-05-15 devnull } while (c != '"' && c != '\n' && c != EOF);
352 5cedca1b 2004-05-15 devnull *p++ = '"';
353 5cedca1b 2004-05-15 devnull if (c == '"')
354 5cedca1b 2004-05-15 devnull c = nextchar();
355 5cedca1b 2004-05-15 devnull } else {
357 5cedca1b 2004-05-15 devnull *p++ = c;
358 5cedca1b 2004-05-15 devnull } while ((c = nextchar())!=' ' && c!='\t' && c!='\n' && c!=',' && c!=EOF);
359 5cedca1b 2004-05-15 devnull if (c == ',')
360 5cedca1b 2004-05-15 devnull c = nextchar();
362 5cedca1b 2004-05-15 devnull *p++ = '\0';
364 5cedca1b 2004-05-15 devnull if (c == EOF)
365 5cedca1b 2004-05-15 devnull ERROR "unexpected end of file in do_thru" FATAL;
366 5cedca1b 2004-05-15 devnull if (argcnt == 0) { /* ignore blank line */
367 5cedca1b 2004-05-15 devnull pushsrc(Thru, (char *) 0);
370 5cedca1b 2004-05-15 devnull for (i = argcnt; i < MAXARGS; i++)
371 5cedca1b 2004-05-15 devnull ap->argstk[i] = "";
372 5cedca1b 2004-05-15 devnull if (dbg)
373 5cedca1b 2004-05-15 devnull for (i = 0; i < argcnt; i++)
374 98f7b73f 2005-12-29 devnull printf("arg %ld.%d = <%s>\n", (long)(ap-args), i+1, ap->argstk[i]);
375 5cedca1b 2004-05-15 devnull if (strcmp(ap->argstk[0], ".G2") == 0) {
376 5cedca1b 2004-05-15 devnull thru = 0;
377 5cedca1b 2004-05-15 devnull thrudef = 0;
378 5cedca1b 2004-05-15 devnull pushsrc(String, "\n.G2\n");
381 5cedca1b 2004-05-15 devnull if (untilstr && strcmp(ap->argstk[0], untilstr) == 0) {
382 5cedca1b 2004-05-15 devnull thru = 0;
383 5cedca1b 2004-05-15 devnull thrudef = 0;
384 5cedca1b 2004-05-15 devnull free(untilstr);
385 5cedca1b 2004-05-15 devnull untilstr = 0;
388 5cedca1b 2004-05-15 devnull pushsrc(Thru, (char *) 0);
389 5cedca1b 2004-05-15 devnull dprintf("do_thru pushing back <%s>\n", thrudef->val);
390 5cedca1b 2004-05-15 devnull argfp = ap;
391 5cedca1b 2004-05-15 devnull pushsrc(Macro, thrudef->val);
395 5cedca1b 2004-05-15 devnull unput(int c)
397 5cedca1b 2004-05-15 devnull if (++pb >= pbuf + sizeof pbuf)
398 5cedca1b 2004-05-15 devnull ERROR "pushback overflow" FATAL;
399 5cedca1b 2004-05-15 devnull if (--ep < ebuf)
400 5cedca1b 2004-05-15 devnull ep = ebuf + sizeof(ebuf) - 1;
401 5cedca1b 2004-05-15 devnull *pb = c;
402 5cedca1b 2004-05-15 devnull pushsrc(Char, pb);
403 5cedca1b 2004-05-15 devnull return c;
406 5cedca1b 2004-05-15 devnull void pbstr(char *s)
408 5cedca1b 2004-05-15 devnull pushsrc(String, s);
411 5cedca1b 2004-05-15 devnull double errcheck(double x, char *s)
413 5cedca1b 2004-05-15 devnull if (errno == EDOM) {
414 5cedca1b 2004-05-15 devnull errno = 0;
415 5cedca1b 2004-05-15 devnull ERROR "%s argument out of domain", s WARNING;
416 5cedca1b 2004-05-15 devnull } else if (errno == ERANGE) {
417 5cedca1b 2004-05-15 devnull errno = 0;
418 5cedca1b 2004-05-15 devnull ERROR "%s result out of range", s WARNING;
420 5cedca1b 2004-05-15 devnull return x;
423 5cedca1b 2004-05-15 devnull char errbuf[200];
425 5cedca1b 2004-05-15 devnull void yyerror(char *s)
427 5cedca1b 2004-05-15 devnull extern char *cmdname;
428 5cedca1b 2004-05-15 devnull int ern = errno; /* cause some libraries clobber it */
430 5cedca1b 2004-05-15 devnull if (synerr)
432 5cedca1b 2004-05-15 devnull fflush(stdout);
433 5cedca1b 2004-05-15 devnull fprintf(stderr, "%s: %s", cmdname, s);
434 5cedca1b 2004-05-15 devnull if (ern > 0) {
435 5cedca1b 2004-05-15 devnull errno = ern;
436 5cedca1b 2004-05-15 devnull perror("???");
438 5cedca1b 2004-05-15 devnull fprintf(stderr, " near %s:%d\n",
439 5cedca1b 2004-05-15 devnull curfile->fname, curfile->lineno+1);
440 5cedca1b 2004-05-15 devnull eprint();
441 5cedca1b 2004-05-15 devnull synerr = 1;
442 5cedca1b 2004-05-15 devnull errno = 0;
445 5cedca1b 2004-05-15 devnull void eprint(void) /* try to print context around error */
447 5cedca1b 2004-05-15 devnull char *p, *q;
449 5cedca1b 2004-05-15 devnull p = ep - 1;
450 5cedca1b 2004-05-15 devnull if (p > ebuf && *p == '\n')
452 5cedca1b 2004-05-15 devnull for ( ; p >= ebuf && *p != '\n'; p--)
454 5cedca1b 2004-05-15 devnull while (*p == '\n')
456 5cedca1b 2004-05-15 devnull fprintf(stderr, " context is\n\t");
457 5cedca1b 2004-05-15 devnull for (q=ep-1; q>=p && *q!=' ' && *q!='\t' && *q!='\n'; q--)
459 5cedca1b 2004-05-15 devnull for (; p < q; p++)
460 74374cc8 2005-10-31 devnull if (isprint((uchar)*p))
461 5cedca1b 2004-05-15 devnull putc(*p, stderr);
462 5cedca1b 2004-05-15 devnull fprintf(stderr, " >>> ");
463 c5a183de 2007-10-29 rsc for (; p < ep; p++)
464 74374cc8 2005-10-31 devnull if (isprint((uchar)*p))
465 5cedca1b 2004-05-15 devnull putc(*p, stderr);
466 5cedca1b 2004-05-15 devnull fprintf(stderr, " <<< ");
467 5cedca1b 2004-05-15 devnull while (pb >= pbuf)
468 5cedca1b 2004-05-15 devnull putc(*pb--, stderr);
469 5cedca1b 2004-05-15 devnull fgets(ebuf, sizeof ebuf, curfile->fin);
470 5cedca1b 2004-05-15 devnull fprintf(stderr, "%s", ebuf);
471 5cedca1b 2004-05-15 devnull pbstr("\n.G2\n"); /* safety first */
472 5cedca1b 2004-05-15 devnull ep = ebuf;
475 5cedca1b 2004-05-15 devnull int yywrap(void) {return 1;}
477 5cedca1b 2004-05-15 devnull char *newfile = 0; /* filename for file copy */
478 5cedca1b 2004-05-15 devnull char *untilstr = 0; /* string that terminates a thru */
479 5cedca1b 2004-05-15 devnull int thru = 0; /* 1 if copying thru macro */
480 5cedca1b 2004-05-15 devnull Obj *thrudef = 0; /* macro being used */
482 5cedca1b 2004-05-15 devnull void copyfile(char *s) /* remember file to start reading from */
484 5cedca1b 2004-05-15 devnull newfile = s;
487 5cedca1b 2004-05-15 devnull void copydef(Obj *p) /* remember macro Obj */
489 5cedca1b 2004-05-15 devnull thrudef = p;
492 5cedca1b 2004-05-15 devnull Obj *copythru(char *s) /* collect the macro name or body for thru */
495 5cedca1b 2004-05-15 devnull char *q;
497 5cedca1b 2004-05-15 devnull p = lookup(s, 0);
498 5cedca1b 2004-05-15 devnull if (p != NULL) {
499 5cedca1b 2004-05-15 devnull if (p->type == DEFNAME) {
500 5cedca1b 2004-05-15 devnull p->val = addnewline(p->val);
501 5cedca1b 2004-05-15 devnull return p;
503 5cedca1b 2004-05-15 devnull ERROR "%s used as define and name", s FATAL;
505 5cedca1b 2004-05-15 devnull /* have to collect the definition */
506 5cedca1b 2004-05-15 devnull pbstr(s); /* first char is the delimiter */
507 5cedca1b 2004-05-15 devnull q = delimstr("thru body");
508 5cedca1b 2004-05-15 devnull p = lookup("nameless", 1);
509 5cedca1b 2004-05-15 devnull if (p != NULL)
510 5cedca1b 2004-05-15 devnull if (p->val)
511 5cedca1b 2004-05-15 devnull free(p->val);
512 5cedca1b 2004-05-15 devnull p->type = DEFNAME;
513 5cedca1b 2004-05-15 devnull p->val = q;
514 5cedca1b 2004-05-15 devnull p->val = addnewline(p->val);
515 5cedca1b 2004-05-15 devnull dprintf("installing nameless as `%s'\n", p->val);
516 5cedca1b 2004-05-15 devnull return p;
519 5cedca1b 2004-05-15 devnull char *addnewline(char *p) /* add newline to end of p */
523 5cedca1b 2004-05-15 devnull n = strlen(p);
524 5cedca1b 2004-05-15 devnull if (p[n-1] != '\n') {
525 5cedca1b 2004-05-15 devnull p = realloc(p, n+2);
526 5cedca1b 2004-05-15 devnull p[n] = '\n';
527 5cedca1b 2004-05-15 devnull p[n+1] = '\0';
529 5cedca1b 2004-05-15 devnull return p;
532 5cedca1b 2004-05-15 devnull void copyuntil(char *s) /* string that terminates a thru */
534 5cedca1b 2004-05-15 devnull untilstr = s;
537 5cedca1b 2004-05-15 devnull void copy(void) /* begin input from file, etc. */
539 5cedca1b 2004-05-15 devnull FILE *fin;
541 5cedca1b 2004-05-15 devnull if (newfile) {
542 18b08117 2004-08-17 devnull if ((fin = fopen(newfile, "r")) == NULL)
543 5cedca1b 2004-05-15 devnull ERROR "can't open file %s", newfile FATAL;
544 5cedca1b 2004-05-15 devnull curfile++;
545 5cedca1b 2004-05-15 devnull curfile->fin = fin;
546 5cedca1b 2004-05-15 devnull curfile->fname = tostring(newfile);
547 5cedca1b 2004-05-15 devnull curfile->lineno = 0;
548 5cedca1b 2004-05-15 devnull printf(".lf 1 %s\n", curfile->fname);
549 5cedca1b 2004-05-15 devnull pushsrc(File, curfile->fname);
550 5cedca1b 2004-05-15 devnull newfile = 0;
552 5cedca1b 2004-05-15 devnull if (thrudef) {
553 5cedca1b 2004-05-15 devnull thru = 1;
554 5cedca1b 2004-05-15 devnull begin = 1; /* wrong place */
558 5cedca1b 2004-05-15 devnull char shellbuf[1000], *shellp;
560 5cedca1b 2004-05-15 devnull void shell_init(void) /* set up to interpret a shell command */
562 5cedca1b 2004-05-15 devnull fprintf(tfd, "# shell cmd...\n");
563 5cedca1b 2004-05-15 devnull sprintf(shellbuf, "rc -c '");
564 5cedca1b 2004-05-15 devnull shellp = shellbuf + strlen(shellbuf);
567 5cedca1b 2004-05-15 devnull void shell_text(char *s) /* add string to command being collected */
569 5cedca1b 2004-05-15 devnull /* fprintf(tfd, "#add <%s> to <%s>\n", s, shellbuf); */
570 5cedca1b 2004-05-15 devnull while (*s) {
571 5cedca1b 2004-05-15 devnull if (*s == '\'') { /* protect interior quotes */
572 5cedca1b 2004-05-15 devnull *shellp++ = '\'';
573 5cedca1b 2004-05-15 devnull *shellp++ = '\\';
574 5cedca1b 2004-05-15 devnull *shellp++ = '\'';
576 5cedca1b 2004-05-15 devnull *shellp++ = *s++;
580 5cedca1b 2004-05-15 devnull void shell_exec(void) /* do it */
582 5cedca1b 2004-05-15 devnull /* fprintf(tfd, "# run <%s>\n", shellbuf); */
583 5cedca1b 2004-05-15 devnull *shellp++ = '\'';
584 5cedca1b 2004-05-15 devnull *shellp = '\0';
585 5cedca1b 2004-05-15 devnull system(shellbuf);