70 Cell	*tmps;		/* free temporary cells for execution */
72 static Cell	truecell	={ OBOOL, BTRUE, 0, 0, 1.0, NUM };
73 Cell	*True	= &truecell;
74 static Cell	falsecell	={ OBOOL, BFALSE, 0, 0, 0.0, NUM };
75 Cell	*False	= &falsecell;
76 static Cell	breakcell	={ OJUMP, JBREAK, 0, 0, 0.0, NUM };
77 Cell	*jbreak	= &breakcell;
78 static Cell	contcell	={ OJUMP, JCONT, 0, 0, 0.0, NUM };
79 Cell	*jcont	= &contcell;
80 static Cell	nextcell	={ OJUMP, JNEXT, 0, 0, 0.0, NUM };
81 Cell	*jnext	= &nextcell;
82 static Cell	nextfilecell	={ OJUMP, JNEXTFILE, 0, 0, 0.0, NUM };
83 Cell	*jnextfile	= &nextfilecell;
84 static Cell	exitcell	={ OJUMP, JEXIT, 0, 0, 0.0, NUM };
85 Cell	*jexit	= &exitcell;
86 static Cell	retcell		={ OJUMP, JRET, 0, 0, 0.0, NUM };
87 Cell	*jret	= &retcell;
88 static Cell	tempcell	={ OCELL, CTEMP, 0, "", 0.0, NUM|STR|DONTFREE };
135 Cell *execute(Node *u)	/* execute a node of the parse tree */  in execute()
138 	Cell *(*proc)(Node **, int);  in execute()
139 	Cell *x;  in execute()
147 			x = (Cell *) (a->narg[0]);  in execute()
174 Cell *program(Node **a, int n)	/* execute an awk program */  in program()
176 	Cell *x;  in program()
210 	Cell *fcncell;	/* pointer to Cell for function */
211 	Cell **args;	/* pointer to array of arguments after execute */
212 	Cell *retval;	/* return value */
221 Cell *call(Node **a, int n)	/* function call.  very kludgy and fragile */  in call()
223 	static Cell newcopycell = { OCELL, CCOPY, 0, "", 0.0, NUM|STR|DONTFREE };  in call()
226 	Cell *args[NARGS], *oargs[NARGS];	/* BUG: fixed size arrays */  in call()
227 	Cell *y, *z, *fcn;  in call()
285 		Cell *t = fp->args[i];  in call()
314 Cell *copycell(Cell *x)	/* make a copy of a cell in a temp */  in copycell()
316 	Cell *y;  in copycell()
328 Cell *arg(Node **a, int n)	/* nth argument of a function */  in arg()
339 Cell *jump(Node **a, int n)	/* break, continue, next, nextfile, return */  in jump()
341 	Cell *y;  in jump()
383 Cell *getline(Node **a, int n)	/* get next line from specific input */  in getline()
385 	Cell *r, *x;  in getline()
386 	extern Cell **fldtab;  in getline()
436 Cell *getnf(Node **a, int n)	/* get NF */  in getnf()
440 	return (Cell *) a[0];  in getnf()
443 Cell *array(Node **a, int n)	/* a[0] is symtab, a[1] is list of subscripts */  in array()
445 	Cell *x, *y, *z;  in array()
483 Cell *awkdelete(Node **a, int n)	/* a[0] is symtab, a[1] is list of subscripts */  in awkdelete()
485 	Cell *x, *y;  in awkdelete()
521 Cell *intest(Node **a, int n)	/* a[0] is index (list), a[1] is symtab */  in intest()
523 	Cell *x, *ap, *k;  in intest()
563 Cell *matchop(Node **a, int n)	/* ~ and match() */  in matchop()
565 	Cell *x, *y;  in matchop()
602 Cell *boolop(Node **a, int n)	/* a[0] || a[1], a[0] && a[1], !a[0] */  in boolop()
604 	Cell *x, *y;  in boolop()
634 Cell *relop(Node **a, int n)	/* a[0 < a[1], etc. */  in relop()
637 	Cell *x, *y;  in relop()
669 void tfree(Cell *a)	/* free a tempcell */  in tfree()
681 Cell *gettemp(void)	/* get a tempcell */  in gettemp()
683 	Cell *x;  in gettemp()
686 		tmps = (Cell *) calloc(100, sizeof(Cell));  in gettemp()
699 Cell *indirect(Node **a, int n)	/* $( a[0] ) */  in indirect()
701 	Cell *x;  in indirect()
717 Cell *substr(Node **a, int nnn)		/* substr(a[0], a[1], a[2]) */  in substr()
722 	Cell *x, *y, *z = 0;  in substr()
768 Cell *sindex(Node **a, int nnn)		/* index(a[0], a[1]) */  in sindex()
770 	Cell *x, *y, *z;  in sindex()
800 	Cell *x;  in format()
928 Cell *awksprintf(Node **a, int n)		/* sprintf(a[0]) */  in awksprintf()
930 	Cell *x;  in awksprintf()
948 Cell *awkprintf(Node **a, int n)		/* printf */  in awkprintf()
952 	Cell *x;  in awkprintf()
982 Cell *arith(Node **a, int n)	/* a[0] + a[1], etc.  also -a[0] */  in arith()
986 	Cell *x, *y, *z;  in arith()
1047 Cell *incrdecr(Node **a, int n)		/* a[0]++, etc. */  in incrdecr()
1049 	Cell *x, *z;  in incrdecr()
1067 Cell *assign(Node **a, int n)	/* a[0] = a[1], a[0] += a[1], etc. */  in assign()
1069 	Cell *x, *y;  in assign()
1130 Cell *cat(Node **a, int q)	/* a[0] cat a[1] */  in cat()
1132 	Cell *x, *y, *z;  in cat()
1156 Cell *pastat(Node **a, int n)	/* a[0] { a[1] } */  in pastat()
1158 	Cell *x;  in pastat()
1172 Cell *dopa2(Node **a, int n)	/* a[0], a[1] { a[2] } */  in dopa2()
1174 	Cell *x;  in dopa2()
1195 Cell *split(Node **a, int nnn)	/* split(a[0], a[1], a[2]); a[3] is type */  in split()
1197 	Cell *x = 0, *y, *ap;  in split()
1324 Cell *condexpr(Node **a, int n)	/* a[0] ? a[1] : a[2] */  in condexpr()
1326 	Cell *x;  in condexpr()
1339 Cell *ifstat(Node **a, int n)	/* if (a[0]) a[1]; else a[2] */  in ifstat()
1341 	Cell *x;  in ifstat()
1354 Cell *whilestat(Node **a, int n)	/* while (a[0]) a[1] */  in whilestat()
1356 	Cell *x;  in whilestat()
1374 Cell *dostat(Node **a, int n)	/* do a[0]; while(a[1]) */  in dostat()
1376 	Cell *x;  in dostat()
1392 Cell *forstat(Node **a, int n)	/* for (a[0]; a[1]; a[2]) a[3] */  in forstat()
1394 	Cell *x;  in forstat()
1415 Cell *instat(Node **a, int n)	/* for (a[0] in a[1]) a[2] */  in instat()
1417 	Cell *x, *vp, *arrayp, *cp, *ncp;  in instat()
1447 Cell *bltin(Node **a, int n)	/* builtin functions. a[0] is type, a[1] is arg list */  in bltin()
1449 	Cell *x, *y;  in bltin()
1557 Cell *printstat(Node **a, int n)	/* print a[0] */  in printstat()
1561 	Cell *y;  in printstat()
1585 Cell *nullproc(Node **a, int n)  in nullproc()
1596 	Cell *x;  in redirect()
1681 Cell *closefile(Node **a, int n)  in closefile()
1683 	Cell *x;  in closefile()
1736 Cell *sub(Node **a, int nnn)	/* substitute command */  in sub()
1739 	Cell *x, *y, *result;  in sub()
1796 Cell *gsub(Node **a, int nnn)	/* global substitute */  in gsub()
1798 	Cell *x, *y;  in gsub()