Lines Matching refs:Cell

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 */ in execute()
139 Cell *(*proc)(Node **, int); in execute()
140 Cell *x; in execute()
148 x = (Cell *) (a->narg[0]); in execute()
174 Cell *program(Node **a, int n) /* execute an awk program */ in program()
176 Cell *x; in program()
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 */ in call()
223 static Cell newcopycell = { OCELL, CCOPY, 0, "", 0.0, NUM|STR|DONTFREE }; in call()
227 Cell *args[NARGS], *oargs[NARGS]; /* BUG: fixed size arrays */ in call()
228 Cell *y, *z, *fcn; in call()
286 Cell *t = fp->args[i]; in call()
321 Cell *copycell(Cell *x) /* make a copy of a cell in a temp */ in copycell()
323 Cell *y; in copycell()
336 Cell *arg(Node **a, int n) /* nth argument of a function */ in arg()
347 Cell *jump(Node **a, int n) /* break, continue, next, nextfile, return */ in jump()
349 Cell *y; in jump()
391 Cell *getline(Node **a, int n) /* get next line from specific input */ in getline()
393 Cell *r, *x; in getline()
394 extern Cell **fldtab; in getline()
444 Cell *getnf(Node **a, int n) /* get NF */ in getnf()
448 return (Cell *) a[0]; in getnf()
451 Cell *array(Node **a, int n) /* a[0] is symtab, a[1] is list of subscripts */ in array()
453 Cell *x, *y, *z; in array()
491 Cell *awkdelete(Node **a, int n) /* a[0] is symtab, a[1] is list of subscripts */ in awkdelete()
493 Cell *x, *y; in awkdelete()
529 Cell *intest(Node **a, int n) /* a[0] is index (list), a[1] is symtab */ in intest()
531 Cell *x, *ap, *k; in intest()
571 Cell *matchop(Node **a, int n) /* ~ and match() */ in matchop()
573 Cell *x, *y; in matchop()
612 Cell *boolop(Node **a, int n) /* a[0] || a[1], a[0] && a[1], !a[0] */ in boolop()
614 Cell *x, *y; in boolop()
644 Cell *relop(Node **a, int n) /* a[0 < a[1], etc. */ in relop()
647 Cell *x, *y; in relop()
679 void tfree(Cell *a) /* free a tempcell */ in tfree()
691 Cell *gettemp(void) /* get a tempcell */ in gettemp()
693 Cell *x; in gettemp()
696 tmps = (Cell *) calloc(100, sizeof(Cell)); in gettemp()
709 Cell *indirect(Node **a, int n) /* $( a[0] ) */ in indirect()
712 Cell *x; in indirect()
731 Cell *substr(Node **a, int nnn) /* substr(a[0], a[1], a[2]) */ in substr()
736 Cell *x, *y, *z = 0; in substr()
779 Cell *sindex(Node **a, int nnn) /* index(a[0], a[1]) */ in sindex()
781 Cell *x, *y, *z; in sindex()
812 Cell *x; in format()
942 Cell *awksprintf(Node **a, int n) /* sprintf(a[0]) */ in awksprintf()
944 Cell *x; in awksprintf()
962 Cell *awkprintf(Node **a, int n) /* printf */ in awkprintf()
966 Cell *x; in awkprintf()
996 Cell *arith(Node **a, int n) /* a[0] + a[1], etc. also -a[0] */ in arith()
1000 Cell *x, *y, *z; in arith()
1061 Cell *incrdecr(Node **a, int n) /* a[0]++, etc. */ in incrdecr()
1063 Cell *x, *z; in incrdecr()
1081 Cell *assign(Node **a, int n) /* a[0] = a[1], a[0] += a[1], etc. */ in assign()
1083 Cell *x, *y; in assign()
1144 Cell *cat(Node **a, int q) /* a[0] cat a[1] */ in cat()
1146 Cell *x, *y, *z; in cat()
1170 Cell *pastat(Node **a, int n) /* a[0] { a[1] } */ in pastat()
1172 Cell *x; in pastat()
1186 Cell *dopa2(Node **a, int n) /* a[0], a[1] { a[2] } */ in dopa2()
1188 Cell *x; in dopa2()
1209 Cell *split(Node **a, int nnn) /* split(a[0], a[1], a[2]); a[3] is type */ in split()
1211 Cell *x = 0, *y, *ap; in split()
1341 Cell *condexpr(Node **a, int n) /* a[0] ? a[1] : a[2] */ in condexpr()
1343 Cell *x; in condexpr()
1356 Cell *ifstat(Node **a, int n) /* if (a[0]) a[1]; else a[2] */ in ifstat()
1358 Cell *x; in ifstat()
1371 Cell *whilestat(Node **a, int n) /* while (a[0]) a[1] */ in whilestat()
1373 Cell *x; in whilestat()
1391 Cell *dostat(Node **a, int n) /* do a[0]; while(a[1]) */ in dostat()
1393 Cell *x; in dostat()
1409 Cell *forstat(Node **a, int n) /* for (a[0]; a[1]; a[2]) a[3] */ in forstat()
1411 Cell *x; in forstat()
1432 Cell *instat(Node **a, int n) /* for (a[0] in a[1]) a[2] */ in instat()
1434 Cell *x, *vp, *arrayp, *cp, *ncp; in instat()
1464 Cell *bltin(Node **a, int n) /* builtin functions. a[0] is type, a[1] is arg list */ in bltin()
1466 Cell *x, *y; in bltin()
1563 Cell *printstat(Node **a, int n) /* print a[0] */ in printstat()
1566 Cell *y; in printstat()
1589 Cell *nullproc(Node **a, int n) in nullproc()
1600 Cell *x; in redirect()
1685 Cell *closefile(Node **a, int n) in closefile()
1687 Cell *x; in closefile()
1745 Cell *sub(Node **a, int nnn) /* substitute command */ in sub()
1748 Cell *x, *y, *result; in sub()
1805 Cell *gsub(Node **a, int nnn) /* global substitute */ in gsub()
1807 Cell *x, *y; in gsub()