1 /*
2 * Mach Operating System
3 * Copyright (c) 1991,1990 Carnegie Mellon University
4 * All Rights Reserved.
5 *
6 * Permission to use, copy, modify and distribute this software and its
7 * documentation is hereby granted, provided that both the copyright
8 * notice and this permission notice appear in all copies of the
9 * software, derivative works or modified versions, and any portions
10 * thereof, and that both notices appear in supporting documentation.
11 *
12 * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS
13 * CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
14 * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
15 *
16 * Carnegie Mellon requests users of this software to return to
17 *
18 * Software Distribution Coordinator or Software.Distribution@CS.CMU.EDU
19 * School of Computer Science
20 * Carnegie Mellon University
21 * Pittsburgh PA 15213-3890
22 *
23 * any improvements or extensions that they make and grant Carnegie the
24 * rights to redistribute these changes.
25 */
26 /*
27 * HISTORY
28 * $Log: db_input.c,v $
29 * Revision 1.1 1992/03/25 21:45:10 pace
30 * Initial revision
31 *
32 * Revision 2.4 91/02/14 14:41:53 mrt
33 * Add input line editing.
34 * [90/11/11 dbg]
35 *
36 * Revision 2.3 91/02/05 17:06:32 mrt
37 * Changed to new Mach copyright
38 * [91/01/31 16:18:13 mrt]
39 *
40 * Revision 2.2 90/08/27 21:51:03 dbg
41 * Reduce lint.
42 * [90/08/07 dbg]
43 * Created.
44 * [90/07/25 dbg]
45 *
46 */
47 /*
48 * Author: David B. Golub, Carnegie Mellon University
49 * Date: 7/90
50 */
51
52 #include "sys/param.h"
53 #include "proc.h"
54 #include "db_output.h"
55
56 /*
57 * Character input and editing.
58 */
59
60 /*
61 * We don't track output position while editing input,
62 * since input always ends with a new-line. We just
63 * reset the line position at the end.
64 */
65 char * db_lbuf_start; /* start of input line buffer */
66 char * db_lbuf_end; /* end of input line buffer */
67 char * db_lc; /* current character */
68 char * db_le; /* one past last character */
69
70 #define CTRL(c) ((c) & 0x1f)
71 #define isspace(c) ((c) == ' ' || (c) == '\t')
72 #define BLANK ' '
73 #define BACKUP '\b'
74
75 void
db_putstring(s,count)76 db_putstring(s, count)
77 char *s;
78 int count;
79 {
80 while (--count >= 0)
81 /*cnputc(*s++);*/
82 console_putchar(*s++);
83 }
84
85 void
db_putnchars(c,count)86 db_putnchars(c, count)
87 int c;
88 int count;
89 {
90 while (--count >= 0)
91 console_putchar(c);
92 /*cnputc(c);*/
93 }
94
95 /*
96 * Delete N characters, forward or backward
97 */
98 #define DEL_FWD 0
99 #define DEL_BWD 1
100 void
db_delete(n,bwd)101 db_delete(n, bwd)
102 int n;
103 int bwd;
104 {
105 register char *p;
106
107 if (bwd) {
108 db_lc -= n;
109 db_putnchars(BACKUP, n);
110 }
111 for (p = db_lc; p < db_le-n; p++) {
112 *p = *(p+n);
113 console_putchar(*p);
114 /* cnputc(*p);*/
115 }
116 db_putnchars(BLANK, n);
117 db_putnchars(BACKUP, db_le - db_lc);
118 db_le -= n;
119 }
120
121 /* returns TRUE at end-of-line */
122 int
db_inputchar(c)123 db_inputchar(c)
124 int c;
125 {
126 switch (c) {
127 case CTRL('b'):
128 /* back up one character */
129 if (db_lc > db_lbuf_start) {
130 console_putchar(BACKUP);
131 /*cnputc(BACKUP);*/
132 db_lc--;
133 }
134 break;
135 case CTRL('f'):
136 /* forward one character */
137 if (db_lc < db_le) {
138 console_putchar(*db_lc);
139 /*cnputc(*db_lc);*/
140 db_lc++;
141 }
142 break;
143 case CTRL('a'):
144 /* beginning of line */
145 while (db_lc > db_lbuf_start) {
146 console_putchar(BACKUP);
147 /*cnputc(BACKUP);*/
148 db_lc--;
149 }
150 break;
151 case CTRL('e'):
152 /* end of line */
153 while (db_lc < db_le) {
154 console_putchar(*db_lc);
155 /*cnputc(*db_lc);*/
156 db_lc++;
157 }
158 break;
159 case CTRL('h'):
160 case 0177:
161 /* erase previous character */
162 if (db_lc > db_lbuf_start)
163 db_delete(1, DEL_BWD);
164 break;
165 case CTRL('d'):
166 /* erase next character */
167 if (db_lc < db_le)
168 db_delete(1, DEL_FWD);
169 break;
170 case CTRL('k'):
171 /* delete to end of line */
172 if (db_lc < db_le)
173 db_delete(db_le - db_lc, DEL_FWD);
174 break;
175 case CTRL('t'):
176 /* twiddle last 2 characters */
177 if (db_lc >= db_lbuf_start + 2) {
178 c = db_lc[-2];
179 db_lc[-2] = db_lc[-1];
180 db_lc[-1] = c;
181 /*cnputc(BACKUP);
182 cnputc(BACKUP);
183 cnputc(db_lc[-2]);
184 cnputc(db_lc[-1]); */
185 console_putchar(BACKUP);
186 console_putchar(BACKUP);
187 console_putchar(db_lc[-2]);
188 console_putchar(db_lc[-1]);
189 }
190 break;
191 case CTRL('r'):
192 db_putstring("^R\n", 3);
193 if (db_le > db_lbuf_start) {
194 db_putstring(db_lbuf_start, db_le - db_lbuf_start);
195 db_putnchars(BACKUP, db_le - db_lc);
196 }
197 break;
198 case '\n':
199 case '\r':
200 *db_le++ = c;
201 return (1);
202 default:
203 if (db_le == db_lbuf_end) {
204 console_putchar('\007');
205 /*cnputc('\007');*/
206 }
207 else if (c >= ' ' && c <= '~') {
208 register char *p;
209
210 for (p = db_le; p > db_lc; p--)
211 *p = *(p-1);
212 *db_lc++ = c;
213 db_le++;
214 /* cnputc(c);*/
215 console_putchar(c);
216 db_putstring(db_lc, db_le - db_lc);
217 db_putnchars(BACKUP, db_le - db_lc);
218 }
219 break;
220 }
221 return (0);
222 }
223
224 int
db_readline(lstart,lsize)225 db_readline(lstart, lsize)
226 char * lstart;
227 int lsize;
228 {
229 db_force_whitespace(); /* synch output position */
230
231 db_lbuf_start = lstart;
232 db_lbuf_end = lstart + lsize;
233 db_lc = lstart;
234 db_le = lstart;
235
236 while (!db_inputchar(console_getchar()))
237 /*while (!db_inputchar(cngetc()))*/
238 continue;
239
240 /* db_putchar('\r'); /* synch output position */
241 db_printf("\r \r");
242
243 *db_le = 0;
244 return (db_le - db_lbuf_start);
245 }
246
247 void
db_check_interrupt()248 db_check_interrupt()
249 {
250 register int c;
251
252 c = cnmaygetc();
253 switch (c) {
254 case -1: /* no character */
255 return;
256
257 case CTRL('c'):
258 db_error((char *)0);
259 /*NOTREACHED*/
260
261 case CTRL('s'):
262 do {
263 c = cnmaygetc();
264 if (c == CTRL('c'))
265 db_error((char *)0);
266 } while (c != CTRL('q'));
267 break;
268
269 default:
270 /* drop on floor */
271 break;
272 }
273 }
274
cnmaygetc()275 cnmaygetc ()
276 {
277 return (-1);
278 }
279
280 /* called from kdb_trap in db_interface.c */
cnpollc(flag)281 cnpollc (flag)
282 {
283 }
284