36 static NODE	*arithmetic(NODE *np);
37 static NODE	*comparison(NODE *np);
38 static int	type_of(NODE *np);
39 static NODE	*lfield(INT fieldno, NODE *value);
40 static NODE	*rfield(INT fieldno);
41 static NODE	*userfunc(NODE *np);
43 static NODE	*exprconcat(NODE *np, int len);
44 static int	s_if(NODE *np);
45 static int	s_while(NODE *np);
46 static int	s_for(NODE *np);
47 static int	s_forin(NODE *np);
48 static void	setrefield(NODE *value);
50 static int	action(NODE *np);
51 static wchar_t	*makeindex(NODE *np, wchar_t *array, int tag);
52 static int	exprtest(NODE *np);
93 static NODE	nodes[NSNODE];		/* Cache of quick access nodes */
94 static NODE	*fnodep = &nodes[0];
98 static NODE	*retval;		/* Last return value of a function */
106 static NODE*	forindex[NFORINLOOP];
107 static NODE**	next_forin = forindex;
116 strassign(NODE *np, STRING string, int flags, size_t length)  in strassign()
155 NODE *
156 nassign(NODE *np, NODE *value)  in nassign()
222 setrefield(NODE *np)  in setrefield()
239 NODE *
240 assign(NODE *left, NODE *right)  in assign()
281 NODE *
282 node(int type, NODE *left, NODE *right)  in node()
284 	register NODE *np;  in node()
296 NODE *
299 	register NODE *np;  in intnode()
310 NODE *
313 	register NODE *np;  in realnode()
324 NODE *
327 	register NODE *np;  in stringnode()
368 NODE *
371 	register NODE *np;  in emptynode()
376 		np = (NODE *)emalloc(sizeof (NODE) +  in emptynode()
394 freenode(NODE *np)  in freenode()
410 	register NODE *np;  in kinstall()
423 NODE *
426 	register NODE *np;  in finstall()
443 NODE *
447 	register NODE *np;  in vlookup()
473 addsymtab(NODE *np)  in addsymtab()
475 	register NODE **spp;  in addsymtab()
491 delsymtab(NODE *np, int fflag)  in delsymtab()
493 	register NODE *rnp;  in delsymtab()
494 	register NODE *prevp;  in delsymtab()
495 	register NODE **sptr;  in delsymtab()
555 execute(NODE *wp)  in execute()
557 	register NODE *np;  in execute()
559 	register NODE *tnp;  in execute()
623 	register NODE *np, *nnp;  in freetemps()
647 action(NODE *wp)  in action()
649 	register NODE *np;  in action()
651 	register NODE *l;  in action()
795 delarray(NODE *np)  in delarray()
797 	register NODE *nnp;  in delarray()
812 exprint(NODE *np)  in exprint()
841 exprreal(NODE *np)  in exprreal()
872 exprstring(NODE *np)  in exprstring()
946 static NODE *
947 exprconcat(NODE *np, int len)  in exprconcat()
950 	register NODE *lnp = np->n_left;  in exprconcat()
951 	register NODE *rnp = np->n_right;  in exprconcat()
997 NODE *
998 exprreduce(NODE *np)  in exprreduce()
1001 	NODE *tnp;  in exprreduce()
1239 static NODE *
1240 arithmetic(NODE *np)  in arithmetic()
1242 	register NODE *left, *right;  in arithmetic()
1336 static NODE *
1337 comparison(NODE *np)  in comparison()
1339 	register NODE *left, *right;  in comparison()
1457 type_of(NODE *np)  in type_of()
1529 static NODE *
1584 static NODE *
1585 lfield(INT fieldno, NODE *np)  in lfield()
1670 static NODE *
1671 userfunc(NODE *np)  in userfunc()
1673 	register NODE *temp;  in userfunc()
1674 	NODE *fnp;  in userfunc()
1693 		register NODE *formal;  in userfunc()
1694 		register NODE *actual;  in userfunc()
1695 		NODE *formlist, *actlist, *templist, *temptail;  in userfunc()
1708 			register NODE *array;  in userfunc()
1790 		register NODE *savenode = curnode;  in userfunc()
1799 		register NODE *formal;  in userfunc()
1800 		NODE *formlist;  in userfunc()
1820 getregexp(NODE *np)  in getregexp()
1831 NODE *
1832 getlist(NODE **npp)  in getlist()
1834 	register NODE *np;  in getlist()
1851 s_if(NODE *np)  in s_if()
1853 	register NODE *xp;  in s_if()
1871 s_while(NODE *np)  in s_while()
1901 s_for(NODE *np)  in s_for()
1903 	register NODE *testnp, *incnp, *initnp;  in s_for()
1905 	NODE *listp;  in s_for()
1939 s_forin(NODE *np)  in s_forin()
1941 	register NODE *left;  in s_forin()
1943 	register NODE *var;  in s_forin()
1944 	register NODE **nnp;  in s_forin()
1945 	register NODE *statement;  in s_forin()
2044 NODE *
2045 symwalk(int *buckp, NODE **npp)  in symwalk()
2047 	register NODE *np;  in symwalk()
2070 exprtest(NODE *np)  in exprtest()
2099 makeindex(NODE *np, wchar_t *array, int tag)  in makeindex()
2104 	register NODE *index;  in makeindex()
2185 promote(NODE *n)  in promote()
2187 	register NODE *prev = NNULL;  in promote()
2188 	register NODE *next;  in promote()