![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to run.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 41BSD / cmd / awk|
Return to run.c CVS log | Up to [CSRG BSD Unix] / 41BSD / cmd / awk |
1.1 ! root 1: #include "awk.def" ! 2: #include "math.h" ! 3: #define RECSIZE 512 ! 4: #include "awk.h" ! 5: #include "stdio.h" ! 6: ! 7: #define FILENUM 10 ! 8: struct ! 9: { ! 10: FILE *fp; ! 11: char *fname; ! 12: } files[FILENUM]; ! 13: FILE *popen(); ! 14: ! 15: extern obj execute(), nodetoobj(), fieldel(), dopa2(), gettemp(); ! 16: #define PA2NUM 29 ! 17: int pairstack[PA2NUM], paircnt; ! 18: node *winner = (node *)NULL; ! 19: #define MAXTMP 20 ! 20: cell tmps[MAXTMP]; ! 21: static cell nullval ={0,0,0.0,NUM,0}; ! 22: obj true ={ OBOOL, BTRUE, 0 }; ! 23: obj false ={ OBOOL, BFALSE, 0 }; ! 24: ! 25: run() ! 26: { ! 27: execute(winner); ! 28: } ! 29: ! 30: obj execute(u) node *u; ! 31: { ! 32: register obj (*proc)(); ! 33: obj x; ! 34: node *a; ! 35: extern char *printname[]; ! 36: ! 37: if (u==(node *)NULL) ! 38: return(true); ! 39: for (a = u; ; a = a->nnext) { ! 40: if (cantexec(a)) ! 41: return(nodetoobj(a)); ! 42: if (a->ntype==NPA2) ! 43: proc=dopa2; ! 44: else { ! 45: if (notlegal(a->nobj)) ! 46: error(FATAL, "illegal statement %o", a); ! 47: proc = proctab[a->nobj-FIRSTTOKEN]; ! 48: } ! 49: x = (*proc)(a->narg,a->nobj); ! 50: if (isfld(x)) fldbld(); ! 51: if (isexpr(a)) ! 52: return(x); ! 53: /* a statement, goto next statement */ ! 54: if (isjump(x)) ! 55: return(x); ! 56: if (a->nnext == (node *)NULL) ! 57: return(x); ! 58: tempfree(x); ! 59: } ! 60: } ! 61: ! 62: obj program(a, n) node **a; ! 63: { ! 64: obj x; ! 65: ! 66: if (a[0] != NULL) { ! 67: x = execute(a[0]); ! 68: if (isexit(x)) ! 69: return(true); ! 70: if (isjump(x)) ! 71: error(FATAL, "unexpected break, continue or next"); ! 72: tempfree(x); ! 73: } ! 74: while (getrec()) { ! 75: x = execute(a[1]); ! 76: if (isexit(x)) break; ! 77: tempfree(x); ! 78: } ! 79: tempfree(x); ! 80: if (a[2] != NULL) { ! 81: x = execute(a[2]); ! 82: if (isbreak(x) || isnext(x) || iscont(x)) ! 83: error(FATAL, "unexpected break, continue or next"); ! 84: tempfree(x); ! 85: } ! 86: return(true); ! 87: } ! 88: ! 89: obj getline() ! 90: { ! 91: obj x; ! 92: ! 93: x = gettemp(); ! 94: setfval(x.optr, (awkfloat) getrec()); ! 95: return(x); ! 96: } ! 97: ! 98: obj array(a,n) node **a; ! 99: { ! 100: obj x, y; ! 101: extern obj arrayel(); ! 102: ! 103: x = execute(a[1]); ! 104: y = arrayel(a[0], x); ! 105: tempfree(x); ! 106: return(y); ! 107: } ! 108: ! 109: obj arrayel(a,b) node *a; obj b; ! 110: { ! 111: char *s; ! 112: cell *x; ! 113: int i; ! 114: obj y; ! 115: ! 116: s = getsval(b.optr); ! 117: x = (cell *) a; ! 118: if (!(x->tval&ARR)) { ! 119: xfree(x->sval); ! 120: x->tval &= ~STR; ! 121: x->tval |= ARR; ! 122: x->sval = (char *) makesymtab(); ! 123: } ! 124: y.optr = setsymtab(s, tostring(""), 0.0, STR|NUM, x->sval); ! 125: y.otype = OCELL; ! 126: y.osub = CVAR; ! 127: return(y); ! 128: } ! 129: ! 130: obj matchop(a,n) node **a; ! 131: { ! 132: obj x; ! 133: char *s; ! 134: int i; ! 135: ! 136: x = execute(a[0]); ! 137: if (isstr(x)) s = x.optr->sval; ! 138: else s = getsval(x.optr); ! 139: tempfree(x); ! 140: i = match(a[1], s); ! 141: if (n==MATCH && i==1 || n==NOTMATCH && i==0) ! 142: return(true); ! 143: else ! 144: return(false); ! 145: } ! 146: ! 147: obj boolop(a,n) node **a; ! 148: { ! 149: obj x, y; ! 150: int i; ! 151: ! 152: x = execute(a[0]); ! 153: i = istrue(x); ! 154: tempfree(x); ! 155: switch (n) { ! 156: default: ! 157: error(FATAL, "unknown boolean operator %d", n); ! 158: case BOR: ! 159: if (i) return(true); ! 160: y = execute(a[1]); ! 161: i = istrue(y); ! 162: tempfree(y); ! 163: if (i) return(true); ! 164: else return(false); ! 165: case AND: ! 166: if ( !i ) return(false); ! 167: y = execute(a[1]); ! 168: i = istrue(y); ! 169: tempfree(y); ! 170: if (i) return(true); ! 171: else return(false); ! 172: case NOT: ! 173: if (i) return(false); ! 174: else return(true); ! 175: } ! 176: } ! 177: ! 178: obj relop(a,n) node **a; ! 179: { ! 180: int i; ! 181: obj x, y; ! 182: awkfloat j; ! 183: ! 184: x = execute(a[0]); ! 185: y = execute(a[1]); ! 186: if (x.optr->tval&NUM && y.optr->tval&NUM) { ! 187: j = x.optr->fval - y.optr->fval; ! 188: i = j<0? -1: (j>0? 1: 0); ! 189: } else { ! 190: i = strcmp(getsval(x.optr), getsval(y.optr)); ! 191: } ! 192: tempfree(x); ! 193: tempfree(y); ! 194: switch (n) { ! 195: default: ! 196: error(FATAL, "unknown relational operator %d", n); ! 197: case LT: if (i<0) return(true); ! 198: else return(false); ! 199: case LE: if (i<=0) return(true); ! 200: else return(false); ! 201: case NE: if (i!=0) return(true); ! 202: else return(false); ! 203: case EQ: if (i==0) return(true); ! 204: else return(false); ! 205: case GE: if (i>=0) return(true); ! 206: else return(false); ! 207: case GT: if (i>0) return(true); ! 208: else return(false); ! 209: } ! 210: } ! 211: ! 212: tempfree(a) obj a; ! 213: { ! 214: if (!istemp(a)) return; ! 215: xfree(a.optr->sval); ! 216: a.optr->tval = 0; ! 217: } ! 218: ! 219: obj gettemp() ! 220: { ! 221: int i; ! 222: obj x; ! 223: ! 224: for (i=0; i<MAXTMP; i++) ! 225: if (tmps[i].tval==0) ! 226: break; ! 227: if (i==MAXTMP) ! 228: error(FATAL, "out of temporaries in gettemp"); ! 229: x.optr = &tmps[i]; ! 230: tmps[i] = nullval; ! 231: x.otype = OCELL; ! 232: x.osub = CTEMP; ! 233: return(x); ! 234: } ! 235: ! 236: obj indirect(a,n) node **a; ! 237: { ! 238: obj x; ! 239: int m; ! 240: cell *fieldadr(); ! 241: ! 242: x = execute(a[0]); ! 243: m = getfval(x.optr); ! 244: tempfree(x); ! 245: x.optr = fieldadr(m); ! 246: x.otype = OCELL; ! 247: x.osub = CFLD; ! 248: return(x); ! 249: } ! 250: ! 251: obj substr(a, nnn) node **a; ! 252: { ! 253: char *s, temp; ! 254: obj x; ! 255: int k, m, n; ! 256: ! 257: x = execute(a[0]); ! 258: s = getsval(x.optr); ! 259: k = strlen(s) + 1; ! 260: tempfree(x); ! 261: x = execute(a[1]); ! 262: m = getfval(x.optr); ! 263: if (m <= 0) ! 264: m = 1; ! 265: else if (m > k) ! 266: m = k; ! 267: tempfree(x); ! 268: if (a[2] != nullstat) { ! 269: x = execute(a[2]); ! 270: n = getfval(x.optr); ! 271: tempfree(x); ! 272: } ! 273: else ! 274: n = k - 1; ! 275: if (n < 0) ! 276: n = 0; ! 277: else if (n > k - m) ! 278: n = k - m; ! 279: dprintf("substr: m=%d, n=%d, s=%s\n", m, n, s); ! 280: x = gettemp(); ! 281: temp = s[n+m-1]; /* with thanks to John Linderman */ ! 282: s[n+m-1] = '\0'; ! 283: setsval(x.optr, s + m - 1); ! 284: s[n+m-1] = temp; ! 285: return(x); ! 286: } ! 287: ! 288: obj sindex(a, nnn) node **a; ! 289: { ! 290: obj x; ! 291: char *s1, *s2, *p1, *p2, *q; ! 292: ! 293: x = execute(a[0]); ! 294: s1 = getsval(x.optr); ! 295: tempfree(x); ! 296: x = execute(a[1]); ! 297: s2 = getsval(x.optr); ! 298: tempfree(x); ! 299: ! 300: x = gettemp(); ! 301: for (p1 = s1; *p1 != '\0'; p1++) { ! 302: for (q=p1, p2=s2; *p2 != '\0' && *q == *p2; q++, p2++) ! 303: ; ! 304: if (*p2 == '\0') { ! 305: setfval(x.optr, (awkfloat) (p1 - s1 + 1)); /* origin 1 */ ! 306: return(x); ! 307: } ! 308: } ! 309: setfval(x.optr, 0.0); ! 310: return(x); ! 311: } ! 312: ! 313: char *format(s,a) char *s; node *a; ! 314: { ! 315: char *buf, *p, fmt[200], *t, *os; ! 316: obj x; ! 317: int flag = 0; ! 318: awkfloat xf; ! 319: ! 320: os = s; ! 321: p = buf = (char *)malloc(RECSIZE); ! 322: while (*s) { ! 323: if (*s != '%') { ! 324: *p++ = *s++; ! 325: continue; ! 326: } ! 327: if (*(s+1) == '%') { ! 328: *p++ = '%'; ! 329: s += 2; ! 330: continue; ! 331: } ! 332: for (t=fmt; (*t++ = *s) != '\0'; s++) ! 333: if (*s >= 'a' && *s <= 'z' && *s != 'l') ! 334: break; ! 335: *t = '\0'; ! 336: if (t >= fmt + sizeof(fmt)) ! 337: error(FATAL, "format item %.20s... too long", os); ! 338: switch (*s) { ! 339: case 'f': case 'e': case 'g': ! 340: flag = 1; ! 341: break; ! 342: case 'd': ! 343: flag = 2; ! 344: if(*(s-1) == 'l') break; ! 345: *(t-1) = 'l'; ! 346: *t = 'd'; ! 347: *++t = '\0'; ! 348: break; ! 349: case 'o': case 'x': ! 350: flag = *(s-1)=='l' ? 2 : 3; ! 351: break; ! 352: case 'c': ! 353: flag = 3; ! 354: break; ! 355: case 's': ! 356: flag = 4; ! 357: break; ! 358: default: ! 359: flag = 0; ! 360: break; ! 361: } ! 362: if (flag == 0) { ! 363: sprintf(p, "%s", fmt); ! 364: p += strlen(p); ! 365: continue; ! 366: } ! 367: if (a == NULL) ! 368: error(FATAL, "not enough arguments in printf(%s)", os); ! 369: x = execute(a); ! 370: a = a->nnext; ! 371: if (flag != 4) /* watch out for converting to numbers! */ ! 372: xf = getfval(x.optr); ! 373: if (flag==1) sprintf(p, fmt, xf); ! 374: else if (flag==2) sprintf(p, fmt, (long)xf); ! 375: else if (flag==3) sprintf(p, fmt, (int)xf); ! 376: else if (flag==4) sprintf(p, fmt, x.optr->sval==NULL ? "" : getsval(x.optr)); ! 377: tempfree(x); ! 378: p += strlen(p); ! 379: s++; ! 380: } ! 381: *p = '\0'; ! 382: return(buf); ! 383: } ! 384: ! 385: obj asprintf(a,n) node **a; ! 386: { ! 387: obj x; ! 388: node *y; ! 389: char *s; ! 390: ! 391: y = a[0]->nnext; ! 392: x = execute(a[0]); ! 393: s = format(getsval(x.optr), y); ! 394: tempfree(x); ! 395: x = gettemp(); ! 396: x.optr->sval = s; ! 397: x.optr->tval = STR; ! 398: return(x); ! 399: } ! 400: ! 401: obj arith(a,n) node **a; ! 402: { ! 403: awkfloat i,j; ! 404: obj x,y,z; ! 405: ! 406: x = execute(a[0]); ! 407: i = getfval(x.optr); ! 408: tempfree(x); ! 409: if (n != UMINUS) { ! 410: y = execute(a[1]); ! 411: j = getfval(y.optr); ! 412: tempfree(y); ! 413: } ! 414: z = gettemp(); ! 415: switch (n) { ! 416: default: ! 417: error(FATAL, "illegal arithmetic operator %d", n); ! 418: case ADD: ! 419: i += j; ! 420: break; ! 421: case MINUS: ! 422: i -= j; ! 423: break; ! 424: case MULT: ! 425: i *= j; ! 426: break; ! 427: case DIVIDE: ! 428: if (j == 0) ! 429: error(FATAL, "division by zero"); ! 430: i /= j; ! 431: break; ! 432: case MOD: ! 433: if (j == 0) ! 434: error(FATAL, "division by zero"); ! 435: i = i - j*(long)(i/j); ! 436: break; ! 437: case UMINUS: ! 438: i = -i; ! 439: break; ! 440: } ! 441: setfval(z.optr, i); ! 442: return(z); ! 443: } ! 444: ! 445: obj incrdecr(a, n) node **a; ! 446: { ! 447: obj x, z; ! 448: int k; ! 449: awkfloat xf; ! 450: ! 451: x = execute(a[0]); ! 452: xf = getfval(x.optr); ! 453: k = (n == PREINCR || n == POSTINCR) ? 1 : -1; ! 454: if (n == PREINCR || n == PREDECR) { ! 455: setfval(x.optr, xf + k); ! 456: return(x); ! 457: } ! 458: z = gettemp(); ! 459: setfval(z.optr, xf); ! 460: setfval(x.optr, xf + k); ! 461: tempfree(x); ! 462: return(z); ! 463: } ! 464: ! 465: ! 466: obj assign(a,n) node **a; ! 467: { ! 468: obj x, y; ! 469: awkfloat xf, yf; ! 470: ! 471: x = execute(a[0]); ! 472: y = execute(a[1]); ! 473: if (n == ASSIGN) { /* ordinary assignment */ ! 474: if ((y.optr->tval & (STR|NUM)) == (STR|NUM)) { ! 475: setsval(x.optr, y.optr->sval); ! 476: x.optr->fval = y.optr->fval; ! 477: x.optr->tval |= NUM; ! 478: } ! 479: else if (y.optr->tval & STR) ! 480: setsval(x.optr, y.optr->sval); ! 481: else if (y.optr->tval & NUM) ! 482: setfval(x.optr, y.optr->fval); ! 483: tempfree(y); ! 484: return(x); ! 485: } ! 486: xf = getfval(x.optr); ! 487: yf = getfval(y.optr); ! 488: switch (n) { ! 489: case ADDEQ: ! 490: xf += yf; ! 491: break; ! 492: case SUBEQ: ! 493: xf -= yf; ! 494: break; ! 495: case MULTEQ: ! 496: xf *= yf; ! 497: break; ! 498: case DIVEQ: ! 499: if (yf == 0) ! 500: error(FATAL, "division by zero"); ! 501: xf /= yf; ! 502: break; ! 503: case MODEQ: ! 504: if (yf == 0) ! 505: error(FATAL, "division by zero"); ! 506: xf = xf - yf*(long)(xf/yf); ! 507: break; ! 508: default: ! 509: error(FATAL, "illegal assignment operator %d", n); ! 510: break; ! 511: } ! 512: tempfree(y); ! 513: setfval(x.optr, xf); ! 514: return(x); ! 515: } ! 516: ! 517: obj cat(a,q) node **a; ! 518: { ! 519: obj x,y,z; ! 520: int n1, n2; ! 521: char *s; ! 522: ! 523: x = execute(a[0]); ! 524: y = execute(a[1]); ! 525: getsval(x.optr); ! 526: getsval(y.optr); ! 527: n1 = strlen(x.optr->sval); ! 528: n2 = strlen(y.optr->sval); ! 529: s = (char *) malloc(n1 + n2 + 1); ! 530: strcpy(s, x.optr->sval); ! 531: strcpy(s+n1, y.optr->sval); ! 532: tempfree(y); ! 533: z = gettemp(); ! 534: z.optr->sval = s; ! 535: z.optr->tval = STR; ! 536: tempfree(x); ! 537: return(z); ! 538: } ! 539: ! 540: obj pastat(a,n) node **a; ! 541: { ! 542: obj x; ! 543: ! 544: if (a[0]==nullstat) ! 545: x = true; ! 546: else ! 547: x = execute(a[0]); ! 548: if (istrue(x)) { ! 549: tempfree(x); ! 550: x = execute(a[1]); ! 551: } ! 552: return(x); ! 553: } ! 554: ! 555: obj dopa2(a,n) node **a; ! 556: { ! 557: obj x; ! 558: ! 559: if (pairstack[n]==0) { ! 560: x = execute(a[0]); ! 561: if (istrue(x)) ! 562: pairstack[n] = 1; ! 563: tempfree(x); ! 564: } ! 565: if (pairstack[n] == 1) { ! 566: x = execute(a[1]); ! 567: if (istrue(x)) ! 568: pairstack[n] = 0; ! 569: tempfree(x); ! 570: x = execute(a[2]); ! 571: return(x); ! 572: } ! 573: return(false); ! 574: } ! 575: ! 576: obj aprintf(a,n) node **a; ! 577: { ! 578: obj x; ! 579: ! 580: x = asprintf(a,n); ! 581: if (a[1]==NULL) { ! 582: printf("%s", x.optr->sval); ! 583: tempfree(x); ! 584: return(true); ! 585: } ! 586: redirprint(x.optr->sval, (int)a[1], a[2]); ! 587: return(x); ! 588: } ! 589: ! 590: obj split(a,nnn) node **a; ! 591: { ! 592: obj x; ! 593: cell *ap; ! 594: register char *s, *p; ! 595: char *t, temp, num[5]; ! 596: register int sep; ! 597: int n, flag; ! 598: ! 599: x = execute(a[0]); ! 600: s = getsval(x.optr); ! 601: tempfree(x); ! 602: if (a[2] == nullstat) ! 603: sep = **FS; ! 604: else { ! 605: x = execute(a[2]); ! 606: sep = getsval(x.optr)[0]; ! 607: tempfree(x); ! 608: } ! 609: ap = (cell *) a[1]; ! 610: freesymtab(ap); ! 611: dprintf("split: s=|%s|, a=%s, sep=|%c|\n", s, ap->nval, sep); ! 612: ap->tval &= ~STR; ! 613: ap->tval |= ARR; ! 614: ap->sval = (char *) makesymtab(); ! 615: ! 616: n = 0; ! 617: if (sep == ' ') ! 618: for (n = 0; ; ) { ! 619: while (*s == ' ' || *s == '\t' || *s == '\n') ! 620: s++; ! 621: if (*s == 0) ! 622: break; ! 623: n++; ! 624: t = s; ! 625: do ! 626: s++; ! 627: while (*s!=' ' && *s!='\t' && *s!='\n' && *s!='\0'); ! 628: temp = *s; ! 629: *s = '\0'; ! 630: sprintf(num, "%d", n); ! 631: if (isnumber(t)) ! 632: setsymtab(num, tostring(t), atof(t), STR|NUM, ap->sval); ! 633: else ! 634: setsymtab(num, tostring(t), 0.0, STR, ap->sval); ! 635: *s = temp; ! 636: if (*s != 0) ! 637: s++; ! 638: } ! 639: else if (*s != 0) ! 640: for (;;) { ! 641: n++; ! 642: t = s; ! 643: while (*s != sep && *s != '\n' && *s != '\0') ! 644: s++; ! 645: temp = *s; ! 646: *s = '\0'; ! 647: sprintf(num, "%d", n); ! 648: if (isnumber(t)) ! 649: setsymtab(num, tostring(t), atof(t), STR|NUM, ap->sval); ! 650: else ! 651: setsymtab(num, tostring(t), 0.0, STR, ap->sval); ! 652: *s = temp; ! 653: if (*s++ == 0) ! 654: break; ! 655: } ! 656: x = gettemp(); ! 657: x.optr->tval = NUM; ! 658: x.optr->fval = n; ! 659: return(x); ! 660: } ! 661: ! 662: obj ifstat(a,n) node **a; ! 663: { ! 664: obj x; ! 665: ! 666: x = execute(a[0]); ! 667: if (istrue(x)) { ! 668: tempfree(x); ! 669: x = execute(a[1]); ! 670: } ! 671: else if (a[2] != nullstat) { ! 672: tempfree(x); ! 673: x = execute(a[2]); ! 674: } ! 675: return(x); ! 676: } ! 677: ! 678: obj whilestat(a,n) node **a; ! 679: { ! 680: obj x; ! 681: ! 682: for (;;) { ! 683: x = execute(a[0]); ! 684: if (!istrue(x)) return(x); ! 685: tempfree(x); ! 686: x = execute(a[1]); ! 687: if (isbreak(x)) { ! 688: x = true; ! 689: return(x); ! 690: } ! 691: if (isnext(x) || isexit(x)) ! 692: return(x); ! 693: tempfree(x); ! 694: } ! 695: } ! 696: ! 697: obj forstat(a,n) node **a; ! 698: { ! 699: obj x; ! 700: ! 701: tempfree(execute(a[0])); ! 702: for (;;) { ! 703: if (a[1]!=nullstat) { ! 704: x = execute(a[1]); ! 705: if (!istrue(x)) return(x); ! 706: else tempfree(x); ! 707: } ! 708: x = execute(a[3]); ! 709: if (isbreak(x)) { /* turn off break */ ! 710: x = true; ! 711: return(x); ! 712: } ! 713: if (isnext(x) || isexit(x)) ! 714: return(x); ! 715: tempfree(x); ! 716: tempfree(execute(a[2])); ! 717: } ! 718: } ! 719: ! 720: obj instat(a, n) node **a; ! 721: { ! 722: cell *vp, *arrayp, *cp, **tp; ! 723: obj x; ! 724: int i; ! 725: ! 726: vp = (cell *) a[0]; ! 727: arrayp = (cell *) a[1]; ! 728: if (!(arrayp->tval & ARR)) ! 729: error(FATAL, "%s is not an array", arrayp->nval); ! 730: tp = (cell **) arrayp->sval; ! 731: for (i = 0; i < MAXSYM; i++) { /* this routine knows too much */ ! 732: for (cp = tp[i]; cp != NULL; cp = cp->nextval) { ! 733: setsval(vp, cp->nval); ! 734: x = execute(a[2]); ! 735: if (isbreak(x)) { ! 736: x = true; ! 737: return(x); ! 738: } ! 739: if (isnext(x) || isexit(x)) ! 740: return(x); ! 741: tempfree(x); ! 742: } ! 743: } ! 744: } ! 745: ! 746: obj jump(a,n) node **a; ! 747: { ! 748: obj x, y; ! 749: ! 750: x.otype = OJUMP; ! 751: switch (n) { ! 752: default: ! 753: error(FATAL, "illegal jump type %d", n); ! 754: break; ! 755: case EXIT: ! 756: if (a[0] != 0) { ! 757: y = execute(a[0]); ! 758: errorflag = getfval(y.optr); ! 759: } ! 760: x.osub = JEXIT; ! 761: break; ! 762: case NEXT: ! 763: x.osub = JNEXT; ! 764: break; ! 765: case BREAK: ! 766: x.osub = JBREAK; ! 767: break; ! 768: case CONTINUE: ! 769: x.osub = JCONT; ! 770: break; ! 771: } ! 772: return(x); ! 773: } ! 774: ! 775: obj fncn(a,n) node **a; ! 776: { ! 777: obj x; ! 778: awkfloat u; ! 779: int t; ! 780: ! 781: t = (int) a[0]; ! 782: x = execute(a[1]); ! 783: if (t == FLENGTH) ! 784: u = (awkfloat) strlen(getsval(x.optr)); ! 785: else if (t == FLOG) ! 786: u = log(getfval(x.optr)); ! 787: else if (t == FINT) ! 788: u = (awkfloat) (long) getfval(x.optr); ! 789: else if (t == FEXP) ! 790: u = exp(getfval(x.optr)); ! 791: else if (t == FSQRT) ! 792: u = sqrt(getfval(x.optr)); ! 793: else ! 794: error(FATAL, "illegal function type %d", t); ! 795: tempfree(x); ! 796: x = gettemp(); ! 797: setfval(x.optr, u); ! 798: return(x); ! 799: } ! 800: ! 801: obj print(a,n) node **a; ! 802: { ! 803: register node *x; ! 804: obj y; ! 805: char s[RECSIZE]; ! 806: ! 807: s[0] = '\0'; ! 808: for (x=a[0]; x!=NULL; x=x->nnext) { ! 809: y = execute(x); ! 810: strcat(s, getsval(y.optr)); ! 811: tempfree(y); ! 812: if (x->nnext==NULL) ! 813: strcat(s, *ORS); ! 814: else ! 815: strcat(s, *OFS); ! 816: } ! 817: if (strlen(s) >= RECSIZE) ! 818: error(FATAL, "string %.20s ... too long to print", s); ! 819: if (a[1]==nullstat) { ! 820: printf("%s", s); ! 821: return(true); ! 822: } ! 823: redirprint(s, (int)a[1], a[2]); ! 824: return(false); ! 825: } ! 826: ! 827: obj nullproc() {} ! 828: ! 829: obj nodetoobj(a) node *a; ! 830: { ! 831: obj x; ! 832: ! 833: x.optr = (cell *) a->nobj; ! 834: x.otype = OCELL; ! 835: x.osub = a->subtype; ! 836: if (isfld(x)) fldbld(); ! 837: return(x); ! 838: } ! 839: ! 840: redirprint(s, a, b) char *s; node *b; ! 841: { ! 842: register int i; ! 843: obj x; ! 844: ! 845: x = execute(b); ! 846: getsval(x.optr); ! 847: for (i=0; i<FILENUM; i++) ! 848: if (strcmp(x.optr->sval, files[i].fname) == 0) ! 849: goto doit; ! 850: for (i=0; i<FILENUM; i++) ! 851: if (files[i].fp == 0) ! 852: break; ! 853: if (i >= FILENUM) ! 854: error(FATAL, "too many output files %d", i); ! 855: if (a == '|') /* a pipe! */ ! 856: files[i].fp = popen(x.optr->sval, "w"); ! 857: else if (a == APPEND) ! 858: files[i].fp = fopen(x.optr->sval, "a"); ! 859: else ! 860: files[i].fp = fopen(x.optr->sval, "w"); ! 861: if (files[i].fp == NULL) ! 862: error(FATAL, "can't open file %s", x.optr->sval); ! 863: files[i].fname = tostring(x.optr->sval); ! 864: doit: ! 865: fprintf(files[i].fp, "%s", s); ! 866: #ifndef gcos ! 867: fflush(files[i].fp); /* in case someone is waiting for the output */ ! 868: #endif ! 869: tempfree(x); ! 870: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.