db_input.c revision 1.15 
1/*	$NetBSD: db_input.c,v 1.15 2001/11/12 22:54:05 lukem 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.15 2001/11/12 22:54:05 lukem Exp $");
34
35#include "opt_ddbparam.h"
36
37#include <sys/param.h>
38#include <sys/proc.h>
39
40#include <machine/db_machdep.h>
41
42#include <ddb/db_output.h>
43#include <ddb/db_command.h>
44#include <ddb/db_sym.h>
45#include <ddb/db_extern.h>
46
47#include <dev/cons.h>
48
49#ifndef DDB_HISTORY_SIZE
50#define DDB_HISTORY_SIZE 0
51#endif /* DDB_HISTORY_SIZE */
52
53/*
54 * Character input and editing.
55 */
56
57/*
58 * We don't track output position while editing input,
59 * since input always ends with a new-line.  We just
60 * reset the line position at the end.
61 */
62char *	db_lbuf_start;	/* start of input line buffer */
63char *	db_lbuf_end;	/* end of input line buffer */
64char *	db_lc;		/* current character */
65char *	db_le;		/* one past last character */
66#if DDB_HISTORY_SIZE != 0
67char    db_history[DDB_HISTORY_SIZE];	/* start of history buffer */
68int     db_history_size = DDB_HISTORY_SIZE;/* size of history buffer */
69char *  db_history_curr = db_history;	/* start of current line */
70char *  db_history_last = db_history;	/* start of last line */
71char *  db_history_prev = (char *) 0;	/* start of previous line */
72#endif
73
74
75#define	CTRL(c)		((c) & 0x1f)
76#define	isspace(c)	((c) == ' ' || (c) == '\t')
77#define	BLANK		' '
78#define	BACKUP		'\b'
79
80static int cnmaygetc __P((void));
81
82void
83db_putstring(s, count)
84	char	*s;
85	int	count;
86{
87	while (--count >= 0)
88	    cnputc(*s++);
89}
90
91void
92db_putnchars(c, count)
93	int	c;
94	int	count;
95{
96	while (--count >= 0)
97	    cnputc(c);
98}
99
100/*
101 * Delete N characters, forward or backward
102 */
103#define	DEL_FWD		0
104#define	DEL_BWD		1
105void
106db_delete(n, bwd)
107	int	n;
108	int	bwd;
109{
110	char *p;
111
112	if (bwd) {
113	    db_lc -= n;
114	    db_putnchars(BACKUP, n);
115	}
116	for (p = db_lc; p < db_le-n; p++) {
117	    *p = *(p+n);
118	    cnputc(*p);
119	}
120	db_putnchars(BLANK, n);
121	db_putnchars(BACKUP, db_le - db_lc);
122	db_le -= n;
123}
124
125void
126db_delete_line()
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 > \
138		 db_history + db_history_size - 1) \
139		     db_history_curr = db_history; \
140       } while (0)
141#define DEC_DB_CURR() \
142    do { \
143	     db_history_curr--; \
144	     if (db_history_curr < db_history) \
145		 db_history_curr = db_history + \
146		 db_history_size - 1; \
147       } while (0)
148#endif
149
150/* returns TRUE at end-of-line */
151int
152db_inputchar(c)
153	int	c;
154{
155	switch (c) {
156	    case CTRL('b'):
157		/* back up one character */
158		if (db_lc > db_lbuf_start) {
159		    cnputc(BACKUP);
160		    db_lc--;
161		}
162		break;
163	    case CTRL('f'):
164		/* forward one character */
165		if (db_lc < db_le) {
166		    cnputc(*db_lc);
167		    db_lc++;
168		}
169		break;
170	    case CTRL('a'):
171		/* beginning of line */
172		while (db_lc > db_lbuf_start) {
173		    cnputc(BACKUP);
174		    db_lc--;
175		}
176		break;
177	    case CTRL('e'):
178		/* end of line */
179		while (db_lc < db_le) {
180		    cnputc(*db_lc);
181		    db_lc++;
182		}
183		break;
184	    case CTRL('h'):
185	    case 0177:
186		/* erase previous character */
187		if (db_lc > db_lbuf_start)
188		    db_delete(1, DEL_BWD);
189		break;
190	    case CTRL('d'):
191		/* erase next character */
192		if (db_lc < db_le)
193		    db_delete(1, DEL_FWD);
194		break;
195	    case CTRL('k'):
196		/* delete to end of line */
197		if (db_lc < db_le)
198		    db_delete(db_le - db_lc, DEL_FWD);
199		break;
200	    case CTRL('u'):
201		/* delete line */
202	        db_delete_line();
203		break;
204	    case CTRL('t'):
205		/* twiddle last 2 characters */
206		if (db_lc >= db_lbuf_start + 1) {
207		    if (db_lc < db_le) {
208			    c = db_lc[-1];
209			    db_lc[-1] = db_lc[0];
210			    db_lc[0] = c;
211			    cnputc(BACKUP);
212			    cnputc(db_lc[-1]);
213			    cnputc(db_lc[0]);
214			    db_lc++;
215		    } else if (db_lc >= db_lbuf_start + 2) {
216			    c = db_lc[-2];
217			    db_lc[-2] = db_lc[-1];
218			    db_lc[-1] = c;
219			    cnputc(BACKUP);
220			    cnputc(BACKUP);
221			    cnputc(db_lc[-2]);
222			    cnputc(db_lc[-1]);
223		    }
224		}
225		break;
226#if DDB_HISTORY_SIZE != 0
227	    case CTRL('p'):
228	        DEC_DB_CURR();
229	        while (db_history_curr != db_history_last) {
230			DEC_DB_CURR();
231			if (*db_history_curr == '\0')
232			    break;
233		}
234		db_delete_line();
235		if (db_history_curr == db_history_last) {
236			INC_DB_CURR();
237			db_le = db_lc = db_lbuf_start;
238		} else {
239			char *p;
240			INC_DB_CURR();
241			for (p = db_history_curr, db_le = db_lbuf_start;
242			     *p; ) {
243				*db_le++ = *p++;
244				if (p == db_history + db_history_size) {
245					p = db_history;
246				}
247			}
248			db_lc = db_le;
249		}
250		db_putstring(db_lbuf_start, db_le - db_lbuf_start);
251		break;
252	    case CTRL('n'):
253	        while (db_history_curr != db_history_last) {
254			if (*db_history_curr == '\0')
255			    break;
256			INC_DB_CURR();
257		}
258		if (db_history_curr != db_history_last) {
259			INC_DB_CURR();
260			db_delete_line();
261			if (db_history_curr != db_history_last) {
262				char *p;
263				for (p = db_history_curr,
264				     db_le = db_lbuf_start; *p;) {
265					*db_le++ = *p++;
266					if (p == db_history +
267					    db_history_size) {
268						p = db_history;
269					}
270				}
271				db_lc = db_le;
272			}
273			db_putstring(db_lbuf_start, db_le - db_lbuf_start);
274		}
275		break;
276#endif
277	    case CTRL('r'):
278		db_putstring("^R\n", 3);
279		if (db_le > db_lbuf_start) {
280		    db_putstring(db_lbuf_start, db_le - db_lbuf_start);
281		    db_putnchars(BACKUP, db_le - db_lc);
282		}
283		break;
284	    case '\n':
285	    case '\r':
286#if DDB_HISTORY_SIZE != 0
287		/* Check if it same than previous line */
288		if (db_history_curr == db_history_prev) {
289			char *pp, *pc;
290
291			/* Is it unmodified */
292			for (pp = db_history_prev, pc = db_lbuf_start;
293			     pc != db_le && *pp; pp++, pc++) {
294				if (*pp != *pc)
295				    break;
296				if (++pp == db_history + db_history_size) {
297					pp = db_history;
298				}
299				if (++pc == db_history + db_history_size) {
300					pc = db_history;
301				}
302			}
303			if (!*pp && pc == db_le) {
304				/* Repeted previous line, not saved */
305				db_history_curr = db_history_last;
306				*db_le++ = c;
307				return (TRUE);
308			}
309		}
310		if (db_le != db_lbuf_start) {
311			char *p;
312			db_history_prev = db_history_last;
313			for (p = db_lbuf_start; p != db_le; p++) {
314				*db_history_last++ = *p;
315				if (db_history_last == db_history +
316				    db_history_size) {
317					db_history_last = db_history;
318				}
319			}
320			*db_history_last++ = '\0';
321		}
322		db_history_curr = db_history_last;
323#endif
324		*db_le++ = c;
325		return (1);
326	    default:
327		if (db_le == db_lbuf_end) {
328		    cnputc('\007');
329		}
330		else if (c >= ' ' && c <= '~') {
331		    char *p;
332
333		    for (p = db_le; p > db_lc; p--)
334			*p = *(p-1);
335		    *db_lc++ = c;
336		    db_le++;
337		    cnputc(c);
338		    db_putstring(db_lc, db_le - db_lc);
339		    db_putnchars(BACKUP, db_le - db_lc);
340		}
341		break;
342	}
343	return (0);
344}
345
346int
347db_readline(lstart, lsize)
348	char *	lstart;
349	int	lsize;
350{
351	db_force_whitespace();	/* synch output position */
352
353	db_lbuf_start = lstart;
354	db_lbuf_end   = lstart + lsize;
355	db_lc = lstart;
356	db_le = lstart;
357
358	while (!db_inputchar(cngetc()))
359	    continue;
360
361	db_putchar('\n');	/* synch output position */
362
363	*db_le = 0;
364	return (db_le - db_lbuf_start);
365}
366
367void
368db_check_interrupt()
369{
370	int	c;
371
372	c = cnmaygetc();
373	switch (c) {
374	    case -1:		/* no character */
375		return;
376
377	    case CTRL('c'):
378		db_error((char *)0);
379		/*NOTREACHED*/
380
381	    case CTRL('s'):
382		do {
383		    c = cnmaygetc();
384		    if (c == CTRL('c')) {
385			db_error((char *)0);
386			/*NOTREACHED*/
387		    }
388		} while (c != CTRL('q'));
389		break;
390
391	    default:
392		/* drop on floor */
393		break;
394	}
395}
396
397static int
398cnmaygetc ()
399{
400	return (-1);
401}
402