78fb7c3b79
/sys/ddb/db_input.c rev 1.19 to recognize syscons's cursor keycodes. It is unnecessary now that scgetc() in syscons returns the escape sequence for the cursor keys rather than their raw, internal key codes.
373 lines
7.6 KiB
C
373 lines
7.6 KiB
C
/*
|
|
* Mach Operating System
|
|
* Copyright (c) 1991,1990 Carnegie Mellon University
|
|
* All Rights Reserved.
|
|
*
|
|
* Permission to use, copy, modify and distribute this software and its
|
|
* documentation is hereby granted, provided that both the copyright
|
|
* notice and this permission notice appear in all copies of the
|
|
* software, derivative works or modified versions, and any portions
|
|
* thereof, and that both notices appear in supporting documentation.
|
|
*
|
|
* CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS
|
|
* CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
|
|
* ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
|
|
*
|
|
* Carnegie Mellon requests users of this software to return to
|
|
*
|
|
* Software Distribution Coordinator or Software.Distribution@CS.CMU.EDU
|
|
* School of Computer Science
|
|
* Carnegie Mellon University
|
|
* Pittsburgh PA 15213-3890
|
|
*
|
|
* any improvements or extensions that they make and grant Carnegie the
|
|
* rights to redistribute these changes.
|
|
*
|
|
* $Id: db_input.c,v 1.23 1997/12/05 05:36:58 dyson Exp $
|
|
*/
|
|
|
|
/*
|
|
* Author: David B. Golub, Carnegie Mellon University
|
|
* Date: 7/90
|
|
*/
|
|
|
|
#include <sys/param.h>
|
|
#include <sys/systm.h>
|
|
|
|
#include <machine/cons.h>
|
|
|
|
#include <ddb/ddb.h>
|
|
#include <ddb/db_output.h>
|
|
|
|
/*
|
|
* Character input and editing.
|
|
*/
|
|
|
|
/*
|
|
* We don't track output position while editing input,
|
|
* since input always ends with a new-line. We just
|
|
* reset the line position at the end.
|
|
*/
|
|
static char * db_lbuf_start; /* start of input line buffer */
|
|
static char * db_lbuf_end; /* end of input line buffer */
|
|
static char * db_lc; /* current character */
|
|
static char * db_le; /* one past last character */
|
|
|
|
/*
|
|
* Simple input line history support.
|
|
*/
|
|
static char db_lhistory[2048];
|
|
static int db_lhistlsize, db_lhistidx, db_lhistcur;
|
|
static int db_lhist_nlines;
|
|
|
|
#define CTRL(c) ((c) & 0x1f)
|
|
#define isspace(c) ((c) == ' ' || (c) == '\t')
|
|
#define BLANK ' '
|
|
#define BACKUP '\b'
|
|
|
|
static int cnmaygetc __P((void));
|
|
static void db_delete __P((int n, int bwd));
|
|
static int db_inputchar __P((int c));
|
|
static void db_putnchars __P((int c, int count));
|
|
static void db_putstring __P((char *s, int count));
|
|
|
|
void
|
|
db_putstring(s, count)
|
|
char *s;
|
|
int count;
|
|
{
|
|
while (--count >= 0)
|
|
cnputc(*s++);
|
|
}
|
|
|
|
void
|
|
db_putnchars(c, count)
|
|
int c;
|
|
int count;
|
|
{
|
|
while (--count >= 0)
|
|
cnputc(c);
|
|
}
|
|
|
|
/*
|
|
* Delete N characters, forward or backward
|
|
*/
|
|
#define DEL_FWD 0
|
|
#define DEL_BWD 1
|
|
void
|
|
db_delete(n, bwd)
|
|
int n;
|
|
int bwd;
|
|
{
|
|
register char *p;
|
|
|
|
if (bwd) {
|
|
db_lc -= n;
|
|
db_putnchars(BACKUP, n);
|
|
}
|
|
for (p = db_lc; p < db_le-n; p++) {
|
|
*p = *(p+n);
|
|
cnputc(*p);
|
|
}
|
|
db_putnchars(BLANK, n);
|
|
db_putnchars(BACKUP, db_le - db_lc);
|
|
db_le -= n;
|
|
}
|
|
|
|
/* returns TRUE at end-of-line */
|
|
int
|
|
db_inputchar(c)
|
|
int c;
|
|
{
|
|
static int escstate;
|
|
|
|
if (escstate == 1) {
|
|
/* ESC seen, look for [ or O */
|
|
if (c == '[' || c == 'O')
|
|
escstate++;
|
|
else
|
|
escstate = 0; /* re-init state machine */
|
|
return (0);
|
|
} else if (escstate == 2) {
|
|
escstate = 0;
|
|
/*
|
|
* If a valid cursor key has been found, translate
|
|
* into an emacs-style control key, and fall through.
|
|
* Otherwise, drop off.
|
|
*/
|
|
switch (c) {
|
|
case 'A': /* up */
|
|
c = CTRL('p');
|
|
break;
|
|
case 'B': /* down */
|
|
c = CTRL('n');
|
|
break;
|
|
case 'C': /* right */
|
|
c = CTRL('f');
|
|
break;
|
|
case 'D': /* left */
|
|
c = CTRL('b');
|
|
break;
|
|
default:
|
|
return (0);
|
|
}
|
|
}
|
|
|
|
switch (c) {
|
|
case CTRL('['):
|
|
escstate = 1;
|
|
break;
|
|
case CTRL('b'):
|
|
/* back up one character */
|
|
if (db_lc > db_lbuf_start) {
|
|
cnputc(BACKUP);
|
|
db_lc--;
|
|
}
|
|
break;
|
|
case CTRL('f'):
|
|
/* forward one character */
|
|
if (db_lc < db_le) {
|
|
cnputc(*db_lc);
|
|
db_lc++;
|
|
}
|
|
break;
|
|
case CTRL('a'):
|
|
/* beginning of line */
|
|
while (db_lc > db_lbuf_start) {
|
|
cnputc(BACKUP);
|
|
db_lc--;
|
|
}
|
|
break;
|
|
case CTRL('e'):
|
|
/* end of line */
|
|
while (db_lc < db_le) {
|
|
cnputc(*db_lc);
|
|
db_lc++;
|
|
}
|
|
break;
|
|
case CTRL('h'):
|
|
case 0177:
|
|
/* erase previous character */
|
|
if (db_lc > db_lbuf_start)
|
|
db_delete(1, DEL_BWD);
|
|
break;
|
|
case CTRL('d'):
|
|
/* erase next character */
|
|
if (db_lc < db_le)
|
|
db_delete(1, DEL_FWD);
|
|
break;
|
|
case CTRL('k'):
|
|
/* delete to end of line */
|
|
if (db_lc < db_le)
|
|
db_delete(db_le - db_lc, DEL_FWD);
|
|
break;
|
|
case CTRL('t'):
|
|
/* twiddle last 2 characters */
|
|
if (db_lc >= db_lbuf_start + 2) {
|
|
c = db_lc[-2];
|
|
db_lc[-2] = db_lc[-1];
|
|
db_lc[-1] = c;
|
|
cnputc(BACKUP);
|
|
cnputc(BACKUP);
|
|
cnputc(db_lc[-2]);
|
|
cnputc(db_lc[-1]);
|
|
}
|
|
break;
|
|
case CTRL('r'):
|
|
db_putstring("^R\n", 3);
|
|
redraw:
|
|
if (db_le > db_lbuf_start) {
|
|
db_putstring(db_lbuf_start, db_le - db_lbuf_start);
|
|
db_putnchars(BACKUP, db_le - db_lc);
|
|
}
|
|
break;
|
|
case CTRL('p'):
|
|
/* Make previous history line the active one. */
|
|
if (db_lhistcur >= 0) {
|
|
bcopy(db_lhistory + db_lhistcur * db_lhistlsize,
|
|
db_lbuf_start, db_lhistlsize);
|
|
db_lhistcur--;
|
|
goto hist_redraw;
|
|
}
|
|
break;
|
|
case CTRL('n'):
|
|
/* Make next history line the active one. */
|
|
if (db_lhistcur < db_lhistidx - 1) {
|
|
db_lhistcur += 2;
|
|
bcopy(db_lhistory + db_lhistcur * db_lhistlsize,
|
|
db_lbuf_start, db_lhistlsize);
|
|
} else {
|
|
/*
|
|
* ^N through tail of history, reset the
|
|
* buffer to zero length.
|
|
*/
|
|
*db_lbuf_start = '\0';
|
|
db_lhistcur = db_lhistidx;
|
|
}
|
|
|
|
hist_redraw:
|
|
db_putnchars(BACKUP, db_le - db_lbuf_start);
|
|
db_putnchars(BLANK, db_le - db_lbuf_start);
|
|
db_putnchars(BACKUP, db_le - db_lbuf_start);
|
|
db_le = index(db_lbuf_start, '\0');
|
|
if (db_le[-1] == '\r' || db_le[-1] == '\n')
|
|
*--db_le = '\0';
|
|
db_lc = db_le;
|
|
goto redraw;
|
|
|
|
case -1:
|
|
/*
|
|
* eek! the console returned eof.
|
|
* probably that means we HAVE no console.. we should try bail
|
|
* XXX
|
|
*/
|
|
c = '\r';
|
|
case '\n':
|
|
case '\r':
|
|
*db_le++ = c;
|
|
return (1);
|
|
default:
|
|
if (db_le == db_lbuf_end) {
|
|
cnputc('\007');
|
|
}
|
|
else if (c >= ' ' && c <= '~') {
|
|
register char *p;
|
|
|
|
for (p = db_le; p > db_lc; p--)
|
|
*p = *(p-1);
|
|
*db_lc++ = c;
|
|
db_le++;
|
|
cnputc(c);
|
|
db_putstring(db_lc, db_le - db_lc);
|
|
db_putnchars(BACKUP, db_le - db_lc);
|
|
}
|
|
break;
|
|
}
|
|
return (0);
|
|
}
|
|
|
|
int
|
|
cnmaygetc()
|
|
{
|
|
return (-1);
|
|
}
|
|
|
|
int
|
|
db_readline(lstart, lsize)
|
|
char * lstart;
|
|
int lsize;
|
|
{
|
|
if (lsize != db_lhistlsize) {
|
|
/*
|
|
* (Re)initialize input line history. Throw away any
|
|
* existing history.
|
|
*/
|
|
db_lhist_nlines = sizeof(db_lhistory) / lsize;
|
|
db_lhistlsize = lsize;
|
|
db_lhistidx = -1;
|
|
}
|
|
db_lhistcur = db_lhistidx;
|
|
|
|
db_force_whitespace(); /* synch output position */
|
|
|
|
db_lbuf_start = lstart;
|
|
db_lbuf_end = lstart + lsize;
|
|
db_lc = lstart;
|
|
db_le = lstart;
|
|
|
|
while (!db_inputchar(cngetc()))
|
|
continue;
|
|
|
|
db_printf("\n"); /* synch output position */
|
|
*db_le = 0;
|
|
|
|
if (db_le - db_lbuf_start > 1) {
|
|
/* Maintain input line history for non-empty lines. */
|
|
if (++db_lhistidx == db_lhist_nlines) {
|
|
/* Rotate history. */
|
|
ovbcopy(db_lhistory + db_lhistlsize, db_lhistory,
|
|
db_lhistlsize * (db_lhist_nlines - 1));
|
|
db_lhistidx--;
|
|
}
|
|
bcopy(lstart, db_lhistory + db_lhistidx * db_lhistlsize,
|
|
db_lhistlsize);
|
|
}
|
|
|
|
return (db_le - db_lbuf_start);
|
|
}
|
|
|
|
void
|
|
db_check_interrupt()
|
|
{
|
|
register int c;
|
|
|
|
c = cnmaygetc();
|
|
switch (c) {
|
|
case -1: /* no character */
|
|
return;
|
|
|
|
case CTRL('c'):
|
|
db_error((char *)0);
|
|
/*NOTREACHED*/
|
|
|
|
case CTRL('s'):
|
|
do {
|
|
c = cnmaygetc();
|
|
if (c == CTRL('c'))
|
|
db_error((char *)0);
|
|
} while (c != CTRL('q'));
|
|
break;
|
|
|
|
default:
|
|
/* drop on floor */
|
|
break;
|
|
}
|
|
}
|
|
|
|
/* called from kdb_trap in db_interface.c */
|
|
void
|
|
cnpollc (flag)
|
|
int flag;
|
|
{
|
|
}
|