bin/gawk/field.c

53 static long nf_high_water = 0;	/* size of fields_arr */
60 NODE **fields_arr;		/* array of pointers to the field nodes */
76 	emalloc(fields_arr, NODE **, sizeof(NODE *), "init_fields");
77 	fields_arr[0] = Nnull_string;
78 	parse_extent = fields_arr[0]->stptr;
95 	erealloc(fields_arr, NODE **, (num + 1) * sizeof(NODE *), "grow_fields_arr");
99 		fields_arr[t] = n;
117 	n = fields_arr[num];
147 		tmp = fields_arr[i];
158 		tmp = fields_arr[i];
179 	 * Since we are about to unref fields_arr[0], we want to find
185 		if (fields_arr[i]->stlen > 0) {
189 			if ((fields_arr[i]->flags & FIELD) == 0) {
191 				n->stlen = fields_arr[i]->stlen;
192 				if ((fields_arr[i]->flags & (NUMCUR|NUMBER)) != 0) {
193 					n->flags |= (fields_arr[i]->flags & (NUMCUR|NUMBER));
194 					n->numbr = fields_arr[i]->numbr;
197 				*n = *(fields_arr[i]);
202 			unref(fields_arr[i]);
203 			fields_arr[i] = n;
205 		cops += fields_arr[i]->stlen + ofslen;
208 	unref(fields_arr[0]);
210 	fields_arr[0] = tmp;
257 	unref(fields_arr[0]);
265 	fields_arr[0] = n;
279 	(void) force_string(fields_arr[0]);
283 		unref(fields_arr[i]);
286 		fields_arr[i] = n;
321 			unref(fields_arr[i]);
324 			fields_arr[i] = n;
328 			unref(fields_arr[i]);
331 			fields_arr[i] = n;
722 		    			fields_arr[0]->stlen -
723 					(parse_extent - fields_arr[0]->stptr),
732 		return &fields_arr[0];
741 		return &fields_arr[requested];
749 			parse_extent = fields_arr[0]->stptr;
751 		     fields_arr[0]->stlen - (parse_extent - fields_arr[0]->stptr),
762 		if (parse_extent == fields_arr[0]->stptr + fields_arr[0]->stlen)
778 	return &fields_arr[requested];
903 	if (fields_arr != NULL)
944 	if (fields_arr != NULL)