![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to lib.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / prefer / prefawk|
Return to lib.c CVS log | Up to [Research Unix] / researchv10no / cmd / prefer / prefawk |
1.1 root 1: #define DEBUG
2: #include <stdio.h>
3: #include <ctype.h>
4: #include <errno.h>
5: #include "awk.h"
6: #include "y.tab.h"
7:
8: #define getfval(p) (((p)->tval & (ARR|FLD|REC|NUM)) == NUM ? (p)->fval : r_getfval(p))
9: #define getsval(p) (((p)->tval & (ARR|FLD|REC|STR)) == STR ? (p)->sval : r_getsval(p))
10:
11: extern Awkfloat r_getfval();
12: extern uchar *r_getsval();
13:
14: FILE *infile = NULL;
15: uchar *file = (uchar*) "";
16: uchar recdata[RECSIZE];
17: uchar *record = recdata;
18: uchar fields[RECSIZE];
19:
20: #define MAXFLD 100
21: int donefld; /* 1 = implies rec broken into fields */
22: int donerec; /* 1 = record is valid (no flds have changed) */
23:
24: #define FINIT { OCELL, CFLD, NULL, (uchar*) "", 0.0, FLD|STR|DONTFREE }
25:
26: Cell fldtab[MAXFLD] = { /* room for fields */
27: { OCELL, CFLD, (uchar*) "$0", recdata, 0.0, REC|STR|DONTFREE},
28: FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT,
29: FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT,
30: FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT,
31: FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT,
32: FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT,
33: FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT,
34: FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT,
35: FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT,
36: FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT,
37: FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT,
38: };
39: int maxfld = 0; /* last used field */
40: int argno = 1; /* current input argument number */
41:
42: initgetrec()
43: {
44: infile = stdin;
45: *FILENAME = file = (uchar*) "-";
46: }
47:
48: getrec(buf)
49: uchar *buf;
50: {
51: uchar *getargv();
52: int c;
53: extern Awkfloat *ARGC;
54:
55: dprintf("RS=<%s>, FS=<%s>\n", *RS, *FS);
56: donefld = 0;
57: donerec = 1;
58: buf[0] = 0;
59: while (argno < *ARGC || infile == stdin) {
60: dprintf("argno=%d, file=|%s|\n", argno, file);
61: if (infile == NULL) { /* have to open a new file */
62: file = getargv(argno);
63: if (*file == '\0') { /* it's been zapped */
64: argno++;
65: continue;
66: }
67: if (isclvar(file)) { /* a var=value arg */
68: setclvar(file);
69: argno++;
70: continue;
71: }
72: *FILENAME = file;
73: dprintf("opening file %s\n", file);
74: if (*file == '-' && *(file+1) == '\0')
75: infile = stdin;
76: else if ((infile = fopen(file, "r")) == NULL)
77: error(FATAL, "can't open %s", file);
78: setfval(fnrloc, 0.0);
79: }
80: c = readrec(buf, RECSIZE, infile);
81: if (c != 0 || buf[0] != '\0') { /* normal record */
82: if (buf == record) {
83: if (!(recloc->tval & DONTFREE))
84: xfree(recloc->sval);
85: recloc->sval = record;
86: recloc->tval = REC | STR | DONTFREE;
87: if (isnumber(recloc->sval)) {
88: recloc->fval = atof(recloc->sval);
89: recloc->tval |= NUM;
90: }
91: }
92: setfval(nrloc, nrloc->fval+1);
93: setfval(fnrloc, fnrloc->fval+1);
94: return 1;
95: }
96: /* EOF arrived on this file; set up next */
97: if (infile != stdin)
98: fclose(infile);
99: infile = NULL;
100: argno++;
101: }
102: return 0; /* true end of file */
103: }
104:
105: readrec(buf, bufsize, inf) /* read one record into buf */
106: uchar *buf;
107: int bufsize;
108: FILE *inf;
109: {
110: register int sep, c;
111: register uchar *rr;
112:
113: if ((sep = **RS) == 0) {
114: sep = '\n';
115: while ((c=getc(inf)) == '\n' && c != EOF) /* skip leading \n's */
116: ;
117: if (c != EOF)
118: ungetc(c, inf);
119: }
120: for (rr = buf; ; ) {
121: for (; (c=getc(inf)) != sep && c != EOF; *rr++ = c)
122: ;
123: if (**RS == sep || c == EOF)
124: break;
125: if ((c = getc(inf)) == '\n' || c == EOF) /* 2 in a row */
126: break;
127: *rr++ = '\n';
128: *rr++ = c;
129: }
130: if (rr > buf + bufsize)
131: error(FATAL, "input record `%.20s...' too long", buf);
132: *rr = 0;
133: dprintf("readrec saw <%s>, returns %d\n", buf, c == EOF && rr == buf ? 0 : 1);
134: return c == EOF && rr == buf ? 0 : 1;
135: }
136:
137: uchar *getargv(n) /* get ARGV[n] */
138: int n;
139: {
140: Cell *x;
141: uchar *s, temp[10];
142: extern Array *ARGVtab;
143:
144: sprintf(temp, "%d", n);
145: x = setsymtab(temp, "", 0.0, STR, ARGVtab);
146: s = getsval(x);
147: dprintf("getargv(%d) returns |%s|\n", n, s, NULL);
148: return s;
149: }
150:
151: setclvar(s) /* set var=value from s */
152: uchar *s;
153: {
154: uchar *p;
155: Cell *q;
156:
157: for (p=s; *p != '='; p++)
158: ;
159: *p++ = 0;
160: p = qstring(p, '\0');
161: q = setsymtab(s, p, 0.0, STR, symtab);
162: setsval(q, p);
163: if (isnumber(q->sval)) {
164: q->fval = atof(q->sval);
165: q->tval |= NUM;
166: }
167: dprintf("command line set %s to |%s|\n", s, p, NULL);
168: }
169:
170:
171: fldbld()
172: {
173: register uchar *r, *fr, sep;
174: Cell *p;
175: int i;
176:
177: if (donefld)
178: return;
179: if (!(recloc->tval & STR))
180: getsval(recloc);
181: r = recloc->sval; /* was record! */
182: fr = fields;
183: i = 0; /* number of fields accumulated here */
184: if (strlen(*FS) > 1) { /* it's a regular expression */
185: i = refldbld(r, *FS);
186: } else if ((sep = **FS) == ' ') {
187: for (i = 0; ; ) {
188: while (*r == ' ' || *r == '\t' || *r == '\n')
189: r++;
190: if (*r == 0)
191: break;
192: i++;
193: if (i >= MAXFLD)
194: break;
195: if (!(fldtab[i].tval & DONTFREE))
196: xfree(fldtab[i].sval);
197: fldtab[i].sval = fr;
198: fldtab[i].tval = FLD | STR | DONTFREE;
199: do
200: *fr++ = *r++;
201: while (*r != ' ' && *r != '\t' && *r != '\n' && *r != '\0');
202: *fr++ = 0;
203: }
204: *fr = 0;
205: } else if (*r != 0) { /* if 0, it's a null field */
206: for (;;) {
207: i++;
208: if (i >= MAXFLD)
209: break;
210: if (!(fldtab[i].tval & DONTFREE))
211: xfree(fldtab[i].sval);
212: fldtab[i].sval = fr;
213: fldtab[i].tval = FLD | STR | DONTFREE;
214: while (*r != sep && *r != '\n' && *r != '\0') /* \n always a separator */
215: *fr++ = *r++;
216: *fr++ = 0;
217: if (*r++ == 0)
218: break;
219: }
220: *fr = 0;
221: }
222: if (i >= MAXFLD)
223: error(FATAL, "record `%.20s...' has too many fields", record);
224: /* clean out junk from previous record */
225: cleanfld(i, maxfld);
226: maxfld = i;
227: donefld = 1;
228: for (p = fldtab+1; p <= fldtab+maxfld; p++) {
229: if(isnumber(p->sval)) {
230: p->fval = atof(p->sval);
231: p->tval |= NUM;
232: }
233: }
234: setfval(nfloc, (Awkfloat) maxfld);
235: if (dbg)
236: for (p = fldtab; p <= fldtab+maxfld; p++)
237: printf("field %d: |%s|\n", p-fldtab, p->sval);
238: }
239:
240: cleanfld(n1, n2) /* clean out fields n1..n2 inclusive */
241: {
242: static uchar *nullstat = (uchar *) "";
243: register Cell *p, *q;
244:
245: for (p = &fldtab[n2], q = &fldtab[n1]; p > q; p--) {
246: if (!(p->tval & DONTFREE))
247: xfree(p->sval);
248: p->tval = FLD | STR | DONTFREE;
249: p->sval = nullstat;
250: }
251: }
252:
253: newfld(n) /* add field n (after end) */
254: {
255: if (n >= MAXFLD)
256: error(FATAL, "creating too many fields", record);
257: cleanfld(maxfld, n);
258: maxfld = n;
259: setfval(nfloc, (Awkfloat) n);
260: }
261:
262: refldbld(rec, fs) /* build fields from reg expr in FS */
263: uchar *rec, *fs;
264: {
265: fa *makedfa();
266: uchar *fr;
267: int i, tempstat;
268: fa *pfa;
269:
270: fr = fields;
271: *fr = '\0';
272: if (*rec == '\0')
273: return 0;
274: pfa = makedfa(fs, 1);
275: dprintf("into refldbld, rec = <%s>, pat = <%s>\n", rec, fs);
276: tempstat = pfa->initstat;
277: for (i = 1; i < MAXFLD; i++) {
278: if (!(fldtab[i].tval & DONTFREE))
279: xfree(fldtab[i].sval);
280: fldtab[i].tval = FLD | STR | DONTFREE;
281: fldtab[i].sval = fr;
282: dprintf("refldbld: i=%d\n", i);
283: if (nematch(pfa, rec)) {
284: pfa->initstat = 2;
285: dprintf("match %s (%d chars)\n", patbeg, patlen);
286: strncpy(fr, rec, patbeg-rec);
287: fr += patbeg - rec + 1;
288: *(fr-1) = '\0';
289: rec = patbeg + patlen;
290: } else {
291: dprintf("no match %s\n", rec);
292: strcpy(fr, rec);
293: pfa->initstat = tempstat;
294: break;
295: }
296: }
297: return i;
298: }
299:
300: recbld()
301: {
302: int i;
303: register uchar *r, *p;
304: static uchar rec[RECSIZE];
305:
306: if (donerec == 1)
307: return;
308: r = rec;
309: for (i = 1; i <= *NF; i++) {
310: p = getsval(&fldtab[i]);
311: while (*r = *p++)
312: r++;
313: if (i < *NF)
314: for (p = *OFS; *r = *p++; )
315: r++;
316: }
317: *r = '\0';
318: dprintf("in recbld FS=%o, recloc=%o\n", **FS, recloc, NULL);
319: recloc->tval = REC | STR | DONTFREE;
320: recloc->sval = record = rec;
321: dprintf("in recbld FS=%o, recloc=%o\n", **FS, recloc, NULL);
322: if (r > record + RECSIZE)
323: error(FATAL, "built giant record `%.20s...'", record);
324: dprintf("recbld = |%s|\n", record, NULL, NULL);
325: donerec = 1;
326: }
327:
328: Cell *fieldadr(n)
329: {
330: if (n < 0 || n >= MAXFLD)
331: error(FATAL, "trying to access field %d", n);
332: return(&fldtab[n]);
333: }
334:
335: int errorflag = 0;
336:
337: yyerror(s, a1, a2, a3, a4, a5, a6, a7)
338: uchar *s;
339: {
340: extern uchar *cmdname, *curfname;
341: static int been_here = 0;
342:
343: if (been_here++ > 2)
344: return;
345: fprintf(stderr, "%s: ", cmdname);
346: fprintf(stderr, s, a1, a2, a3, a4, a5, a6, a7);
347: fprintf(stderr, " at source line %d", lineno);
348: if (curfname != NULL)
349: fprintf(stderr, " in function %s", curfname);
350: fprintf(stderr, "\n");
351: errorflag = 2;
352: eprint();
353: }
354:
355: fpecatch()
356: {
357: error(FATAL, "floating point exception");
358: }
359:
360: bracecheck()
361: {
362: extern int bracecnt, brackcnt, parencnt;
363: int c;
364: static int beenhere = 0;
365:
366: if (beenhere++)
367: return;
368: while ((c = input()) != EOF && c != '\0')
369: bclass(c);
370: bcheck2(bracecnt, '{', '}');
371: bcheck2(brackcnt, '[', ']');
372: bcheck2(parencnt, '(', ')');
373: }
374:
375: bcheck2(n, c1, c2)
376: {
377: if (n == 1)
378: fprintf(stderr, "\tmissing %c\n", c2);
379: else if (n > 1)
380: fprintf(stderr, "\t%d missing %c's\n", n, c2);
381: else if (n == -1)
382: fprintf(stderr, "\textra %c\n", c2);
383: else if (n < -1)
384: fprintf(stderr, "\t%d extra %c's\n", -n, c2);
385: }
386:
387: error(f, s, a1, a2, a3, a4, a5, a6, a7)
388: char *s;
389: {
390: extern Node *curnode;
391: extern uchar *cmdname;
392:
393: fprintf(stderr, "%s: ", cmdname);
394: fprintf(stderr, s, a1, a2, a3, a4, a5, a6, a7);
395: fprintf(stderr, "\n");
396: if (NR && *NR > 0) {
397: fprintf(stderr, " input record number %g", *FNR);
398: if (strcmp(*FILENAME, "-") != 0)
399: fprintf(stderr, ", file %s", *FILENAME);
400: fprintf(stderr, "\n");
401: }
402: if (curnode)
403: fprintf(stderr, " source line number %d\n", curnode->lineno);
404: else if (lineno)
405: fprintf(stderr, " source line number %d\n", lineno);
406: eprint();
407: if (f) {
408: if (dbg)
409: abort();
410: exit(2);
411: }
412: }
413:
414: eprint() /* try to print context around error */
415: {
416: uchar *p, *q;
417: int c;
418: static int been_here = 0;
419: extern uchar ebuf[300], *ep;
420:
421: if (compile_time == 0 || been_here++ > 0)
422: return;
423: p = ep - 1;
424: if (p > ebuf && *p == '\n')
425: p--;
426: for ( ; p > ebuf && *p != '\n' && *p != '\0'; p--)
427: ;
428: while (*p == '\n')
429: p++;
430: fprintf(stderr, " context is\n\t");
431: for (q=ep-1; q>=p && *q!=' ' && *q!='\t' && *q!='\n'; q--)
432: ;
433: while (p < q)
434: putc(*p++, stderr);
435: fprintf(stderr, " >>> ");
436: while (p < ep)
437: putc(*p++, stderr);
438: fprintf(stderr, " <<< ");
439: if (*ep)
440: while ((c = input()) != '\n' && c != '\0' && c != EOF) {
441: putc(c, stderr);
442: bclass(c);
443: }
444: putc('\n', stderr);
445: ep = ebuf;
446: }
447:
448: bclass(c)
449: {
450: switch (c) {
451: case '{': bracecnt++; break;
452: case '}': bracecnt--; break;
453: case '[': brackcnt++; break;
454: case ']': brackcnt--; break;
455: case '(': parencnt++; break;
456: case ')': parencnt--; break;
457: }
458: }
459:
460: double errcheck(x, s)
461: double x;
462: uchar *s;
463: {
464: extern int errno;
465:
466: if (errno == EDOM) {
467: errno = 0;
468: error(!FATAL, "%s argument out of domain", s);
469: x = 1;
470: } else if (errno == ERANGE) {
471: errno = 0;
472: error(!FATAL, "%s result out of range", s);
473: x = 1;
474: }
475: return x;
476: }
477:
478: PUTS(s) uchar *s; {
479: dprintf("%s\n", s, NULL, NULL);
480: }
481:
482: isclvar(s) /* is s of form var=something? */
483: char *s;
484: {
485: for ( ; *s; s++)
486: if (!isalnum(*s))
487: break;
488: return *s == '=';
489: }
490:
491: #define MAXEXPON 38 /* maximum exponent for fp number */
492:
493: isnumber(s)
494: register uchar *s;
495: {
496: register d1, d2;
497: int point;
498: uchar *es;
499:
500: d1 = d2 = point = 0;
501: while (*s == ' ' || *s == '\t' || *s == '\n')
502: s++;
503: if (*s == '\0')
504: return(0); /* empty stuff isn't number */
505: if (*s == '+' || *s == '-')
506: s++;
507: if (!isdigit(*s) && *s != '.')
508: return(0);
509: if (isdigit(*s)) {
510: do {
511: d1++;
512: s++;
513: } while (isdigit(*s));
514: }
515: if(d1 >= MAXEXPON)
516: return(0); /* too many digits to convert */
517: if (*s == '.') {
518: point++;
519: s++;
520: }
521: if (isdigit(*s)) {
522: d2++;
523: do {
524: s++;
525: } while (isdigit(*s));
526: }
527: if (!(d1 || point && d2))
528: return(0);
529: if (*s == 'e' || *s == 'E') {
530: s++;
531: if (*s == '+' || *s == '-')
532: s++;
533: if (!isdigit(*s))
534: return(0);
535: es = s;
536: do {
537: s++;
538: } while (isdigit(*s));
539: if (s - es > 2)
540: return(0);
541: else if (s - es == 2 && 10 * (*es-'0') + *(es+1)-'0' >= MAXEXPON)
542: return(0);
543: }
544: while (*s == ' ' || *s == '\t' || *s == '\n')
545: s++;
546: if (*s == '\0')
547: return(1);
548: else
549: return(0);
550: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.