![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to db_input.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Apple XNU] / XNU / osfmk / ddb|
Return to db_input.c CVS log | Up to [Apple XNU] / XNU / osfmk / ddb |
1.1 ! root 1: /* ! 2: * Copyright (c) 2000 Apple Computer, Inc. All rights reserved. ! 3: * ! 4: * @APPLE_LICENSE_HEADER_START@ ! 5: * ! 6: * The contents of this file constitute Original Code as defined in and ! 7: * are subject to the Apple Public Source License Version 1.1 (the ! 8: * "License"). You may not use this file except in compliance with the ! 9: * License. Please obtain a copy of the License at ! 10: * http://www.apple.com/publicsource and read it before using this file. ! 11: * ! 12: * This Original Code and all software distributed under the License are ! 13: * distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, EITHER ! 14: * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES, ! 15: * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY, ! 16: * FITNESS FOR A PARTICULAR PURPOSE OR NON-INFRINGEMENT. Please see the ! 17: * License for the specific language governing rights and limitations ! 18: * under the License. ! 19: * ! 20: * @APPLE_LICENSE_HEADER_END@ ! 21: */ ! 22: /* ! 23: * @OSF_COPYRIGHT@ ! 24: */ ! 25: /* ! 26: * HISTORY ! 27: * ! 28: * Revision 1.1.1.1 1998/09/22 21:05:48 wsanchez ! 29: * Import of Mac OS X kernel (~semeria) ! 30: * ! 31: * Revision 1.1.1.1 1998/03/07 02:26:09 wsanchez ! 32: * Import of OSF Mach kernel (~mburg) ! 33: * ! 34: * Revision 1.3.10.2 1994/09/23 01:19:37 ezf ! 35: * change marker to not FREE ! 36: * [1994/09/22 21:10:05 ezf] ! 37: * ! 38: * Revision 1.3.10.1 1994/06/11 21:11:48 bolinger ! 39: * Merge up to NMK17.2. ! 40: * [1994/06/11 20:01:41 bolinger] ! 41: * ! 42: * Revision 1.3.8.2 1994/02/11 14:21:41 paire ! 43: * Added string.h header file for strlen declaration. ! 44: * [94/02/09 paire] ! 45: * ! 46: * Revision 1.3.8.1 1994/02/08 10:57:55 bernadat ! 47: * Added db_auto_completion variable. ! 48: * [93/08/17 paire] ! 49: * ! 50: * Added support of symbol completion by typing '\t'. ! 51: * [93/08/14 paire] ! 52: * [94/02/07 bernadat] ! 53: * ! 54: * Revision 1.3.2.4 1993/08/11 20:37:51 elliston ! 55: * Add ANSI Prototypes. CR #9523. ! 56: * [1993/08/11 03:33:21 elliston] ! 57: * ! 58: * Revision 1.3.2.3 1993/07/27 18:27:30 elliston ! 59: * Add ANSI prototypes. CR #9523. ! 60: * [1993/07/27 18:12:01 elliston] ! 61: * ! 62: * Revision 1.3.2.2 1993/06/09 02:20:13 gm ! 63: * CR9176 - ANSI C violations: trailing tokens on CPP ! 64: * directives, extra semicolons after decl_ ..., asm keywords ! 65: * [1993/06/07 18:57:14 jeffc] ! 66: * ! 67: * Added to OSF/1 R1.3 from NMK15.0. ! 68: * [1993/06/02 20:56:26 jeffc] ! 69: * ! 70: * Revision 1.3 1993/04/19 16:02:17 devrcs ! 71: * Replaced ^R (redraw) with ^L [[email protected]] ! 72: * ! 73: * Added ^R and ^S commands for history search commands ! 74: * ^U does not erase end of the line anymore. (only erases ! 75: * from the beginning of the line to current position). ! 76: * [[email protected]] ! 77: * ! 78: * ^C now erases the entire line. [[email protected]] ! 79: * [92/12/03 bernadat] ! 80: * ! 81: * Fixed history management: Do not store repeated typed ! 82: * command. Null terminate current command in case it is a ! 83: * substring of the last command. ! 84: * [92/10/02 bernadat] ! 85: * ! 86: * Revision 1.2 1992/11/25 01:04:24 robert ! 87: * integrate changes for norma_14 below ! 88: * ! 89: * Philippe Bernadat (bernadat) at gr.osf.org 02-Oct-92 ! 90: * Fixed history management: Do not store repeated typed ! 91: * command. Null terminate current command in case it is a ! 92: * substring of the last command. ! 93: * [1992/11/20 00:56:07 robert] ! 94: * ! 95: * integrate changes below for norma_14 ! 96: * [1992/11/13 19:21:34 robert] ! 97: * ! 98: * Revision 1.1 1992/09/30 02:01:08 robert ! 99: * Initial revision ! 100: * ! 101: * $EndLog$ ! 102: */ ! 103: /* CMU_HIST */ ! 104: /* ! 105: * Revision 2.7.3.2 92/09/15 17:14:26 jeffreyh ! 106: * Fixed history code. (Only one char. out of 2 was checked to ! 107: * compare to last command) ! 108: * [[email protected]] ! 109: * ! 110: * Revision 2.7.3.1 92/03/03 16:13:30 jeffreyh ! 111: * Pick up changes from TRUNK ! 112: * [92/02/26 10:59:36 jeffreyh] ! 113: * ! 114: * Revision 2.8 92/02/19 15:07:44 elf ! 115: * Added delete_line (Ctrl-U). ! 116: * [92/02/17 kivinen] ! 117: * ! 118: * Added command line history. Ctrl-P = previous, Ctrl-N = next. If ! 119: * DB_HISTORY_SIZE is 0 then command history is disabled. ! 120: * [92/02/17 kivinen] ! 121: * ! 122: * Revision 2.7 91/10/09 16:00:03 af ! 123: * Revision 2.6.2.1 91/10/05 13:06:12 jeffreyh ! 124: * Fixed incorrect db_lbuf_end setting. ! 125: * [91/08/29 tak] ! 126: * ! 127: * Revision 2.6.2.1 91/10/05 13:06:12 jeffreyh ! 128: * Fixed incorrect db_lbuf_end setting. ! 129: * [91/08/29 tak] ! 130: * ! 131: * Revision 2.6 91/07/09 23:15:49 danner ! 132: * Add include of machine/db_machdep.h to allow machine-specific ! 133: * overrides via defines. ! 134: * [91/07/08 danner] ! 135: * ! 136: * Revision 2.5 91/05/14 15:34:03 mrt ! 137: * Correcting copyright ! 138: * ! 139: * Revision 2.4 91/02/14 14:41:53 mrt ! 140: * Add input line editing. ! 141: * [90/11/11 dbg] ! 142: * ! 143: * Revision 2.3 91/02/05 17:06:32 mrt ! 144: * Changed to new Mach copyright ! 145: * [91/01/31 16:18:13 mrt] ! 146: * ! 147: * Revision 2.2 90/08/27 21:51:03 dbg ! 148: * Reduce lint. ! 149: * [90/08/07 dbg] ! 150: * Created. ! 151: * [90/07/25 dbg] ! 152: * ! 153: */ ! 154: /* CMU_ENDHIST */ ! 155: /* ! 156: * Mach Operating System ! 157: * Copyright (c) 1991,1990 Carnegie Mellon University ! 158: * All Rights Reserved. ! 159: * ! 160: * Permission to use, copy, modify and distribute this software and its ! 161: * documentation is hereby granted, provided that both the copyright ! 162: * notice and this permission notice appear in all copies of the ! 163: * software, derivative works or modified versions, and any portions ! 164: * thereof, and that both notices appear in supporting documentation. ! 165: * ! 166: * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS" ! 167: * CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR ! 168: * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE. ! 169: * ! 170: * Carnegie Mellon requests users of this software to return to ! 171: * ! 172: * Software Distribution Coordinator or [email protected] ! 173: * School of Computer Science ! 174: * Carnegie Mellon University ! 175: * Pittsburgh PA 15213-3890 ! 176: * ! 177: * any improvements or extensions that they make and grant Carnegie Mellon ! 178: * the rights to redistribute these changes. ! 179: */ ! 180: /* ! 181: */ ! 182: /* ! 183: * Author: David B. Golub, Carnegie Mellon University ! 184: * Date: 7/90 ! 185: */ ! 186: ! 187: #include <string.h> ! 188: #include <mach/boolean.h> ! 189: #include <machine/db_machdep.h> ! 190: #include <kern/misc_protos.h> ! 191: #include <ddb/db_output.h> ! 192: #include <ddb/db_lex.h> ! 193: #include <ddb/db_command.h> ! 194: #include <ddb/db_input.h> ! 195: #include <ddb/db_sym.h> ! 196: ! 197: #ifndef DB_HISTORY_SIZE ! 198: #define DB_HISTORY_SIZE 4000 ! 199: #endif /* DB_HISTORY_SIZE */ ! 200: ! 201: /* ! 202: * Character input and editing. ! 203: */ ! 204: ! 205: /* ! 206: * We don't track output position while editing input, ! 207: * since input always ends with a new-line. We just ! 208: * reset the line position at the end. ! 209: */ ! 210: char * db_lbuf_start; /* start of input line buffer */ ! 211: char * db_lbuf_end; /* end of input line buffer */ ! 212: char * db_lc; /* current character */ ! 213: char * db_le; /* one past last character */ ! 214: int db_completion; /* number of incomplete symbols matched */ ! 215: int db_auto_completion = 10; /* number of line to display without asking */ ! 216: #if DB_HISTORY_SIZE != 0 ! 217: char db_history[DB_HISTORY_SIZE]; /* start of history buffer */ ! 218: int db_history_size = DB_HISTORY_SIZE;/* size of history buffer */ ! 219: char * db_history_curr = db_history; /* start of current line */ ! 220: char * db_history_last = db_history; /* start of last line */ ! 221: char * db_history_prev = (char *) 0; /* start of previous line */ ! 222: int db_hist_unmodified = 0; /* unmodified line from history */ ! 223: int db_hist_search = 0; /* are we in hist search mode ? */ ! 224: char db_hist_search_string[DB_LEX_LINE_SIZE];/* the string to look for */ ! 225: int db_hist_ignore_dups = 0; /* don't duplicate commands in hist */ ! 226: #endif ! 227: ! 228: #define CTRL(c) ((c) & 0x1f) ! 229: #define isspace(c) ((c) == ' ' || (c) == '\t') ! 230: #define BLANK ' ' ! 231: #define BACKUP '\b' ! 232: ! 233: ! 234: ! 235: /* Prototypes for functions local to this file. XXX -- should be static! ! 236: */ ! 237: void db_putstring( ! 238: char *s, ! 239: int count); ! 240: ! 241: void db_putnchars( ! 242: int c, ! 243: int count); ! 244: ! 245: void db_delete( ! 246: int n, ! 247: int bwd); ! 248: ! 249: void db_delete_line(void); ! 250: ! 251: boolean_t db_hist_substring( ! 252: char *string, ! 253: char *substring); ! 254: ! 255: boolean_t db_inputchar(int c); ! 256: ! 257: extern jmp_buf_t *db_recover; ! 258: ! 259: void ! 260: db_putstring( ! 261: char *s, ! 262: int count) ! 263: { ! 264: while (--count >= 0) ! 265: cnputc(*s++); ! 266: } ! 267: ! 268: void ! 269: db_putnchars( ! 270: int c, ! 271: int count) ! 272: { ! 273: while (--count >= 0) ! 274: cnputc(c); ! 275: } ! 276: ! 277: /* ! 278: * Delete N characters, forward or backward ! 279: */ ! 280: #define DEL_FWD 0 ! 281: #define DEL_BWD 1 ! 282: void ! 283: db_delete( ! 284: int n, ! 285: int bwd) ! 286: { ! 287: register char *p; ! 288: ! 289: if (bwd) { ! 290: db_lc -= n; ! 291: db_putnchars(BACKUP, n); ! 292: } ! 293: for (p = db_lc; p < db_le-n; p++) { ! 294: *p = *(p+n); ! 295: cnputc(*p); ! 296: } ! 297: db_putnchars(BLANK, n); ! 298: db_putnchars(BACKUP, db_le - db_lc); ! 299: db_le -= n; ! 300: } ! 301: ! 302: void ! 303: db_delete_line(void) ! 304: { ! 305: db_delete(db_le - db_lc, DEL_FWD); ! 306: db_delete(db_lc - db_lbuf_start, DEL_BWD); ! 307: db_le = db_lc = db_lbuf_start; ! 308: } ! 309: ! 310: #if DB_HISTORY_SIZE != 0 ! 311: #define INC_DB_CURR() \ ! 312: do { \ ! 313: db_history_curr++; \ ! 314: if (db_history_curr > \ ! 315: db_history + db_history_size - 1) \ ! 316: db_history_curr = db_history; \ ! 317: } while (0) ! 318: #define DEC_DB_CURR() \ ! 319: do { \ ! 320: db_history_curr--; \ ! 321: if (db_history_curr < db_history) \ ! 322: db_history_curr = db_history + \ ! 323: db_history_size - 1; \ ! 324: } while (0) ! 325: #endif ! 326: ! 327: /* returs TRUE if "substring" is a substring of "string" */ ! 328: boolean_t ! 329: db_hist_substring( ! 330: char *string, ! 331: char *substring) ! 332: { ! 333: register char *cp1, *cp2; ! 334: ! 335: cp1 = string; ! 336: while (*cp1) ! 337: cp1++; ! 338: cp2 = substring; ! 339: while (*cp2) ! 340: cp2++; ! 341: ! 342: while (cp2 > substring) { ! 343: cp1--; cp2--; ! 344: } ! 345: ! 346: while (cp1 >= string) { ! 347: register char *cp3; ! 348: ! 349: cp2 = substring; ! 350: cp3 = cp1; ! 351: while (*cp2 && *cp2 == *cp3) { ! 352: cp2++; cp3++; ! 353: } ! 354: if (*cp2 == '\0') { ! 355: return TRUE; ! 356: } ! 357: cp1--; ! 358: } ! 359: return FALSE; ! 360: } ! 361: ! 362: /* returns TRUE at end-of-line */ ! 363: boolean_t ! 364: db_inputchar(int c) ! 365: { ! 366: char *sym; ! 367: char *start; ! 368: char *restart; ! 369: jmp_buf_t db_jmpbuf; ! 370: jmp_buf_t *db_prev; ! 371: char *p; ! 372: int len; ! 373: ! 374: switch(db_completion) { ! 375: case -1: ! 376: db_putchar('\n'); ! 377: db_prev = db_recover; ! 378: if (_setjmp(db_recover = &db_jmpbuf) == 0 && ! 379: (c == 'y' || c == ' ' || c == '\t')) ! 380: db_print_completion(db_tok_string); ! 381: db_recover = db_prev; ! 382: db_completion = 0; ! 383: db_reset_more(); ! 384: db_output_prompt(); ! 385: if (db_le > db_lbuf_start) { ! 386: for (start = db_lbuf_start; start < db_le; start++) ! 387: db_putchar(*start); ! 388: db_putnchars(BACKUP, db_le - db_lc); ! 389: } ! 390: return(FALSE); ! 391: ! 392: case 0: ! 393: break; ! 394: ! 395: default: ! 396: if (c == '\t') { ! 397: db_printf("\nThere are %d possibilities. ", db_completion); ! 398: db_printf("Do you really wish to see them all [n] ? "); ! 399: db_force_whitespace(); ! 400: db_completion = -1; ! 401: db_reset_more(); ! 402: return(FALSE); ! 403: } ! 404: db_completion = 0; ! 405: break; ! 406: } ! 407: ! 408: switch (c) { ! 409: case '\t': ! 410: /* symbol completion */ ! 411: if (db_lc == db_lbuf_start || db_auto_completion == 0) ! 412: break; ! 413: if (db_le == db_lbuf_end) { ! 414: cnputc('\007'); ! 415: break; ! 416: } ! 417: start = db_lc - 1; ! 418: while (start >= db_lbuf_start && ! 419: ((*start >= 'A' && *start <= 'Z') || ! 420: (*start >= 'a' && *start <= 'z') || ! 421: (*start >= '0' && *start <= '9') || ! 422: *start == '_' || *start == ':')) ! 423: start--; ! 424: if (start == db_lc - 1) ! 425: break; ! 426: if (start > db_lbuf_start && *start == '$') { ! 427: cnputc('\007'); ! 428: break; ! 429: } ! 430: sym = db_tok_string; ! 431: restart = ++start; ! 432: do { ! 433: *sym++ = *start++; ! 434: } while (start != db_lc && ! 435: sym != db_tok_string + sizeof(db_tok_string)); ! 436: if (sym == db_tok_string + sizeof(db_tok_string)) { ! 437: cnputc('\007'); ! 438: break; ! 439: } ! 440: *sym = '\0'; ! 441: db_completion = db_lookup_incomplete(db_tok_string, ! 442: sizeof(db_tok_string)); ! 443: if (db_completion == 0) { ! 444: /* symbol unknown */ ! 445: cnputc('\007'); ! 446: break; ! 447: } ! 448: ! 449: len = strlen(db_tok_string) - (start - restart); ! 450: if (db_completion == 1 && ! 451: (db_le == db_lc || ! 452: (db_le > db_lc) && *db_lc != ' ')) ! 453: len++; ! 454: for (p = db_le - 1; p >= db_lc; p--) ! 455: *(p + len) = *p; ! 456: db_le += len; ! 457: for (sym = &db_tok_string[start - restart]; ! 458: *sym != '\0'; sym++) ! 459: *db_lc++ = *sym; ! 460: ! 461: if (db_completion == 1 || db_completion > db_auto_completion) { ! 462: for (sym = &db_tok_string[start - restart]; ! 463: *sym != '\0'; sym++) ! 464: cnputc(*sym); ! 465: if (db_completion == 1) { ! 466: if (db_le == db_lc || ! 467: (db_le > db_lc) && *db_lc != ' ') { ! 468: cnputc(' '); ! 469: *db_lc++ = ' '; ! 470: } ! 471: db_completion = 0; ! 472: } ! 473: db_putstring(db_lc, db_le - db_lc); ! 474: db_putnchars(BACKUP, db_le - db_lc); ! 475: } ! 476: ! 477: if (db_completion > 1) { ! 478: cnputc('\007'); ! 479: if (db_completion <= db_auto_completion) { ! 480: db_putchar('\n'); ! 481: db_print_completion(db_tok_string); ! 482: db_completion = 0; ! 483: db_reset_more(); ! 484: db_output_prompt(); ! 485: if (db_le > db_lbuf_start) { ! 486: for (start = db_lbuf_start; start < db_le; start++) ! 487: db_putchar(*start); ! 488: db_putnchars(BACKUP, db_le - db_lc); ! 489: } ! 490: } ! 491: } ! 492: break; ! 493: ! 494: case CTRL('b'): ! 495: /* back up one character */ ! 496: if (db_lc > db_lbuf_start) { ! 497: cnputc(BACKUP); ! 498: db_lc--; ! 499: } ! 500: break; ! 501: case CTRL('f'): ! 502: /* forward one character */ ! 503: if (db_lc < db_le) { ! 504: cnputc(*db_lc); ! 505: db_lc++; ! 506: } ! 507: break; ! 508: case CTRL('a'): ! 509: /* beginning of line */ ! 510: while (db_lc > db_lbuf_start) { ! 511: cnputc(BACKUP); ! 512: db_lc--; ! 513: } ! 514: break; ! 515: case CTRL('e'): ! 516: /* end of line */ ! 517: while (db_lc < db_le) { ! 518: cnputc(*db_lc); ! 519: db_lc++; ! 520: } ! 521: break; ! 522: case CTRL('h'): ! 523: case 0177: ! 524: /* erase previous character */ ! 525: if (db_lc > db_lbuf_start) ! 526: db_delete(1, DEL_BWD); ! 527: break; ! 528: case CTRL('d'): ! 529: /* erase next character */ ! 530: if (db_lc < db_le) ! 531: db_delete(1, DEL_FWD); ! 532: break; ! 533: case CTRL('k'): ! 534: /* delete to end of line */ ! 535: if (db_lc < db_le) ! 536: db_delete(db_le - db_lc, DEL_FWD); ! 537: break; ! 538: case CTRL('u'): ! 539: /* delete to beginning of line */ ! 540: if (db_lc > db_lbuf_start) ! 541: db_delete(db_lc - db_lbuf_start, DEL_BWD); ! 542: break; ! 543: case CTRL('t'): ! 544: /* twiddle last 2 characters */ ! 545: if (db_lc >= db_lbuf_start + 2) { ! 546: c = db_lc[-2]; ! 547: db_lc[-2] = db_lc[-1]; ! 548: db_lc[-1] = c; ! 549: cnputc(BACKUP); ! 550: cnputc(BACKUP); ! 551: cnputc(db_lc[-2]); ! 552: cnputc(db_lc[-1]); ! 553: } ! 554: break; ! 555: case CTRL('c'): ! 556: case CTRL('g'): ! 557: db_delete_line(); ! 558: #if DB_HISTORY_SIZE != 0 ! 559: db_history_curr = db_history_last; ! 560: if (c == CTRL('g') && db_hist_search) { ! 561: char *p; ! 562: for (p = db_hist_search_string, db_le = db_lbuf_start; ! 563: *p; ) { ! 564: *db_le++ = *p++; ! 565: } ! 566: db_lc = db_le; ! 567: *db_le = '\0'; ! 568: db_putstring(db_lbuf_start, db_le - db_lbuf_start); ! 569: } ! 570: #endif ! 571: break; ! 572: #if DB_HISTORY_SIZE != 0 ! 573: case CTRL('r'): ! 574: if (db_hist_search++ == 0) { ! 575: /* starting an history lookup */ ! 576: register char *cp1, *cp2; ! 577: for (cp1 = db_lbuf_start, cp2 = db_hist_search_string; ! 578: cp1 < db_le; ! 579: cp1++, cp2++) ! 580: *cp2 = *cp1; ! 581: *cp2 = '\0'; ! 582: db_hist_search++; ! 583: } ! 584: /* FALL THROUGH */ ! 585: case CTRL('p'): ! 586: { ! 587: char * old_history_curr = db_history_curr; ! 588: ! 589: if (db_hist_unmodified++ == 0) ! 590: db_hist_unmodified++; ! 591: DEC_DB_CURR(); ! 592: while (db_history_curr != db_history_last) { ! 593: DEC_DB_CURR(); ! 594: if (*db_history_curr == '\0') { ! 595: INC_DB_CURR(); ! 596: if (db_hist_search <= 1) { ! 597: if (*db_history_curr == '\0') ! 598: cnputc('\007'); ! 599: else ! 600: DEC_DB_CURR(); ! 601: break; ! 602: } ! 603: if (*db_history_curr == '\0') { ! 604: cnputc('\007'); ! 605: db_history_curr = old_history_curr; ! 606: DEC_DB_CURR(); ! 607: break; ! 608: } ! 609: if (db_history_curr != db_history_last && ! 610: db_hist_substring(db_history_curr, ! 611: db_hist_search_string)) { ! 612: DEC_DB_CURR(); ! 613: break; ! 614: } ! 615: DEC_DB_CURR(); ! 616: } ! 617: } ! 618: if (db_history_curr == db_history_last) { ! 619: cnputc('\007'); ! 620: db_history_curr = old_history_curr; ! 621: } else { ! 622: register char *p; ! 623: INC_DB_CURR(); ! 624: db_delete_line(); ! 625: for (p = db_history_curr, db_le = db_lbuf_start; ! 626: *p; ) { ! 627: *db_le++ = *p++; ! 628: if (p == db_history + db_history_size) { ! 629: p = db_history; ! 630: } ! 631: } ! 632: db_lc = db_le; ! 633: *db_le = '\0'; ! 634: db_putstring(db_lbuf_start, db_le - db_lbuf_start); ! 635: } ! 636: break; ! 637: } ! 638: case CTRL('s'): ! 639: if (db_hist_search++ == 0) { ! 640: /* starting an history lookup */ ! 641: register char *cp1, *cp2; ! 642: for (cp1 = db_lbuf_start, cp2 = db_hist_search_string; ! 643: cp1 < db_le; ! 644: cp1++, cp2++) ! 645: *cp2 = *cp1; ! 646: *cp2 = '\0'; ! 647: db_hist_search++; ! 648: } ! 649: /* FALL THROUGH */ ! 650: case CTRL('n'): ! 651: { ! 652: char *old_history_curr = db_history_curr; ! 653: ! 654: if (db_hist_unmodified++ == 0) ! 655: db_hist_unmodified++; ! 656: while (db_history_curr != db_history_last) { ! 657: if (*db_history_curr == '\0') { ! 658: if (db_hist_search <= 1) ! 659: break; ! 660: INC_DB_CURR(); ! 661: if (db_history_curr != db_history_last && ! 662: db_hist_substring(db_history_curr, ! 663: db_hist_search_string)) { ! 664: DEC_DB_CURR(); ! 665: break; ! 666: } ! 667: DEC_DB_CURR(); ! 668: } ! 669: INC_DB_CURR(); ! 670: } ! 671: if (db_history_curr != db_history_last) { ! 672: INC_DB_CURR(); ! 673: if (db_history_curr != db_history_last) { ! 674: register char *p; ! 675: db_delete_line(); ! 676: for (p = db_history_curr, ! 677: db_le = db_lbuf_start; *p;) { ! 678: *db_le++ = *p++; ! 679: if (p == db_history + ! 680: db_history_size) { ! 681: p = db_history; ! 682: } ! 683: } ! 684: db_lc = db_le; ! 685: *db_le = '\0'; ! 686: db_putstring(db_lbuf_start, ! 687: db_le - db_lbuf_start); ! 688: } else { ! 689: cnputc('\007'); ! 690: db_history_curr = old_history_curr; ! 691: } ! 692: } else { ! 693: cnputc('\007'); ! 694: db_history_curr = old_history_curr; ! 695: } ! 696: break; ! 697: } ! 698: #endif ! 699: /* refresh the command line */ ! 700: case CTRL('l'): ! 701: db_putstring("^L\n", 3); ! 702: if (db_le > db_lbuf_start) { ! 703: db_putstring(db_lbuf_start, db_le - db_lbuf_start); ! 704: db_putnchars(BACKUP, db_le - db_lc); ! 705: } ! 706: break; ! 707: case '\n': ! 708: case '\r': ! 709: #if DB_HISTORY_SIZE != 0 ! 710: /* Check if it same than previous line */ ! 711: if (db_history_prev) { ! 712: register char *pp, *pc; ! 713: ! 714: /* Is it unmodified */ ! 715: for (p = db_history_prev, pc = db_lbuf_start; ! 716: pc != db_le && *p;) { ! 717: if (*p != *pc) ! 718: break; ! 719: if (++p == db_history + db_history_size) { ! 720: p = db_history; ! 721: } ! 722: if (++pc == db_history + db_history_size) { ! 723: pc = db_history; ! 724: } ! 725: } ! 726: if (!*p && pc == db_le) { ! 727: /* Repeted previous line, not saved */ ! 728: db_history_curr = db_history_last; ! 729: *db_le++ = c; ! 730: db_hist_search = 0; ! 731: db_hist_unmodified = 0; ! 732: return (TRUE); ! 733: } ! 734: } ! 735: if (db_le != db_lbuf_start && ! 736: (db_hist_unmodified == 0 || !db_hist_ignore_dups)) { ! 737: db_history_prev = db_history_last; ! 738: for (p = db_lbuf_start; p != db_le; p++) { ! 739: *db_history_last++ = *p; ! 740: if (db_history_last == db_history + ! 741: db_history_size) { ! 742: db_history_last = db_history; ! 743: } ! 744: } ! 745: *db_history_last++ = '\0'; ! 746: } ! 747: db_history_curr = db_history_last; ! 748: #endif ! 749: *db_le++ = c; ! 750: db_hist_search = 0; ! 751: db_hist_unmodified = 0; ! 752: return (TRUE); ! 753: default: ! 754: if (db_le == db_lbuf_end) { ! 755: cnputc('\007'); ! 756: } ! 757: else if (c >= ' ' && c <= '~') { ! 758: for (p = db_le; p > db_lc; p--) ! 759: *p = *(p-1); ! 760: *db_lc++ = c; ! 761: db_le++; ! 762: cnputc(c); ! 763: db_putstring(db_lc, db_le - db_lc); ! 764: db_putnchars(BACKUP, db_le - db_lc); ! 765: } ! 766: break; ! 767: } ! 768: if (db_hist_search) ! 769: db_hist_search--; ! 770: if (db_hist_unmodified) ! 771: db_hist_unmodified--; ! 772: return (FALSE); ! 773: } ! 774: ! 775: int ! 776: db_readline( ! 777: char * lstart, ! 778: int lsize) ! 779: { ! 780: db_force_whitespace(); /* synch output position */ ! 781: ! 782: db_lbuf_start = lstart; ! 783: db_lbuf_end = lstart + lsize - 1; ! 784: db_lc = lstart; ! 785: db_le = lstart; ! 786: ! 787: while (!db_inputchar(cngetc())) ! 788: continue; ! 789: ! 790: db_putchar('\n'); /* synch output position */ ! 791: ! 792: *db_le = 0; ! 793: return (db_le - db_lbuf_start); ! 794: } ! 795: ! 796: void ! 797: db_check_interrupt(void) ! 798: { ! 799: register int c; ! 800: ! 801: c = cnmaygetc(); ! 802: switch (c) { ! 803: case -1: /* no character */ ! 804: return; ! 805: ! 806: case CTRL('c'): ! 807: db_error((char *)0); ! 808: /*NOTREACHED*/ ! 809: ! 810: case CTRL('s'): ! 811: do { ! 812: c = cnmaygetc(); ! 813: if (c == CTRL('c')) ! 814: db_error((char *)0); ! 815: } while (c != CTRL('q')); ! 816: break; ! 817: ! 818: default: ! 819: /* drop on floor */ ! 820: break; ! 821: } ! 822: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.