keyboard.c revision 1.17 1 1.17 mycroft /* $NetBSD: keyboard.c,v 1.17 2004/07/03 18:31:36 mycroft 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.17 mycroft __RCSID("$NetBSD: keyboard.c,v 1.17 2004/07/03 18:31:36 mycroft 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.1 jtc
47 1.1 jtc #include "systat.h"
48 1.1 jtc #include "extern.h"
49 1.1 jtc
50 1.16 martin void
51 1.12 ad keyboard(void)
52 1.1 jtc {
53 1.17 mycroft int ch, rch;
54 1.17 mycroft char *line;
55 1.6 sommerfe int i, linesz;
56 1.3 scottr sigset_t set;
57 1.1 jtc
58 1.3 scottr sigemptyset(&set);
59 1.3 scottr sigaddset(&set, SIGALRM);
60 1.3 scottr
61 1.5 mrg linesz = COLS - 2; /* XXX does not get updated on SIGWINCH */
62 1.10 jwise if ((line = malloc(linesz)) == NULL) {
63 1.10 jwise error("malloc failed");
64 1.10 jwise die(0);
65 1.5 mrg }
66 1.5 mrg
67 1.3 scottr for (;;) {
68 1.3 scottr col = 0;
69 1.3 scottr move(CMDLINE, 0);
70 1.8 jwise
71 1.8 jwise while (col == 0 || (ch != '\r' && ch != '\n')) {
72 1.3 scottr refresh();
73 1.17 mycroft ch = getch();
74 1.17 mycroft if (ch == -1 && ferror(stdin)) {
75 1.3 scottr clearerr(stdin);
76 1.3 scottr continue;
77 1.3 scottr }
78 1.17 mycroft if (ch == KEY_RESIZE)
79 1.17 mycroft redraw(0);
80 1.17 mycroft ch &= 0177;
81 1.6 sommerfe rch = ch;
82 1.3 scottr if (col == 0) {
83 1.8 jwise switch(ch) {
84 1.8 jwise case '\n':
85 1.8 jwise case '\r':
86 1.8 jwise case ' ':
87 1.8 jwise display(0);
88 1.8 jwise break;
89 1.8 jwise case CTRL('l'):
90 1.3 scottr sigprocmask(SIG_BLOCK, &set, NULL);
91 1.1 jtc wrefresh(curscr);
92 1.3 scottr sigprocmask(SIG_UNBLOCK, &set, NULL);
93 1.8 jwise break;
94 1.8 jwise case CTRL('g'):
95 1.3 scottr sigprocmask(SIG_BLOCK, &set, NULL);
96 1.1 jtc status();
97 1.3 scottr sigprocmask(SIG_UNBLOCK, &set, NULL);
98 1.8 jwise break;
99 1.8 jwise case '?':
100 1.11 jwise case 'H':
101 1.8 jwise case 'h':
102 1.7 simonb command("help");
103 1.7 simonb move(CMDLINE, 0);
104 1.11 jwise break;
105 1.11 jwise case 'Q':
106 1.15 mycroft case 'q':
107 1.11 jwise command("quit");
108 1.8 jwise break;
109 1.8 jwise case ':':
110 1.8 jwise move(CMDLINE, 0);
111 1.8 jwise clrtoeol();
112 1.8 jwise addch(':');
113 1.8 jwise col++;
114 1.8 jwise break;
115 1.1 jtc }
116 1.8 jwise continue;
117 1.3 scottr }
118 1.3 scottr if (ch == erasechar() && col > 0) {
119 1.8 jwise if (col == 1)
120 1.3 scottr continue;
121 1.3 scottr col--;
122 1.3 scottr goto doerase;
123 1.3 scottr }
124 1.3 scottr if (ch == CTRL('w') && col > 0) {
125 1.3 scottr while (--col >= 0 && isspace(line[col]));
126 1.3 scottr col++;
127 1.3 scottr while (--col >= 0 && !isspace(line[col]))
128 1.8 jwise if (col == 0)
129 1.3 scottr break;
130 1.3 scottr col++;
131 1.3 scottr goto doerase;
132 1.3 scottr }
133 1.3 scottr if (ch == killchar() && col > 0) {
134 1.8 jwise col = 1;
135 1.3 scottr doerase:
136 1.3 scottr move(CMDLINE, col);
137 1.3 scottr clrtoeol();
138 1.3 scottr continue;
139 1.3 scottr }
140 1.8 jwise if (isprint(rch) || rch == ' ') {
141 1.5 mrg if (col < linesz) {
142 1.6 sommerfe line[col] = rch;
143 1.6 sommerfe mvaddch(CMDLINE, col, rch);
144 1.5 mrg col++;
145 1.5 mrg }
146 1.3 scottr }
147 1.8 jwise }
148 1.3 scottr line[col] = '\0';
149 1.6 sommerfe /* pass commands as lowercase */
150 1.8 jwise for (i = 1; i < col ; i++)
151 1.8 jwise line[i] = tolower(line[i]);
152 1.3 scottr command(line + 1);
153 1.3 scottr }
154 1.3 scottr /* NOTREACHED */
155 1.1 jtc }
156