Collapse gd_astpending and gd_reqpri together into gd_reqflags. gd_reqflags
[dragonfly.git] / sys / ddb / db_input.c
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  * $FreeBSD: src/sys/ddb/db_input.c,v 1.28.2.1 2002/03/08 16:37:10 yar Exp $
27  * $DragonFly: src/sys/ddb/db_input.c,v 1.2 2003/06/17 04:28:20 dillon Exp $
28  */
29
30 /*
31  *      Author: David B. Golub, Carnegie Mellon University
32  *      Date:   7/90
33  */
34
35 #include <sys/param.h>
36 #include <sys/systm.h>
37 #include <sys/cons.h>
38
39 #include <ddb/ddb.h>
40 #include <ddb/db_output.h>
41
42 /*
43  * Character input and editing.
44  */
45
46 /*
47  * We don't track output position while editing input,
48  * since input always ends with a new-line.  We just
49  * reset the line position at the end.
50  */
51 static char *   db_lbuf_start;  /* start of input line buffer */
52 static char *   db_lbuf_end;    /* end of input line buffer */
53 static char *   db_lc;          /* current character */
54 static char *   db_le;          /* one past last character */
55
56 /*
57  * Simple input line history support.
58  */
59 static char     db_lhistory[2048];
60 static int      db_lhistlsize, db_lhistidx, db_lhistcur;
61 static int      db_lhist_nlines;
62
63 #define CTRL(c)         ((c) & 0x1f)
64 #define BLANK           ' '
65 #define BACKUP          '\b'
66
67 static int      cnmaygetc __P((void));
68 static void     db_delete __P((int n, int bwd));
69 static int      db_inputchar __P((int c));
70 static void     db_putnchars __P((int c, int count));
71 static void     db_putstring __P((char *s, int count));
72
73 void
74 db_putstring(s, count)
75         char    *s;
76         int     count;
77 {
78         while (--count >= 0)
79             cnputc(*s++);
80 }
81
82 void
83 db_putnchars(c, count)
84         int     c;
85         int     count;
86 {
87         while (--count >= 0)
88             cnputc(c);
89 }
90
91 /*
92  * Delete N characters, forward or backward
93  */
94 #define DEL_FWD         0
95 #define DEL_BWD         1
96 void
97 db_delete(n, bwd)
98         int     n;
99         int     bwd;
100 {
101         register char *p;
102
103         if (bwd) {
104             db_lc -= n;
105             db_putnchars(BACKUP, n);
106         }
107         for (p = db_lc; p < db_le-n; p++) {
108             *p = *(p+n);
109             cnputc(*p);
110         }
111         db_putnchars(BLANK, n);
112         db_putnchars(BACKUP, db_le - db_lc);
113         db_le -= n;
114 }
115
116 /* returns TRUE at end-of-line */
117 int
118 db_inputchar(c)
119         int     c;
120 {
121         static int escstate;
122
123         if (escstate == 1) {
124                 /* ESC seen, look for [ or O */
125                 if (c == '[' || c == 'O')
126                         escstate++;
127                 else
128                         escstate = 0; /* re-init state machine */
129                 return (0);
130         } else if (escstate == 2) {
131                 escstate = 0;
132                 /*
133                  * If a valid cursor key has been found, translate
134                  * into an emacs-style control key, and fall through.
135                  * Otherwise, drop off.
136                  */
137                 switch (c) {
138                 case 'A':       /* up */
139                         c = CTRL('p');
140                         break;
141                 case 'B':       /* down */
142                         c = CTRL('n');
143                         break;
144                 case 'C':       /* right */
145                         c = CTRL('f');
146                         break;
147                 case 'D':       /* left */
148                         c = CTRL('b');
149                         break;
150                 default:
151                         return (0);
152                 }
153         }
154
155         switch (c) {
156             case CTRL('['):
157                 escstate = 1;
158                 break;
159             case CTRL('b'):
160                 /* back up one character */
161                 if (db_lc > db_lbuf_start) {
162                     cnputc(BACKUP);
163                     db_lc--;
164                 }
165                 break;
166             case CTRL('f'):
167                 /* forward one character */
168                 if (db_lc < db_le) {
169                     cnputc(*db_lc);
170                     db_lc++;
171                 }
172                 break;
173             case CTRL('a'):
174                 /* beginning of line */
175                 while (db_lc > db_lbuf_start) {
176                     cnputc(BACKUP);
177                     db_lc--;
178                 }
179                 break;
180             case CTRL('e'):
181                 /* end of line */
182                 while (db_lc < db_le) {
183                     cnputc(*db_lc);
184                     db_lc++;
185                 }
186                 break;
187             case CTRL('h'):
188             case 0177:
189                 /* erase previous character */
190                 if (db_lc > db_lbuf_start)
191                     db_delete(1, DEL_BWD);
192                 break;
193             case CTRL('d'):
194                 /* erase next character */
195                 if (db_lc < db_le)
196                     db_delete(1, DEL_FWD);
197                 break;
198             case CTRL('u'):
199                 /* kill entire line: */
200                 /* at first, delete to beginning of line */
201                 if (db_lc > db_lbuf_start)
202                     db_delete(db_lc - db_lbuf_start, DEL_BWD);
203                 /* FALLTHROUGH */
204             case CTRL('k'):
205                 /* delete to end of line */
206                 if (db_lc < db_le)
207                     db_delete(db_le - db_lc, DEL_FWD);
208                 break;
209             case CTRL('t'):
210                 /* twiddle last 2 characters */
211                 if (db_lc >= db_lbuf_start + 2) {
212                     c = db_lc[-2];
213                     db_lc[-2] = db_lc[-1];
214                     db_lc[-1] = c;
215                     cnputc(BACKUP);
216                     cnputc(BACKUP);
217                     cnputc(db_lc[-2]);
218                     cnputc(db_lc[-1]);
219                 }
220                 break;
221             case CTRL('r'):
222                 db_putstring("^R\n", 3);
223             redraw:
224                 if (db_le > db_lbuf_start) {
225                     db_putstring(db_lbuf_start, db_le - db_lbuf_start);
226                     db_putnchars(BACKUP, db_le - db_lc);
227                 }
228                 break;
229             case CTRL('p'):
230                 /* Make previous history line the active one. */
231                 if (db_lhistcur >= 0) {
232                     bcopy(db_lhistory + db_lhistcur * db_lhistlsize,
233                           db_lbuf_start, db_lhistlsize);
234                     db_lhistcur--;
235                     goto hist_redraw;
236                 }
237                 break;
238             case CTRL('n'):
239                 /* Make next history line the active one. */
240                 if (db_lhistcur < db_lhistidx - 1) {
241                     db_lhistcur += 2;
242                     bcopy(db_lhistory + db_lhistcur * db_lhistlsize,
243                           db_lbuf_start, db_lhistlsize);
244                 } else {
245                     /*
246                      * ^N through tail of history, reset the
247                      * buffer to zero length.
248                      */
249                     *db_lbuf_start = '\0';
250                     db_lhistcur = db_lhistidx;
251                 }
252
253             hist_redraw:
254                 db_putnchars(BACKUP, db_le - db_lbuf_start);
255                 db_putnchars(BLANK, db_le - db_lbuf_start);
256                 db_putnchars(BACKUP, db_le - db_lbuf_start);
257                 db_le = index(db_lbuf_start, '\0');
258                 if (db_le[-1] == '\r' || db_le[-1] == '\n')
259                     *--db_le = '\0';
260                 db_lc = db_le;
261                 goto redraw;
262
263             case -1:
264                 /*
265                  * eek! the console returned eof.
266                  * probably that means we HAVE no console.. we should try bail
267                  * XXX
268                  */
269                 c = '\r';
270             case '\n':
271             case '\r':
272                 *db_le++ = c;
273                 return (1);
274             default:
275                 if (db_le == db_lbuf_end) {
276                     cnputc('\007');
277                 }
278                 else if (c >= ' ' && c <= '~') {
279                     register char *p;
280
281                     for (p = db_le; p > db_lc; p--)
282                         *p = *(p-1);
283                     *db_lc++ = c;
284                     db_le++;
285                     cnputc(c);
286                     db_putstring(db_lc, db_le - db_lc);
287                     db_putnchars(BACKUP, db_le - db_lc);
288                 }
289                 break;
290         }
291         return (0);
292 }
293
294 int
295 cnmaygetc()
296 {
297         return (-1);
298 }
299
300 int
301 db_readline(lstart, lsize)
302         char *  lstart;
303         int     lsize;
304 {
305         if (lsize != db_lhistlsize) {
306                 /*
307                  * (Re)initialize input line history.  Throw away any
308                  * existing history.
309                  */
310                 db_lhist_nlines = sizeof(db_lhistory) / lsize;
311                 db_lhistlsize = lsize;
312                 db_lhistidx = -1;
313         }
314         db_lhistcur = db_lhistidx;
315
316         db_force_whitespace();  /* synch output position */
317
318         db_lbuf_start = lstart;
319         db_lbuf_end   = lstart + lsize;
320         db_lc = lstart;
321         db_le = lstart;
322
323         while (!db_inputchar(cngetc()))
324             continue;
325
326         db_printf("\n");        /* synch output position */
327         *db_le = 0;
328
329         if (db_le - db_lbuf_start > 1) {
330             /* Maintain input line history for non-empty lines. */
331             if (++db_lhistidx == db_lhist_nlines) {
332                 /* Rotate history. */
333                 ovbcopy(db_lhistory + db_lhistlsize, db_lhistory,
334                         db_lhistlsize * (db_lhist_nlines - 1));
335                 db_lhistidx--;
336             }
337             bcopy(lstart, db_lhistory + db_lhistidx * db_lhistlsize,
338                   db_lhistlsize);
339         }
340
341         return (db_le - db_lbuf_start);
342 }
343
344 void
345 db_check_interrupt()
346 {
347         register int    c;
348
349         c = cnmaygetc();
350         switch (c) {
351             case -1:            /* no character */
352                 return;
353
354             case CTRL('c'):
355                 db_error((char *)0);
356                 /*NOTREACHED*/
357
358             case CTRL('s'):
359                 do {
360                     c = cnmaygetc();
361                     if (c == CTRL('c'))
362                         db_error((char *)0);
363                 } while (c != CTRL('q'));
364                 break;
365
366             default:
367                 /* drop on floor */
368                 break;
369         }
370 }