![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tk.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|
Return to tk.c CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / usr.bin |
1.1 root 1: static char *sccsid = "@(#)tk.c 4.2 (Berkeley) 5/15/84";
2: /*
3: * optimize output for Tek 4014
4: */
5:
6: #include <stdio.h>
7: #include <signal.h>
8:
9: #define MAXY 3071
10: #define LINE 47
11: #define XOFF 248
12: #define US 037
13: #define GS 035
14: #define ESC 033
15: #define CR 015
16: #define FF 014
17: #define SO 016
18: #define SI 017
19:
20: int pl = 66*LINE;
21: int yyll = -1;
22: int xx = XOFF;
23: int xoff = XOFF;
24: int coff = 0;
25: int ncol = 0;
26: int maxcol = 1;
27: int yy = MAXY;
28: int ohy = -1;
29: int ohx = -1;
30: int oxb = -1;
31: int oly = -1;
32: int olx = -1;
33: int alpha;
34: int ry;
35: FILE *ttyin;
36:
37: main(argc, argv)
38: int argc;
39: char **argv;
40: {
41: register i, j;
42: extern ex();
43:
44: while (--argc > 0 && (++argv)[0][0]=='-')
45: switch(argv[0][1]) {
46: case 'p':
47: if (i = atoi(&argv[0][2]))
48: pl = i;
49: yyll = MAXY + 1 - pl;
50: break;
51: default:
52: if (i = atoi(&argv[0][1])) {
53: maxcol = i;
54: xx = xoff = 0;
55: coff = 4096/i;
56: }
57: break;
58: }
59: if ((ttyin = fopen("/dev/tty", "r")) != NULL)
60: setbuf(ttyin, (char *)NULL);
61: if (argc) {
62: if (freopen(argv[0], "r", stdin) == NULL) {
63: fprintf(stderr, "tk: cannot open %s\n", argv[0]);
64: exit(1);
65: }
66: }
67: signal(SIGINT, ex);
68: ncol = maxcol;
69: init();
70: while ((i = getchar()) != EOF) {
71: switch(i) {
72:
73: case FF:
74: yy = 0;
75: case '\n':
76: xx = xoff;
77: yy -= LINE;
78: alpha = 0;
79: if (yy < yyll) {
80: ncol++;
81: yy = 0;
82: sendpt(0);
83: putchar(US);
84: fflush(stdout);
85: if (ncol >= maxcol)
86: kwait();
87: init();
88: }
89: continue;
90:
91: case CR:
92: xx = xoff;
93: alpha = 0;
94: continue;
95:
96: case ' ':
97: xx += 31;
98: alpha = 0;
99: continue;
100:
101: case '\t': /*tabstops at 8*31=248*/
102: j = ((xx-xoff)/248) + 1;
103: xx += j*248 - (xx-xoff);
104: alpha = 0;
105: continue;
106:
107: case '\b':
108: xx -= 31;
109: alpha = 0;
110: continue;
111:
112: case ESC:
113: switch(i = getchar()) {
114: case '7':
115: yy += LINE;
116: alpha = 0;
117: continue;
118: case '8':
119: yy += (LINE + ry)/2;
120: ry = (LINE + ry)%2;
121: alpha = 0;
122: continue;
123: case '9':
124: yy -= (LINE - ry)/2;
125: ry = -(LINE - ry)%2;
126: alpha = 0;
127: continue;
128: default:
129: continue;
130: }
131:
132: default:
133: sendpt(alpha);
134: if (alpha==0) {
135: putchar(US);
136: alpha = 1;
137: }
138: putchar(i);
139: if (i>' ')
140: xx += 31;
141: continue;
142: }
143: }
144: xx = xoff;
145: yy = 0;
146: sendpt(0);
147: putchar(US);
148: kwait();
149: ex();
150: }
151:
152: init()
153: {
154: ohx = oxb = olx = ohy = oly = -1;
155: if (ncol >= maxcol) {
156: ncol = 0;
157: if (maxcol > 1)
158: xoff = 0;
159: else
160: xoff = XOFF;
161: } else
162: xoff += coff;
163: xx = xoff;
164: yy = MAXY;
165: if (ncol==0)
166: fputs("\033\014\033;", stdout);
167: sendpt(0);
168: }
169:
170: ex()
171: {
172: yy = MAXY;
173: xx = 0;
174: fputs("\033;\037", stdout);
175: sendpt(1);
176: exit(0);
177: }
178:
179: kwait()
180: {
181: register c;
182:
183: fflush(stdout);
184: if (ttyin==NULL)
185: return;
186: while ((c=getc(ttyin))!='\n') {
187: if (c=='!') {
188: execom();
189: printf("!\n");
190: fflush(stdout);
191: continue;
192: }
193: if (c==EOF)
194: ex();
195: }
196: }
197:
198: execom()
199: {
200: int (*si)(), (*sq)();
201:
202: if (fork() != 0) {
203: si = signal(SIGINT, SIG_IGN);
204: sq = signal(SIGQUIT, SIG_IGN);
205: wait((int *)NULL);
206: signal(SIGINT, si);
207: signal(SIGQUIT, sq);
208: return;
209: }
210: if (isatty(fileno(stdin)) == 0) {
211: if (freopen("/dev/tty", "r", stdin)==NULL)
212: freopen("/dev/null", "r", stdin);
213: }
214: execl("/bin/sh", "sh", "-t", 0);
215: }
216:
217: sendpt(a)
218: {
219: register zz;
220: int hy,xb,ly,hx,lx;
221:
222: if (a)
223: return;
224: if ((zz = yy) < 0)
225: zz = 0;
226: hy = ((zz>>7) & 037);
227: xb = ((xx & 03) + ((zz<<2) & 014) & 017);
228: ly = ((zz>>2) & 037);
229: hx = ((xx>>7) & 037);
230: lx = ((xx>>2) & 037);
231: putchar(GS);
232: if (hy != ohy)
233: putchar(hy | 040);
234: if (xb != oxb)
235: putchar(xb | 0140);
236: if ((ly != oly) || (hx != ohx) || (xb != oxb))
237: putchar(ly | 0140);
238: if (hx != ohx)
239: putchar(hx | 040);
240: putchar(lx | 0100);
241: ohy = hy;
242: oxb = xb;
243: oly = ly;
244: ohx = hx;
245: olx = lx;
246: alpha = 0;
247: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.