![[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 [CSRG BSD Unix] / 40BSD / cmd / awk|
Return to lib.c CVS log | Up to [CSRG BSD Unix] / 40BSD / cmd / awk |
1.1 ! root 1: #include "stdio.h" ! 2: #include "awk.def" ! 3: #include "awk.h" ! 4: #include "ctype.h" ! 5: ! 6: FILE *infile = NULL; ! 7: char *file; ! 8: #define RECSIZE (5 * 512) ! 9: char record[RECSIZE]; ! 10: char fields[RECSIZE]; ! 11: ! 12: #define MAXFLD 100 ! 13: int donefld; /* 1 = implies rec broken into fields */ ! 14: int donerec; /* 1 = record is valid (no flds have changed) */ ! 15: int mustfld; /* 1 = NF seen, so always break*/ ! 16: ! 17: #define FINIT {0, NULL, 0.0, FLD|STR} ! 18: cell fldtab[MAXFLD] = { /*room for fields */ ! 19: { "$record", record, 0.0, STR|FLD}, ! 20: FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, ! 21: FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, ! 22: FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, ! 23: FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, ! 24: FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, ! 25: FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, ! 26: FINIT, FINIT, FINIT, FINIT, FINIT, FINIT, FINIT ! 27: }; ! 28: int maxfld = 0; /* last used field */ ! 29: ! 30: ! 31: getrec() ! 32: { ! 33: register char *rr; ! 34: extern int svargc; ! 35: extern char **svargv; ! 36: register c, sep; ! 37: ! 38: dprintf("**RS=%o, **FS=%o\n", **RS, **FS, NULL); ! 39: donefld = 0; ! 40: donerec = 1; ! 41: record[0] = 0; ! 42: while (svargc > 0) { ! 43: dprintf("svargc=%d, *svargv=%s\n", svargc, *svargv, NULL); ! 44: if (infile == NULL) { /* have to open a new file */ ! 45: if (member('=', *svargv)) { /* it's a var=value argument */ ! 46: setclvar(*svargv); ! 47: svargv++; ! 48: svargc--; ! 49: continue; ! 50: } ! 51: *FILENAME = file = *svargv; ! 52: dprintf("opening file %s\n", file, NULL, NULL); ! 53: if (*file == '-') ! 54: infile = stdin; ! 55: else if ((infile = fopen(file, "r")) == NULL) ! 56: error(FATAL, "can't open %s", file); ! 57: } ! 58: if ((sep = **RS) == 0) ! 59: sep = '\n'; ! 60: for (rr = record; ; ) { ! 61: for (; (c=getc(infile)) != sep && c != EOF; *rr++ = c) ! 62: ; ! 63: if (**RS == sep || c == EOF) ! 64: break; ! 65: if ((c = getc(infile)) == '\n' || c == EOF) /* 2 in a row */ ! 66: break; ! 67: *rr++ = '\n'; ! 68: *rr++ = c; ! 69: } ! 70: if (rr > record+RECSIZE) ! 71: error(FATAL, "record `%.20s...' too long", record); ! 72: *rr = 0; ! 73: if (mustfld) ! 74: fldbld(); ! 75: if (c != EOF || rr > record) { /* normal record */ ! 76: recloc->tval &= ~NUM; ! 77: recloc->tval |= STR; ! 78: ++nrloc->fval; ! 79: nrloc->tval &= ~STR; ! 80: nrloc->tval |= NUM; ! 81: return(1); ! 82: } ! 83: /* EOF arrived on this file; set up next */ ! 84: if (infile != stdin) ! 85: fclose(infile); ! 86: infile = NULL; ! 87: svargc--; ! 88: svargv++; ! 89: } ! 90: return(0); /* true end of file */ ! 91: } ! 92: ! 93: setclvar(s) /* set var=value from s */ ! 94: char *s; ! 95: { ! 96: char *p; ! 97: cell *q; ! 98: ! 99: for (p=s; *p != '='; p++) ! 100: ; ! 101: *p++ = 0; ! 102: q = setsymtab(s, tostring(p), 0.0, STR, symtab); ! 103: setsval(q, p); ! 104: dprintf("command line set %s to |%s|\n", s, p, NULL); ! 105: } ! 106: ! 107: fldbld() ! 108: { ! 109: register char *r, *fr, sep; ! 110: int i, j; ! 111: ! 112: r = record; ! 113: fr = fields; ! 114: i = 0; /* number of fields accumulated here */ ! 115: if ((sep = **FS) == ' ') ! 116: for (i = 0; ; ) { ! 117: while (*r == ' ' || *r == '\t' || *r == '\n') ! 118: r++; ! 119: if (*r == 0) ! 120: break; ! 121: i++; ! 122: if (i >= MAXFLD) ! 123: error(FATAL, "record `%.20s...' has too many fields", record); ! 124: if (!(fldtab[i].tval&FLD)) ! 125: xfree(fldtab[i].sval); ! 126: fldtab[i].sval = fr; ! 127: fldtab[i].tval = FLD | STR; ! 128: do ! 129: *fr++ = *r++; ! 130: while (*r != ' ' && *r != '\t' && *r != '\n' && *r != '\0'); ! 131: *fr++ = 0; ! 132: } ! 133: else if (*r != 0) /* if 0, it's a null field */ ! 134: for (;;) { ! 135: i++; ! 136: if (i >= MAXFLD) ! 137: error(FATAL, "record `%.20s...' has too many fields", record); ! 138: if (!(fldtab[i].tval&FLD)) ! 139: xfree(fldtab[i].sval); ! 140: fldtab[i].sval = fr; ! 141: fldtab[i].tval = FLD | STR; ! 142: while (*r != sep && *r != '\n' && *r != '\0') /* \n always a separator */ ! 143: *fr++ = *r++; ! 144: *fr++ = 0; ! 145: if (*r++ == 0) ! 146: break; ! 147: } ! 148: *fr = 0; ! 149: for (j=MAXFLD-1; j>i; j--) { /* clean out junk from previous record */ ! 150: if (!(fldtab[j].tval&FLD)) ! 151: xfree(fldtab[j].sval); ! 152: fldtab[j].tval = STR | FLD; ! 153: fldtab[j].sval = NULL; ! 154: } ! 155: maxfld = i; ! 156: donefld = 1; ! 157: for(i=1; i<=maxfld; i++) ! 158: if(isnumber(fldtab[i].sval)) { ! 159: fldtab[i].fval = atof(fldtab[i].sval); ! 160: fldtab[i].tval |= NUM; ! 161: } ! 162: setfval(lookup("NF", symtab, 0), (awkfloat) maxfld); ! 163: if (dbg) ! 164: for (i = 0; i <= maxfld; i++) ! 165: printf("field %d: |%s|\n", i, fldtab[i].sval); ! 166: } ! 167: ! 168: recbld() ! 169: { ! 170: int i; ! 171: register char *r, *p; ! 172: ! 173: if (donefld == 0 || donerec == 1) ! 174: return; ! 175: r = record; ! 176: for (i = 1; i <= *NF; i++) { ! 177: p = getsval(&fldtab[i]); ! 178: while (*r++ = *p++) ! 179: ; ! 180: *(r-1) = **OFS; ! 181: } ! 182: *(r-1) = '\0'; ! 183: dprintf("in recbld FS=%o, recloc=%o\n", **FS, recloc, NULL); ! 184: recloc->tval = STR | FLD; ! 185: dprintf("in recbld FS=%o, recloc=%o\n", **FS, recloc, NULL); ! 186: if (r > record+RECSIZE) ! 187: error(FATAL, "built giant record `%.20s...'", record); ! 188: dprintf("recbld = |%s|\n", record, NULL, NULL); ! 189: } ! 190: ! 191: cell *fieldadr(n) ! 192: { ! 193: if (n >= MAXFLD) ! 194: error(FATAL, "trying to access field %d", n); ! 195: return(&fldtab[n]); ! 196: } ! 197: ! 198: int errorflag = 0; ! 199: ! 200: yyerror(s) char *s; { ! 201: fprintf(stderr, "awk: %s near line %d\n", s, lineno); ! 202: errorflag = 2; ! 203: } ! 204: ! 205: error(f, s, a1, a2, a3, a4, a5, a6, a7) { ! 206: fprintf(stderr, "awk: "); ! 207: fprintf(stderr, s, a1, a2, a3, a4, a5, a6, a7); ! 208: fprintf(stderr, "\n"); ! 209: if (*NR > 0) ! 210: fprintf(stderr, " record number %g\n", *NR); ! 211: if (f) ! 212: exit(2); ! 213: } ! 214: ! 215: PUTS(s) char *s; { ! 216: dprintf("%s\n", s, NULL, NULL); ! 217: } ! 218: ! 219: #define MAXEXPON 38 /* maximum exponenet for fp number */ ! 220: ! 221: isnumber(s) ! 222: register char *s; ! 223: { ! 224: register d1, d2; ! 225: int point; ! 226: char *es; ! 227: ! 228: d1 = d2 = point = 0; ! 229: while (*s == ' ' || *s == '\t' || *s == '\n') ! 230: s++; ! 231: if (*s == '\0') ! 232: return(0); /* empty stuff isn't number */ ! 233: if (*s == '+' || *s == '-') ! 234: s++; ! 235: if (!isdigit(*s) && *s != '.') ! 236: return(0); ! 237: if (isdigit(*s)) { ! 238: do { ! 239: d1++; ! 240: s++; ! 241: } while (isdigit(*s)); ! 242: } ! 243: if(d1 >= MAXEXPON) ! 244: return(0); /* too many digits to convert */ ! 245: if (*s == '.') { ! 246: point++; ! 247: s++; ! 248: } ! 249: if (isdigit(*s)) { ! 250: d2++; ! 251: do { ! 252: s++; ! 253: } while (isdigit(*s)); ! 254: } ! 255: if (!(d1 || point && d2)) ! 256: return(0); ! 257: if (*s == 'e' || *s == 'E') { ! 258: s++; ! 259: if (*s == '+' || *s == '-') ! 260: s++; ! 261: if (!isdigit(*s)) ! 262: return(0); ! 263: es = s; ! 264: do { ! 265: s++; ! 266: } while (isdigit(*s)); ! 267: if (s - es > 2) ! 268: return(0); ! 269: else if (s - es == 2 && 10 * (*es-'0') + *(es+1)-'0' >= MAXEXPON) ! 270: return(0); ! 271: } ! 272: while (*s == ' ' || *s == '\t' || *s == '\n') ! 273: s++; ! 274: if (*s == '\0') ! 275: return(1); ! 276: else ! 277: return(0); ! 278: } ! 279: /* ! 280: isnumber(s) char *s; {return(0);} ! 281: */
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.