cmd/awk_xpg4/awk3.c

38 static NODE	*arithmetic(NODE *np);
39 static NODE	*comparison(NODE *np);
40 static int	type_of(NODE *np);
41 static NODE	*lfield(INT fieldno, NODE *value);
42 static NODE	*rfield(INT fieldno);
43 static NODE	*userfunc(NODE *np);
45 static NODE	*exprconcat(NODE *np, int len);
46 static int	s_if(NODE *np);
47 static int	s_while(NODE *np);
48 static int	s_for(NODE *np);
49 static int	s_forin(NODE *np);
50 static void	setrefield(NODE *value);
52 static int	action(NODE *np);
53 static wchar_t	*makeindex(NODE *np, wchar_t *array, int tag);
54 static int	exprtest(NODE *np);
95 static NODE	nodes[NSNODE];		/* Cache of quick access nodes */
96 static NODE	*fnodep = &nodes[0];
100 static NODE	*retval;		/* Last return value of a function */
108 static NODE*	forindex[NFORINLOOP];
109 static NODE**	next_forin = forindex;
112  * Assign a string directly to a NODE without creating an intermediate
113  * NODE.  This can handle either FALLOC, FSTATIC, FNOALLOC or FSENSE for
114  * "flags" argument.  Also the NODE "np" must be reduced to an lvalue
118 strassign(NODE *np, STRING string, int flags, size_t length)
157 NODE *
158 nassign(NODE *np, NODE *value)
224 setrefield(NODE *np)
241 NODE *
242 assign(NODE *left, NODE *right)
283 NODE *
284 node(int type, NODE *left, NODE *right)
286 	register NODE *np;
298 NODE *
301 	register NODE *np;
312 NODE *
315 	register NODE *np;
326 NODE *
329 	register NODE *np;
370 NODE *
373 	register NODE *np;
378 		np = (NODE *)emalloc(sizeof (NODE) +
396 freenode(NODE *np)
412 	register NODE *np;
425 NODE *
428 	register NODE *np;
442  *	1 if no creation of a new NODE,
443  *	0 if ok to create new NODE
445 NODE *
449 	register NODE *np;
475 addsymtab(NODE *np)
477 	register NODE **spp;
493 delsymtab(NODE *np, int fflag)
495 	register NODE *rnp;
496 	register NODE *prevp;
497 	register NODE **sptr;
557 execute(NODE *wp)
559 	register NODE *np;
561 	register NODE *tnp;
625 	register NODE *np, *nnp;
649 action(NODE *wp)
651 	register NODE *np;
653 	register NODE *l;
796 delarray(NODE *np)
798 	register NODE *nnp;
813 exprint(NODE *np)
842 exprreal(NODE *np)
873 exprstring(NODE *np)
947 static NODE *
948 exprconcat(NODE *np, int len)
951 	register NODE *lnp = np->n_left;
952 	register NODE *rnp = np->n_right;
998 NODE *
999 exprreduce(NODE *np)
1002 	NODE *tnp;
1242 static NODE *
1243 arithmetic(NODE *np)
1245 	register NODE *left, *right;
1339 static NODE *
1340 comparison(NODE *np)
1342 	register NODE *left, *right;
1460 type_of(NODE *np)
1532 static NODE *
1587 static NODE *
1588 lfield(INT fieldno, NODE *np)
1673 static NODE *
1674 userfunc(NODE *np)
1676 	register NODE *temp;
1677 	NODE *fnp;
1696 		register NODE *formal;
1697 		register NODE *actual;
1698 		NODE *formlist, *actlist, *templist, *temptail;
1711 			register NODE *array;
1793 		register NODE *savenode = curnode;
1802 		register NODE *formal;
1803 		NODE *formlist;
1823 getregexp(NODE *np)
1834 NODE *
1835 getlist(NODE **npp)
1837 	register NODE *np;
1854 s_if(NODE *np)
1856 	register NODE *xp;
1874 s_while(NODE *np)
1904 s_for(NODE *np)
1906 	register NODE *testnp, *incnp, *initnp;
1908 	NODE *listp;
1942 s_forin(NODE *np)
1944 	register NODE *left;
1946 	register NODE *var;
1947 	register NODE **nnp;
1948 	register NODE *statement;
2047 NODE *
2048 symwalk(int *buckp, NODE **npp)
2050 	register NODE *np;
2073 exprtest(NODE *np)
2102 makeindex(NODE *np, wchar_t *array, int tag)
2107 	register NODE *index;
2188 promote(NODE *n)
2190 	register NODE *prev = NNULL;
2191 	register NODE *next;