contrib/one-true-awk/lib.c

42 Cell	**fldtab;	/* pointers to Cells */
62 	  || (fldtab = (Cell **) malloc((nfields+1) * sizeof(Cell *))) == NULL
63 	  || (fldtab[0] = (Cell *) malloc(sizeof(Cell))) == NULL )
65 	*fldtab[0] = dollar0;
66 	fldtab[0]->sval = record;
67 	fldtab[0]->nval = tostring("0");
77 		fldtab[i] = (Cell *) malloc(sizeof (struct Cell));
78 		if (fldtab[i] == NULL)
80 		*fldtab[i] = dollar1;
82 		fldtab[i]->nval = tostring(temp);
152 				if (freeable(fldtab[0]))
153 					xfree(fldtab[0]->sval);
154 				fldtab[0]->sval = buf;	/* buf == record */
155 				fldtab[0]->tval = REC | STR | DONTFREE;
156 				if (is_number(fldtab[0]->sval)) {
157 					fldtab[0]->fval = atof(fldtab[0]->sval);
158 					fldtab[0]->tval |= NUM;
274 	if (!isstr(fldtab[0]))
275 		getsval(fldtab[0]);
276 	r = fldtab[0]->sval;
298 			if (freeable(fldtab[i]))
299 				xfree(fldtab[i]->sval);
300 			fldtab[i]->sval = fr;
301 			fldtab[i]->tval = FLD | STR | DONTFREE;
314 			if (freeable(fldtab[i]))
315 				xfree(fldtab[i]->sval);
318 			fldtab[i]->sval = tostring(buf);
319 			fldtab[i]->tval = FLD | STR;
334 			if (freeable(fldtab[i]))
335 				xfree(fldtab[i]->sval);
336 			fldtab[i]->sval = fr;
337 			fldtab[i]->tval = FLD | STR | DONTFREE;
352 		p = fldtab[j];
361 			p = fldtab[j];
373 		p = fldtab[i];
396 	return(fldtab[n]);
408 		fldtab = (Cell **) realloc(fldtab, s);
410 		xfree(fldtab);	/* make it null */
411 	if (fldtab == NULL)
442 		if (freeable(fldtab[i]))
443 			xfree(fldtab[i]->sval);
444 		fldtab[i]->tval = FLD | STR | DONTFREE;
445 		fldtab[i]->sval = fr;
473 		p = getsval(fldtab[i]);
488 	   dprintf( ("in recbld inputFS=%s, fldtab[0]=%p\n", inputFS, (void*)fldtab[0]) );
490 	if (freeable(fldtab[0]))
491 		xfree(fldtab[0]->sval);
492 	fldtab[0]->tval = REC | STR | DONTFREE;
493 	fldtab[0]->sval = record;
495 	   dprintf( ("in recbld inputFS=%s, fldtab[0]=%p\n", inputFS, (void*)fldtab[0]) );