nawk/dist/lib.c

44 char	*record;
57 bool	donerec;	/* true = record is valid (no flds have changed) */
68 	if ( (record = malloc(n)) == NULL
73 	*record = '\0';
75 	fldtab[0]->sval = record;
120  * split using the value of FS at the time that the record's value ($0) was
124  * whenever a new record is read in (implicitly or via getline), or when
144 int getrec(char **pbuf, int *pbufsize, bool isrecord)	/* get next input record */
145 {			/* note: cares whether buf == record */
188 		if (c != 0 || buf[0] != '\0') {	/* normal record */
192 				fldtab[0]->sval = buf;	/* buf == record */
222 int readrec(char **pbuf, int *pbufsize, FILE *inf, bool newflag)	/* read one record into buf */
256 						FATAL("input record `%.30s...' too long", buf);
265 				FATAL("input record `%.30s...' too long", buf);
270 			FATAL("input record `%.30s...' too long", buf);
311 void fldbld(void)	/* create fields from current record */
398 		FATAL("record `%.30s...' has too many fields; can't happen", r);
399 	cleanfld(i+1, lastfld);	/* clean out junk from previous record */
536 	r = record;
539 		if (!adjbuf(&record, &recsize, 1+strlen(p)+r-record, recsize, &r, "recbld 1"))
540 			FATAL("created $0 `%.30s...' too long", record);
544 			if (!adjbuf(&record, &recsize, 2+strlen(sep)+r-record, recsize, &r, "recbld 2"))
545 				FATAL("created $0 `%.30s...' too long", record);
550 	if (!adjbuf(&record, &recsize, 2+r-record, recsize, &r, "recbld 3"))
551 		FATAL("built giant record `%.30s...'", record);
558 	fldtab[0]->sval = record;
561 	   dprintf( ("recbld = |%s|\n", record) );
658 			fprintf(stderr, " input record number %d", (int) (*FNR));