nawk/dist/run.c

51 void tempfree(Cell *p) {
53 		WARNING("bad csub %d in Cell %d %s",
81 Cell	*tmps;		/* free temporary cells for execution */
83 static Cell	truecell	={ OBOOL, BTRUE, 0, 0, 1.0, NUM, NULL };
84 Cell	*True	= &truecell;
85 static Cell	falsecell	={ OBOOL, BFALSE, 0, 0, 0.0, NUM, NULL };
86 Cell	*False	= &falsecell;
87 static Cell	breakcell	={ OJUMP, JBREAK, 0, 0, 0.0, NUM, NULL };
88 Cell	*jbreak	= &breakcell;
89 static Cell	contcell	={ OJUMP, JCONT, 0, 0, 0.0, NUM, NULL };
90 Cell	*jcont	= &contcell;
91 static Cell	nextcell	={ OJUMP, JNEXT, 0, 0, 0.0, NUM, NULL };
92 Cell	*jnext	= &nextcell;
93 static Cell	nextfilecell	={ OJUMP, JNEXTFILE, 0, 0, 0.0, NUM, NULL};
94 Cell	*jnextfile	= &nextfilecell;
95 static Cell	exitcell	={ OJUMP, JEXIT, 0, 0, 0.0, NUM, NULL };
96 Cell	*jexit	= &exitcell;
97 static Cell	retcell		={ OJUMP, JRET, 0, 0, 0.0, NUM, NULL };
98 Cell	*jret	= &retcell;
99 static Cell	tempcell	={ OCELL, CTEMP, 0, EMPTY, 0.0, NUM|STR|DONTFREE, NULL };
145 Cell *execute(Node *u)	/* execute a node of the parse tree */
147 	Cell *(*proc)(Node **, int);
148 	Cell *x;
156 			x = (Cell *) (a->narg[0]);
163 		if (notlegal(a->nobj))	/* probably a Cell* but too risky to print */
182 Cell *program(Node **a, int n)	/* execute an awk program */
184 	Cell *x;
218 	Cell *fcncell;	/* pointer to Cell for function */
219 	Cell **args;	/* pointer to array of arguments after execute */
220 	Cell *retval;	/* return value */
229 Cell *call(Node **a, int n)	/* function call.  very kludgy and fragile */
231 	static const Cell newcopycell = { OCELL, CCOPY, 0, EMPTY, 0.0, NUM|STR|DONTFREE, NULL };
235 	Cell *args[NARGS], *oargs[NARGS];	/* BUG: fixed size arrays */
236 	Cell *y, *z, *fcn;
293 		Cell *t = frp->args[i];
328 Cell *copycell(Cell *x)	/* make a copy of a cell in a temp */
330 	Cell *y;
347 Cell *arg(Node **a, int n)	/* nth argument of a function */
358 Cell *jump(Node **a, int n)	/* break, continue, next, nextfile, return */
360 	Cell *y;
402 Cell *awkgetline(Node **a, int n)	/* get next line from specific input */
404 	Cell *r, *x;
405 	extern Cell **fldtab;
455 Cell *getnf(Node **a, int n)	/* get NF */
459 	return (Cell *) a[0];
462 Cell *array(Node **a, int n)	/* a[0] is symtab, a[1] is list of subscripts */
464 	Cell *x, *y, *z;
474 	x = execute(a[0]);	/* Cell* for symbol table */
502 Cell *awkdelete(Node **a, int n)	/* a[0] is symtab, a[1] is list of subscripts */
504 	Cell *x, *y;
509 	x = execute(a[0]);	/* Cell* for symbol table */
540 Cell *intest(Node **a, int n)	/* a[0] is index (list), a[1] is symtab */
542 	Cell *x, *ap, *k;
582 Cell *matchop(Node **a, int n)	/* ~ and match() */
584 	Cell *x, *y;
624 Cell *boolop(Node **a, int n)	/* a[0] || a[1], a[0] && a[1], !a[0] */
626 	Cell *x, *y;
656 Cell *relop(Node **a, int n)	/* a[0 < a[1], etc. */
659 	Cell *x, *y;
691 void tfree(Cell *a)	/* free a tempcell */
703 Cell *gettemp(void)	/* get a tempcell */
705 	Cell *x;
721 Cell *indirect(Node **a, int n)	/* $( a[0] ) */
724 	Cell *x;
743 Cell *substr(Node **a, int nnn)		/* substr(a[0], a[1], a[2]) */
748 	Cell *x, *y, *z = 0;
791 Cell *sindex(Node **a, int nnn)		/* index(a[0], a[1]) */
793 	Cell *x, *y, *z;
823 	Cell *x;
965 Cell *awksprintf(Node **a, int n)		/* sprintf(a[0]) */
967 	Cell *x;
985 Cell *awkprintf(Node **a, int n)		/* printf */
989 	Cell *x;
1019 Cell *arith(Node **a, int n)	/* a[0] + a[1], etc.  also -a[0] */
1023 	Cell *x, *y, *z;
1084 Cell *incrdecr(Node **a, int n)		/* a[0]++, etc. */
1086 	Cell *x, *z;
1104 Cell *assign(Node **a, int n)	/* a[0] = a[1], a[0] += a[1], etc. */
1106 	Cell *x, *y;
1167 Cell *cat(Node **a, int q)	/* a[0] cat a[1] */
1169 	Cell *x, *y, *z;
1193 Cell *pastat(Node **a, int n)	/* a[0] { a[1] } */
1195 	Cell *x;
1209 Cell *dopa2(Node **a, int n)	/* a[0], a[1] { a[2] } */
1211 	Cell *x;
1233 Cell *split(Node **a, int nnn)	/* split(a[0], a[1], a[2]); a[3] is type */
1235 	Cell *x = 0, *y, *ap;
1365 Cell *condexpr(Node **a, int n)	/* a[0] ? a[1] : a[2] */
1367 	Cell *x;
1380 Cell *ifstat(Node **a, int n)	/* if (a[0]) a[1]; else a[2] */
1382 	Cell *x;
1395 Cell *whilestat(Node **a, int n)	/* while (a[0]) a[1] */
1397 	Cell *x;
1415 Cell *dostat(Node **a, int n)	/* do a[0]; while(a[1]) */
1417 	Cell *x;
1433 Cell *forstat(Node **a, int n)	/* for (a[0]; a[1]; a[2]) a[3] */
1435 	Cell *x;
1456 Cell *instat(Node **a, int n)	/* for (a[0] in a[1]) a[2] */
1458 	Cell *x, *vp, *arrayp, *cp, *ncp;
1549 Cell *bltin(Node **a, int n)	/* builtin functions. a[0] is type, a[1] is arg list */
1551 	Cell *x, *y;
1676 Cell *printstat(Node **a, int n)	/* print a[0] */
1679 	Cell *y;
1702 Cell *nullproc(Node **a, int n)
1713 	Cell *x;
1817 Cell *closefile(Node **a, int n)
1819 	Cell *x;
1886 Cell *sub(Node **a, int nnn)	/* substitute command */
1890 	Cell *x, *y, *result;
1947 Cell *gsub(Node **a, int nnn)	/* global substitute */
1949 	Cell *x, *y;
2050 Cell *gensub(Node **a, int nnn)	/* global selective substitute */
2053 	Cell *x, *y, *res, *h;