rem: fa *makedfa();
context: refldbld(rec, fs)	/* build fields from reg expr in FS */	uchar *rec, *fs;{	fa *makedfa();	uchar *fr;	int i, tempstat;	fa *pfa;	fr = fields;	*fr = '\0';	if (*rec == '\0')		return (0);	pfa = makedfa(fs, 1);	dprintf(("into refldbld, rec = <%s>, pat = <%s>\n", rec, fs));	tempstat = pfa->initstat;	for (i = 1; i < MAXFLD; i++) {		if (!(fldtab[i].tval & DONTFREE))			xfree(fldtab[i].sval);		fldtab[i].tval = FLD | STR | DONTFREE;		fldtab[i].sval = fr;		dprintf(("refldbld: i=%d\n", i));		if (nematch(pfa, rec)) {			pfa->initstat = 2;			dprintf(("match %s (%d chars)\n", patbeg, patlen));			strncpy(fr, rec, patbeg-rec);			fr += patbeg - rec + 1;			*(fr-1) = '\0';			rec = patbeg + patlen;		} else {			dprintf(("no match %s\n", rec));			strcpy(fr, rec);			pfa->initstat = tempstat;			break;		}	}	return (i);}