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