keyboard.c revision 1.26 1 1.26 mrg /* $NetBSD: keyboard.c,v 1.26 2015/08/23 18:33:15 mrg Exp $ */
2 1.2 jtc
3 1.1 jtc /*-
4 1.1 jtc * Copyright (c) 1980, 1992, 1993
5 1.1 jtc * The Regents of the University of California. All rights reserved.
6 1.1 jtc *
7 1.1 jtc * Redistribution and use in source and binary forms, with or without
8 1.1 jtc * modification, are permitted provided that the following conditions
9 1.1 jtc * are met:
10 1.1 jtc * 1. Redistributions of source code must retain the above copyright
11 1.1 jtc * notice, this list of conditions and the following disclaimer.
12 1.1 jtc * 2. Redistributions in binary form must reproduce the above copyright
13 1.1 jtc * notice, this list of conditions and the following disclaimer in the
14 1.1 jtc * documentation and/or other materials provided with the distribution.
15 1.14 agc * 3. Neither the name of the University nor the names of its contributors
16 1.1 jtc * may be used to endorse or promote products derived from this software
17 1.1 jtc * without specific prior written permission.
18 1.1 jtc *
19 1.1 jtc * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
20 1.1 jtc * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21 1.1 jtc * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22 1.1 jtc * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
23 1.1 jtc * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24 1.1 jtc * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25 1.1 jtc * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26 1.1 jtc * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27 1.1 jtc * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28 1.1 jtc * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29 1.1 jtc * SUCH DAMAGE.
30 1.1 jtc */
31 1.1 jtc
32 1.4 mrg #include <sys/cdefs.h>
33 1.1 jtc #ifndef lint
34 1.2 jtc #if 0
35 1.1 jtc static char sccsid[] = "@(#)keyboard.c 8.1 (Berkeley) 6/6/93";
36 1.2 jtc #endif
37 1.26 mrg __RCSID("$NetBSD: keyboard.c,v 1.26 2015/08/23 18:33:15 mrg Exp $");
38 1.1 jtc #endif /* not lint */
39 1.1 jtc
40 1.5 mrg #include <sys/types.h>
41 1.5 mrg
42 1.1 jtc #include <ctype.h>
43 1.1 jtc #include <signal.h>
44 1.1 jtc #include <termios.h>
45 1.5 mrg #include <stdlib.h>
46 1.22 dsl #include <string.h>
47 1.24 christos #include <signal.h>
48 1.1 jtc
49 1.1 jtc #include "systat.h"
50 1.1 jtc #include "extern.h"
51 1.1 jtc
52 1.24 christos extern sig_atomic_t needsredraw;
53 1.24 christos
54 1.16 martin void
55 1.12 ad keyboard(void)
56 1.1 jtc {
57 1.22 dsl int ch, rch, col;
58 1.17 mycroft char *line;
59 1.6 sommerfe int i, linesz;
60 1.22 dsl static char help[] = "help";
61 1.22 dsl static char quit[] = "quit";
62 1.3 scottr
63 1.23 mrg ch = 0; /* XXX gcc */
64 1.5 mrg linesz = COLS - 2; /* XXX does not get updated on SIGWINCH */
65 1.10 jwise if ((line = malloc(linesz)) == NULL) {
66 1.10 jwise error("malloc failed");
67 1.10 jwise die(0);
68 1.5 mrg }
69 1.5 mrg
70 1.3 scottr for (;;) {
71 1.3 scottr col = 0;
72 1.3 scottr move(CMDLINE, 0);
73 1.8 jwise
74 1.8 jwise while (col == 0 || (ch != '\r' && ch != '\n')) {
75 1.3 scottr refresh();
76 1.24 christos for (;;) {
77 1.24 christos ch = getch();
78 1.24 christos if (!needsredraw)
79 1.24 christos break;
80 1.24 christos redraw();
81 1.24 christos }
82 1.18 mycroft if (ch == ERR) {
83 1.19 mycroft display(SIGALRM);
84 1.3 scottr continue;
85 1.3 scottr }
86 1.18 mycroft if (ch == KEY_RESIZE) {
87 1.24 christos redraw();
88 1.18 mycroft continue;
89 1.18 mycroft }
90 1.17 mycroft ch &= 0177;
91 1.6 sommerfe rch = ch;
92 1.3 scottr if (col == 0) {
93 1.8 jwise switch(ch) {
94 1.8 jwise case '\n':
95 1.8 jwise case '\r':
96 1.8 jwise case ' ':
97 1.26 mrg clearerror();
98 1.8 jwise display(0);
99 1.8 jwise break;
100 1.8 jwise case CTRL('l'):
101 1.26 mrg clearerror();
102 1.1 jtc wrefresh(curscr);
103 1.8 jwise break;
104 1.8 jwise case CTRL('g'):
105 1.1 jtc status();
106 1.8 jwise break;
107 1.8 jwise case '?':
108 1.11 jwise case 'H':
109 1.8 jwise case 'h':
110 1.22 dsl command(help);
111 1.7 simonb move(CMDLINE, 0);
112 1.11 jwise break;
113 1.11 jwise case 'Q':
114 1.15 mycroft case 'q':
115 1.22 dsl command(quit);
116 1.8 jwise break;
117 1.8 jwise case ':':
118 1.8 jwise move(CMDLINE, 0);
119 1.8 jwise clrtoeol();
120 1.8 jwise addch(':');
121 1.8 jwise col++;
122 1.8 jwise break;
123 1.1 jtc }
124 1.8 jwise continue;
125 1.3 scottr }
126 1.25 bad if (ch == '\b' || ch == '\177' || ch == erasechar()) {
127 1.21 dsl if (col > 0)
128 1.21 dsl col--;
129 1.3 scottr goto doerase;
130 1.3 scottr }
131 1.3 scottr if (ch == CTRL('w') && col > 0) {
132 1.20 dsl while (--col >= 0 &&
133 1.20 dsl isspace((unsigned char)line[col]))
134 1.20 dsl continue;
135 1.3 scottr col++;
136 1.20 dsl while (--col >= 0 &&
137 1.20 dsl !isspace((unsigned char)line[col]))
138 1.8 jwise if (col == 0)
139 1.3 scottr break;
140 1.3 scottr col++;
141 1.3 scottr goto doerase;
142 1.3 scottr }
143 1.3 scottr if (ch == killchar() && col > 0) {
144 1.8 jwise col = 1;
145 1.3 scottr doerase:
146 1.3 scottr move(CMDLINE, col);
147 1.3 scottr clrtoeol();
148 1.3 scottr continue;
149 1.3 scottr }
150 1.8 jwise if (isprint(rch) || rch == ' ') {
151 1.5 mrg if (col < linesz) {
152 1.6 sommerfe line[col] = rch;
153 1.6 sommerfe mvaddch(CMDLINE, col, rch);
154 1.5 mrg col++;
155 1.5 mrg }
156 1.3 scottr }
157 1.8 jwise }
158 1.3 scottr line[col] = '\0';
159 1.6 sommerfe /* pass commands as lowercase */
160 1.8 jwise for (i = 1; i < col ; i++)
161 1.20 dsl line[i] = tolower((unsigned char)line[i]);
162 1.3 scottr command(line + 1);
163 1.3 scottr }
164 1.3 scottr /* NOTREACHED */
165 1.1 jtc }
166