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