![[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] / 3BSD / cmd / awk|
Return to lib.c CVS log | Up to [CSRG BSD Unix] / 3BSD / 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 BUFSIZ
9: char record[RECSIZE];
10: char fields[RECSIZE];
11:
12: #define MAXFLD 50
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) /* normal record */
76: return(1);
77: /* EOF arrived on this file; set up next */
78: if (infile != stdin)
79: fclose(infile);
80: infile = NULL;
81: svargc--;
82: svargv++;
83: }
84: return(0); /* true end of file */
85: }
86:
87: setclvar(s) /* set var=value from s */
88: char *s;
89: {
90: char *p;
91: cell *q;
92:
93: for (p=s; *p != '='; p++)
94: ;
95: *p++ = 0;
96: q = setsymtab(s, tostring(p), 0.0, STR, symtab);
97: setsval(q, p);
98: dprintf("command line set %s to |%s|\n", s, p, NULL);
99: }
100:
101: fldbld()
102: {
103: register char *r, *fr, sep;
104: int i, j;
105:
106: r = record;
107: fr = fields;
108: if ((sep = **FS) == ' ')
109: for (i = 0; ; ) {
110: while (*r == ' ' || *r == '\t' || *r == '\n')
111: r++;
112: if (*r == 0)
113: break;
114: i++;
115: if (i >= MAXFLD)
116: error(FATAL, "record `%.20s...' has too many fields", record);
117: if (!(fldtab[i].tval&FLD))
118: xfree(fldtab[i].sval);
119: fldtab[i].sval = fr;
120: fldtab[i].tval = FLD | STR;
121: do
122: *fr++ = *r++;
123: while (*r != ' ' && *r != '\t' && *r != '\n' && *r != '\0');
124: *fr++ = 0;
125: }
126: else
127: for (i = 0; ; ) {
128: i++;
129: if (i >= MAXFLD)
130: error(FATAL, "record `%.20s...' has too many fields", record);
131: if (!(fldtab[i].tval&FLD))
132: xfree(fldtab[i].sval);
133: fldtab[i].sval = fr;
134: fldtab[i].tval = FLD | STR;
135: while (*r != sep && *r != '\n' && *r != '\0') /* \n always a separator */
136: *fr++ = *r++;
137: *fr++ = '\0';
138: if (*r == 0) break;
139: r++;
140: }
141: *fr = 0;
142: for (j=maxfld; j>i; j--) { /* clean out junk from previous record */
143: if (!(fldtab[j].tval&FLD))
144: xfree(fldtab[j].sval);
145: fldtab[j].tval = STR | FLD;
146: fldtab[j].sval = NULL;
147: }
148: maxfld = i;
149: donefld = 1;
150: for(i=1; i<=maxfld; i++)
151: if(isnumber(fldtab[i].sval))
152: { fldtab[i].fval = atof(fldtab[i].sval);
153: fldtab[i].tval |= NUM;
154: }
155: setfval(lookup("NF", symtab), (awkfloat) maxfld);
156: if (dbg)
157: for (i = 0; i <= maxfld; i++)
158: printf("field %d: |%s|\n", i, fldtab[i].sval);
159: }
160:
161: recbld()
162: {
163: int i;
164: register char *r, *p;
165:
166: if (donefld == 0 || donerec == 1)
167: return;
168: r = record;
169: for (i = 1; i <= *NF; i++) {
170: p = getsval(&fldtab[i]);
171: while (*r++ = *p++)
172: ;
173: *(r-1) = **OFS;
174: }
175: *(r-1) = '\0';
176: dprintf("in recbld FS=%o, recloc=%o\n", **FS, recloc, NULL);
177: recloc->tval = STR | FLD;
178: dprintf("in recbld FS=%o, recloc=%o\n", **FS, recloc, NULL);
179: if (r > record+RECSIZE)
180: error(FATAL, "built giant record `%.20s...'", record);
181: dprintf("recbld = |%s|\n", record, NULL, NULL);
182: }
183:
184: cell *fieldadr(n)
185: {
186: if (n >= MAXFLD)
187: error(FATAL, "trying to access field %d", n);
188: return(&fldtab[n]);
189: }
190:
191: int errorflag = 0;
192:
193: yyerror(s) char *s; {
194: fprintf(stderr, "awk: %s near line %d\n", s, lineno);
195: errorflag = 2;
196: }
197:
198: error(f, s, a1, a2, a3, a4, a5, a6, a7) {
199: fprintf(stderr, "awk: ");
200: fprintf(stderr, s, a1, a2, a3, a4, a5, a6, a7);
201: fprintf(stderr, "\n");
202: if (*NR > 0)
203: fprintf(stderr, " record number %g\n", *NR);
204: if (f)
205: exit(2);
206: }
207:
208: PUTS(s) char *s; {
209: dprintf("%s\n", s, NULL, NULL);
210: }
211:
212: /*
213: isnumber(s) char *s;
214: {
215: for(;*s!=0; s++)
216: { if(isdigit(*s) || *s=='-' || *s=='.'
217: || *s=='+' || *s=='e' || *s=='E')
218: continue;
219: else return(0);
220: }
221: return(1);
222: }
223: */
224: isnumber(s) char *s; {return(0);}
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.