lint
[unix-history] / usr / src / usr.bin / window / cmd.c
CommitLineData
f6dc361a 1#ifndef lint
73218728 2static char *sccsid = "@(#)cmd.c 3.4 83/08/19";
f6dc361a
EW
3#endif
4
5#include "defs.h"
6
7struct ww *getwin();
f6dc361a
EW
8
9docmd()
10{
11 register char c;
12 register struct ww *w;
f6dc361a 13
74329e4e 14 if (!terse)
bb05dfb5 15 wwadd(cmdwin, &wwhead);
c417b691 16 if (selwin != 0)
73218728 17 wwcursor(selwin, 1);
101acab4 18top:
f6dc361a 19 while ((c = bgetc()) >= 0) {
101acab4 20 if (!terse)
bb05dfb5 21 (void) wwputs("\r\n", cmdwin);
f6dc361a 22 switch (c) {
74329e4e
EW
23 default:
24 if (c == escapec)
25 goto foo;
26 break;
c417b691 27 case 'h': case 'j': case 'k': case 'l':
b0d4d9e2
EW
28 case CTRL(y):
29 case CTRL(e):
c417b691
EW
30 case CTRL(u):
31 case CTRL(d):
32 case CTRL(b):
33 case CTRL(f):
7e04a523
EW
34 case CTRL(s):
35 case CTRL(q):
f6dc361a 36 case CTRL([):
74329e4e 37 foo:
f6dc361a 38 if (selwin == 0) {
bb05dfb5 39 error("No window.");
f6dc361a
EW
40 continue;
41 }
42 }
43 switch (c) {
44 case '1': case '2': case '3': case '4': case '5':
45 case '6': case '7': case '8': case '9':
bb05dfb5
EW
46 if ((w = window[c - '1']) == 0) {
47 wwbell();
f6dc361a
EW
48 break;
49 }
50 setselwin(w);
51 goto out;
52 case '%':
4c8ea7ce
EW
53 if ((w = getwin()) != 0)
54 setselwin(w);
f6dc361a
EW
55 break;
56 case 'c':
4c8ea7ce 57 if ((w = getwin()) != 0)
bb05dfb5 58 c_close(w);
c417b691 59 break;
f6dc361a 60 case 'C':
bb05dfb5 61 c_close((struct ww *)0);
c417b691 62 break;
f6dc361a 63 case 'w':
bb05dfb5 64 c_window();
f6dc361a 65 break;
4c8ea7ce 66 case 'S':
bb05dfb5 67 c_show();
b4be6cd6 68 break;
101acab4 69 case 'L':
bb05dfb5 70 c_list();
101acab4 71 break;
bb05dfb5
EW
72 case 's':
73 c_stat();
74329e4e 74 break;
bb05dfb5
EW
75 case 'M':
76 wwdumpsmap();
4c8ea7ce 77 break;
bb05dfb5
EW
78 case 'V':
79 if ((w = getwin()) != 0)
80 wwdumpnvis(w);
f6dc361a 81 break;
bb05dfb5
EW
82 case 'D':
83 if ((w = getwin()) != 0)
84 wwdumpcov(w);
f6dc361a 85 break;
bb05dfb5
EW
86 case 'W':
87 if ((w = getwin()) != 0)
88 wwdumpwin(w);
6821e691 89 break;
f6dc361a 90 case 't':
bb05dfb5 91 c_time(RUSAGE_SELF);
f6dc361a
EW
92 break;
93 case 'T':
bb05dfb5 94 c_time(RUSAGE_CHILDREN);
f6dc361a 95 break;
4c8ea7ce 96 case ':':
bb05dfb5 97 c_colon();
4c8ea7ce 98 break;
c417b691 99 case 'h':
bb05dfb5 100 (void) wwwrite(selwin, "\b", 1);
c417b691
EW
101 break;
102 case 'j':
bb05dfb5 103 (void) wwwrite(selwin, "\n", 1);
c417b691
EW
104 break;
105 case 'k':
bb05dfb5 106 (void) wwwrite(selwin, "\033A", 2);
c417b691
EW
107 break;
108 case 'l':
bb05dfb5 109 (void) wwwrite(selwin, "\033C", 2);
c417b691 110 break;
b0d4d9e2
EW
111 case CTRL(e):
112 wwscroll(selwin, 1);
113 break;
114 case CTRL(y):
115 wwscroll(selwin, -1);
116 break;
c417b691 117 case CTRL(d):
b0d4d9e2 118 wwscroll(selwin, selwin->ww_w.nr / 2);
c417b691
EW
119 break;
120 case CTRL(u):
b0d4d9e2 121 wwscroll(selwin, - selwin->ww_w.nr / 2);
c417b691
EW
122 break;
123 case CTRL(f):
b0d4d9e2 124 wwscroll(selwin, selwin->ww_w.nr);
c417b691
EW
125 break;
126 case CTRL(b):
b0d4d9e2 127 wwscroll(selwin, - selwin->ww_w.nr);
c417b691 128 break;
7e04a523
EW
129 case CTRL(s):
130 (void) write(selwin->ww_pty,
131 &wwwintty.ww_tchars.t_stopc, 1);
132 break;
133 case CTRL(q):
134 (void) write(selwin->ww_pty,
135 &wwwintty.ww_tchars.t_startc, 1);
136 break;
f6dc361a 137 case CTRL(l):
bb05dfb5 138 wwredraw();
f6dc361a
EW
139 break;
140 case '?':
bb05dfb5 141 c_help();
f6dc361a 142 break;
f6dc361a
EW
143 case CTRL([):
144 goto out;
145 case CTRL(z):
146 wwsuspend();
147 break;
101acab4 148 case 'q':
bb05dfb5 149 c_quit();
8c4fb896
EW
150 if (quit)
151 goto out;
152 break;
101acab4 153 case '.':
bb05dfb5 154 error("Use q to quit.");
101acab4 155 break;
f6dc361a 156 default:
74329e4e 157 if (c == escapec) {
bb05dfb5 158 (void) write(selwin->ww_pty, &escapec, 1);
74329e4e
EW
159 goto out;
160 }
101acab4 161 if (!terse)
bb05dfb5
EW
162 wwbell();
163 error("Type ? for help.");
f6dc361a
EW
164 break;
165 }
166 }
101acab4
EW
167 if (terse)
168 wwsetcursor(0, 0);
169 else {
170 if (!terse)
bb05dfb5
EW
171 (void) wwputs("Command: ", cmdwin);
172 wwsetcursor(wwcurrow(cmdwin), wwcurcol(cmdwin));
101acab4 173 }
b4be6cd6 174 while (bpeekc() < 0)
f6dc361a 175 bread();
f6dc361a
EW
176 goto top;
177out:
bb05dfb5
EW
178 if (!quit) {
179 curwin = selwin;
180 if (!terse) {
181 wwdelete(cmdwin);
182 reframe();
183 }
184 }
c417b691 185 if (selwin != 0)
73218728 186 wwcursor(selwin, 0);
f6dc361a
EW
187}
188
189struct ww *
190getwin()
191{
192 register int c;
4c8ea7ce 193 struct ww *w = 0;
f6dc361a 194
101acab4 195 if (!terse)
bb05dfb5
EW
196 (void) wwputs("Which window? ", cmdwin);
197 wwsetcursor(wwcurrow(cmdwin), wwcurcol(cmdwin));
b4be6cd6 198 while ((c = bgetc()) < 0)
f6dc361a 199 bread();
bb05dfb5
EW
200 if (debug && c == 'c')
201 w = cmdwin;
202 else if (debug && c == 'f')
203 w = framewin;
204 else if (c >= '1' && c < NWINDOW + '1')
205 w = window[c - '1'];
206 if (w == 0)
207 wwbell();
101acab4 208 if (!terse)
bb05dfb5 209 (void) wwputs("\r\n", cmdwin);
f6dc361a
EW
210 return w;
211}
212
213setselwin(w)
214register struct ww *w;
215{
bb05dfb5 216 register struct ww *oldselwin = selwin;
4c8ea7ce
EW
217
218 if (w == oldselwin)
219 return;
c417b691 220 if (selwin = w) {
bb05dfb5
EW
221 wwdelete(w);
222 /*
223 * Stick it in front of the old selected window,
224 * or behind everbody else.
225 */
226 wwadd(w, (oldselwin ? oldselwin : &wwhead)->ww_back);
4c8ea7ce 227 }
bb05dfb5 228 reframe();
f6dc361a
EW
229}
230
4c8ea7ce 231labelwin(w)
f6dc361a
EW
232register struct ww *w;
233{
bb05dfb5
EW
234 int mode = w == selwin ? WWM_REV : 0;
235
236 if (w->ww_id >= 0) {
237 char buf[2];
f6dc361a 238
bb05dfb5
EW
239 buf[0] = w->ww_id + '1';
240 buf[1] = 0;
241 (void) wwlabel(w, framewin, 1, buf, mode);
242 }
243 if (w->ww_label) {
244 int col;
245
246 if (w->ww_center) {
247 col = (w->ww_w.nc - strlen(w->ww_label)) / 2;
248 col = MAX(3, col);
249 } else
250 col = 3;
251 (void) wwlabel(w, framewin, col, w->ww_label, mode);
252 }
f6dc361a 253}