49 static	Cell	*r_execute(Node *);
50 static	Cell	*gettemp(char *), *copycell(Cell *);
56 static Cell	*tmps;
58 static Cell	truecell	= { OBOOL, BTRUE, 0, 0, 1.0, NUM };
59 Cell	*true	= &truecell;
60 static Cell	falsecell	= { OBOOL, BFALSE, 0, 0, 0.0, NUM };
61 Cell	*false	= &falsecell;
62 static Cell	breakcell	= { OJUMP, JBREAK, 0, 0, 0.0, NUM };
63 Cell	*jbreak	= &breakcell;
64 static Cell	contcell	= { OJUMP, JCONT, 0, 0, 0.0, NUM };
65 Cell	*jcont	= &contcell;
66 static Cell	nextcell	= { OJUMP, JNEXT, 0, 0, 0.0, NUM };
67 Cell	*jnext	= &nextcell;
68 static Cell	exitcell	= { OJUMP, JEXIT, 0, 0, 0.0, NUM };
69 Cell	*jexit	= &exitcell;
70 static Cell	retcell		= { OJUMP, JRET, 0, 0, 0.0, NUM };
71 Cell	*jret	= &retcell;
72 static Cell	tempcell	= { OCELL, CTEMP, 0, 0, 0.0, NUM };
76 static	void	tfree(Cell *, char *);
87 static Cell *
90 	register Cell *(*proc)();  in r_execute()
91 	register Cell *x;  in r_execute()
99 			x = (Cell *) (a->narg[0]);  in r_execute()
127 Cell *
130 	register Cell *x;  in program()
169 	Cell *fcncell;	/* pointer to Cell for function */
170 	Cell **args;	/* pointer to array of arguments after execute */
171 	Cell *retval;	/* return value */
181 Cell *
184 	static Cell newcopycell =  in call()
188 	Cell *args[NARGS], *oargs[NARGS], *y, *z, *fcn;  in call()
258 		Cell *t = fp->args[i];  in call()
289 static Cell *
290 copycell(Cell *x)	/* make a copy of a cell in a temp */  in copycell()
292 	Cell *y;  in copycell()
305 Cell *
319 Cell *
322 	register Cell *y;  in jump()
360 Cell *
364 	register Cell *r, *x;  in getaline()
413 Cell *
418 	return ((Cell *)a[0]);  in getnf()
422 Cell *
425 	register Cell *x, *y, *z;  in array()
468 Cell *
471 	Cell *x, *y;  in delete()
504 Cell *
507 	register Cell *x, *ap, *k;  in intest()
545 Cell *
548 	register Cell *x, *y;  in matchop()
587 Cell *
590 	register Cell *x, *y;  in boolop()
620 Cell *
624 	register Cell *x, *y;  in relop()
652 tfree(Cell *a, char *s)  in tfree()
666 static Cell *
670 	register Cell *x;  in gettemp()
673 		tmps = (Cell *)calloc(100, sizeof (Cell));  in gettemp()
689 Cell *
692 	register Cell *x;  in indirect()
708 Cell *
714 	register Cell *x, *y, *z;  in substr()
757 Cell *
760 	register Cell *x, *y, *z;  in sindex()
789 	register Cell *x;  in format()
930 Cell *
933 	register Cell *x;  in a_sprintf()
948 Cell *
952 	register Cell *x;  in aprintf()
971 Cell *
976 	register Cell *x, *y, *z;  in arith()
1038 Cell *
1041 	register Cell *x, *z;  in incrdecr()
1059 Cell *
1062 	register Cell *x, *y;  in assign()
1121 Cell *
1124 	register Cell *x, *y, *z;  in cat()
1150 Cell *
1153 	register Cell *x;  in pastat()
1168 Cell *
1171 	Cell	*x;  in dopa2()
1203 Cell *
1206 	Cell *x, *y, *ap;  in split()
1346 Cell *
1349 	register Cell *x;  in condexpr()
1363 Cell *
1366 	register Cell *x;  in ifstat()
1380 Cell *
1383 	register Cell *x;  in whilestat()
1402 Cell *
1405 	register Cell *x;  in dostat()
1422 Cell *
1425 	register Cell *x;  in forstat()
1449 Cell *
1452 	register Cell *x, *vp, *arrayp, *cp, *ncp;  in instat()
1483 Cell *
1486 	register Cell *x, *y;  in bltin()
1571 Cell *
1575 	register Cell *y;  in print()
1597 Cell *
1613 	Cell *x;  in redirect()
1673 Cell *
1676 	register Cell *x;  in closefile()
1730 Cell *
1734 	register Cell *x, *y, *result;  in sub()
1794 Cell *
1797 	register Cell *x, *y;  in gsub()