51 void tempfree(Cell *p) {  in tempfree()
81 Cell	*tmps;		/* free temporary cells for execution */
83 static Cell	truecell	={ OBOOL, BTRUE, 0, 0, 1.0, NUM, NULL, NULL };
84 Cell	*True	= &truecell;
85 static Cell	falsecell	={ OBOOL, BFALSE, 0, 0, 0.0, NUM, NULL, NULL };
86 Cell	*False	= &falsecell;
87 static Cell	breakcell	={ OJUMP, JBREAK, 0, 0, 0.0, NUM, NULL, NULL };
88 Cell	*jbreak	= &breakcell;
89 static Cell	contcell	={ OJUMP, JCONT, 0, 0, 0.0, NUM, NULL, NULL };
90 Cell	*jcont	= &contcell;
91 static Cell	nextcell	={ OJUMP, JNEXT, 0, 0, 0.0, NUM, NULL, NULL };
92 Cell	*jnext	= &nextcell;
93 static Cell	nextfilecell	={ OJUMP, JNEXTFILE, 0, 0, 0.0, NUM, NULL, NULL };
94 Cell	*jnextfile	= &nextfilecell;
95 static Cell	exitcell	={ OJUMP, JEXIT, 0, 0, 0.0, NUM, NULL, NULL };
96 Cell	*jexit	= &exitcell;
97 static Cell	retcell		={ OJUMP, JRET, 0, 0, 0.0, NUM, NULL, NULL };
98 Cell	*jret	= &retcell;
99 static Cell	tempcell	={ OCELL, CTEMP, 0, EMPTY, 0.0, NUM|STR|DONTFREE, NULL, NULL };
146 Cell *execute(Node *u)	/* execute a node of the parse tree */  in execute()
148 	Cell *(*proc)(Node **, int);  in execute()
149 	Cell *x;  in execute()
157 			x = (Cell *) (a->narg[0]);  in execute()
183 Cell *program(Node **a, int n)	/* execute an awk program */  in program()
185 	Cell *x;  in program()
219 	Cell *fcncell;	/* pointer to Cell for function */
220 	Cell **args;	/* pointer to array of arguments after execute */
221 	Cell *retval;	/* return value */
230 Cell *call(Node **a, int n)	/* function call.  very kludgy and fragile */  in call()
232 	static const Cell newcopycell = { OCELL, CCOPY, 0, EMPTY, 0.0, NUM|STR|DONTFREE, NULL, NULL };  in call()
236 	Cell *args[NARGS], *oargs[NARGS];	/* BUG: fixed size arrays */  in call()
237 	Cell *y, *z, *fcn;  in call()
294 		Cell *t = frp->args[i];  in call()
329 Cell *copycell(Cell *x)	/* make a copy of a cell in a temp */  in copycell()
331 	Cell *y;  in copycell()
348 Cell *arg(Node **a, int n)	/* nth argument of a function */  in arg()
359 Cell *jump(Node **a, int n)	/* break, continue, next, nextfile, return */  in jump()
361 	Cell *y;  in jump()
403 Cell *awkgetline(Node **a, int n)	/* get next line from specific input */  in awkgetline()
405 	Cell *r, *x;  in awkgetline()
406 	extern Cell **fldtab;  in awkgetline()
468 Cell *getnf(Node **a, int n)	/* get NF */  in getnf()
472 	return (Cell *) a[0];  in getnf()
490 		Cell *x = execute(p);	/* expr */  in makearraystring()
512 Cell *array(Node **a, int n)	/* a[0] is symtab, a[1] is list of subscripts */  in array()
514 	Cell *x, *z;  in array()
535 Cell *awkdelete(Node **a, int n)	/* a[0] is symtab, a[1] is list of subscripts */  in awkdelete()
537 	Cell *x;  in awkdelete()
559 Cell *intest(Node **a, int n)	/* a[0] is index (list), a[1] is symtab */  in intest()
561 	Cell *ap, *k;  in intest()
795 Cell *matchop(Node **a, int n)	/* ~ and match() */  in matchop()
797 	Cell *x, *y, *z;  in matchop()
851 Cell *boolop(Node **a, int n)	/* a[0] || a[1], a[0] && a[1], !a[0] */  in boolop()
853 	Cell *x, *y;  in boolop()
883 Cell *relop(Node **a, int n)	/* a[0 < a[1], etc. */  in relop()
886 	Cell *x, *y;  in relop()
924 void tfree(Cell *a)	/* free a tempcell */  in tfree()
936 Cell *gettemp(void)	/* get a tempcell */  in gettemp()
938 	Cell *x;  in gettemp()
941 		tmps = (Cell *) calloc(100, sizeof(*tmps));  in gettemp()
954 Cell *indirect(Node **a, int n)	/* $( a[0] ) */  in indirect()
957 	Cell *x;  in indirect()
976 Cell *substr(Node **a, int nnn)		/* substr(a[0], a[1], a[2]) */  in substr()
982 	Cell *x, *y, *z = NULL;  in substr()
1029 Cell *sindex(Node **a, int nnn)		/* index(a[0], a[1]) */  in sindex()
1031 	Cell *x, *y, *z;  in sindex()
1082 	Cell *x;  in format()
1390 Cell *awksprintf(Node **a, int n)		/* sprintf(a[0]) */  in awksprintf()
1392 	Cell *x;  in awksprintf()
1410 Cell *awkprintf(Node **a, int n)		/* printf */  in awkprintf()
1414 	Cell *x;  in awkprintf()
1444 Cell *arith(Node **a, int n)	/* a[0] + a[1], etc.  also -a[0] */  in arith()
1448 	Cell *x, *y, *z;  in arith()
1513 Cell *incrdecr(Node **a, int n)		/* a[0]++, etc. */  in incrdecr()
1515 	Cell *x, *z;  in incrdecr()
1533 Cell *assign(Node **a, int n)	/* a[0] = a[1], a[0] += a[1], etc. */  in assign()
1535 	Cell *x, *y;  in assign()
1599 Cell *cat(Node **a, int q)	/* a[0] cat a[1] */  in cat()
1601 	Cell *x, *y, *z;  in cat()
1628 Cell *pastat(Node **a, int n)	/* a[0] { a[1] } */  in pastat()
1630 	Cell *x;  in pastat()
1644 Cell *dopa2(Node **a, int n)	/* a[0], a[1] { a[2] } */  in dopa2()
1646 	Cell *x;  in dopa2()
1667 Cell *split(Node **a, int nnn)	/* split(a[0], a[1], a[2]); a[3] is type */  in split()
1669 	Cell *x = NULL, *y, *ap;  in split()
1855 Cell *condexpr(Node **a, int n)	/* a[0] ? a[1] : a[2] */  in condexpr()
1857 	Cell *x;  in condexpr()
1870 Cell *ifstat(Node **a, int n)	/* if (a[0]) a[1]; else a[2] */  in ifstat()
1872 	Cell *x;  in ifstat()
1885 Cell *whilestat(Node **a, int n)	/* while (a[0]) a[1] */  in whilestat()
1887 	Cell *x;  in whilestat()
1905 Cell *dostat(Node **a, int n)	/* do a[0]; while(a[1]) */  in dostat()
1907 	Cell *x;  in dostat()
1923 Cell *forstat(Node **a, int n)	/* for (a[0]; a[1]; a[2]) a[3] */  in forstat()
1925 	Cell *x;  in forstat()
1946 Cell *instat(Node **a, int n)	/* for (a[0] in a[1]) a[2] */  in instat()
1948 	Cell *x, *vp, *arrayp, *cp, *ncp;  in instat()
2054 Cell *bltin(Node **a, int n)	/* builtin functions. a[0] is type, a[1] is arg list */  in bltin()
2056 	Cell *x, *y;  in bltin()
2295 Cell *printstat(Node **a, int n)	/* print a[0] */  in printstat()
2298 	Cell *y;  in printstat()
2321 Cell *nullproc(Node **a, int n)  in nullproc()
2330 	Cell *x;  in redirect()
2437 Cell *closefile(Node **a, int n)  in closefile()
2439  	Cell *x;  in closefile()
2518 Cell *dosub(Node **a, int subop)        /* sub and gsub */  in dosub()
2523 	Cell *x;  in dosub()
2657 Cell *gensub(Node **a, int nnn)	/* global selective substitute */  in gensub()
2660 	Cell *x, *y, *res, *h;  in gensub()