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