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