![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to n1.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / usr.bin / roff / common_source|
Return to n1.c CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / usr.bin / roff / common_source |
1.1 ! root 1: #ifndef lint ! 2: static char sccsid[] = "@(#)n1.c 4.8 7/21/87"; ! 3: #endif lint ! 4: ! 5: #include "tdef.h" ! 6: #include <sys/types.h> ! 7: #include <sys/stat.h> ! 8: #include <time.h> ! 9: extern ! 10: #include "d.h" ! 11: extern ! 12: #include "v.h" ! 13: #ifdef NROFF ! 14: extern ! 15: #include "tw.h" ! 16: #endif ! 17: #include "sdef.h" ! 18: #include <setjmp.h> ! 19: jmp_buf sjbuf; ! 20: #include <sgtty.h> ! 21: /* ! 22: troff1.c ! 23: ! 24: consume options, initialization, main loop, ! 25: input routines, escape function calling ! 26: */ ! 27: ! 28: int inchar[LNSIZE], *pinchar = inchar; /* XXX */ ! 29: extern struct s *frame, *stk, *nxf; ! 30: extern struct s *ejl, *litlev; ! 31: extern filep ip; ! 32: extern filep offset; ! 33: extern filep nextb; ! 34: ! 35: ! 36: extern int stdi; ! 37: extern int waitf; ! 38: extern int nofeed; ! 39: extern int quiet; ! 40: extern int ptid; ! 41: extern int ascii; ! 42: extern int npn; ! 43: extern int xflg; ! 44: extern int stop; ! 45: extern char ibuf[IBUFSZ]; ! 46: extern char xbuf[IBUFSZ]; ! 47: extern char *ibufp; ! 48: extern char *xbufp; ! 49: extern char *eibuf; ! 50: extern char *xeibuf; ! 51: extern int cbuf[NC]; ! 52: extern int *cp; ! 53: extern int *vlist; ! 54: extern int nx; ! 55: extern int mflg; ! 56: extern int ch; ! 57: extern int pto; ! 58: extern int pfrom; ! 59: extern int cps; ! 60: extern int chbits; ! 61: extern int ibf; ! 62: extern int ttyod; ! 63: extern struct sgttyb ttys; ! 64: extern int iflg; ! 65: extern int init; ! 66: extern int rargc; ! 67: extern char **argp; ! 68: extern char trtab[256]; ! 69: extern int lgf; ! 70: extern int copyf; ! 71: extern int eschar; ! 72: extern int ch0; ! 73: extern int cwidth; ! 74: extern int nlflg; ! 75: extern int *ap; ! 76: extern int donef; ! 77: extern int nflush; ! 78: extern int nchar; ! 79: extern int rchar; ! 80: extern int nfo; ! 81: extern int ifile; ! 82: extern int fc; ! 83: extern int padc; ! 84: extern int tabc; ! 85: extern int dotc; ! 86: extern int raw; ! 87: extern int tabtab[NTAB]; ! 88: extern char nextf[]; ! 89: extern int nfi; ! 90: #ifdef NROFF ! 91: extern char termtab[]; ! 92: extern int tti; ! 93: #endif ! 94: extern int ifl[NSO]; ! 95: extern int ifi; ! 96: extern int pendt; ! 97: extern int flss; ! 98: extern int fi; ! 99: extern int lg; ! 100: extern char ptname[]; ! 101: extern int print; ! 102: extern int nonumb; ! 103: extern int pnlist[]; ! 104: extern int *pnp; ! 105: extern int nb; ! 106: extern int trap; ! 107: extern int tflg; ! 108: extern int ejf; ! 109: extern int lit; ! 110: extern int cc; ! 111: extern int c2; ! 112: extern int spread; ! 113: extern int gflag; ! 114: extern int oline[]; ! 115: extern int *olinep; ! 116: extern int dpn; ! 117: extern int noscale; ! 118: extern char *unlkp; ! 119: extern int pts; ! 120: extern int level; ! 121: extern int ttysave; ! 122: extern int tdelim; ! 123: extern int dotT; ! 124: extern int tabch, ldrch; ! 125: extern int eqflg; ! 126: extern no_out; ! 127: extern int hflg; ! 128: #ifndef NROFF ! 129: extern char codetab[]; ! 130: extern int spbits; ! 131: #endif ! 132: extern int xxx; ! 133: int stopmesg; ! 134: filep ipl[NSO]; ! 135: long offl[NSO]; ! 136: long ioff; ! 137: char *ttyp; ! 138: extern struct contab { ! 139: int rq; ! 140: union { ! 141: int (*f)(); ! 142: unsigned mx; ! 143: }x; ! 144: }contab[NM]; ! 145: int ms[] = {31,28,31,30,31,30,31,31,30,31,30,31}; ! 146: #ifndef NROFF ! 147: int acctf; ! 148: #endif ! 149: ! 150: main(argc,argv) ! 151: int argc; ! 152: char **argv; ! 153: { ! 154: char *p, *q; ! 155: register i, j; ! 156: extern catch(), fpecatch(), kcatch(); ! 157: ! 158: signal(SIGHUP,catch); ! 159: if(signal(SIGINT,catch) == SIG_IGN){ ! 160: signal(SIGHUP,SIG_IGN); ! 161: signal(SIGINT,SIG_IGN); ! 162: signal(SIGQUIT,SIG_IGN); ! 163: } ! 164: signal(SIGFPE,fpecatch); ! 165: signal(SIGPIPE,catch); ! 166: signal(SIGTERM,kcatch); ! 167: init1(argv[0][0]); ! 168: options: ! 169: while(--argc > 0 && (++argv)[0][0]=='-') ! 170: switch(argv[0][1]){ ! 171: ! 172: case 0: ! 173: goto start; ! 174: case 'i': ! 175: stdi++; ! 176: continue; ! 177: case 'q': ! 178: quiet++; ! 179: if(gtty(0, &ttys) >= 0) ! 180: ttysave = ttys.sg_flags; ! 181: continue; ! 182: case 'n': ! 183: npn = cnum(&argv[0][2]); ! 184: continue; ! 185: case 'p': ! 186: xflg = 0; ! 187: cps = cnum(&argv[0][2]); ! 188: continue; ! 189: case 'S': ! 190: stopmesg++; ! 191: continue; ! 192: case 's': ! 193: if(!(stop = cnum(&argv[0][2])))stop++; ! 194: continue; ! 195: case 'r': ! 196: vlist[findr(argv[0][2])] = cnum(&argv[0][3]); ! 197: continue; ! 198: case 'm': ! 199: p = &nextf[nfi]; ! 200: q = &argv[0][2]; ! 201: while((*p++ = *q++) != 0); ! 202: if (access(nextf, 4) < 0) { ! 203: char *local = "/usr/local/lib/tmac/tmac.\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"; ! 204: strcat(local, &argv[0][2]); ! 205: if (access(local, 4) == 0) ! 206: strcpy(nextf, local); ! 207: } ! 208: mflg++; ! 209: continue; ! 210: case 'o': ! 211: getpn(&argv[0][2]); ! 212: continue; ! 213: #ifdef NROFF ! 214: case 'h': ! 215: hflg++; ! 216: continue; ! 217: case 'z': ! 218: no_out++; ! 219: continue; ! 220: case 'e': ! 221: eqflg++; ! 222: continue; ! 223: case 'T': ! 224: p = &termtab[tti]; ! 225: q = &argv[0][2]; ! 226: if(!((*q) & 0177))continue; ! 227: while((*p++ = *q++) != 0); ! 228: dotT++; ! 229: continue; ! 230: #endif ! 231: #ifndef NROFF ! 232: case 'z': ! 233: no_out++; ! 234: case 'a': ! 235: ascii = 1; ! 236: nofeed++; ! 237: case 't': ! 238: ptid = 1; ! 239: continue; ! 240: case 'w': ! 241: waitf = 1; ! 242: continue; ! 243: case 'f': ! 244: nofeed++; ! 245: continue; ! 246: case 'x': ! 247: xflg = 0; ! 248: continue; ! 249: case 'b': ! 250: if(open(ptname,1) < 0)prstr("Busy.\n"); ! 251: else prstr("Available.\n"); ! 252: done3(0); ! 253: case 'g': ! 254: stop = ptid = gflag = 1; ! 255: dpn = 0; ! 256: continue; ! 257: case 'F': ! 258: { ! 259: extern char *fontfile; ! 260: fontfile = &argv[0][2]; ! 261: } ! 262: continue; ! 263: #endif ! 264: default: ! 265: pto = cnum(&argv[0][1]); ! 266: continue; ! 267: } ! 268: ! 269: if(argv[0][0] == '+'){ ! 270: pfrom = cnum(&argv[0][1]); ! 271: print = 0; ! 272: if(argc > 0)goto options; ! 273: } ! 274: ! 275: start: ! 276: argp = argv; ! 277: rargc = argc; ! 278: init2(); ! 279: setjmp(sjbuf); ! 280: loop: ! 281: copyf = lgf = nb = nflush = nlflg = 0; ! 282: if(ip && (rbf0(ip)==0) && ejf && (frame->pframe <= ejl)){ ! 283: nflush++; ! 284: trap = 0; ! 285: eject((struct s *)0); ! 286: goto loop; ! 287: } ! 288: i = getch(); ! 289: if(pendt)goto lt; ! 290: if(lit && (frame <= litlev)){ ! 291: lit--; ! 292: goto lt; ! 293: } ! 294: if((j = (i & CMASK)) == XPAR){ ! 295: copyf++; ! 296: tflg++; ! 297: for(;(i & CMASK) != '\n';)pchar(i = getch()); ! 298: tflg = 0; ! 299: copyf--; ! 300: goto loop; ! 301: } ! 302: if((j == cc) || (j == c2)){ ! 303: if(j == c2)nb++; ! 304: copyf++; ! 305: while(((j=((i=getch()) & CMASK)) == ' ') || ! 306: (j == '\t')); ! 307: ch = i; ! 308: copyf--; ! 309: control(getrq(),1); ! 310: flushi(); ! 311: goto loop; ! 312: } ! 313: lt: ! 314: ch = i; ! 315: text(); ! 316: goto loop; ! 317: } ! 318: catch(){ ! 319: /* ! 320: prstr("Interrupt\n"); ! 321: */ ! 322: done3(01); ! 323: } ! 324: fpecatch(){ ! 325: prstrfl("Floating Exception.\n"); ! 326: signal(SIGFPE,fpecatch); ! 327: } ! 328: kcatch(){ ! 329: signal(SIGTERM,SIG_IGN); ! 330: done3(01); ! 331: } ! 332: #ifndef NROFF ! 333: acctg() { ! 334: static char *acct_file = "/usr/adm/tracct"; ! 335: acctf = open(acct_file,1); ! 336: setuid(getuid()); ! 337: } ! 338: #endif ! 339: init1(a) ! 340: char a; ! 341: { ! 342: register char *p; ! 343: char *mktemp(); ! 344: register i; ! 345: ! 346: #ifndef NROFF ! 347: acctg();/*open troff actg file while mode 4755*/ ! 348: #endif ! 349: p = mktemp("/tmp/taXXXXX"); ! 350: if(a == 'a')p = &p[5]; ! 351: if((close(creat(p, 0600))) < 0){ ! 352: prstr("Cannot create temp file.\n"); ! 353: exit(-1); ! 354: } ! 355: ibf = open(p, 2); ! 356: for(i=256; --i;)trtab[i]=i; ! 357: trtab[UNPAD] = ' '; ! 358: mchbits(); ! 359: if(a != 'a')unlkp = p; ! 360: } ! 361: init2() ! 362: { ! 363: register i,j; ! 364: extern int block; ! 365: extern char *setbrk(); ! 366: extern char *ttyname(); ! 367: ! 368: ttyod = 2; ! 369: if(((ttyp=ttyname(j=0)) != (char *)0) || ! 370: ((ttyp=ttyname(j=1)) != (char *)0) || ! 371: ((ttyp=ttyname(j=2)) != (char *)0) ! 372: );else ttyp = "notty"; ! 373: iflg = j; ! 374: if(ascii)mesg(0); ! 375: ! 376: if((!ptid) && (!waitf)){ ! 377: if((ptid = open(ptname,1)) < 0){ ! 378: prstr("Typesetter busy.\n"); ! 379: done3(-2); ! 380: } ! 381: } ! 382: ptinit(); ! 383: for(i=NEV; i--;)write(ibf, (char *)&block, EVS*sizeof(int)); ! 384: olinep = oline; ! 385: ibufp = eibuf = ibuf; ! 386: v.hp = init = 0; ! 387: pinchar = inchar; /* XXX */ ! 388: ioff = 0; ! 389: v.nl = -1; ! 390: cvtime(); ! 391: frame = stk = (struct s *)setbrk(DELTA); ! 392: dip = &d[0]; ! 393: nxf = frame + 1; ! 394: nx = mflg; ! 395: } ! 396: cvtime() ! 397: { ! 398: extern time_t time(); ! 399: time_t t; ! 400: register struct tm *tmp; ! 401: ! 402: t = time((time_t *)0); ! 403: tmp = localtime(&t); ! 404: v.dy = tmp->tm_mday; ! 405: v.dw = tmp->tm_wday + 1; ! 406: v.yr = tmp->tm_year; ! 407: v.mo = tmp->tm_mon + 1; ! 408: } ! 409: cnum(a) ! 410: char *a; ! 411: { ! 412: register i; ! 413: ! 414: ibufp = a; ! 415: eibuf = (char *) MAXPTR; ! 416: i = atoi(); ! 417: ch = 0; ! 418: return(i); ! 419: } ! 420: mesg(f) ! 421: int f; ! 422: { ! 423: static int mode; ! 424: ! 425: if (ttyp==0) ! 426: return; ! 427: if(!f){ ! 428: stat(ttyp,cbuf); ! 429: mode = ((struct stat *)(cbuf))->st_mode; ! 430: chmod(ttyp,mode & ~022); ! 431: }else{ ! 432: chmod(ttyp,mode); ! 433: } ! 434: } ! 435: prstrfl(s) ! 436: char *s; ! 437: { ! 438: flusho(); ! 439: prstr(s); ! 440: } ! 441: prstr(s) ! 442: char *s; ! 443: { ! 444: register i; ! 445: register char *j; ! 446: ! 447: j = s; ! 448: for(i=0;*s;i++)s++; ! 449: write(ttyod,j,i); ! 450: } ! 451: control(a,b) ! 452: int a,b; ! 453: { ! 454: register i,j; ! 455: extern filep boff(); ! 456: ! 457: i = a; ! 458: if((i == 0) || ((j = findmn(i)) == -1))return(0); ! 459: if(contab[j].rq & MMASK){ ! 460: nxf->nargs = 0; ! 461: if(b)collect(); ! 462: flushi(); ! 463: return(pushi(((filep)contab[j].x.mx)<<BLKBITS)); ! 464: }else{ ! 465: if(!b)return(0); ! 466: return((*contab[j].x.f)(0)); ! 467: } ! 468: } ! 469: ! 470: getrq(){ ! 471: register i,j; ! 472: ! 473: if(((i=getach()) == 0) || ! 474: ((j=getach()) == 0))goto rtn; ! 475: i = PAIR(i,j); ! 476: rtn: ! 477: return(i); ! 478: } ! 479: getch(){ ! 480: register int i, j, k; ! 481: ! 482: level++; ! 483: g0: ! 484: if(ch){ ! 485: if(((i = ch) & CMASK) == '\n')nlflg++; ! 486: ch = 0; ! 487: level--; ! 488: return(i); ! 489: } ! 490: ! 491: if(nlflg){ ! 492: level--; ! 493: return('\n'); ! 494: } ! 495: ! 496: if((k = (i = getch0()) & CMASK) != ESC){ ! 497: if(i & MOT)goto g2; ! 498: if(k == FLSS){ ! 499: copyf++; raw++; ! 500: i = getch0(); ! 501: if(!fi)flss = i; ! 502: copyf--; raw--; ! 503: goto g0; ! 504: } ! 505: if(k == RPT){ ! 506: setrpt(); ! 507: goto g0; ! 508: } ! 509: if(!copyf){ ! 510: if((k == 'f') && lg && !lgf){ ! 511: i = getlg(i); ! 512: goto g2; ! 513: } ! 514: if((k == fc) || (k == tabch) || (k == ldrch)){ ! 515: if((i=setfield(k)) == 0)goto g0; else goto g2; ! 516: } ! 517: if(k == 010){ ! 518: i = makem(-width(' ' | chbits)); ! 519: goto g2; ! 520: } ! 521: } ! 522: goto g2; ! 523: } ! 524: k = (j = getch0()) & CMASK; ! 525: if(j & MOT){ ! 526: i = j; ! 527: goto g2; ! 528: } ! 529: /* ! 530: if(k == tdelim){ ! 531: i = TDELIM; ! 532: tdelim = IMP; ! 533: goto g2; ! 534: } ! 535: */ ! 536: switch(k){ ! 537: ! 538: case '\n': /*concealed newline*/ ! 539: goto g0; ! 540: case 'n': /*number register*/ ! 541: setn(); ! 542: goto g0; ! 543: case '*': /*string indicator*/ ! 544: setstr(); ! 545: goto g0; ! 546: case '$': /*argument indicator*/ ! 547: seta(); ! 548: goto g0; ! 549: case '{': /*LEFT*/ ! 550: i = LEFT; ! 551: goto gx; ! 552: case '}': /*RIGHT*/ ! 553: i = RIGHT; ! 554: goto gx; ! 555: case '"': /*comment*/ ! 556: while(((i=getch0()) & CMASK ) != '\n'); ! 557: goto g2; ! 558: case ESC: /*double backslash*/ ! 559: i = eschar; ! 560: goto gx; ! 561: case 'e': /*printable version of current eschar*/ ! 562: i = PRESC; ! 563: goto gx; ! 564: case ' ': /*unpaddable space*/ ! 565: i = UNPAD; ! 566: goto gx; ! 567: case '|': /*narrow space*/ ! 568: i = NARSP; ! 569: goto gx; ! 570: case '^': /*half of narrow space*/ ! 571: i = HNSP; ! 572: goto gx; ! 573: case '\'': /*\(aa*/ ! 574: i = 0222; ! 575: goto gx; ! 576: case '`': /*\(ga*/ ! 577: i = 0223; ! 578: goto gx; ! 579: case '_': /*\(ul*/ ! 580: i = 0224; ! 581: goto gx; ! 582: case '-': /*current font minus*/ ! 583: i = 0210; ! 584: goto gx; ! 585: case '&': /*filler*/ ! 586: i = FILLER; ! 587: goto gx; ! 588: case 'c': /*to be continued*/ ! 589: i = CONT; ! 590: goto gx; ! 591: case ':': /*lem's char*/ ! 592: i = COLON; ! 593: goto gx; ! 594: case '!': /*transparent indicator*/ ! 595: i = XPAR; ! 596: goto gx; ! 597: case 't': /*tab*/ ! 598: i = '\t'; ! 599: goto g2; ! 600: case 'a': /*leader (SOH)*/ ! 601: i = LEADER; ! 602: goto g2; ! 603: case '%': /*ohc*/ ! 604: i = OHC; ! 605: goto g2; ! 606: case '.': /*.*/ ! 607: i = '.'; ! 608: gx: ! 609: i = (j & ~CMASK) | i; ! 610: goto g2; ! 611: } ! 612: if(!copyf) ! 613: switch(k){ ! 614: ! 615: case 'p': /*spread*/ ! 616: spread++; ! 617: goto g0; ! 618: case '(': /*special char name*/ ! 619: if((i=setch()) == 0)goto g0; ! 620: break; ! 621: case 's': /*size indicator*/ ! 622: setps(); ! 623: goto g0; ! 624: case 'f': /*font indicator*/ ! 625: setfont(0); ! 626: goto g0; ! 627: case 'w': /*width function*/ ! 628: setwd(); ! 629: goto g0; ! 630: case 'v': /*vert mot*/ ! 631: if(i = vmot())break; ! 632: goto g0; ! 633: case 'h': /*horiz mot*/ ! 634: if(i = hmot())break; ! 635: goto g0; ! 636: case 'z': /*zero with char*/ ! 637: i = setz(); ! 638: break; ! 639: case 'l': /*hor line*/ ! 640: setline(); ! 641: goto g0; ! 642: case 'L': /*vert line*/ ! 643: setvline(); ! 644: goto g0; ! 645: case 'b': /*bracket*/ ! 646: setbra(); ! 647: goto g0; ! 648: case 'o': /*overstrike*/ ! 649: setov(); ! 650: goto g0; ! 651: case 'k': /*mark hor place*/ ! 652: if((i=findr(getsn())) == -1)goto g0; ! 653: vlist[i] = v.hp = sumhp(); /* XXX */ ! 654: goto g0; ! 655: case 'j': /*mark output hor place*/ ! 656: if(!(i=getach()))goto g0; ! 657: i = (i<<BYTE) | JREG; ! 658: break; ! 659: case '0': /*number space*/ ! 660: i = makem(width('0' | chbits)); ! 661: break; ! 662: case 'x': /*extra line space*/ ! 663: if(i = xlss())break; ! 664: goto g0; ! 665: case 'u': /*half em up*/ ! 666: case 'r': /*full em up*/ ! 667: case 'd': /*half em down*/ ! 668: i = sethl(k); ! 669: break; ! 670: default: ! 671: i = j; ! 672: } ! 673: else{ ! 674: ch0 = j; ! 675: i = eschar; ! 676: } ! 677: g2: ! 678: if((i & CMASK) == '\n'){ ! 679: nlflg++; ! 680: v.hp = 0; ! 681: pinchar = inchar; /* XXX */ ! 682: if(ip == 0)v.cd++; ! 683: } ! 684: if(!--level){ ! 685: /* j = width(i); */ ! 686: /* v.hp += j; */ ! 687: /* cwidth = j; */ ! 688: if (pinchar >= inchar + LNSIZE) { /* XXX */ ! 689: inchar[0] = makem(sumhp()); ! 690: pinchar = &inchar[1]; ! 691: } ! 692: *pinchar++ = i; /* XXX */ ! 693: } ! 694: return(i); ! 695: } ! 696: ! 697: sumhp() /* XXX - add up widths in inchar array */ ! 698: { ! 699: register int n; ! 700: register int *p; ! 701: ! 702: n = 0; ! 703: for (p = inchar; p < pinchar; p++) ! 704: n += width(*p); ! 705: return(n); ! 706: } ! 707: char ifilt[32] = {0,001,002,003,0,005,006,007,010,011,012}; ! 708: getch0(){ ! 709: register int i, j; ! 710: ! 711: if(ch0){i=ch0; ch0=0; return(i);} ! 712: if(nchar){nchar--; return(rchar);} ! 713: ! 714: again: ! 715: if(cp){ ! 716: if((i = *cp++) == 0){ ! 717: cp = 0; ! 718: goto again; ! 719: } ! 720: }else if(ap){ ! 721: if((i = *ap++) == 0){ ! 722: ap = 0; ! 723: goto again; ! 724: } ! 725: }else if(ip){ ! 726: if(ip == -1)i = rdtty(); ! 727: else i = rbf(); ! 728: }else{ ! 729: if(donef)done(0); ! 730: if(nx || ((ibufp >= eibuf) && (eibuf != (char *) MAXPTR))){ ! 731: if(nfo)goto g1; ! 732: g0: ! 733: if(nextfile()){ ! 734: if(ip)goto again; ! 735: if(ibufp < eibuf)goto g2; ! 736: } ! 737: g1: ! 738: nx = 0; ! 739: if((j=read(ifile,ibuf,IBUFSZ)) <= 0)goto g0; ! 740: ibufp = ibuf; ! 741: eibuf = ibuf + j; ! 742: if(ip)goto again; ! 743: } ! 744: g2: ! 745: i = *ibufp++ & 0177; ! 746: ioff++; ! 747: if(i >= 040)goto g4; else i = ifilt[i]; ! 748: } ! 749: if(raw)return(i); ! 750: if((j = i & CMASK) == IMP)goto again; ! 751: if((i == 0) && !init)goto again; ! 752: g4: ! 753: if((copyf == 0) && ((i & ~BMASK) == 0) && ((i & CMASK) < 0370)) ! 754: #ifndef NROFF ! 755: if(spbits && (i>31) && ((codetab[i-32] & 0200))) i |= spbits; ! 756: else ! 757: #endif ! 758: i |= chbits; ! 759: if((i & CMASK) == eschar)i = (i & ~CMASK) | ESC; ! 760: return(i); ! 761: } ! 762: nextfile(){ ! 763: register char *p; ! 764: ! 765: n0: ! 766: if(ifile)close(ifile); ! 767: if(nx){ ! 768: p = nextf; ! 769: if(*p != 0)goto n1; ! 770: } ! 771: if(ifi > 0){ ! 772: if(popf())goto n0; /*popf error*/ ! 773: return(1); /*popf ok*/ ! 774: } ! 775: if(rargc-- <= 0)goto n2; ! 776: p = (argp++)[0]; ! 777: n1: ! 778: if((p[0] == '-') && (p[1] == 0)){ ! 779: ifile = 0; ! 780: }else if((ifile=open(p,0)) < 0){ ! 781: prstr("Cannot open "); ! 782: prstr(p); ! 783: prstr("\n"); ! 784: nfo -= mflg; ! 785: done(02); ! 786: } ! 787: nfo++; ! 788: v.cd = 0; ! 789: ioff = 0; ! 790: return(0); ! 791: n2: ! 792: if((nfo -= mflg) && !stdi)done(0); ! 793: nfo++; ! 794: v.cd = ifile = stdi = mflg = 0; ! 795: ioff = 0; ! 796: return(0); ! 797: } ! 798: popf(){ ! 799: register i; ! 800: register char *p, *q; ! 801: extern char *ttyname(); ! 802: ! 803: ioff = offl[--ifi]; ! 804: ip = ipl[ifi]; ! 805: if((ifile = ifl[ifi]) == 0){ ! 806: p = xbuf; ! 807: q = ibuf; ! 808: ibufp = xbufp; ! 809: eibuf = xeibuf; ! 810: while(q < eibuf)*q++ = *p++; ! 811: return(0); ! 812: } ! 813: if((lseek(ifile,(long)(ioff & ~(IBUFSZ-1)),0) < 0) || ! 814: ((i = read(ifile,ibuf,IBUFSZ)) < 0))return(1); ! 815: eibuf = ibuf + i; ! 816: ibufp = ibuf; ! 817: if(ttyname(ifile) == (char *)0) ! 818: if((ibufp = ibuf + (int)(ioff & (IBUFSZ-1))) >= eibuf)return(1); ! 819: return(0); ! 820: } ! 821: flushi(){ ! 822: if(nflush)return; ! 823: ch = 0; ! 824: if((ch0 & CMASK) == '\n')nlflg++; ! 825: ch0 = 0; ! 826: copyf++; ! 827: while(!nlflg){ ! 828: if(donef && (frame == stk))break; ! 829: getch(); ! 830: } ! 831: copyf--; ! 832: v.hp = 0; ! 833: pinchar = inchar; /* XXX */ ! 834: } ! 835: getach(){ ! 836: register i; ! 837: ! 838: lgf++; ! 839: if(((i = getch()) & MOT) || ! 840: ((i&CMASK) == ' ') || ! 841: ((i&CMASK) == '\n')|| ! 842: (i & 0200)){ ! 843: ch = i; ! 844: i = 0; ! 845: } ! 846: lgf--; ! 847: return(i & 0177); ! 848: } ! 849: casenx(){ ! 850: lgf++; ! 851: skip(); ! 852: getname(); ! 853: nx++; ! 854: nextfile(); ! 855: nlflg++; ! 856: ip = 0; ! 857: ap = 0; ! 858: nchar = pendt = 0; ! 859: frame = stk; ! 860: nxf = frame + 1; ! 861: } ! 862: getname(){ ! 863: register int i, j, k; ! 864: ! 865: lgf++; ! 866: for(k=0; k < (NS-1); k++){ ! 867: if(((j=(i=getch()) & CMASK) <= ' ') || ! 868: (j > 0176))break; ! 869: nextf[k] = j; ! 870: } ! 871: nextf[k] = 0; ! 872: ch = i; ! 873: lgf--; ! 874: return(nextf[0]); ! 875: } ! 876: caseso(){ ! 877: register i; ! 878: register char *p, *q; ! 879: ! 880: lgf++; ! 881: nextf[0] = 0; ! 882: if(skip() || !getname() || ((i=open(nextf,0)) <0) || (ifi >= NSO)) { ! 883: prstr("can't open file "); ! 884: prstr(nextf); ! 885: prstr("\n"); ! 886: done(02); ! 887: } ! 888: flushi(); ! 889: ifl[ifi] = ifile; ! 890: ifile = i; ! 891: offl[ifi] = ioff; ! 892: ioff = 0; ! 893: ipl[ifi] = ip; ! 894: ip = 0; ! 895: nx++; ! 896: nflush++; ! 897: if(!ifl[ifi++]){ ! 898: p = ibuf; ! 899: q = xbuf; ! 900: xbufp = ibufp; ! 901: xeibuf = eibuf; ! 902: while(p < eibuf)*q++ = *p++; ! 903: } ! 904: } ! 905: ! 906: casecf(){ /* copy file without change */ ! 907: int fd, i, n; ! 908: char buf[OBUFSZ]; ! 909: ! 910: flusho(); ! 911: lgf++; ! 912: nextf[0] = 0; ! 913: if(skip() || !getname() || ((fd=open(nextf,0)) <0) || (ifi >= NSO)) { ! 914: prstr("can't open file "); ! 915: prstr(nextf); ! 916: prstr("\n"); ! 917: done(02); ! 918: } ! 919: while ((n = read(fd, buf, OBUFSZ)) > 0) ! 920: for (i = 0; i < n; i++) ! 921: oput(buf[i]); ! 922: flusho(); ! 923: close(fd); ! 924: } ! 925: getpn(a) ! 926: char *a; ! 927: { ! 928: register i, neg; ! 929: long atoi1(); ! 930: ! 931: if((*a & 0177) == 0)return; ! 932: neg = 0; ! 933: ibufp = a; ! 934: eibuf = (char *) MAXPTR; ! 935: noscale++; ! 936: while((i = getch() & CMASK) != 0)switch(i){ ! 937: case '+': ! 938: case ',': ! 939: continue; ! 940: case '-': ! 941: neg = MOT; ! 942: goto d2; ! 943: default: ! 944: ch = i; ! 945: d2: ! 946: i = atoi1(); ! 947: if(nonumb)goto fini; ! 948: else{ ! 949: *pnp++ = i | neg; ! 950: neg = 0; ! 951: if(pnp >= &pnlist[NPN-2]){ ! 952: prstr("Too many page numbers\n"); ! 953: done3(-3); ! 954: } ! 955: } ! 956: } ! 957: fini: ! 958: if(neg)*pnp++ = -2; ! 959: *pnp = -1; ! 960: ch = noscale = print = 0; ! 961: pnp = pnlist; ! 962: if(*pnp != -1)chkpn(); ! 963: } ! 964: setrpt(){ ! 965: register i, j; ! 966: ! 967: copyf++;raw++; ! 968: i = getch0(); ! 969: copyf--;raw--; ! 970: if((i < 0) || ! 971: (((j = getch0()) & CMASK) == RPT))return; ! 972: rchar = j; ! 973: nchar = i & BMASK; ! 974: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.