2.9BSD - /usr/src/cmd/troff/n1.c

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

Defined functions

Defined variables

Defined struct's