Lines Matching refs:Cell
42 void tempfree(Cell *p) {
44 WARNING("bad csub %d in Cell %d %s",
72 Cell *tmps; /* free temporary cells for execution */
74 static Cell truecell ={ OBOOL, BTRUE, 0, 0, 1.0, NUM };
75 Cell *True = &truecell;
76 static Cell falsecell ={ OBOOL, BFALSE, 0, 0, 0.0, NUM };
77 Cell *False = &falsecell;
78 static Cell breakcell ={ OJUMP, JBREAK, 0, 0, 0.0, NUM };
79 Cell *jbreak = &breakcell;
80 static Cell contcell ={ OJUMP, JCONT, 0, 0, 0.0, NUM };
81 Cell *jcont = &contcell;
82 static Cell nextcell ={ OJUMP, JNEXT, 0, 0, 0.0, NUM };
83 Cell *jnext = &nextcell;
84 static Cell nextfilecell ={ OJUMP, JNEXTFILE, 0, 0, 0.0, NUM };
85 Cell *jnextfile = &nextfilecell;
86 static Cell exitcell ={ OJUMP, JEXIT, 0, 0, 0.0, NUM };
87 Cell *jexit = &exitcell;
88 static Cell retcell ={ OJUMP, JRET, 0, 0, 0.0, NUM };
89 Cell *jret = &retcell;
90 static Cell tempcell ={ OCELL, CTEMP, 0, "", 0.0, NUM|STR|DONTFREE };
138 Cell *execute(Node *u) /* execute a node of the parse tree */
140 Cell *(*proc)(Node **, int);
141 Cell *x;
149 x = (Cell *) (a->narg[0]);
156 if (notlegal(a->nobj)) /* probably a Cell* but too risky to print */
175 Cell *program(Node **a, int n) /* execute an awk program */
177 Cell *x;
211 Cell *fcncell; /* pointer to Cell for function */
212 Cell **args; /* pointer to array of arguments after execute */
213 Cell *retval; /* return value */
222 Cell *call(Node **a, int n) /* function call. very kludgy and fragile */
224 static Cell newcopycell = { OCELL, CCOPY, 0, "", 0.0, NUM|STR|DONTFREE };
228 Cell *args[NARGS], *oargs[NARGS]; /* BUG: fixed size arrays */
229 Cell *y, *z, *fcn;
287 Cell *t = fp->args[i];
322 Cell *copycell(Cell *x) /* make a copy of a cell in a temp */
324 Cell *y;
337 Cell *arg(Node **a, int n) /* nth argument of a function */
348 Cell *jump(Node **a, int n) /* break, continue, next, nextfile, return */
350 Cell *y;
392 Cell *awkgetline(Node **a, int n) /* get next line from specific input */
394 Cell *r, *x;
395 extern Cell **fldtab;
445 Cell *getnf(Node **a, int n) /* get NF */
449 return (Cell *) a[0];
452 Cell *array(Node **a, int n) /* a[0] is symtab, a[1] is list of subscripts */
454 Cell *x, *y, *z;
464 x = execute(a[0]); /* Cell* for symbol table */
492 Cell *awkdelete(Node **a, int n) /* a[0] is symtab, a[1] is list of subscripts */
494 Cell *x, *y;
499 x = execute(a[0]); /* Cell* for symbol table */
530 Cell *intest(Node **a, int n) /* a[0] is index (list), a[1] is symtab */
532 Cell *x, *ap, *k;
572 Cell *matchop(Node **a, int n) /* ~ and match() */
574 Cell *x, *y;
613 Cell *boolop(Node **a, int n) /* a[0] || a[1], a[0] && a[1], !a[0] */
615 Cell *x, *y;
645 Cell *relop(Node **a, int n) /* a[0 < a[1], etc. */
648 Cell *x, *y;
680 void tfree(Cell *a) /* free a tempcell */
692 Cell *gettemp(void) /* get a tempcell */
694 Cell *x;
697 tmps = (Cell *) calloc(100, sizeof(Cell));
710 Cell *indirect(Node **a, int n) /* $( a[0] ) */
713 Cell *x;
732 Cell *substr(Node **a, int nnn) /* substr(a[0], a[1], a[2]) */
737 Cell *x, *y, *z = 0;
780 Cell *sindex(Node **a, int nnn) /* index(a[0], a[1]) */
782 Cell *x, *y, *z;
813 Cell *x;
943 Cell *awksprintf(Node **a, int n) /* sprintf(a[0]) */
945 Cell *x;
963 Cell *awkprintf(Node **a, int n) /* printf */
967 Cell *x;
997 Cell *arith(Node **a, int n) /* a[0] + a[1], etc. also -a[0] */
1001 Cell *x, *y, *z;
1062 Cell *incrdecr(Node **a, int n) /* a[0]++, etc. */
1064 Cell *x, *z;
1082 Cell *assign(Node **a, int n) /* a[0] = a[1], a[0] += a[1], etc. */
1084 Cell *x, *y;
1145 Cell *cat(Node **a, int q) /* a[0] cat a[1] */
1147 Cell *x, *y, *z;
1171 Cell *pastat(Node **a, int n) /* a[0] { a[1] } */
1173 Cell *x;
1187 Cell *dopa2(Node **a, int n) /* a[0], a[1] { a[2] } */
1189 Cell *x;
1210 Cell *split(Node **a, int nnn) /* split(a[0], a[1], a[2]); a[3] is type */
1212 Cell *x = 0, *y, *ap;
1349 Cell *condexpr(Node **a, int n) /* a[0] ? a[1] : a[2] */
1351 Cell *x;
1364 Cell *ifstat(Node **a, int n) /* if (a[0]) a[1]; else a[2] */
1366 Cell *x;
1379 Cell *whilestat(Node **a, int n) /* while (a[0]) a[1] */
1381 Cell *x;
1399 Cell *dostat(Node **a, int n) /* do a[0]; while(a[1]) */
1401 Cell *x;
1417 Cell *forstat(Node **a, int n) /* for (a[0]; a[1]; a[2]) a[3] */
1419 Cell *x;
1440 Cell *instat(Node **a, int n) /* for (a[0] in a[1]) a[2] */
1442 Cell *x, *vp, *arrayp, *cp, *ncp;
1472 Cell *bltin(Node **a, int n) /* builtin functions. a[0] is type, a[1] is arg list */
1474 Cell *x, *y;
1575 Cell *printstat(Node **a, int n) /* print a[0] */
1578 Cell *y;
1601 Cell *nullproc(Node **a, int n)
1612 Cell *x;
1713 Cell *closefile(Node **a, int n)
1715 Cell *x;
1773 Cell *sub(Node **a, int nnn) /* substitute command */
1776 Cell *x, *y, *result;
1833 Cell *gsub(Node **a, int nnn) /* global substitute */
1835 Cell *x, *y;
