49 void tempfree(Cell *p) {  in tempfree()
79 Cell	*tmps;		/* free temporary cells for execution */
81 static Cell	truecell	={ OBOOL, BTRUE, 0, 0, 1.0, NUM, NULL, NULL };
82 Cell	*True	= &truecell;
83 static Cell	falsecell	={ OBOOL, BFALSE, 0, 0, 0.0, NUM, NULL, NULL };
84 Cell	*False	= &falsecell;
85 static Cell	breakcell	={ OJUMP, JBREAK, 0, 0, 0.0, NUM, NULL, NULL };
86 Cell	*jbreak	= &breakcell;
87 static Cell	contcell	={ OJUMP, JCONT, 0, 0, 0.0, NUM, NULL, NULL };
88 Cell	*jcont	= &contcell;
89 static Cell	nextcell	={ OJUMP, JNEXT, 0, 0, 0.0, NUM, NULL, NULL };
90 Cell	*jnext	= &nextcell;
91 static Cell	nextfilecell	={ OJUMP, JNEXTFILE, 0, 0, 0.0, NUM, NULL, NULL };
92 Cell	*jnextfile	= &nextfilecell;
93 static Cell	exitcell	={ OJUMP, JEXIT, 0, 0, 0.0, NUM, NULL, NULL };
94 Cell	*jexit	= &exitcell;
95 static Cell	retcell		={ OJUMP, JRET, 0, 0, 0.0, NUM, NULL, NULL };
96 Cell	*jret	= &retcell;
97 static Cell	tempcell	={ OCELL, CTEMP, 0, EMPTY, 0.0, NUM|STR|DONTFREE, NULL, NULL };
144 Cell *execute(Node *u)	/* execute a node of the parse tree */  in execute()
146 	Cell *(*proc)(Node **, int);  in execute()
147 	Cell *x;  in execute()
155 			x = (Cell *) (a->narg[0]);  in execute()
181 Cell *program(Node **a, int n)	/* execute an awk program */  in program()
183 	Cell *x;  in program()
217 	Cell *fcncell;	/* pointer to Cell for function */
218 	Cell **args;	/* pointer to array of arguments after execute */
219 	Cell *retval;	/* return value */
228 Cell *call(Node **a, int n)	/* function call.  very kludgy and fragile */  in call()
230 	static const Cell newcopycell = { OCELL, CCOPY, 0, EMPTY, 0.0, NUM|STR|DONTFREE, NULL, NULL };  in call()
234 	Cell *args[NARGS], *oargs[NARGS];	/* BUG: fixed size arrays */  in call()
235 	Cell *y, *z, *fcn;  in call()
292 		Cell *t = frp->args[i];  in call()
327 Cell *copycell(Cell *x)	/* make a copy of a cell in a temp */  in copycell()
329 	Cell *y;  in copycell()
346 Cell *arg(Node **a, int n)	/* nth argument of a function */  in arg()
357 Cell *jump(Node **a, int n)	/* break, continue, next, nextfile, return */  in jump()
359 	Cell *y;  in jump()
401 Cell *awkgetline(Node **a, int n)	/* get next line from specific input */  in awkgetline()
403 	Cell *r, *x;  in awkgetline()
404 	extern Cell **fldtab;  in awkgetline()
464 Cell *getnf(Node **a, int n)	/* get NF */  in getnf()
468 	return (Cell *) a[0];  in getnf()
486 		Cell *x = execute(p);	/* expr */  in makearraystring()
508 Cell *array(Node **a, int n)	/* a[0] is symtab, a[1] is list of subscripts */  in array()
510 	Cell *x, *z;  in array()
531 Cell *awkdelete(Node **a, int n)	/* a[0] is symtab, a[1] is list of subscripts */  in awkdelete()
533 	Cell *x;  in awkdelete()
555 Cell *intest(Node **a, int n)	/* a[0] is index (list), a[1] is symtab */  in intest()
557 	Cell *ap, *k;  in intest()
580 Cell *matchop(Node **a, int n)	/* ~ and match() */  in matchop()
582 	Cell *x, *y;  in matchop()
621 Cell *boolop(Node **a, int n)	/* a[0] || a[1], a[0] && a[1], !a[0] */  in boolop()
623 	Cell *x, *y;  in boolop()
653 Cell *relop(Node **a, int n)	/* a[0 < a[1], etc. */  in relop()
656 	Cell *x, *y;  in relop()
688 void tfree(Cell *a)	/* free a tempcell */  in tfree()
700 Cell *gettemp(void)	/* get a tempcell */  in gettemp()
702 	Cell *x;  in gettemp()
705 		tmps = (Cell *) calloc(100, sizeof(*tmps));  in gettemp()
718 Cell *indirect(Node **a, int n)	/* $( a[0] ) */  in indirect()
721 	Cell *x;  in indirect()
740 Cell *substr(Node **a, int nnn)		/* substr(a[0], a[1], a[2]) */  in substr()
745 	Cell *x, *y, *z = NULL;  in substr()
788 Cell *sindex(Node **a, int nnn)		/* index(a[0], a[1]) */  in sindex()
790 	Cell *x, *y, *z;  in sindex()
821 	Cell *x;  in format()
979 Cell *awksprintf(Node **a, int n)		/* sprintf(a[0]) */  in awksprintf()
981 	Cell *x;  in awksprintf()
999 Cell *awkprintf(Node **a, int n)		/* printf */  in awkprintf()
1003 	Cell *x;  in awkprintf()
1033 Cell *arith(Node **a, int n)	/* a[0] + a[1], etc.  also -a[0] */  in arith()
1037 	Cell *x, *y, *z;  in arith()
1102 Cell *incrdecr(Node **a, int n)		/* a[0]++, etc. */  in incrdecr()
1104 	Cell *x, *z;  in incrdecr()
1122 Cell *assign(Node **a, int n)	/* a[0] = a[1], a[0] += a[1], etc. */  in assign()
1124 	Cell *x, *y;  in assign()
1187 Cell *cat(Node **a, int q)	/* a[0] cat a[1] */  in cat()
1189 	Cell *x, *y, *z;  in cat()
1215 Cell *pastat(Node **a, int n)	/* a[0] { a[1] } */  in pastat()
1217 	Cell *x;  in pastat()
1231 Cell *dopa2(Node **a, int n)	/* a[0], a[1] { a[2] } */  in dopa2()
1233 	Cell *x;  in dopa2()
1254 Cell *split(Node **a, int nnn)	/* split(a[0], a[1], a[2]); a[3] is type */  in split()
1256 	Cell *x = NULL, *y, *ap;  in split()
1396 Cell *condexpr(Node **a, int n)	/* a[0] ? a[1] : a[2] */  in condexpr()
1398 	Cell *x;  in condexpr()
1411 Cell *ifstat(Node **a, int n)	/* if (a[0]) a[1]; else a[2] */  in ifstat()
1413 	Cell *x;  in ifstat()
1426 Cell *whilestat(Node **a, int n)	/* while (a[0]) a[1] */  in whilestat()
1428 	Cell *x;  in whilestat()
1446 Cell *dostat(Node **a, int n)	/* do a[0]; while(a[1]) */  in dostat()
1448 	Cell *x;  in dostat()
1464 Cell *forstat(Node **a, int n)	/* for (a[0]; a[1]; a[2]) a[3] */  in forstat()
1466 	Cell *x;  in forstat()
1487 Cell *instat(Node **a, int n)	/* for (a[0] in a[1]) a[2] */  in instat()
1489 	Cell *x, *vp, *arrayp, *cp, *ncp;  in instat()
1601 Cell *bltin(Node **a, int n)	/* builtin functions. a[0] is type, a[1] is arg list */  in bltin()
1603 	Cell *x, *y;  in bltin()
1719 Cell *printstat(Node **a, int n)	/* print a[0] */  in printstat()
1722 	Cell *y;  in printstat()
1745 Cell *nullproc(Node **a, int n)  in nullproc()
1754 	Cell *x;  in redirect()
1861  Cell *closefile(Node **a, int n)  in closefile()
1863  	Cell *x;  in closefile()
1930 Cell *sub(Node **a, int nnn)	/* substitute command */  in sub()
1933 	Cell *x, *y, *result;  in sub()
1990 Cell *gsub(Node **a, int nnn)	/* global substitute */  in gsub()
1992 	Cell *x, *y;  in gsub()