Lines Matching refs:Cell
42 void tempfree(Cell *p) {
44 WARNING("bad csub %d in Cell %d %s",
71 Cell *tmps; /* free temporary cells for execution */
73 static Cell truecell ={ OBOOL, BTRUE, 0, 0, 1.0, NUM };
74 Cell *True = &truecell;
75 static Cell falsecell ={ OBOOL, BFALSE, 0, 0, 0.0, NUM };
76 Cell *False = &falsecell;
77 static Cell breakcell ={ OJUMP, JBREAK, 0, 0, 0.0, NUM };
78 Cell *jbreak = &breakcell;
79 static Cell contcell ={ OJUMP, JCONT, 0, 0, 0.0, NUM };
80 Cell *jcont = &contcell;
81 static Cell nextcell ={ OJUMP, JNEXT, 0, 0, 0.0, NUM };
82 Cell *jnext = &nextcell;
83 static Cell nextfilecell ={ OJUMP, JNEXTFILE, 0, 0, 0.0, NUM };
84 Cell *jnextfile = &nextfilecell;
85 static Cell exitcell ={ OJUMP, JEXIT, 0, 0, 0.0, NUM };
86 Cell *jexit = &exitcell;
87 static Cell retcell ={ OJUMP, JRET, 0, 0, 0.0, NUM };
88 Cell *jret = &retcell;
89 static Cell tempcell ={ OCELL, CTEMP, 0, "", 0.0, NUM|STR|DONTFREE };
137 Cell *execute(Node *u) /* execute a node of the parse tree */
139 Cell *(*proc)(Node **, int);
140 Cell *x;
148 x = (Cell *) (a->narg[0]);
155 if (notlegal(a->nobj)) /* probably a Cell* but too risky to print */
174 Cell *program(Node **a, int n) /* execute an awk program */
176 Cell *x;
210 Cell *fcncell; /* pointer to Cell for function */
211 Cell **args; /* pointer to array of arguments after execute */
212 Cell *retval; /* return value */
221 Cell *call(Node **a, int n) /* function call. very kludgy and fragile */
223 static Cell newcopycell = { OCELL, CCOPY, 0, "", 0.0, NUM|STR|DONTFREE };
227 Cell *args[NARGS], *oargs[NARGS]; /* BUG: fixed size arrays */
228 Cell *y, *z, *fcn;
286 Cell *t = fp->args[i];
321 Cell *copycell(Cell *x) /* make a copy of a cell in a temp */
323 Cell *y;
336 Cell *arg(Node **a, int n) /* nth argument of a function */
347 Cell *jump(Node **a, int n) /* break, continue, next, nextfile, return */
349 Cell *y;
391 Cell *getline(Node **a, int n) /* get next line from specific input */
393 Cell *r, *x;
394 extern Cell **fldtab;
444 Cell *getnf(Node **a, int n) /* get NF */
448 return (Cell *) a[0];
451 Cell *array(Node **a, int n) /* a[0] is symtab, a[1] is list of subscripts */
453 Cell *x, *y, *z;
463 x = execute(a[0]); /* Cell* for symbol table */
491 Cell *awkdelete(Node **a, int n) /* a[0] is symtab, a[1] is list of subscripts */
493 Cell *x, *y;
498 x = execute(a[0]); /* Cell* for symbol table */
529 Cell *intest(Node **a, int n) /* a[0] is index (list), a[1] is symtab */
531 Cell *x, *ap, *k;
571 Cell *matchop(Node **a, int n) /* ~ and match() */
573 Cell *x, *y;
612 Cell *boolop(Node **a, int n) /* a[0] || a[1], a[0] && a[1], !a[0] */
614 Cell *x, *y;
644 Cell *relop(Node **a, int n) /* a[0 < a[1], etc. */
647 Cell *x, *y;
679 void tfree(Cell *a) /* free a tempcell */
691 Cell *gettemp(void) /* get a tempcell */
693 Cell *x;
696 tmps = (Cell *) calloc(100, sizeof(Cell));
709 Cell *indirect(Node **a, int n) /* $( a[0] ) */
712 Cell *x;
731 Cell *substr(Node **a, int nnn) /* substr(a[0], a[1], a[2]) */
736 Cell *x, *y, *z = 0;
779 Cell *sindex(Node **a, int nnn) /* index(a[0], a[1]) */
781 Cell *x, *y, *z;
812 Cell *x;
942 Cell *awksprintf(Node **a, int n) /* sprintf(a[0]) */
944 Cell *x;
962 Cell *awkprintf(Node **a, int n) /* printf */
966 Cell *x;
996 Cell *arith(Node **a, int n) /* a[0] + a[1], etc. also -a[0] */
1000 Cell *x, *y, *z;
1061 Cell *incrdecr(Node **a, int n) /* a[0]++, etc. */
1063 Cell *x, *z;
1081 Cell *assign(Node **a, int n) /* a[0] = a[1], a[0] += a[1], etc. */
1083 Cell *x, *y;
1144 Cell *cat(Node **a, int q) /* a[0] cat a[1] */
1146 Cell *x, *y, *z;
1170 Cell *pastat(Node **a, int n) /* a[0] { a[1] } */
1172 Cell *x;
1186 Cell *dopa2(Node **a, int n) /* a[0], a[1] { a[2] } */
1188 Cell *x;
1209 Cell *split(Node **a, int nnn) /* split(a[0], a[1], a[2]); a[3] is type */
1211 Cell *x = 0, *y, *ap;
1341 Cell *condexpr(Node **a, int n) /* a[0] ? a[1] : a[2] */
1343 Cell *x;
1356 Cell *ifstat(Node **a, int n) /* if (a[0]) a[1]; else a[2] */
1358 Cell *x;
1371 Cell *whilestat(Node **a, int n) /* while (a[0]) a[1] */
1373 Cell *x;
1391 Cell *dostat(Node **a, int n) /* do a[0]; while(a[1]) */
1393 Cell *x;
1409 Cell *forstat(Node **a, int n) /* for (a[0]; a[1]; a[2]) a[3] */
1411 Cell *x;
1432 Cell *instat(Node **a, int n) /* for (a[0] in a[1]) a[2] */
1434 Cell *x, *vp, *arrayp, *cp, *ncp;
1464 Cell *bltin(Node **a, int n) /* builtin functions. a[0] is type, a[1] is arg list */
1466 Cell *x, *y;
1563 Cell *printstat(Node **a, int n) /* print a[0] */
1566 Cell *y;
1589 Cell *nullproc(Node **a, int n)
1600 Cell *x;
1685 Cell *closefile(Node **a, int n)
1687 Cell *x;
1745 Cell *sub(Node **a, int nnn) /* substitute command */
1748 Cell *x, *y, *result;
1805 Cell *gsub(Node **a, int nnn) /* global substitute */
1807 Cell *x, *y;
