![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to n7.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 41BSD / cmd / troff|
Return to n7.c CVS log | Up to [CSRG BSD Unix] / 41BSD / cmd / troff |
1.1 ! root 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,width(i)); /* XXX */ ! 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,width(i)); /* XXX */ ! 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
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.