Lines Matching defs:a

8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
30 #define tempfree(a) {if (istemp(a)) {xfree(a->sval); a->tval = 0; }}
74 static void redirprint(wchar_t *s, int a, NODE *b);
80 run(NODE *a)
84 execute(a);
85 /* Wait for children to complete if output to a pipe. */
97 NODE *a;
101 for (a = u; /* dummy */; a = a->nnext) {
102 if (cantexec(a))
103 return (nodetoobj(a));
104 if (notlegal(a->nobj))
105 error(FATAL, "illegal statement %o", a);
106 proc = proctab[a->nobj-FIRSTTOKEN];
107 x = (*proc)(a->narg, a->nobj);
110 if (isexpr(a))
112 /* a statement, goto next statement */
115 if (a->nnext == (NODE *)NULL)
125 program(NODE **a, int n)
129 if (a[0] != NULL) {
130 x = execute(a[0]);
138 x = execute(a[1]);
145 if (a[2] != NULL) {
146 x = execute(a[2]);
171 array(NODE **a, int n)
176 x = execute(a[1]);
177 y = arrayel(a[0], x);
186 arrayel(NODE *a, CELL *b)
194 x = (CELL *) a;
208 matchop(NODE **a, int n)
214 x = execute(a[0]);
217 i = match(a[1], s);
228 boolop(NODE **a, int n)
236 x = execute(a[0]);
242 y = execute(a[1]);
249 y = execute(a[1]);
267 relop(NODE **a, int n)
277 x = execute(a[0]);
278 y = execute(a[1]);
341 indirect(NODE **a, int n)
347 x = execute(a[0]);
360 substr(NODE **a, int nnn)
366 y = execute(a[0]);
374 x = execute(a[1]);
381 if (a[2] != 0) {
382 x = execute(a[2]);
406 sindex(NODE **a, int nnn)
411 x = execute(a[0]);
414 x = execute(a[1]);
435 format(wchar_t *s, NODE *a)
468 if (*s >= 'a' && *s <= 'z' && *s != 'l')
471 if (a == NULL) {
476 x = execute(a);
477 a = a->nnext;
516 if (a == NULL) {
520 x = execute(a);
521 a = a->nnext;
575 a_sprintf(NODE **a, int n)
581 y = a[0]->nnext;
582 x = execute(a[0]);
593 arith(NODE **a, int n)
598 x = execute(a[0]);
602 y = execute(a[1]);
641 incrdecr(NODE **a, int n)
647 x = execute(a[0]);
664 assign(NODE **a, int n)
672 x = execute(a[0]);
673 y = execute(a[1]);
722 cat(NODE **a, int q)
731 x = execute(a[0]);
732 y = execute(a[1]);
753 pastat(NODE **a, int n)
760 if (a[0] == 0)
763 x = execute(a[0]);
766 x = execute(a[1]);
775 dopa2(NODE **a, int n)
783 pair = (int) a[3];
785 x = execute(a[0]);
791 x = execute(a[1]);
795 x = execute(a[2]);
805 aprintf(NODE **a, int n)
812 x = a_sprintf(a, n);
813 if (a[1] == NULL) {
818 redirprint(x->sval, (int)a[1], a[2]);
826 split(NODE **a, int nnn)
838 x = execute(a[0]);
841 if (a[2] == 0)
844 x = execute(a[2]);
848 ap = (CELL *) a[1];
850 dprintf("split: s=|%ws|, a=%ws, sep=|%wc|\n", s, ap->nval, sep);
912 ifstat(NODE **a, int n)
919 x = execute(a[0]);
922 x = execute(a[1]);
924 } else if (a[2] != 0) {
926 x = execute(a[2]);
935 whilestat(NODE **a, int n)
943 x = execute(a[0]);
946 x = execute(a[1]);
961 forstat(NODE **a, int n)
969 z = execute(a[0]);
972 if (a[1]!=0) {
973 x = execute(a[1]);
977 x = execute(a[3]);
985 z = execute(a[2]);
994 instat(NODE **a, int n)
1003 vp = (CELL *) a[0];
1004 arrayp = (CELL *) a[1];
1011 x = execute(a[2]);
1028 jump(NODE **a, int n)
1037 if (a[0] != 0) {
1038 y = execute(a[0]);
1058 fncn(NODE **a, int n)
1065 t = (int) a[0];
1066 x = execute(a[1]);
1089 print(NODE **a, int n)
1105 for (x = a[0]; x != NULL; x = x->nnext) {
1139 if (a[1] == NULL) {
1146 redirprint(bp, (int)a[1], a[2]);
1163 nodetoobj(NODE *a)
1167 x= (CELL *) a->nobj;
1169 x->csub = a->subtype;
1176 redirprint(wchar_t *s, int a, NODE *b)
1191 if (a == '|') /* a pipe! */
1193 else if (a == APPEND)
1194 files[i].fp = fopen(toeuccode(x->sval), "a");
1195 else if (a == GT)
1202 files[i].type = a;