?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
No empty .Rs/.Re
[netbsd-mini2440.git] / sys / ddb / db_input.c
blob7f2358a5645aca03962d92ebfe276c886043e390
1 /* $NetBSD: db_input.c,v 1.22 2007/02/22 06:41:01 thorpej Exp $ */
2
3 /*
4 * Mach Operating System
5 * Copyright (c) 1991,1990 Carnegie Mellon University
6 * All Rights Reserved.
7 *
8 * Permission to use, copy, modify and distribute this software and its
9 * documentation is hereby granted, provided that both the copyright
10 * notice and this permission notice appear in all copies of the
11 * software, derivative works or modified versions, and any portions
12 * thereof, and that both notices appear in supporting documentation.
13 *
14 * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
15 * CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
16 * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
17 *
18 * Carnegie Mellon requests users of this software to return to
19 *
20 * Software Distribution Coordinator or Software.Distribution@CS.CMU.EDU
21 * School of Computer Science
22 * Carnegie Mellon University
23 * Pittsburgh PA 15213-3890
24 *
25 * any improvements or extensions that they make and grant Carnegie the
26 * rights to redistribute these changes.
27 *
28 * Author: David B. Golub, Carnegie Mellon University
29 * Date: 7/90
30 */
31
32 #include <sys/cdefs.h>
33 __KERNEL_RCSID(0, "$NetBSD: db_input.c,v 1.22 2007/02/22 06:41:01 thorpej Exp $");
34
35 #ifdef _KERNEL_OPT
36 #include "opt_ddbparam.h"
37 #endif
38
39 #include <sys/param.h>
40 #include <sys/proc.h>
41 #include <sys/cpu.h>
42
43 #include <ddb/ddb.h>
44
45 #include <dev/cons.h>
46
47 #ifndef DDB_HISTORY_SIZE
48 #define DDB_HISTORY_SIZE 0
49 #endif /* DDB_HISTORY_SIZE */
50
51 /*
52 * Character input and editing.
53 */
54
55 /*
56 * We don't track output position while editing input,
57 * since input always ends with a new-line. We just
58 * reset the line position at the end.
59 */
60 static char *db_lbuf_start; /* start of input line buffer */
61 static char *db_lbuf_end; /* end of input line buffer */
62 static char *db_lc; /* current character */
63 static char *db_le; /* one past last character */
64 #if DDB_HISTORY_SIZE != 0
65 static char db_history[DDB_HISTORY_SIZE]; /* start of history buffer */
66 static int db_history_size = DDB_HISTORY_SIZE;/* size of history buffer */
67 static char *db_history_curr = db_history; /* start of current line */
68 static char *db_history_last = db_history; /* start of last line */
69 static char *db_history_prev = (char *) 0; /* start of previous line */
70 #endif
71
72
73 #define CTRL(c) ((c) & 0x1f)
74 #define isspace(c) ((c) == ' ' || (c) == '\t')
75 #define BLANK ' '
76 #define BACKUP '\b'
77
78 static int cnmaygetc(void);
79 static void db_putstring(const char *, int);
80 static void db_putnchars(int, int);
81 static void db_delete(int, int);
82 static void db_delete_line(void);
83 static int db_inputchar(int);
84
85 static void
86 db_putstring(const char *s, int count)
87 {
88
89 while (--count >= 0)
90 cnputc(*s++);
91 }
92
93 static void
94 db_putnchars(int c, int count)
95 {
96
97 while (--count >= 0)
98 cnputc(c);
99 }
100
101 /*
102 * Delete N characters, forward or backward
103 */
104 #define DEL_FWD 0
105 #define DEL_BWD 1
106 static void
107 db_delete(int n, int bwd)
108 {
109 char *p;
110
111 if (bwd) {
112 db_lc -= n;
113 db_putnchars(BACKUP, n);
114 }
115 for (p = db_lc; p < db_le-n; p++) {
116 *p = *(p+n);
117 cnputc(*p);
118 }
119 db_putnchars(BLANK, n);
120 db_putnchars(BACKUP, db_le - db_lc);
121 db_le -= n;
122 }
123
124 static void
125 db_delete_line(void)
126 {
127
128 db_delete(db_le - db_lc, DEL_FWD);
129 db_delete(db_lc - db_lbuf_start, DEL_BWD);
130 db_le = db_lc = db_lbuf_start;
131 }
132
133 #if DDB_HISTORY_SIZE != 0
134 #define INC_DB_CURR() \
135 do { \
136 db_history_curr++; \
137 if (db_history_curr > db_history + db_history_size - 1) \
138 db_history_curr = db_history; \
139 } while (/*CONSTCOND*/ 0)
140 #define DEC_DB_CURR() \
141 do { \
142 db_history_curr--; \
143 if (db_history_curr < db_history) \
144 db_history_curr = db_history + \
145 db_history_size - 1; \
146 } while (/*CONSTCOND*/ 0)
147 #endif
148
149 /* returns true at end-of-line */
150 static int
151 db_inputchar(int c)
152 {
153 switch (c) {
154 case CTRL('b'):
155 /* back up one character */
156 if (db_lc > db_lbuf_start) {
157 cnputc(BACKUP);
158 db_lc--;
159 }
160 break;
161 case CTRL('f'):
162 /* forward one character */
163 if (db_lc < db_le) {
164 cnputc(*db_lc);
165 db_lc++;
166 }
167 break;
168 case CTRL('a'):
169 /* beginning of line */
170 while (db_lc > db_lbuf_start) {
171 cnputc(BACKUP);
172 db_lc--;
173 }
174 break;
175 case CTRL('e'):
176 /* end of line */
177 while (db_lc < db_le) {
178 cnputc(*db_lc);
179 db_lc++;
180 }
181 break;
182 case CTRL('h'):
183 case 0177:
184 /* erase previous character */
185 if (db_lc > db_lbuf_start)
186 db_delete(1, DEL_BWD);
187 break;
188 case CTRL('d'):
189 /* erase next character */
190 if (db_lc < db_le)
191 db_delete(1, DEL_FWD);
192 break;
193 case CTRL('k'):
194 /* delete to end of line */
195 if (db_lc < db_le)
196 db_delete(db_le - db_lc, DEL_FWD);
197 break;
198 case CTRL('u'):
199 /* delete line */
200 db_delete_line();
201 break;
202 case CTRL('t'):
203 /* twiddle last 2 characters */
204 if (db_lc >= db_lbuf_start + 1) {
205 if (db_lc < db_le) {
206 c = db_lc[-1];
207 db_lc[-1] = db_lc[0];
208 db_lc[0] = c;
209 cnputc(BACKUP);
210 cnputc(db_lc[-1]);
211 cnputc(db_lc[0]);
212 db_lc++;
213 } else if (db_lc >= db_lbuf_start + 2) {
214 c = db_lc[-2];
215 db_lc[-2] = db_lc[-1];
216 db_lc[-1] = c;
217 cnputc(BACKUP);
218 cnputc(BACKUP);
219 cnputc(db_lc[-2]);
220 cnputc(db_lc[-1]);
221 }
222 }
223 break;
224 #if DDB_HISTORY_SIZE != 0
225 case CTRL('p'):
226 DEC_DB_CURR();
227 while (db_history_curr != db_history_last) {
228 DEC_DB_CURR();
229 if (*db_history_curr == '\0')
230 break;
231 }
232 db_delete_line();
233 if (db_history_curr == db_history_last) {
234 INC_DB_CURR();
235 db_le = db_lc = db_lbuf_start;
236 } else {
237 char *p;
238 INC_DB_CURR();
239 for (p = db_history_curr, db_le = db_lbuf_start;
240 *p; ) {
241 *db_le++ = *p++;
242 if (p == db_history + db_history_size) {
243 p = db_history;
244 }
245 }
246 db_lc = db_le;
247 }
248 db_putstring(db_lbuf_start, db_le - db_lbuf_start);
249 break;
250 case CTRL('n'):
251 while (db_history_curr != db_history_last) {
252 if (*db_history_curr == '\0')
253 break;
254 INC_DB_CURR();
255 }
256 if (db_history_curr != db_history_last) {
257 INC_DB_CURR();
258 db_delete_line();
259 if (db_history_curr != db_history_last) {
260 char *p;
261 for (p = db_history_curr,
262 db_le = db_lbuf_start; *p;) {
263 *db_le++ = *p++;
264 if (p == db_history +
265 db_history_size) {
266 p = db_history;
267 }
268 }
269 db_lc = db_le;
270 }
271 db_putstring(db_lbuf_start, db_le - db_lbuf_start);
272 }
273 break;
274 #endif
275 case CTRL('r'):
276 db_putstring("^R\n", 3);
277 if (db_le > db_lbuf_start) {
278 db_putstring(db_lbuf_start, db_le - db_lbuf_start);
279 db_putnchars(BACKUP, db_le - db_lc);
280 }
281 break;
282 case '\n':
283 case '\r':
284 #if DDB_HISTORY_SIZE != 0
285 /* Check if it same than previous line */
286 if (db_history_curr == db_history_prev) {
287 char *pp, *pc;
288
289 /* Is it unmodified */
290 for (pp = db_history_prev, pc = db_lbuf_start;
291 pc != db_le && *pp; pp++, pc++) {
292 if (*pp != *pc)
293 break;
294 if (++pp == db_history + db_history_size) {
295 pp = db_history;
296 }
297 if (++pc == db_history + db_history_size) {
298 pc = db_history;
299 }
300 }
301 if (!*pp && pc == db_le) {
302 /* Repeted previous line, not saved */
303 db_history_curr = db_history_last;
304 *db_le++ = c;
305 return (true);
306 }
307 }
308 if (db_le != db_lbuf_start) {
309 char *p;
310 db_history_prev = db_history_last;
311 for (p = db_lbuf_start; p != db_le; p++) {
312 *db_history_last++ = *p;
313 if (db_history_last == db_history +
314 db_history_size) {
315 db_history_last = db_history;
316 }
317 }
318 *db_history_last++ = '\0';
319 }
320 db_history_curr = db_history_last;
321 #endif
322 *db_le++ = c;
323 return (1);
324 default:
325 if (db_le == db_lbuf_end) {
326 cnputc('\007');
327 }
328 else if (c >= ' ' && c <= '~') {
329 char *p;
330
331 for (p = db_le; p > db_lc; p--)
332 *p = *(p-1);
333 *db_lc++ = c;
334 db_le++;
335 cnputc(c);
336 db_putstring(db_lc, db_le - db_lc);
337 db_putnchars(BACKUP, db_le - db_lc);
338 }
339 break;
340 }
341 return (0);
342 }
343
344 int
345 db_readline(char *lstart, int lsize)
346 {
347
348 # ifdef MULTIPROCESSOR
349 db_printf("db{%ld}> ", (long)cpu_number());
350 # else
351 db_printf("db> ");
352 # endif
353 db_force_whitespace(); /* synch output position */
354
355 db_lbuf_start = lstart;
356 db_lbuf_end = lstart + lsize;
357 db_lc = lstart;
358 db_le = lstart;
359
360 while (!db_inputchar(cngetc()))
361 continue;
362
363 db_putchar('\n'); /* synch output position */
364
365 *db_le = 0;
366 return (db_le - db_lbuf_start);
367 }
368
369 void
370 db_check_interrupt(void)
371 {
372 int c;
373
374 c = cnmaygetc();
375 switch (c) {
376 case -1: /* no character */
377 return;
378
379 case CTRL('c'):
380 db_error((char *)0);
381 /*NOTREACHED*/
382
383 case CTRL('s'):
384 do {
385 c = cnmaygetc();
386 if (c == CTRL('c')) {
387 db_error((char *)0);
388 /*NOTREACHED*/
389 }
390 } while (c != CTRL('q'));
391 break;
392
393 default:
394 /* drop on floor */
395 break;
396 }
397 }
398
399 static int
400 cnmaygetc(void)
401 {
402
403 return (-1);
404 }
NetBSD on the FriendlyARM MINI2440