1 /*-
2  * SPDX-License-Identifier: MIT-CMU
23  *  Pittsburgh PA 15213-3890
47  * since input always ends with a new-line.  We just
56  * Raw input buffer, processed only for certain control characters.
90 	while (--count >= 0)  in db_putstring()
97 	while (--count >= 0)  in db_putnchars()
112 	    db_lc -= n;  in db_delete()
115 	for (p = db_lc; p < db_le-n; p++) {  in db_delete()
120 	db_putnchars(BACKUP, db_le - db_lc);  in db_delete()
121 	db_le -= n;  in db_delete()
124 /* returns true at end-of-line */
135 			escstate = 0; /* re-init state machine */  in db_inputchar()
141 		 * into an emacs-style control key, and fall through.  in db_inputchar()
147 			break;  in db_inputchar()
150 			break;  in db_inputchar()
153 			break;  in db_inputchar()
156 			break;  in db_inputchar()
165 		break;  in db_inputchar()
170 		    db_lc--;  in db_inputchar()
172 		break;  in db_inputchar()
179 		break;  in db_inputchar()
184 		    db_lc--;  in db_inputchar()
186 		break;  in db_inputchar()
193 		break;  in db_inputchar()
199 		break;  in db_inputchar()
204 		break;  in db_inputchar()
210 		    db_delete(db_lc - db_lbuf_start, DEL_BWD);  in db_inputchar()
215 		    db_delete(db_le - db_lc, DEL_FWD);  in db_inputchar()
216 		break;  in db_inputchar()
220 		    c = db_lc[-2];  in db_inputchar()
221 		    db_lc[-2] = db_lc[-1];  in db_inputchar()
222 		    db_lc[-1] = c;  in db_inputchar()
225 		    cnputc(db_lc[-2]);  in db_inputchar()
226 		    cnputc(db_lc[-1]);  in db_inputchar()
228 		break;  in db_inputchar()
232 		    if (*(db_lc - 1) != ' ')  in db_inputchar()
233 			break;  in db_inputchar()
237 		    if (*(db_lc - 1) == ' ')  in db_inputchar()
238 			break;  in db_inputchar()
241 		break;  in db_inputchar()
246 		    db_putstring(db_lbuf_start, db_le - db_lbuf_start);  in db_inputchar()
247 		    db_putnchars(BACKUP, db_le - db_lc);  in db_inputchar()
249 		break;  in db_inputchar()
255 		    db_lhistcur--;  in db_inputchar()
258 		break;  in db_inputchar()
261 		if (db_lhistcur < db_lhistidx - 1) {  in db_inputchar()
275 		db_putnchars(BACKUP, db_lc - db_lbuf_start);  in db_inputchar()
276 		db_putnchars(BLANK, db_le - db_lbuf_start);  in db_inputchar()
277 		db_putnchars(BACKUP, db_le - db_lbuf_start);  in db_inputchar()
279 		if (db_le[-1] == '\r' || db_le[-1] == '\n')  in db_inputchar()
280 		    *--db_le = '\0';  in db_inputchar()
284 	    case -1:  in db_inputchar()
303 		    for (p = db_le; p > db_lc; p--)  in db_inputchar()
304 			*p = *(p-1);  in db_inputchar()
308 		    db_putstring(db_lc, db_le - db_lc);  in db_inputchar()
309 		    db_putnchars(BACKUP, db_le - db_lc);  in db_inputchar()
311 		break;  in db_inputchar()
340 /* Un-get a character from the console by buffering it. */
356 		return (-1);  in db_raw_pop()
357 	db_raw_cnt--;  in db_raw_pop()
375 		db_lhistidx = -1;  in db_readline()
382 	db_lbuf_end   = lstart + lsize - 2;	/* Will append NL and NUL. */  in db_readline()
389 	db_capture_write(lstart, db_le - db_lbuf_start);  in db_readline()
393 	if (db_le - db_lbuf_start > 1) {  in db_readline()
394 	    /* Maintain input line history for non-empty lines. */  in db_readline()
398 		      db_lhistlsize * (db_lhist_nlines - 1));  in db_readline()
399 		db_lhistidx--;  in db_readline()
405 	return (db_le - db_lbuf_start);  in db_readline()
424 	 * Check console input for control characters.  Non-control input is  in db_check_interrupt()
426 	 * control input or drop further non-control input on the floor.  in db_check_interrupt()
433 		case -1:		/* no character */  in db_check_interrupt()
446 			break;  in db_check_interrupt()
453 				db_printf("\n--Exceeded input buffer--\n");  in db_check_interrupt()
455 			break;  in db_check_interrupt()