keyboard.c revision 1.23 1 1.23 mrg /* $NetBSD: keyboard.c,v 1.23 2006/05/10 21:53:48 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.23 mrg __RCSID("$NetBSD: keyboard.c,v 1.23 2006/05/10 21:53:48 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.1 jtc
48 1.1 jtc #include "systat.h"
49 1.1 jtc #include "extern.h"
50 1.1 jtc
51 1.16 martin void
52 1.12 ad keyboard(void)
53 1.1 jtc {
54 1.22 dsl int ch, rch, col;
55 1.17 mycroft char *line;
56 1.6 sommerfe int i, linesz;
57 1.22 dsl static char help[] = "help";
58 1.22 dsl static char quit[] = "quit";
59 1.3 scottr
60 1.23 mrg ch = 0; /* XXX gcc */
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.18 mycroft if (ch == ERR) {
75 1.19 mycroft display(SIGALRM);
76 1.3 scottr continue;
77 1.3 scottr }
78 1.18 mycroft if (ch == KEY_RESIZE) {
79 1.17 mycroft redraw(0);
80 1.18 mycroft continue;
81 1.18 mycroft }
82 1.17 mycroft ch &= 0177;
83 1.6 sommerfe rch = ch;
84 1.3 scottr if (col == 0) {
85 1.8 jwise switch(ch) {
86 1.8 jwise case '\n':
87 1.8 jwise case '\r':
88 1.8 jwise case ' ':
89 1.8 jwise display(0);
90 1.8 jwise break;
91 1.8 jwise case CTRL('l'):
92 1.1 jtc wrefresh(curscr);
93 1.8 jwise break;
94 1.8 jwise case CTRL('g'):
95 1.1 jtc status();
96 1.8 jwise break;
97 1.8 jwise case '?':
98 1.11 jwise case 'H':
99 1.8 jwise case 'h':
100 1.22 dsl command(help);
101 1.7 simonb move(CMDLINE, 0);
102 1.11 jwise break;
103 1.11 jwise case 'Q':
104 1.15 mycroft case 'q':
105 1.22 dsl command(quit);
106 1.8 jwise break;
107 1.8 jwise case ':':
108 1.8 jwise move(CMDLINE, 0);
109 1.8 jwise clrtoeol();
110 1.8 jwise addch(':');
111 1.8 jwise col++;
112 1.8 jwise break;
113 1.1 jtc }
114 1.8 jwise continue;
115 1.3 scottr }
116 1.21 dsl if (ch == '\b' || ch == '\?' || ch == erasechar()) {
117 1.21 dsl if (col > 0)
118 1.21 dsl col--;
119 1.3 scottr goto doerase;
120 1.3 scottr }
121 1.3 scottr if (ch == CTRL('w') && col > 0) {
122 1.20 dsl while (--col >= 0 &&
123 1.20 dsl isspace((unsigned char)line[col]))
124 1.20 dsl continue;
125 1.3 scottr col++;
126 1.20 dsl while (--col >= 0 &&
127 1.20 dsl !isspace((unsigned char)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.20 dsl line[i] = tolower((unsigned char)line[i]);
152 1.3 scottr command(line + 1);
153 1.3 scottr }
154 1.3 scottr /* NOTREACHED */
155 1.1 jtc }
156