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

   1: #include "tdef.h"
   2: extern
   3: #include "d.h"
   4: extern
   5: #include "v.h"
   6: #ifdef NROFF
   7: extern
   8: #include "tw.h"
   9: #endif
  10: #include "s.h"
  11: #ifdef NROFF
  12: #define GETCH gettch
  13: #endif
  14: #ifndef NROFF
  15: #define GETCH getch
  16: #endif
  17: 
  18: /*
  19: troff7.c
  20: 
  21: text
  22: */
  23: 
  24: extern struct s *frame, *stk;
  25: extern struct s *ejl;
  26: 
  27: extern int pl;
  28: extern int trap;
  29: extern int flss;
  30: extern int npnflg;
  31: extern int npn;
  32: extern int stop;
  33: extern int nflush;
  34: extern int ejf;
  35: extern int ascii;
  36: extern int donef;
  37: extern int nc;
  38: extern int wch;
  39: extern int dpn;
  40: extern int ndone;
  41: extern int lss;
  42: extern int pto;
  43: extern int pfrom;
  44: extern int print;
  45: extern int nlist[NTRAP];
  46: extern int mlist[NTRAP];
  47: extern int *pnp;
  48: extern int nb;
  49: extern int ic;
  50: extern int icf;
  51: extern int ics;
  52: extern int ne;
  53: extern int ll;
  54: extern int un;
  55: extern int un1;
  56: extern int in;
  57: extern int ls;
  58: extern int spread;
  59: extern int totout;
  60: extern int nwd;
  61: extern int *pendw;
  62: extern int *linep;
  63: extern int line[];
  64: extern int lastl;
  65: extern int ch;
  66: extern int ce;
  67: extern int fi;
  68: extern int nlflg;
  69: extern int pendt;
  70: extern int sps;
  71: extern int adsp;
  72: extern int pendnf;
  73: extern int over;
  74: extern int adrem;
  75: extern int nel;
  76: extern int ad;
  77: extern int ohc;
  78: extern int hyoff;
  79: extern int nhyp;
  80: extern int spflg;
  81: extern int word[];
  82: extern int *wordp;
  83: extern int wne;
  84: extern int chbits;
  85: extern int cwidth;
  86: extern int widthp;
  87: extern int hyf;
  88: extern int xbitf;
  89: extern int vflag;
  90: extern int ul;
  91: extern int cu;
  92: extern int font;
  93: extern int sfont;
  94: extern int it;
  95: extern int itmac;
  96: extern int *hyptr[NHYP];
  97: extern int **hyp;
  98: extern int *wdstart, *wdend;
  99: extern int lnmod;
 100: extern int admod;
 101: extern int nn;
 102: extern int nms;
 103: extern int ndf;
 104: extern int ni;
 105: extern int nform;
 106: extern int lnsize;
 107: extern int po;
 108: extern int ulbit;
 109: extern int *vlist;
 110: extern int nrbits;
 111: extern int nmbits;
 112: extern char trtab[];
 113: extern int xxx;
 114: int brflg;
 115: 
 116: tbreak(){
 117:     register *i, j, pad;
 118:     int res;
 119: 
 120:     trap = 0;
 121:     if(nb)return;
 122:     if((dip == d) && (v.nl == -1)){
 123:         newline(1);
 124:         return;
 125:     }
 126:     if(!nc){
 127:         setnel();
 128:         if(!wch)return;
 129:         if(pendw)getword(1);
 130:         movword();
 131:     }else if(pendw && !brflg){
 132:         getword(1);
 133:         movword();
 134:     }
 135:     *linep = dip->nls = 0;
 136: #ifdef NROFF
 137:     if(dip == d)horiz(po);
 138: #endif
 139:     if(lnmod)donum();
 140:     lastl = ne;
 141:     if(brflg != 1){
 142:         totout = 0;
 143:     }else if(ad){
 144:         if((lastl = (ll - un)) < ne)lastl = ne;
 145:     }
 146:     if(admod && ad && (brflg != 2)){
 147:         lastl = ne;
 148:         adsp = adrem = 0;
 149: #ifdef NROFF
 150:         if(admod == 1)un +=  quant(nel/2,t.Adj);
 151: #endif
 152: #ifndef NROFF
 153:         if(admod == 1)un += nel/2;
 154: #endif
 155:         else if(admod ==2)un += nel;
 156:     }
 157:     totout++;
 158:     brflg = 0;
 159:     if((lastl+un) > dip->maxl)dip->maxl = (lastl+un);
 160:     horiz(un);
 161: #ifdef NROFF
 162:     if(adrem%t.Adj)res = t.Hor; else res = t.Adj;
 163: #endif
 164:     for(i = line;nc > 0;){
 165:         if(((j = *i++) & CMASK) == ' '){
 166:             pad = 0;
 167:             do{
 168:                 pad += width(j);
 169:                 nc--;
 170:               }while(((j = *i++) & CMASK) == ' ');
 171:             i--;
 172:             pad += adsp;
 173:             --nwd;
 174:             if(adrem){
 175:                 if(adrem < 0){
 176: #ifdef NROFF
 177:                     pad -= res;
 178:                     adrem += res;
 179:                 }else if((totout&01) ||
 180:                     ((adrem/res)>=(nwd))){
 181:                     pad += res;
 182:                     adrem -= res;
 183: #endif
 184: #ifndef NROFF
 185:                     pad--;
 186:                     adrem++;
 187:                 }else{
 188:                     pad++;
 189:                     adrem--;
 190: #endif
 191:                 }
 192:             }
 193:             horiz(pad);
 194:         }else{
 195:             pchar(j);
 196:             nc--;
 197:         }
 198:     }
 199:     if(ic){
 200:         if((j = ll - un - lastl + ics) > 0)horiz(j);
 201:         pchar(ic);
 202:     }
 203:     if(icf)icf++;
 204:         else ic = 0;
 205:     ne = nwd = 0;
 206:     un = in;
 207:     setnel();
 208:     newline(0);
 209:     if(dip != d){if(dip->dnl > dip->hnl)dip->hnl = dip->dnl;}
 210:     else{if(v.nl > dip->hnl)dip->hnl = v.nl;}
 211:     for(j=ls-1; (j >0) && !trap; j--)newline(0);
 212:     spread = 0;
 213: }
 214: donum(){
 215:     register i, nw;
 216:     extern pchar();
 217: 
 218:     nrbits = nmbits;
 219:     nw = width('1' | nrbits);
 220:     if(nn){
 221:         nn--;
 222:         goto d1;
 223:     }
 224:     if(v.ln%ndf){
 225:         v.ln++;
 226:     d1:
 227:         un += nw*(3+nms+ni);
 228:         return;
 229:     }
 230:     i = 0;
 231:     if(v.ln<100)i++;
 232:     if(v.ln<10)i++;
 233:     horiz(nw*(ni+i));
 234:     nform = 0;
 235:     fnumb(v.ln,pchar);
 236:     un += nw*nms;
 237:     v.ln++;
 238: }
 239: text(){
 240:     register i;
 241:     static int spcnt;
 242: 
 243:     nflush++;
 244:     if((dip == d) && (v.nl == -1)){newline(1); return;}
 245:     setnel();
 246:     if(ce || !fi){
 247:         nofill();
 248:         return;
 249:     }
 250:     if(pendw)goto t4;
 251:     if(pendt)if(spcnt)goto t2; else goto t3;
 252:     pendt++;
 253:     if(spcnt)goto t2;
 254:     while(((i = GETCH()) & CMASK) == ' ')spcnt++;
 255:     if(nlflg){
 256:     t1:
 257:         nflush = pendt = ch = spcnt = 0;
 258:         callsp();
 259:         return;
 260:     }
 261:     ch = i;
 262:     if(spcnt){
 263:     t2:
 264:         tbreak();
 265:         if(nc || wch)goto rtn;
 266:         un += spcnt*sps;
 267:         spcnt = 0;
 268:         setnel();
 269:         if(trap)goto rtn;
 270:         if(nlflg)goto t1;
 271:     }
 272: t3:
 273:     if(spread)goto t5;
 274:     if(pendw || !wch)
 275:     t4:
 276:         if(getword(0))goto t6;
 277:     if(!movword())goto t3;
 278: t5:
 279:     if(nlflg)pendt = 0;
 280:     adsp = adrem = 0;
 281:     if(ad){
 282: /* jfr */   if (nwd==1) adsp=nel; else adsp=nel/(nwd-1);
 283: #ifdef NROFF
 284:         adsp = (adsp/t.Adj)*t.Adj;
 285: #endif
 286:         adrem = nel - adsp*(nwd-1);
 287:     }
 288:     brflg = 1;
 289:     tbreak();
 290:     spread = 0;
 291:     if(!trap)goto t3;
 292:     if(!nlflg)goto rtn;
 293: t6:
 294:     pendt = 0;
 295:     ckul();
 296: rtn:
 297:     nflush = 0;
 298: }
 299: nofill(){
 300:     register i, j;
 301: 
 302:     if(!pendnf){
 303:         over = 0;
 304:         tbreak();
 305:         if(trap)goto rtn;
 306:         if(nlflg){
 307:             ch = nflush = 0;
 308:             callsp();
 309:             return;
 310:         }
 311:         adsp = adrem = 0;
 312:         nwd = 10000;
 313:     }
 314:     while((j = ((i = GETCH()) & CMASK)) != '\n'){
 315:         if(j == ohc)continue;
 316:         if(j == CONT){
 317:             pendnf++;
 318:             nflush = 0;
 319:             flushi();
 320:             ckul();
 321:             return;
 322:         }
 323:         storeline(i,-1);
 324:     }
 325:     if(ce){
 326:         ce--;
 327:         if((i=quant(nel/2,HOR)) > 0)un += i;
 328:     }
 329:     if(!nc)storeline(FILLER,0);
 330:     brflg = 2;
 331:     tbreak();
 332:     ckul();
 333: rtn:
 334:     pendnf = nflush = 0;
 335: }
 336: callsp(){
 337:     register i;
 338: 
 339:     if(flss)i = flss; else i = lss;
 340:     flss = 0;
 341:     casesp(i);
 342: }
 343: ckul(){
 344:     if(ul && (--ul == 0)){
 345:             cu = 0;
 346:             font = sfont;
 347:             mchbits();
 348:     }
 349:     if(it && (--it == 0) && itmac)control(itmac,0);
 350: }
 351: storeline(c,w){
 352:     register i;
 353: 
 354:     if((c & CMASK) == JREG){
 355:         if((i=findr(c>>BYTE)) != -1)vlist[i] = ne;
 356:         return;
 357:     }
 358:     if(linep >= (line + lnsize - 1)){
 359:         if(!over){
 360:             prstrfl("Line overflow.\n");
 361:             over++;
 362:         c = 0343;
 363:         w = -1;
 364:         goto s1;
 365:         }
 366:         return;
 367:     }
 368: s1:
 369:     if(w == -1)w = width(c);
 370:     ne += w;
 371:     nel -= w;
 372: /*
 373:  *	if( cu && !(c & MOT) && (trtab[(c & CMASK)] == ' '))
 374:  *		c = ((c & ~ulbit) & ~CMASK) | '_';
 375:  */
 376:     *linep++ = c;
 377:     nc++;
 378: }
 379: newline(a)
 380: int a;
 381: {
 382:     register i, j, nlss;
 383:     int opn;
 384: 
 385:     if(a)goto nl1;
 386:     if(dip != d){
 387:         j = lss;
 388:         pchar1(FLSS);
 389:         if(flss)lss = flss;
 390:         i = lss + dip->blss;
 391:         dip->dnl += i;
 392:         pchar1(i);
 393:         pchar1('\n');
 394:         lss = j;
 395:         dip->blss = flss = 0;
 396:         if(dip->alss){
 397:             pchar1(FLSS);
 398:             pchar1(dip->alss);
 399:             pchar1('\n');
 400:             dip->dnl += dip->alss;
 401:             dip->alss = 0;
 402:         }
 403:         if(dip->ditrap && !dip->ditf &&
 404:             (dip->dnl >= dip->ditrap) && dip->dimac)
 405:             if(control(dip->dimac,0)){trap++; dip->ditf++;}
 406:         return;
 407:     }
 408:     j = lss;
 409:     if(flss)lss = flss;
 410:     nlss = dip->alss + dip->blss + lss;
 411:     v.nl += nlss;
 412: #ifndef NROFF
 413:     if(ascii){dip->alss = dip->blss = 0;}
 414: #endif
 415:     pchar1('\n');
 416:     flss = 0;
 417:     lss = j;
 418:     if(v.nl < pl)goto nl2;
 419: nl1:
 420:     ejf = dip->hnl = v.nl = 0;
 421:     ejl = frame;
 422:     if(donef){
 423:         if((!nc && !wch) || ndone)done1(0);
 424:         ndone++;
 425:         donef = 0;
 426:         if(frame == stk)nflush++;
 427:     }
 428:     opn = v.pn;
 429:     v.pn++;
 430:     if(npnflg){
 431:         v.pn = npn;
 432:         npn = npnflg = 0;
 433:     }
 434: nlpn:
 435:     if(v.pn == pfrom){
 436:         print++;
 437:         pfrom = -1;
 438:     }else if(opn == pto){
 439:         print = 0;
 440:         opn = -1;
 441:         chkpn();
 442:         goto nlpn;
 443:         }
 444:     if(stop && print){
 445:         dpn++;
 446:         if(dpn >= stop){
 447:             dpn = 0;
 448:             dostop();
 449:         }
 450:     }
 451: nl2:
 452:     trap = 0;
 453:     if(v.nl == 0){
 454:         if((j = findn(0)) != NTRAP)
 455:             trap = control(mlist[j],0);
 456:     } else if((i = findt(v.nl-nlss)) <= nlss){
 457:         if((j = findn1(v.nl-nlss+i)) == NTRAP){
 458:             prstrfl("Trap botch.\n");
 459:             done2(-5);
 460:         }
 461:         trap = control(mlist[j],0);
 462:     }
 463: }
 464: findn1(a)
 465: int a;
 466: {
 467:     register i, j;
 468: 
 469:     for(i=0; i<NTRAP; i++){
 470:         if(mlist[i]){
 471:             if((j = nlist[i]) < 0)j += pl;
 472:             if(j == a)break;
 473:         }
 474:     }
 475:     return(i);
 476: }
 477: chkpn(){
 478:     pto = *(pnp++);
 479:     pfrom = pto & ~MOT;
 480:     if(pto == -1){
 481:         flusho();
 482:         done1(0);
 483:     }
 484:     if(pto & MOT){
 485:         pto &= ~MOT;
 486:         print++;
 487:         pfrom = 0;
 488:     }
 489: }
 490: findt(a)
 491: int a;
 492: {
 493:     register i, j, k;
 494: 
 495:     k = 32767;
 496:     if(dip != d){
 497:         if(dip->dimac && ((i = dip->ditrap -a) > 0))k = i;
 498:         return(k);
 499:     }
 500:     for(i=0; i<NTRAP; i++){
 501:         if(mlist[i]){
 502:             if((j = nlist[i]) < 0)j += pl;
 503:             if((j -= a)  <=  0)continue;
 504:             if(j < k)k = j;
 505:         }
 506:     }
 507:     i = pl - a;
 508:     if(k > i)k = i;
 509:     return(k);
 510: }
 511: findt1(){
 512:     register i;
 513: 
 514:     if(dip != d)i = dip->dnl;
 515:         else i = v.nl;
 516:     return(findt(i));
 517: }
 518: eject(a)
 519: struct s *a;
 520: {
 521:     register savlss;
 522: 
 523:     if(dip != d)return;
 524:     ejf++;
 525:     if(a)ejl = a;
 526:         else ejl = frame;
 527:     if(trap)return;
 528: e1:
 529:     savlss = lss;
 530:     lss = findt(v.nl);
 531:     newline(0);
 532:     lss = savlss;
 533:     if(v.nl && !trap)goto e1;
 534: }
 535: movword(){
 536:     register i, w, *wp;
 537:     int savwch, hys;
 538: 
 539:     over = 0;
 540:     wp = wordp;
 541:     if(!nwd){
 542:         while(((i = *wp++) & CMASK) == ' '){
 543:             wch--;
 544:             wne -= width(i);
 545:         }
 546:         wp--;
 547:     }
 548:     if((wne > nel) &&
 549:        !hyoff && hyf &&
 550:        (!nwd || (nel > 3*sps)) &&
 551:        (!(hyf & 02) || (findt1() > lss))
 552:       )hyphen(wp);
 553:     savwch = wch;
 554:     hyp = hyptr;
 555:     nhyp = 0;
 556:     while(*hyp && (*hyp <= wp))hyp++;
 557:     while(wch){
 558:         if((hyoff != 1) && (*hyp == wp)){
 559:             hyp++;
 560:             if(!wdstart ||
 561:                ((wp > (wdstart+1)) &&
 562:                 (wp < wdend) &&
 563:                 (!(hyf & 04) || (wp < (wdend-1))) &&
 564:                 (!(hyf & 010) || (wp > (wdstart+2)))
 565:                )
 566:               ){
 567:                 nhyp++;
 568:                 storeline(IMP,0);
 569:             }
 570:         }
 571:         i = *wp++;
 572:         w = width(i);
 573:         wne -= w;
 574:         wch--;
 575:         storeline(i,w);
 576:     }
 577:     if(nel >= 0){
 578:         nwd++;
 579:         return(0);
 580:     }
 581:     xbitf = 1;
 582:     hys = width(0200); /*hyphen*/
 583: m1:
 584:     if(!nhyp){
 585:         if(!nwd)goto m3;
 586:         if(wch == savwch)goto m4;
 587:     }
 588:     if(*--linep != IMP)goto m5;
 589:     if(!(--nhyp))
 590:         if(!nwd)goto m2;
 591:     if(nel < hys){
 592:         nc--;
 593:         goto m1;
 594:     }
 595: m2:
 596:     if(((i = *(linep-1) & CMASK) != '-') &&
 597:        (i != 0203)
 598:       ){
 599:     *linep = (*(linep-1) & ~CMASK) | 0200;
 600:     w = width(*linep);
 601:     nel -= w;
 602:     ne += w;
 603:     linep++;
 604: /*
 605: 	hsend();
 606: */
 607:     }
 608: m3:
 609:     nwd++;
 610: m4:
 611:     wordp = wp;
 612:     return(1);
 613: m5:
 614:     nc--;
 615:     w = width(*linep);
 616:     ne -= w;
 617:     nel += w;
 618:     wne += w;
 619:     wch++;
 620:     wp--;
 621:     goto m1;
 622: }
 623: horiz(i)
 624: int i;
 625: {
 626:     vflag = 0;
 627:     if(i)pchar(makem(i));
 628: }
 629: setnel(){
 630:     if(!nc){
 631:         linep = line;
 632:         if(un1 >= 0){
 633:             un = un1;
 634:             un1 = -1;
 635:         }
 636:         nel = ll - un;
 637:         ne = adsp = adrem = 0;
 638:     }
 639: }
 640: getword(x)
 641: int x;
 642: {
 643:     register i, j, swp;
 644:     int noword;
 645: 
 646:     noword = 0;
 647:     if(x)if(pendw){
 648:         *pendw = 0;
 649:         goto rtn;
 650:     }
 651:     if(wordp = pendw)goto g1;
 652:     hyp = hyptr;
 653:     wordp = word;
 654:     over = wne = wch = 0;
 655:     hyoff = 0;
 656:     while(1){
 657:         j = (i = GETCH()) & CMASK;
 658:         if(j == '\n'){
 659:             wne = wch = 0;
 660:             noword = 1;
 661:             goto rtn;
 662:         }
 663:         if(j == ohc){
 664:             hyoff = 1;
 665:             continue;
 666:         }
 667:         if(j == ' '){
 668:             storeword(i,cwidth);
 669:             continue;
 670:         }
 671:         break;
 672:     }
 673:     swp = widthp;
 674:     storeword(' ' | chbits, -1);
 675:     if(spflg){
 676:         storeword(' ' | chbits, -1);
 677:         spflg = 0;
 678:     }
 679:     widthp = swp;
 680: g0:
 681:     if(j == CONT){
 682:         pendw = wordp;
 683:         nflush = 0;
 684:         flushi();
 685:         return(1);
 686:     }
 687:     if(hyoff != 1){
 688:         if(j == ohc){
 689:             hyoff = 2;
 690:             *hyp++ = wordp;
 691:             if(hyp > (hyptr+NHYP-1))hyp = hyptr+NHYP-1;
 692:             goto g1;
 693:         }
 694:         if((j == '-') ||
 695:            (j == 0203) /*3/4 Em dash*/
 696:           )if(wordp > word+1){
 697:             hyoff = 2;
 698:             *hyp++ = wordp + 1;
 699:             if(hyp > (hyptr+NHYP-1))hyp = hyptr+NHYP-1;
 700:         }
 701:     }
 702:     storeword(i,cwidth);
 703: g1:
 704:     j = (i = GETCH()) & CMASK;
 705:     if(j != ' '){
 706:         if(j != '\n')goto g0;
 707:         j = *(wordp-1) & CMASK;
 708:         if((j == '.') ||
 709:            (j == '!') ||
 710:            (j == '?'))spflg++;
 711:     }
 712:     *wordp = 0;
 713: rtn:
 714:     wdstart = 0;
 715:     wordp = word;
 716:     pendw = 0;
 717:     *hyp++ = 0;
 718:     setnel();
 719:     return(noword);
 720: }
 721: storeword(c,w)
 722: int c, w;
 723: {
 724: 
 725:     if(wordp >= &word[WDSIZE - 1]){
 726:         if(!over){
 727:             prstrfl("Word overflow.\n");
 728:             over++;
 729:             c = 0343;
 730:             w = -1;
 731:         goto s1;
 732:         }
 733:         return;
 734:     }
 735: s1:
 736:     if(w == -1)w = width(c);
 737:     wne += w;
 738:     *wordp++ = c;
 739:     wch++;
 740: }
 741: #ifdef NROFF
 742: extern char trtab[];
 743: gettch(){
 744:     register int i, j;
 745: 
 746:     if(!((i = getch()) & MOT) && (i & ulbit)){
 747:         j = i&CMASK;
 748:         if(cu && (trtab[j] == ' '))
 749:             i = ((i & ~ulbit)& ~CMASK) | '_';
 750:         if(!cu && (j>32) && (j<0370) && !(*t.codetab[j-32] & 0200))
 751:             i &= ~ulbit;
 752:     }
 753:     return(i);
 754: }
 755: #endif

Defined functions

Defined variables

Defined macros