![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to n10.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 / nroff|
Return to n10.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / usr.bin / roff / nroff |
1.1 root 1: #ifndef lint
2: static char sccsid[] = "@(#)n10.c 4.5 5/11/89";
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: extern
12: #include "tw.h"
13: #include "pathnames.h"
14: /*
15: nroff10.c
16:
17: Device interfaces
18: */
19:
20: extern int lss;
21: extern char obuf[];
22: extern char *obufp;
23: extern int xfont;
24: extern int esc;
25: extern int lead;
26: extern int oline[];
27: extern int *olinep;
28: extern int ulfont;
29: extern int esct;
30: extern int sps;
31: extern int ics;
32: extern int ttysave;
33: extern struct sgttyb ttys;
34: extern char termtab[];
35: extern int ptid;
36: extern int waitf;
37: extern int pipeflg;
38: extern int eqflg;
39: extern int hflg;
40: extern int tabtab[];
41: extern int ascii;
42: extern int xxx;
43: int dtab;
44: int bdmode;
45: int plotmode;
46:
47: ptinit(){
48: register i, j;
49: register char **p;
50: char *q;
51: int x[8];
52: extern char *setbrk();
53:
54: if(((i=open(termtab,0)) < 0) && (i=open(_PATH_TERM,0)) < 0){
55: prstr("Cannot open ");
56: prstr(termtab);
57: prstr("\n");
58: exit(-1);
59: }
60: read(i,(char *)x,8*sizeof(int));
61: /* Calc size of table, not counting zzz */
62: j = ((int) &t.zzz - (int) &t.bset);
63: read(i, (char *)&t.bset, j);
64: x[2] -= j;
65: q = setbrk(x[2]);
66: lseek(i,(long)t.twinit+8*sizeof(int),0);
67: i = read(i,q,x[2]);
68: j = q - t.twinit;
69: for(p = &t.twinit; p < &t.zzz; p++){
70: if(*p)*p += j;else *p = "";
71: }
72: sps = EM;
73: ics = EM*2;
74: dtab = 8 * t.Em;
75: for(i=0; i<16; i++)tabtab[i] = dtab * (i+1);
76: if(eqflg)t.Adj = t.Hor;
77: }
78: twdone(){
79: obufp = obuf;
80: oputs(t.twrest);
81: flusho();
82: if(pipeflg){
83: close(ptid);
84: wait(&waitf);
85: }
86: if(ttysave != -1) {
87: ttys.sg_flags = ttysave;
88: stty(1, &ttys);
89: }
90: }
91: ptout(i)
92: int i;
93: {
94: *olinep++ = i;
95: if(olinep >= &oline[LNSIZE])olinep--;
96: if((i&CMASK) != '\n')return;
97: olinep--;
98: lead += dip->blss + lss - t.Newline;
99: dip->blss = 0;
100: esct = esc = 0;
101: if(olinep>oline){
102: move();
103: ptout1();
104: oputs(t.twnl);
105: }else{
106: lead += t.Newline;
107: move();
108: }
109: lead += dip->alss;
110: dip->alss = 0;
111: olinep = oline;
112: }
113: ptout1()
114: {
115: register i, k;
116: register char *codep;
117: extern char *plot();
118: int *q, w, j, phyw;
119:
120: for(q=oline; q<olinep; q++){
121: if((i = *q) & MOT){
122: j = i & ~MOTV;
123: if(i & NMOT)j = -j;
124: if(i & VMOT)lead += j;
125: else esc += j;
126: continue;
127: }
128: if((k = (i & CMASK)) <= 040){
129: switch(k){
130: case ' ': /*space*/
131: esc += t.Char;
132: break;
133: }
134: continue;
135: }
136: codep = t.codetab[k-32];
137: w = t.Char * (*codep++ & 0177);
138: phyw = w;
139: if(i&ZBIT)w = 0;
140: if(*codep && (esc || lead))move();
141: esct += w;
142: if(i&074000)xfont = (i>>9) & 03;
143: if(*t.bdon & 0377){
144: if(!bdmode && (xfont == 2)){
145: oputs(t.bdon);
146: bdmode++;
147: }
148: if(bdmode && (xfont != 2)){
149: oputs(t.bdoff);
150: bdmode = 0;
151: }
152: }
153:
154: if(xfont == ulfont){
155: for(k=w/t.Char;k>0;k--)oput('_');
156: for(k=w/t.Char;k>0;k--)oput('\b');
157: }
158: while(*codep != 0){
159: if(*codep & 0200){
160: codep = plot(codep);
161: oputs(t.plotoff);
162: oput(' ');
163: }else{
164: if(plotmode)oputs(t.plotoff);
165: /*
166: * simulate bold font as overstrike if no t.bdon
167: */
168: if (xfont == 2 && !(*t.bdon & 0377)) {
169: oput(*codep);
170: oput('\b');
171: }
172: *obufp++ = *codep++;
173: if(obufp == (obuf + OBUFSZ + ascii - 1))flusho();
174: /* oput(*codep++);*/
175: }
176: }
177: if(!w)for(k=phyw/t.Char;k>0;k--)oput('\b');
178: }
179: }
180: char *plot(x)
181: char *x;
182: {
183: register int i;
184: register char *j, *k;
185:
186: if(!plotmode)oputs(t.ploton);
187: k = x;
188: if((*k & 0377) == 0200)k++;
189: for(; *k; k++){
190: if(*k & 0200){
191: if(*k & 0100){
192: if(*k & 040)j = t.up; else j = t.down;
193: }else{
194: if(*k & 040)j = t.left; else j = t.right;
195: }
196: if(!(i = *k & 037))return(++k);
197: while(i--)oputs(j);
198: }else oput(*k);
199: }
200: return(k);
201: }
202: move(){
203: register k;
204: register char *i, *j;
205: char *p, *q;
206: int iesct, dt;
207:
208: iesct = esct;
209: if(esct += esc)i = "\0"; else i = "\n\0";
210: j = t.hlf;
211: p = t.right;
212: q = t.down;
213: if(lead){
214: if(lead < 0){
215: lead = -lead;
216: i = t.flr;
217: /* if(!esct)i = t.flr; else i = "\0";*/
218: j = t.hlr;
219: q = t.up;
220: }
221: if(*i & 0377){
222: k = lead/t.Newline;
223: lead = lead%t.Newline;
224: while(k--)oputs(i);
225: }
226: if(*j & 0377){
227: k = lead/t.Halfline;
228: lead = lead%t.Halfline;
229: while(k--)oputs(j);
230: }
231: else { /* no half-line forward, not at line begining */
232: k = lead/t.Newline;
233: lead = lead%t.Newline;
234: if (k>0) esc=esct;
235: i = "\n";
236: while (k--) oputs(i);
237: }
238: }
239: if(esc){
240: if(esc < 0){
241: esc = -esc;
242: j = "\b";
243: p = t.left;
244: }else{
245: j = " ";
246: if(hflg)while((dt = dtab - (iesct%dtab)) <= esc){
247: if(dt%t.Em || dt==t.Em)break;
248: oput(TAB);
249: esc -= dt;
250: iesct += dt;
251: }
252: }
253: k = esc/t.Em;
254: esc = esc%t.Em;
255: while(k--)oputs(j);
256: }
257: if((*t.ploton & 0377) && (esc || lead)){
258: if(!plotmode)oputs(t.ploton);
259: esc /= t.Hor;
260: lead /= t.Vert;
261: while(esc--)oputs(p);
262: while(lead--)oputs(q);
263: oputs(t.plotoff);
264: }
265: esc = lead = 0;
266: }
267: ptlead(){move();}
268: dostop(){
269: char junk;
270:
271: flusho();
272: read(2,&junk,1);
273: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.