Lines Matching refs:x
37 #define tempfree(x) if (istemp(x)) tfree(x); else argument
140 Cell *x; in execute() local
148 x = (Cell *) (a->narg[0]); in execute()
149 if (isfld(x) && !donefld) in execute()
151 else if (isrec(x) && !donerec) in execute()
153 return(x); in execute()
158 x = (*proc)(a->narg, a->nobj); in execute()
159 if (isfld(x) && !donefld) in execute()
161 else if (isrec(x) && !donerec) in execute()
164 return(x); in execute()
165 if (isjump(x)) in execute()
166 return(x); in execute()
168 return(x); in execute()
169 tempfree(x); in execute()
176 Cell *x; in program() local
181 x = execute(a[0]); in program()
182 if (isexit(x)) in program()
184 if (isjump(x)) in program()
186 tempfree(x); in program()
190 x = execute(a[1]); in program()
191 if (isexit(x)) in program()
193 tempfree(x); in program()
199 x = execute(a[2]); in program()
200 if (isbreak(x) || isnext(x) || iscont(x)) in program()
202 tempfree(x); in program()
226 Node *x; in call() local
240 for (ncall = 0, x = a[1]; x != NULL; x = x->nnext) /* args in call */ in call()
249 for (i = 0, x = a[1]; x != NULL; i++, x = x->nnext) { /* get call args */ in call()
251 y = execute(x); in call()
321 Cell *copycell(Cell *x) /* make a copy of a cell in a temp */ in copycell() argument
327 y->nval = x->nval; /* BUG? */ in copycell()
328 if (isstr(x)) in copycell()
329 y->sval = tostring(x->sval); in copycell()
330 y->fval = x->fval; in copycell()
331 y->tval = x->tval & ~(CON|FLD|REC|DONTFREE); /* copy is not constant or field */ in copycell()
393 Cell *r, *x; in getline() local
406 x = execute(a[2]); /* filename */ in getline()
410 fp = openfile(mode, getsval(x)); in getline()
411 tempfree(x); in getline()
419 x = execute(a[0]); in getline()
420 setsval(x, buf); in getline()
421 tempfree(x); in getline()
434 x = execute(a[0]); in getline()
435 setsval(x, buf); in getline()
436 tempfree(x); in getline()
453 Cell *x, *y, *z; in array() local
463 x = execute(a[0]); /* Cell* for symbol table */ in array()
469 FATAL("out of memory for %s[%s...]", x->nval, buf); in array()
475 if (!isarr(x)) { in array()
476 dprintf( ("making %s into an array\n", NN(x->nval)) ); in array()
477 if (freeable(x)) in array()
478 xfree(x->sval); in array()
479 x->tval &= ~(STR|NUM|DONTFREE); in array()
480 x->tval |= ARR; in array()
481 x->sval = (char *) makesymtab(NSYMTAB); in array()
483 z = setsymtab(buf, "", 0.0, STR|NUM, (Array *) x->sval); in array()
486 tempfree(x); in array()
493 Cell *x, *y; in awkdelete() local
498 x = execute(a[0]); /* Cell* for symbol table */ in awkdelete()
499 if (!isarr(x)) in awkdelete()
502 freesymtab(x); in awkdelete()
503 x->tval &= ~STR; in awkdelete()
504 x->tval |= ARR; in awkdelete()
505 x->sval = (char *) makesymtab(NSYMTAB); in awkdelete()
516 FATAL("out of memory deleting %s[%s...]", x->nval, buf); in awkdelete()
522 freeelem(x, buf); in awkdelete()
525 tempfree(x); in awkdelete()
531 Cell *x, *ap, *k; in intest() local
552 x = execute(p); /* expr */ in intest()
553 s = getsval(x); in intest()
555 FATAL("out of memory deleting %s[%s...]", x->nval, buf); in intest()
557 tempfree(x); in intest()
573 Cell *x, *y; in matchop() local
583 x = execute(a[1]); /* a[1] = target text */ in matchop()
584 s = getsval(x); in matchop()
594 tempfree(x); in matchop()
601 x = gettemp(); in matchop()
602 x->tval = NUM; in matchop()
603 x->fval = start; in matchop()
604 return x; in matchop()
614 Cell *x, *y; in boolop() local
617 x = execute(a[0]); in boolop()
618 i = istrue(x); in boolop()
619 tempfree(x); in boolop()
647 Cell *x, *y; in relop() local
650 x = execute(a[0]); in relop()
652 if (x->tval&NUM && y->tval&NUM) { in relop()
653 j = x->fval - y->fval; in relop()
656 i = strcmp(getsval(x), getsval(y)); in relop()
658 tempfree(x); in relop()
693 Cell *x; in gettemp() local
703 x = tmps; in gettemp()
704 tmps = x->cnext; in gettemp()
705 *x = tempcell; in gettemp()
706 return(x); in gettemp()
712 Cell *x; in indirect() local
716 x = execute(a[0]); in indirect()
717 val = getfval(x); /* freebsd: defend against super large field numbers */ in indirect()
719 FATAL("trying to access out of range field %s", x->nval); in indirect()
721 if (m == 0 && !is_number(s = getsval(x))) /* suspicion! */ in indirect()
722 FATAL("illegal field $(%s), name \"%s\"", s, x->nval); in indirect()
724 tempfree(x); in indirect()
725 x = fieldadr(m); in indirect()
726 x->ctype = OCELL; /* BUG? why are these needed? */ in indirect()
727 x->csub = CFLD; in indirect()
728 return(x); in indirect()
736 Cell *x, *y, *z = 0; in substr() local
738 x = execute(a[0]); in substr()
742 s = getsval(x); in substr()
745 tempfree(x); in substr()
750 x = gettemp(); in substr()
751 setsval(x, ""); in substr()
752 return(x); in substr()
775 tempfree(x); in substr()
781 Cell *x, *y, *z; in sindex() local
785 x = execute(a[0]); in sindex()
786 s1 = getsval(x); in sindex()
799 tempfree(x); in sindex()
812 Cell *x; in format() local
845 x = execute(a); in format()
847 sprintf(t-1, "%d", fmtwd=(int) getfval(x)); in format()
852 tempfree(x); in format()
887 x = execute(a); in format()
895 t = getsval(x); in format()
903 case 'f': sprintf(p, fmt, getfval(x)); break; in format()
904 case 'd': sprintf(p, fmt, (long) getfval(x)); break; in format()
905 case 'u': sprintf(p, fmt, (int) getfval(x)); break; in format()
907 t = getsval(x); in format()
916 if (isnum(x)) { in format()
917 if (getfval(x)) in format()
918 sprintf(p, fmt, (int) getfval(x)); in format()
924 sprintf(p, fmt, getsval(x)[0]); in format()
929 tempfree(x); in format()
944 Cell *x; in awksprintf() local
952 x = execute(a[0]); in awksprintf()
953 if (format(&buf, &bufsz, getsval(x), y) == -1) in awksprintf()
955 tempfree(x); in awksprintf()
956 x = gettemp(); in awksprintf()
957 x->sval = buf; in awksprintf()
958 x->tval = STR; in awksprintf()
959 return(x); in awksprintf()
966 Cell *x; in awkprintf() local
975 x = execute(a[0]); in awkprintf()
976 if ((len = format(&buf, &bufsz, getsval(x), y)) == -1) in awkprintf()
978 tempfree(x); in awkprintf()
1000 Cell *x, *y, *z; in arith() local
1002 x = execute(a[0]); in arith()
1003 i = getfval(x); in arith()
1004 tempfree(x); in arith()
1048 double ipow(double x, int n) /* x**n. ought to be done by pow, but isn't always */ in ipow() argument
1054 v = ipow(x, n/2); in ipow()
1058 return x * v * v; in ipow()
1063 Cell *x, *z; in incrdecr() local
1067 x = execute(a[0]); in incrdecr()
1068 xf = getfval(x); in incrdecr()
1071 setfval(x, xf + k); in incrdecr()
1072 return(x); in incrdecr()
1076 setfval(x, xf + k); in incrdecr()
1077 tempfree(x); in incrdecr()
1083 Cell *x, *y; in assign() local
1088 x = execute(a[0]); in assign()
1090 if (x == y && !(x->tval & (FLD|REC))) /* self-assignment: */ in assign()
1093 setsval(x, getsval(y)); in assign()
1094 x->fval = getfval(y); in assign()
1095 x->tval |= NUM; in assign()
1098 setsval(x, getsval(y)); in assign()
1100 setfval(x, getfval(y)); in assign()
1104 return(x); in assign()
1106 xf = getfval(x); in assign()
1140 setfval(x, xf); in assign()
1141 return(x); in assign()
1146 Cell *x, *y, *z; in cat() local
1150 x = execute(a[0]); in cat()
1152 getsval(x); in cat()
1154 n1 = strlen(x->sval); in cat()
1159 x->sval, y->sval); in cat()
1160 strcpy(s, x->sval); in cat()
1166 tempfree(x); in cat()
1172 Cell *x; in pastat() local
1175 x = execute(a[1]); in pastat()
1177 x = execute(a[0]); in pastat()
1178 if (istrue(x)) { in pastat()
1179 tempfree(x); in pastat()
1180 x = execute(a[1]); in pastat()
1183 return x; in pastat()
1188 Cell *x; in dopa2() local
1193 x = execute(a[0]); in dopa2()
1194 if (istrue(x)) in dopa2()
1196 tempfree(x); in dopa2()
1199 x = execute(a[1]); in dopa2()
1200 if (istrue(x)) in dopa2()
1202 tempfree(x); in dopa2()
1203 x = execute(a[2]); in dopa2()
1204 return(x); in dopa2()
1211 Cell *x = 0, *y, *ap; in split() local
1223 x = execute(a[2]); in split()
1224 fs = getsval(x); in split()
1333 tempfree(x); in split()
1335 x = gettemp(); in split()
1336 x->tval = NUM; in split()
1337 x->fval = n; in split()
1338 return(x); in split()
1343 Cell *x; in condexpr() local
1345 x = execute(a[0]); in condexpr()
1346 if (istrue(x)) { in condexpr()
1347 tempfree(x); in condexpr()
1348 x = execute(a[1]); in condexpr()
1350 tempfree(x); in condexpr()
1351 x = execute(a[2]); in condexpr()
1353 return(x); in condexpr()
1358 Cell *x; in ifstat() local
1360 x = execute(a[0]); in ifstat()
1361 if (istrue(x)) { in ifstat()
1362 tempfree(x); in ifstat()
1363 x = execute(a[1]); in ifstat()
1365 tempfree(x); in ifstat()
1366 x = execute(a[2]); in ifstat()
1368 return(x); in ifstat()
1373 Cell *x; in whilestat() local
1376 x = execute(a[0]); in whilestat()
1377 if (!istrue(x)) in whilestat()
1378 return(x); in whilestat()
1379 tempfree(x); in whilestat()
1380 x = execute(a[1]); in whilestat()
1381 if (isbreak(x)) { in whilestat()
1382 x = True; in whilestat()
1383 return(x); in whilestat()
1385 if (isnext(x) || isexit(x) || isret(x)) in whilestat()
1386 return(x); in whilestat()
1387 tempfree(x); in whilestat()
1393 Cell *x; in dostat() local
1396 x = execute(a[0]); in dostat()
1397 if (isbreak(x)) in dostat()
1399 if (isnext(x) || isexit(x) || isret(x)) in dostat()
1400 return(x); in dostat()
1401 tempfree(x); in dostat()
1402 x = execute(a[1]); in dostat()
1403 if (!istrue(x)) in dostat()
1404 return(x); in dostat()
1405 tempfree(x); in dostat()
1411 Cell *x; in forstat() local
1413 x = execute(a[0]); in forstat()
1414 tempfree(x); in forstat()
1417 x = execute(a[1]); in forstat()
1418 if (!istrue(x)) return(x); in forstat()
1419 else tempfree(x); in forstat()
1421 x = execute(a[3]); in forstat()
1422 if (isbreak(x)) /* turn off break */ in forstat()
1424 if (isnext(x) || isexit(x) || isret(x)) in forstat()
1425 return(x); in forstat()
1426 tempfree(x); in forstat()
1427 x = execute(a[2]); in forstat()
1428 tempfree(x); in forstat()
1434 Cell *x, *vp, *arrayp, *cp, *ncp; in instat() local
1449 x = execute(a[2]); in instat()
1450 if (isbreak(x)) { in instat()
1454 if (isnext(x) || isexit(x) || isret(x)) { in instat()
1456 return(x); in instat()
1458 tempfree(x); in instat()
1466 Cell *x, *y; in bltin() local
1475 x = execute(a[1]); in bltin()
1479 if (isarr(x)) in bltin()
1480 u = ((Array *) x->sval)->nelem; /* GROT. should be function*/ in bltin()
1482 u = strlen(getsval(x)); in bltin()
1485 u = errcheck(log(getfval(x)), "log"); break; in bltin()
1487 modf(getfval(x), &u); break; in bltin()
1489 u = errcheck(exp(getfval(x)), "exp"); break; in bltin()
1491 u = errcheck(sqrt(getfval(x)), "sqrt"); break; in bltin()
1493 u = sin(getfval(x)); break; in bltin()
1495 u = cos(getfval(x)); break; in bltin()
1502 u = atan2(getfval(x), getfval(y)); in bltin()
1509 u = (Awkfloat) system(getsval(x)) / 256; /* 256 is unix-dep */ in bltin()
1516 if (isrec(x)) /* no argument provided */ in bltin()
1519 u = getfval(x); in bltin()
1524 buf = tostring(getsval(x)); in bltin()
1534 tempfree(x); in bltin()
1535 x = gettemp(); in bltin()
1536 setsval(x, buf); in bltin()
1538 return x; in bltin()
1540 if (isrec(x) || strlen(getsval(x)) == 0) { in bltin()
1543 } else if ((fp = openfile(FFLUSH, getsval(x))) == NULL) in bltin()
1552 tempfree(x); in bltin()
1553 x = gettemp(); in bltin()
1554 setfval(x, u); in bltin()
1560 return(x); in bltin()
1565 Node *x; in printstat() local
1573 for (x = a[0]; x != NULL; x = x->nnext) { in printstat()
1574 y = execute(x); in printstat()
1577 if (x->nnext == NULL) in printstat()
1600 Cell *x; in redirect() local
1603 x = execute(b); in redirect()
1604 fname = getsval(x); in redirect()
1608 tempfree(x); in redirect()
1687 Cell *x; in closefile() local
1691 x = execute(a[0]); in closefile()
1692 getsval(x); in closefile()
1695 if (files[i].fname && strcmp(x->sval, files[i].fname) == 0) { in closefile()
1710 tempfree(x); in closefile()
1711 x = gettemp(); in closefile()
1712 setfval(x, (Awkfloat) stat); in closefile()
1713 return(x); in closefile()
1748 Cell *x, *y, *result; in sub() local
1755 x = execute(a[3]); /* target string */ in sub()
1756 t = getsval(x); in sub()
1796 setsval(x, buf); /* BUG: should be able to avoid copy */ in sub()
1799 tempfree(x); in sub()
1807 Cell *x, *y; in gsub() local
1818 x = execute(a[3]); /* target string */ in gsub()
1819 t = getsval(x); in gsub()
1893 setsval(x, buf); /* BUG: should be able to avoid copy + free */ in gsub()
1896 tempfree(x); in gsub()
1898 x = gettemp(); in gsub()
1899 x->tval = NUM; in gsub()
1900 x->fval = num; in gsub()
1902 return(x); in gsub()