96 	CELL *x;  in execute()  local
107 		x = (*proc)(a->narg, a->nobj);  in execute()
108 		if (isfld(x))  in execute()
111 			return (x);  in execute()
113 		if (isjump(x))  in execute()
114 			return (x);  in execute()
116 			return (x);  in execute()
117 		tempfree(x);  in execute()
127 	CELL *x;  in program()  local
130 		x = execute(a[0]);  in program()
131 		if (isexit(x))  in program()
133 		if (isjump(x))  in program()
135 		tempfree(x);  in program()
138 		x = execute(a[1]);  in program()
139 		if (isexit(x)) {  in program()
140 			tempfree(x);  in program()
143 		tempfree(x);  in program()
146 		x = execute(a[2]);  in program()
147 		if (isbreak(x) || isnext(x) || iscont(x))  in program()
149 		tempfree(x);  in program()
160 	CELL *x;  in getaline()  local
162 	x = gettemp();  in getaline()
163 	setfval(x, (awkfloat) getrec());  in getaline()
164 	return (x);  in getaline()
173 	CELL *x, *y;  in array()  local
176 	x = execute(a[1]);  in array()
177 	y = arrayel(a[0], x);  in array()
178 	tempfree(x);  in array()
189 	CELL *x;  in arrayel()  local
194 	x = (CELL *) a;  in arrayel()
195 	if (!(x->tval&ARR)) {  in arrayel()
196 		xfree(x->sval);  in arrayel()
197 		x->tval &= ~STR;  in arrayel()
198 		x->tval |= ARR;  in arrayel()
199 		x->sval = (wchar_t *) makesymtab();  in arrayel()
201 	y = setsymtab(s, tostring(L_NULL), 0.0, STR|NUM, x->sval);  in arrayel()
210 	CELL *x;  in matchop()  local
214 	x = execute(a[0]);  in matchop()
215 	s = getsval(x);  in matchop()
216 	tempfree(x);  in matchop()
230 	CELL *x, *y;  in boolop()  local
236 	x = execute(a[0]);  in boolop()
237 	i = istrue(x);  in boolop()
238 	tempfree(x);  in boolop()
270 	CELL *x, *y;  in relop()  local
277 	x = execute(a[0]);  in relop()
279 	if (x->tval&NUM && y->tval&NUM) {  in relop()
280 		j = x->fval - y->fval;  in relop()
283 		xs = getsval(x);  in relop()
290 	tempfree(x);  in relop()
322 	CELL *x;  in gettemp()  local
333 	x = &tmps[i];  in gettemp()
334 	return (x);  in gettemp()
343 	CELL *x;  in indirect()  local
347 	x = execute(a[0]);  in indirect()
348 	m = getfval(x);  in indirect()
349 	tempfree(x);  in indirect()
350 	x = fieldadr(m);  in indirect()
351 	x->ctype = OCELL;  in indirect()
352 	x->csub = CFLD;  in indirect()
353 	return (x);  in indirect()
364 	CELL *x, *y;  in substr()  local
370 		x = gettemp();  in substr()
371 		setsval(x, L_NULL);  in substr()
372 		return (x);  in substr()
374 	x = execute(a[1]);  in substr()
375 	m = getfval(x);  in substr()
380 	tempfree(x);  in substr()
382 		x = execute(a[2]);  in substr()
383 		n = getfval(x);  in substr()
384 		tempfree(x);  in substr()
393 	x = gettemp();  in substr()
396 	setsval(x, s + m - 1);  in substr()
399 	return (x);  in substr()
408 	CELL *x;  in sindex()  local
411 	x = execute(a[0]);  in sindex()
412 	s1 = getsval(x);  in sindex()
413 	tempfree(x);  in sindex()
414 	x = execute(a[1]);  in sindex()
415 	s2 = getsval(x);  in sindex()
416 	tempfree(x);  in sindex()
418 	x = gettemp();  in sindex()
423 			setfval(x, (awkfloat) (p1 - s1 + 1));	/* origin 1 */  in sindex()
424 			return (x);  in sindex()
427 	setfval(x, 0.0);  in sindex()
428 	return (x);  in sindex()
443 	CELL *x;  in format()  local
476 				x = execute(a);  in format()
478 				sprintf(t-1, "%d", (int) getfval(x));  in format()
480 				tempfree(x);  in format()
520 		x = execute(a);  in format()
529 			str = getsval(x);  in format()
532 			xf = getfval(x);  in format()
563 		tempfree(x);  in format()
577 	CELL *x;  in a_sprintf()  local
582 	x = execute(a[0]);  in a_sprintf()
583 	s = format(getsval(x), y);  in a_sprintf()
584 	tempfree(x);  in a_sprintf()
585 	x = gettemp();  in a_sprintf()
586 	x->sval = s;  in a_sprintf()
587 	x->tval = STR;  in a_sprintf()
588 	return (x);  in a_sprintf()
596 	CELL *x, *y, *z;  in arith()  local
598 	x = execute(a[0]);  in arith()
599 	i = getfval(x);  in arith()
600 	tempfree(x);  in arith()
643 	CELL *x, *z;  in incrdecr()  local
647 	x = execute(a[0]);  in incrdecr()
648 	xf = getfval(x);  in incrdecr()
651 		setfval(x, xf + k);  in incrdecr()
652 		return (x);  in incrdecr()
656 	setfval(x, xf + k);  in incrdecr()
657 	tempfree(x);  in incrdecr()
666 	CELL *x, *y;  in assign()  local
672 	x = execute(a[0]);  in assign()
676 			setsval(x, y->sval);  in assign()
677 			x->fval = y->fval;  in assign()
678 			x->tval |= NUM;  in assign()
681 			setsval(x, y->sval);  in assign()
683 			setfval(x, y->fval);  in assign()
685 		return (x);  in assign()
687 	xf = getfval(x);  in assign()
714 	setfval(x, xf);  in assign()
715 	return (x);  in assign()
724 	CELL *x, *y, *z;  in cat()  local
731 	x = execute(a[0]);  in cat()
733 	getsval(x);  in cat()
735 	n1 = wslen(x->sval);  in cat()
739 	wscpy(s, x->sval);  in cat()
745 	tempfree(x);  in cat()
755 	CELL *x;  in pastat()  local
761 		x = true;  in pastat()
763 		x = execute(a[0]);  in pastat()
764 	if (istrue(x)) {  in pastat()
765 		tempfree(x);  in pastat()
766 		x = execute(a[1]);  in pastat()
768 	return (x);  in pastat()
777 	CELL *x;  in dopa2()  local
785 		x = execute(a[0]);  in dopa2()
786 		if (istrue(x))  in dopa2()
788 		tempfree(x);  in dopa2()
791 		x = execute(a[1]);  in dopa2()
792 		if (istrue(x))  in dopa2()
794 		tempfree(x);  in dopa2()
795 		x = execute(a[2]);  in dopa2()
796 		return (x);  in dopa2()
807 	CELL *x;  in aprintf()  local
812 	x = a_sprintf(a, n);  in aprintf()
814 		printf("%ws", x->sval);  in aprintf()
815 		tempfree(x);  in aprintf()
818 	redirprint(x->sval, (int)a[1], a[2]);  in aprintf()
819 	return (x);  in aprintf()
828 	CELL *x;  in split()  local
838 	x = execute(a[0]);  in split()
839 	s = getsval(x);  in split()
840 	tempfree(x);  in split()
844 		x = execute(a[2]);  in split()
845 		sep = getsval(x)[0];  in split()
846 		tempfree(x);  in split()
902 	x = gettemp();  in split()
903 	x->tval = NUM;  in split()
904 	x->fval = n;  in split()
905 	return (x);  in split()
914 	CELL *x;  in ifstat()  local
919 	x = execute(a[0]);  in ifstat()
920 	if (istrue(x)) {  in ifstat()
921 		tempfree(x);  in ifstat()
922 		x = execute(a[1]);  in ifstat()
925 		tempfree(x);  in ifstat()
926 		x = execute(a[2]);  in ifstat()
928 	return (x);  in ifstat()
937 	CELL *x;  in whilestat()  local
943 		x = execute(a[0]);  in whilestat()
944 		if (!istrue(x)) return (x);  in whilestat()
945 		tempfree(x);  in whilestat()
946 		x = execute(a[1]);  in whilestat()
947 		if (isbreak(x)) {  in whilestat()
948 			x = true;  in whilestat()
949 			return (x);  in whilestat()
951 		if (isnext(x) || isexit(x))  in whilestat()
952 			return (x);  in whilestat()
953 		tempfree(x);  in whilestat()
963 	CELL *x;  in forstat()  local
973 			x = execute(a[1]);  in forstat()
974 			if (!istrue(x)) return (x);  in forstat()
975 			else tempfree(x);  in forstat()
977 		x = execute(a[3]);  in forstat()
978 		if (isbreak(x)) {	/* turn off break */  in forstat()
979 			x = true;  in forstat()
980 			return (x);  in forstat()
982 		if (isnext(x) || isexit(x))  in forstat()
983 			return (x);  in forstat()
984 		tempfree(x);  in forstat()
997 	CELL *x;  in instat()  local
1011 			x = execute(a[2]);  in instat()
1012 			if (isbreak(x)) {  in instat()
1013 				x = true;  in instat()
1014 				return (x);  in instat()
1016 			if (isnext(x) || isexit(x))  in instat()
1017 				return (x);  in instat()
1018 			tempfree(x);  in instat()
1060 	CELL *x;  in fncn()  local
1066 	x = execute(a[1]);  in fncn()
1068 		u = (awkfloat) wslen(getsval(x));  in fncn()
1070 		u = log(getfval(x));  in fncn()
1072 		u = (awkfloat) (long) getfval(x);  in fncn()
1074 		u = exp(getfval(x));  in fncn()
1076 		u = sqrt(getfval(x));  in fncn()
1079 	tempfree(x);  in fncn()
1080 	x = gettemp();  in fncn()
1081 	setfval(x, u);  in fncn()
1082 	return (x);  in fncn()
1091 	NODE *x;  in print()  local
1105 	for (x = a[0]; x != NULL; x = x->nnext) {  in print()
1106 		y = execute(x);  in print()
1111 		if (x->nnext == NULL) {  in print()
1165 	CELL *x;  in nodetoobj()  local
1167 	x= (CELL *) a->nobj;  in nodetoobj()
1168 	x->ctype = OCELL;  in nodetoobj()
1169 	x->csub = a->subtype;  in nodetoobj()
1170 	if (isfld(x))  in nodetoobj()
1172 	return (x);  in nodetoobj()
1179 	CELL *x;  in redirprint()  local
1181 	x = execute(b);  in redirprint()
1182 	getsval(x);  in redirprint()
1184 		if (files[i].fname && wscmp(x->sval, files[i].fname) == 0)  in redirprint()
1192 		files[i].fp = popen(toeuccode(x->sval), "w");  in redirprint()
1194 		files[i].fp = fopen(toeuccode(x->sval), "a");  in redirprint()
1196 		files[i].fp = fopen(toeuccode(x->sval), "w");  in redirprint()
1200 		error(FATAL, "can't open file %ws", x->sval);  in redirprint()
1201 	files[i].fname = tostring(x->sval);  in redirprint()
1208 	tempfree(x);  in redirprint()