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