![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to n5.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 n5.c CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / usr.bin / roff / common_source |
1.1 root 1: #ifndef lint
2: static char sccsid[] = "@(#)n5.c 4.2 6/30/83";
3: #endif lint
4:
5: #include "tdef.h"
6: #include <sgtty.h>
7: extern
8: #include "d.h"
9: extern
10: #include "v.h"
11: #include "sdef.h"
12:
13: /*
14: troff5.c
15:
16: misc processing requests
17: */
18:
19: extern int inchar[LNSIZE], *pinchar; /* XXX */
20: extern struct s *frame;
21: extern struct s *litlev;
22: extern filep ip;
23: extern filep offset;
24:
25: extern int ascii;
26: extern int nonumb;
27: extern int admod;
28: extern int ad;
29: extern int fi;
30: extern int cc;
31: extern int c2;
32: extern int ohc;
33: extern int tabc;
34: extern int dotc;
35: extern int pendnf;
36: extern int hyf;
37: extern int ce;
38: extern int po;
39: extern int po1;
40: extern int nc;
41: extern int in;
42: extern int un;
43: extern int un1;
44: extern int in1;
45: extern int ll;
46: extern int ll1;
47: extern int lt;
48: extern int lt1;
49: extern int nlist[NTRAP];
50: extern int mlist[NTRAP];
51: extern int lgf;
52: extern int pl;
53: extern int npn;
54: extern int npnflg;
55: extern int copyf;
56: extern char nextf[];
57: extern int trap;
58: extern int lss;
59: extern int em;
60: extern int evlist[EVLSZ];
61: extern int evi;
62: extern int ibf;
63: extern int ev;
64: extern int ch;
65: extern int nflush;
66: extern int tty;
67: extern struct sgttyb ttys;
68: extern int quiet;
69: extern int iflg;
70: extern int eschar;
71: extern int lit;
72: extern int ls;
73: extern int ls1;
74: extern int tabtab[];
75: extern char trtab[];
76: extern int ul;
77: extern int cu;
78: extern int sfont;
79: extern int font;
80: extern int fontlab[];
81: extern int it;
82: extern int itmac;
83: extern int noscale;
84: extern int ic;
85: extern int icf;
86: extern int ics;
87: extern int *vlist;
88: extern int sv;
89: extern int esc;
90: extern int nn;
91: extern int nms;
92: extern int ndf;
93: extern int lnmod;
94: extern int ni;
95: extern int lnsize;
96: extern int nb;
97: extern int nlflg;
98: extern int apts, apts1, pts, pts1, font, font1;
99: extern int ulfont;
100: extern int ulbit;
101: extern int error;
102: extern int nmbits;
103: extern int chbits;
104: extern int tdelim;
105: extern int xxx;
106: int iflist[NIF];
107: int ifx;
108:
109: casead(){
110: register i;
111:
112: ad = 1;
113: /*leave admod alone*/
114: if(skip())return;
115: switch(i = getch() & CMASK){
116: case 'r': /*right adj, left ragged*/
117: admod = 2;
118: break;
119: case 'l': /*left adj, right ragged*/
120: admod = ad = 0; /*same as casena*/
121: break;
122: case 'c': /*centered adj*/
123: admod = 1;
124: break;
125: case 'b': case 'n':
126: admod = 0;
127: break;
128: case '0': case '2': case '4':
129: ad = 0;
130: case '1': case '3': case '5':
131: admod = (i - '0')/2;
132: }
133: }
134: casena(){
135: ad = 0;
136: }
137: casefi(){
138: tbreak();
139: fi++;
140: pendnf = 0;
141: lnsize = LNSIZE;
142: }
143: casenf(){
144: tbreak();
145: fi = 0;
146: /* can't do while oline is only LNSIZE
147: lnsize = LNSIZE + WDSIZE;
148: */
149: }
150: casers(){
151: dip->nls = 0;
152: }
153: casens(){
154: dip->nls++;
155: }
156: chget(c)
157: int c;
158: {
159: register i;
160:
161: if(skip() ||
162: ((i = getch()) & MOT) ||
163: ((i&CMASK) == ' ') ||
164: ((i&CMASK) == '\n')){
165: ch = i;
166: return(c);
167: }else return(i & BMASK);
168: }
169: casecc(){
170: cc = chget('.');
171: }
172: casec2(){
173: c2 = chget('\'');
174: }
175: casehc(){
176: ohc = chget(OHC);
177: }
178: casetc(){
179: tabc = chget(0);
180: }
181: caselc(){
182: dotc = chget(0);
183: }
184: casehy(){
185: register i;
186:
187: hyf = 1;
188: if(skip())return;
189: noscale++;
190: i = atoi();
191: noscale = 0;
192: if(nonumb)return;
193: hyf = max(i,0);
194: }
195: casenh(){
196: hyf = 0;
197: }
198: max(aa,bb)
199: int aa,bb;
200: {
201: if(aa>bb)return(aa);
202: else return(bb);
203: }
204: casece(){
205: register i;
206:
207: noscale++;
208: skip();
209: i = max(atoi(),0);
210: if(nonumb)i = 1;
211: tbreak();
212: ce = i;
213: noscale = 0;
214: }
215: casein(){
216: register i;
217:
218: if(skip())i = in1;
219: else i = max(hnumb(&in),0);
220: tbreak();
221: in1 = in;
222: in = i;
223: if(!nc){
224: un = in;
225: setnel();
226: }
227: }
228: casell(){
229: register i;
230:
231: if(skip())i = ll1;
232: else i = max(hnumb(&ll),INCH/10);
233: ll1 = ll;
234: ll = i;
235: setnel();
236: }
237: caselt(){
238: register i;
239:
240: if(skip())i = lt1;
241: else i = max(hnumb(<),0);
242: lt1 = lt;
243: lt = i;
244: }
245: caseti(){
246: register i;
247:
248: if(skip())return;
249: i = max(hnumb(&in),0);
250: tbreak();
251: un1 = i;
252: setnel();
253: }
254: casels(){
255: register i;
256:
257: noscale++;
258: if(skip())i = ls1;
259: else i = max(inumb(&ls),1);
260: ls1 = ls;
261: ls = i;
262: noscale = 0;
263: }
264: casepo(){
265: register i;
266:
267: if(skip())i = po1;
268: else i = max(hnumb(&po),0);
269: po1 = po;
270: po = i;
271: #ifndef NROFF
272: if(!ascii)esc += po - po1;
273: #endif
274: }
275: casepl(){
276: register i;
277:
278: skip();
279: if((i = vnumb(&pl)) == 0)pl = 11 * INCH; /*11in*/
280: else pl = i;
281: if(v.nl > pl)v.nl = pl;
282: }
283: casewh(){
284: register i, j, k;
285:
286: lgf++;
287: skip();
288: i = vnumb((int *)0);
289: if(nonumb)return;
290: skip();
291: j = getrq();
292: if((k=findn(i)) != NTRAP){
293: mlist[k] = j;
294: return;
295: }
296: for(k=0; k<NTRAP; k++)if(mlist[k] == 0)break;
297: if(k == NTRAP){
298: prstrfl("Cannot plant trap.\n");
299: return;
300: }
301: mlist[k] = j;
302: nlist[k] = i;
303: }
304: casech(){
305: register i, j, k;
306:
307: lgf++;
308: skip();
309: if(!(j=getrq()))return;
310: else for(k=0; k<NTRAP; k++)if(mlist[k] == j)break;
311: if(k == NTRAP)return;
312: skip();
313: i = vnumb((int *)0);
314: if(nonumb)mlist[k] = 0;
315: nlist[k] = i;
316: }
317: findn(i)
318: int i;
319: {
320: register k;
321:
322: for(k=0; k<NTRAP; k++)
323: if((nlist[k] == i) && (mlist[k] != 0))break;
324: return(k);
325: }
326: casepn(){
327: register i;
328:
329: skip();
330: noscale++;
331: i = max(inumb(&v.pn),0);
332: noscale = 0;
333: if(!nonumb){
334: npn = i;
335: npnflg++;
336: }
337: }
338: casebp(){
339: register i;
340: register struct s *savframe;
341:
342: if(dip != d)return;
343: savframe = frame;
344: skip();
345: if((i = inumb(&v.pn)) < 0)i = 0;
346: tbreak();
347: if(!nonumb){
348: npn = i;
349: npnflg++;
350: }else if(dip->nls)return;
351: eject(savframe);
352: }
353: casetm(x) int x;{
354: register i;
355: char tmbuf[NTM];
356:
357: lgf++;
358: copyf++;
359: if(skip() && x)prstrfl("User Abort.");
360: for(i=0; i<NTM-2;)if((tmbuf[i++]=getch()) == '\n')break;
361: if(i == NTM-2)tmbuf[i++] = '\n';
362: tmbuf[i] = 0;
363: prstrfl(tmbuf);
364: copyf--;
365: }
366: casesp(a)
367: int a;
368: {
369: register i, j, savlss;
370:
371: tbreak();
372: if(dip->nls || trap)return;
373: i = findt1();
374: if(!a){
375: skip();
376: j = vnumb((int *)0);
377: if(nonumb)j = lss;
378: }else j = a;
379: if(j == 0)return;
380: if(i < j)j = i;
381: savlss = lss;
382: if(dip != d)i = dip->dnl; else i = v.nl;
383: if((i + j) < 0)j = -i;
384: lss = j;
385: newline(0);
386: lss = savlss;
387: }
388: casert(){
389: register a, *p;
390:
391: skip();
392: if(dip != d)p = &dip->dnl; else p = &v.nl;
393: a = vnumb(p);
394: if(nonumb)a = dip->mkline;
395: if((a < 0) || (a >= *p))return;
396: nb++;
397: casesp(a - *p);
398: }
399: caseem(){
400: lgf++;
401: skip();
402: em = getrq();
403: }
404: casefl(){
405: tbreak();
406: flusho();
407: }
408: caseev(){
409: register nxev;
410: extern int block;
411:
412: if(skip()){
413: e0:
414: if(evi == 0)return;
415: nxev = evlist[--evi];
416: goto e1;
417: }
418: noscale++;
419: nxev = atoi();
420: noscale = 0;
421: if(nonumb)goto e0;
422: flushi();
423: if((nxev >= NEV) || (nxev < 0) || (evi >= EVLSZ)){
424: prstrfl("Cannot do ev.\n");
425: if(error)done2(040);else edone(040);
426: return;
427: }
428: evlist[evi++] = ev;
429: e1:
430: if(ev == nxev)return;
431: lseek(ibf, (long)(ev*EVS*sizeof(int)), 0);
432: write(ibf,(char *)&block, EVS*sizeof(int));
433: lseek(ibf, (long)(nxev*EVS*sizeof(int)), 0);
434: read(ibf,(char *)&block, EVS*sizeof(int));
435: ev = nxev;
436: }
437: caseel(){
438: if(--ifx < 0){
439: ifx = 0;
440: iflist[0] = 0;
441: }
442: caseif(2);
443: }
444: caseie(){
445: if(ifx >= NIF){
446: prstr("if-else overflow.\n");
447: ifx = 0;
448: edone(040);
449: }
450: caseif(1);
451: ifx++;
452: }
453: caseif(x)
454: int x;
455: {
456: register i, notflag, true;
457:
458: if(x == 2){
459: notflag = 0;
460: true = iflist[ifx];
461: goto i1;
462: }
463: true = 0;
464: skip();
465: if(((i = getch()) & CMASK) == '!'){
466: notflag = 1;
467: }else{
468: notflag = 0;
469: ch = i;
470: }
471: i = atoi();
472: if(!nonumb){
473: if(i > 0)true++;
474: goto i1;
475: }
476: switch((i = getch()) & CMASK){
477: case 'e':
478: if(!(v.pn & 01))true++;
479: break;
480: case 'o':
481: if(v.pn & 01)true++;
482: break;
483: #ifdef NROFF
484: case 'n':
485: true++;
486: case 't':
487: #endif
488: #ifndef NROFF
489: case 't':
490: true++;
491: case 'n':
492: #endif
493: case ' ':
494: break;
495: default:
496: true = cmpstr(i);
497: }
498: i1:
499: true ^= notflag;
500: if(x == 1)iflist[ifx] = !true;
501: if(true){
502: i2:
503: do{
504: v.hp = 0;
505: pinchar = inchar; /* XXX */
506: }
507: while(((i = getch()) & CMASK) == ' ');
508: if((i & CMASK) == LEFT)goto i2;
509: ch = i;
510: nflush++;
511: }else{
512: copyf++;
513: if(eat(LEFT) == LEFT){
514: while(eatblk(RIGHT,LEFT) != RIGHT)nlflg = 0;
515: }
516: copyf--;
517: }
518: }
519: eatblk(right,left)
520: int right,left;
521: {
522: register i;
523:
524: e0:
525: while(((i = getch() & CMASK) != right) &&
526: (i != left) &&
527: (i != '\n'));
528: if(i == left){
529: while((i=eatblk(right,left)) != right)nlflg = 0;
530: goto e0;
531: }
532: return(i);
533: }
534: cmpstr(delim)
535: int delim;
536: {
537: register i, j;
538: register filep p;
539: extern filep alloc();
540: extern filep incoff();
541: filep begin;
542: int cnt, k;
543: int savapts, savapts1, savfont, savfont1,
544: savpts, savpts1;
545:
546: if(delim & MOT)return(0);
547: delim &= CMASK;
548: if(dip != d)wbfl();
549: if((offset = begin = alloc()) == (filep)0)return(0);
550: cnt = 0;
551: v.hp = 0;
552: pinchar = inchar; /* XXX */
553: savapts = apts;
554: savapts1 = apts1;
555: savfont = font;
556: savfont1 = font1;
557: savpts = pts;
558: savpts1 = pts1;
559: while(((j = (i=getch()) & CMASK) != delim) && (j != '\n')){
560: wbf(i);
561: cnt++;
562: }
563: wbt(0);
564: k = !cnt;
565: if(nlflg)goto rtn;
566: p = begin;
567: apts = savapts;
568: apts1 = savapts1;
569: font = savfont;
570: font1 = savfont1;
571: pts = savpts;
572: pts1 = savpts1;
573: mchbits();
574: v.hp = 0;
575: pinchar = inchar; /* XXX */
576: while(((j = (i=getch()) & CMASK) != delim) && (j != '\n')){
577: if(rbf0(p) != i){
578: eat(delim);
579: k = 0;
580: break;
581: }
582: p = incoff(p);
583: k = !(--cnt);
584: }
585: rtn:
586: apts = savapts;
587: apts1 = savapts1;
588: font = savfont;
589: font1 = savfont1;
590: pts = savpts;
591: pts1 = savpts1;
592: mchbits();
593: offset = dip->op;
594: ffree(begin);
595: return(k);
596: }
597: caserd(){
598:
599: lgf++;
600: skip();
601: getname();
602: if(!iflg){
603: if(quiet){
604: ttys.sg_flags &= ~ECHO;
605: stty(0, &ttys);
606: prstrfl(""); /*bell*/
607: }else{
608: if(nextf[0]){
609: prstr(nextf);
610: prstr(":");
611: }else{
612: prstr(""); /*bell*/
613: }
614: }
615: }
616: collect();
617: tty++;
618: pushi((filep)-1);
619: }
620: rdtty(){
621: char onechar;
622:
623: onechar = 0;
624: if(read(0, &onechar, 1) == 1){
625: if(onechar == '\n')tty++;
626: else tty = 1;
627: if(tty != 3)return(onechar);
628: }
629: popi();
630: tty = 0;
631: if(quiet){
632: ttys.sg_flags |= ECHO;
633: stty(0, &ttys);
634: }
635: return(0);
636: }
637: caseec(){
638: eschar = chget('\\');
639: }
640: caseeo(){
641: eschar = 0;
642: }
643: caseli(){
644:
645: skip();
646: lit = max(inumb((int *)0),1);
647: litlev = frame;
648: if((dip == d) && (v.nl == -1))newline(1);
649: }
650: caseta(){
651: register i;
652:
653: tabtab[0] = nonumb = 0;
654: for(i=0; ((i < (NTAB-1)) && !nonumb); i++){
655: if(skip())break;
656: tabtab[i] = tabtab[max(i-1,0)] & TMASK;
657: tabtab[i] = max(hnumb(&tabtab[i]),0) & TMASK;
658: if(!nonumb) switch(ch & CMASK){
659: case 'C':
660: tabtab[i] |= CTAB;
661: break;
662: case 'R':
663: tabtab[i] |= RTAB;
664: break;
665: default: /*includes L*/
666: break;
667: }
668: nonumb = ch = 0;
669: }
670: tabtab[i] = 0;
671: }
672: casene(){
673: register i, j;
674:
675: skip();
676: i = vnumb((int *)0);
677: if(nonumb)i = lss;
678: if(i > (j = findt1())){
679: i = lss;
680: lss = j;
681: dip->nls = 0;
682: newline(0);
683: lss = i;
684: }
685: }
686: casetr(){
687: register i, j;
688:
689: lgf++;
690: skip();
691: while((i = getch() & CMASK) != '\n'){
692: if((i & MOT) || ((j = getch()) & MOT))return;
693: if((j &= CMASK) == '\n')j = ' ';
694: trtab[i] = j;
695: }
696: }
697: casecu(){
698: cu++;
699: caseul();
700: }
701: caseul(){
702: register i;
703:
704: noscale++;
705: if(skip())i = 1;
706: else i = atoi();
707: if(ul && (i == 0)){
708: font = sfont;
709: ul = cu = 0;
710: }
711: if(i){
712: if(!ul){
713: sfont = font;
714: font = ulfont;
715: }
716: ul = i;
717: }
718: noscale = 0;
719: mchbits();
720: }
721: caseuf(){
722: register i, j;
723:
724: if(skip() || !(i = getrq()) || (i == 'S') ||
725: ((j = find(i,fontlab)) == -1))
726: ulfont = 1; /*default position 2*/
727: else ulfont = j;
728: #ifdef NROFF
729: if(ulfont == 0)ulfont = 1;
730: #endif
731: ulbit = ulfont<<9;
732: }
733: caseit(){
734: register i;
735:
736: lgf++;
737: it = itmac = 0;
738: noscale++;
739: skip();
740: i = atoi();
741: skip();
742: if(!nonumb && (itmac = getrq()))it = i;
743: noscale = 0;
744: }
745: casemc(){
746: register i;
747:
748: if(icf > 1)ic = 0;
749: icf = 0;
750: if(skip())return;
751: ic = getch();
752: icf = 1;
753: skip();
754: i = max(hnumb((int *)0),0);
755: if(!nonumb)ics = i;
756: }
757: casemk(){
758: register i, j;
759:
760: if(dip != d)j = dip->dnl; else j = v.nl;
761: if(skip()){
762: dip->mkline = j;
763: return;
764: }
765: if((i = getrq()) == 0)return;
766: vlist[findr(i)] = j;
767: }
768: casesv(){
769: register i;
770:
771: skip();
772: if((i = vnumb((int *)0)) < 0)return;
773: if(nonumb)i = 1;
774: sv += i;
775: caseos();
776: }
777: caseos(){
778: register savlss;
779:
780: if(sv <= findt1()){
781: savlss = lss;
782: lss = sv;
783: newline(0);
784: lss = savlss;
785: sv = 0;
786: }
787: }
788: casenm(){
789: register i;
790:
791: lnmod = nn = 0;
792: if(skip())return;
793: lnmod++;
794: noscale++;
795: i = inumb(&v.ln);
796: if(!nonumb)v.ln = max(i,0);
797: getnm(&ndf,1);
798: getnm(&nms,0);
799: getnm(&ni,0);
800: noscale = 0;
801: nmbits = chbits;
802: }
803: getnm(p,min)
804: int *p, min;
805: {
806: register i;
807:
808: eat(' ');
809: if(skip())return;
810: i = atoi();
811: if(nonumb)return;
812: *p = max(i,min);
813: }
814: casenn(){
815: noscale++;
816: skip();
817: nn = max(atoi(),1);
818: noscale = 0;
819: }
820: caseab(){
821: dummy();
822: casetm(1);
823: done2(0);
824: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.