1 /* $NetBSD: chared.c,v 1.57 2017/10/11 06:49:03 abhinav Exp $ */ 2 3 /*- 4 * Copyright (c) 1992, 1993 5 * The Regents of the University of California. All rights reserved. 6 * 7 * This code is derived from software contributed to Berkeley by 8 * Christos Zoulas of Cornell University. 9 * 10 * Redistribution and use in source and binary forms, with or without 11 * modification, are permitted provided that the following conditions 12 * are met: 13 * 1. Redistributions of source code must retain the above copyright 14 * notice, this list of conditions and the following disclaimer. 15 * 2. Redistributions in binary form must reproduce the above copyright 16 * notice, this list of conditions and the following disclaimer in the 17 * documentation and/or other materials provided with the distribution. 18 * 3. Neither the name of the University nor the names of its contributors 19 * may be used to endorse or promote products derived from this software 20 * without specific prior written permission. 21 * 22 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 23 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 24 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 25 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 26 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 27 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 28 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 29 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 30 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 31 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 32 * SUCH DAMAGE. 33 */ 34 35 #include "config.h" 36 #if !defined(lint) && !defined(SCCSID) 37 #if 0 38 static char sccsid[] = "@(#)chared.c 8.1 (Berkeley) 6/4/93"; 39 #else 40 __RCSID("$NetBSD: chared.c,v 1.57 2017/10/11 06:49:03 abhinav Exp $"); 41 #endif 42 #endif /* not lint && not SCCSID */ 43 44 /* 45 * chared.c: Character editor utilities 46 */ 47 #include <ctype.h> 48 #include <stdlib.h> 49 #include <string.h> 50 51 #include "el.h" 52 #include "common.h" 53 #include "fcns.h" 54 55 /* value to leave unused in line buffer */ 56 #define EL_LEAVE 2 57 58 /* cv_undo(): 59 * Handle state for the vi undo command 60 */ 61 libedit_private void 62 cv_undo(EditLine *el) 63 { 64 c_undo_t *vu = &el->el_chared.c_undo; 65 c_redo_t *r = &el->el_chared.c_redo; 66 size_t size; 67 68 /* Save entire line for undo */ 69 size = (size_t)(el->el_line.lastchar - el->el_line.buffer); 70 vu->len = (ssize_t)size; 71 vu->cursor = (int)(el->el_line.cursor - el->el_line.buffer); 72 (void)memcpy(vu->buf, el->el_line.buffer, size * sizeof(*vu->buf)); 73 74 /* save command info for redo */ 75 r->count = el->el_state.doingarg ? el->el_state.argument : 0; 76 r->action = el->el_chared.c_vcmd.action; 77 r->pos = r->buf; 78 r->cmd = el->el_state.thiscmd; 79 r->ch = el->el_state.thisch; 80 } 81 82 /* cv_yank(): 83 * Save yank/delete data for paste 84 */ 85 libedit_private void 86 cv_yank(EditLine *el, const wchar_t *ptr, int size) 87 { 88 c_kill_t *k = &el->el_chared.c_kill; 89 90 (void)memcpy(k->buf, ptr, (size_t)size * sizeof(*k->buf)); 91 k->last = k->buf + size; 92 } 93 94 95 /* c_insert(): 96 * Insert num characters 97 */ 98 libedit_private void 99 c_insert(EditLine *el, int num) 100 { 101 wchar_t *cp; 102 103 if (el->el_line.lastchar + num >= el->el_line.limit) { 104 if (!ch_enlargebufs(el, (size_t)num)) 105 return; /* can't go past end of buffer */ 106 } 107 108 if (el->el_line.cursor < el->el_line.lastchar) { 109 /* if I must move chars */ 110 for (cp = el->el_line.lastchar; cp >= el->el_line.cursor; cp--) 111 cp[num] = *cp; 112 } 113 el->el_line.lastchar += num; 114 } 115 116 117 /* c_delafter(): 118 * Delete num characters after the cursor 119 */ 120 libedit_private void 121 c_delafter(EditLine *el, int num) 122 { 123 124 if (el->el_line.cursor + num > el->el_line.lastchar) 125 num = (int)(el->el_line.lastchar - el->el_line.cursor); 126 127 if (el->el_map.current != el->el_map.emacs) { 128 cv_undo(el); 129 cv_yank(el, el->el_line.cursor, num); 130 } 131 132 if (num > 0) { 133 wchar_t *cp; 134 135 for (cp = el->el_line.cursor; cp <= el->el_line.lastchar; cp++) 136 *cp = cp[num]; 137 138 el->el_line.lastchar -= num; 139 } 140 } 141 142 143 /* c_delafter1(): 144 * Delete the character after the cursor, do not yank 145 */ 146 libedit_private void 147 c_delafter1(EditLine *el) 148 { 149 wchar_t *cp; 150 151 for (cp = el->el_line.cursor; cp <= el->el_line.lastchar; cp++) 152 *cp = cp[1]; 153 154 el->el_line.lastchar--; 155 } 156 157 158 /* c_delbefore(): 159 * Delete num characters before the cursor 160 */ 161 libedit_private void 162 c_delbefore(EditLine *el, int num) 163 { 164 165 if (el->el_line.cursor - num < el->el_line.buffer) 166 num = (int)(el->el_line.cursor - el->el_line.buffer); 167 168 if (el->el_map.current != el->el_map.emacs) { 169 cv_undo(el); 170 cv_yank(el, el->el_line.cursor - num, num); 171 } 172 173 if (num > 0) { 174 wchar_t *cp; 175 176 for (cp = el->el_line.cursor - num; 177 cp <= el->el_line.lastchar; 178 cp++) 179 *cp = cp[num]; 180 181 el->el_line.lastchar -= num; 182 } 183 } 184 185 186 /* c_delbefore1(): 187 * Delete the character before the cursor, do not yank 188 */ 189 libedit_private void 190 c_delbefore1(EditLine *el) 191 { 192 wchar_t *cp; 193 194 for (cp = el->el_line.cursor - 1; cp <= el->el_line.lastchar; cp++) 195 *cp = cp[1]; 196 197 el->el_line.lastchar--; 198 } 199 200 201 /* ce__isword(): 202 * Return if p is part of a word according to emacs 203 */ 204 libedit_private int 205 ce__isword(wint_t p) 206 { 207 return iswalnum(p) || wcschr(L"*?_-.[]~=", p) != NULL; 208 } 209 210 211 /* cv__isword(): 212 * Return if p is part of a word according to vi 213 */ 214 libedit_private int 215 cv__isword(wint_t p) 216 { 217 if (iswalnum(p) || p == L'_') 218 return 1; 219 if (iswgraph(p)) 220 return 2; 221 return 0; 222 } 223 224 225 /* cv__isWord(): 226 * Return if p is part of a big word according to vi 227 */ 228 libedit_private int 229 cv__isWord(wint_t p) 230 { 231 return !iswspace(p); 232 } 233 234 235 /* c__prev_word(): 236 * Find the previous word 237 */ 238 libedit_private wchar_t * 239 c__prev_word(wchar_t *p, wchar_t *low, int n, int (*wtest)(wint_t)) 240 { 241 p--; 242 243 while (n--) { 244 while ((p >= low) && !(*wtest)(*p)) 245 p--; 246 while ((p >= low) && (*wtest)(*p)) 247 p--; 248 } 249 250 /* cp now points to one character before the word */ 251 p++; 252 if (p < low) 253 p = low; 254 /* cp now points where we want it */ 255 return p; 256 } 257 258 259 /* c__next_word(): 260 * Find the next word 261 */ 262 libedit_private wchar_t * 263 c__next_word(wchar_t *p, wchar_t *high, int n, int (*wtest)(wint_t)) 264 { 265 while (n--) { 266 while ((p < high) && !(*wtest)(*p)) 267 p++; 268 while ((p < high) && (*wtest)(*p)) 269 p++; 270 } 271 if (p > high) 272 p = high; 273 /* p now points where we want it */ 274 return p; 275 } 276 277 /* cv_next_word(): 278 * Find the next word vi style 279 */ 280 libedit_private wchar_t * 281 cv_next_word(EditLine *el, wchar_t *p, wchar_t *high, int n, 282 int (*wtest)(wint_t)) 283 { 284 int test; 285 286 while (n--) { 287 test = (*wtest)(*p); 288 while ((p < high) && (*wtest)(*p) == test) 289 p++; 290 /* 291 * vi historically deletes with cw only the word preserving the 292 * trailing whitespace! This is not what 'w' does.. 293 */ 294 if (n || el->el_chared.c_vcmd.action != (DELETE|INSERT)) 295 while ((p < high) && iswspace(*p)) 296 p++; 297 } 298 299 /* p now points where we want it */ 300 if (p > high) 301 return high; 302 else 303 return p; 304 } 305 306 307 /* cv_prev_word(): 308 * Find the previous word vi style 309 */ 310 libedit_private wchar_t * 311 cv_prev_word(wchar_t *p, wchar_t *low, int n, int (*wtest)(wint_t)) 312 { 313 int test; 314 315 p--; 316 while (n--) { 317 while ((p > low) && iswspace(*p)) 318 p--; 319 test = (*wtest)(*p); 320 while ((p >= low) && (*wtest)(*p) == test) 321 p--; 322 } 323 p++; 324 325 /* p now points where we want it */ 326 if (p < low) 327 return low; 328 else 329 return p; 330 } 331 332 333 /* cv_delfini(): 334 * Finish vi delete action 335 */ 336 libedit_private void 337 cv_delfini(EditLine *el) 338 { 339 int size; 340 int action = el->el_chared.c_vcmd.action; 341 342 if (action & INSERT) 343 el->el_map.current = el->el_map.key; 344 345 if (el->el_chared.c_vcmd.pos == 0) 346 /* sanity */ 347 return; 348 349 size = (int)(el->el_line.cursor - el->el_chared.c_vcmd.pos); 350 if (size == 0) 351 size = 1; 352 el->el_line.cursor = el->el_chared.c_vcmd.pos; 353 if (action & YANK) { 354 if (size > 0) 355 cv_yank(el, el->el_line.cursor, size); 356 else 357 cv_yank(el, el->el_line.cursor + size, -size); 358 } else { 359 if (size > 0) { 360 c_delafter(el, size); 361 re_refresh_cursor(el); 362 } else { 363 c_delbefore(el, -size); 364 el->el_line.cursor += size; 365 } 366 } 367 el->el_chared.c_vcmd.action = NOP; 368 } 369 370 371 /* cv__endword(): 372 * Go to the end of this word according to vi 373 */ 374 libedit_private wchar_t * 375 cv__endword(wchar_t *p, wchar_t *high, int n, int (*wtest)(wint_t)) 376 { 377 int test; 378 379 p++; 380 381 while (n--) { 382 while ((p < high) && iswspace(*p)) 383 p++; 384 385 test = (*wtest)(*p); 386 while ((p < high) && (*wtest)(*p) == test) 387 p++; 388 } 389 p--; 390 return p; 391 } 392 393 /* ch_init(): 394 * Initialize the character editor 395 */ 396 libedit_private int 397 ch_init(EditLine *el) 398 { 399 el->el_line.buffer = el_malloc(EL_BUFSIZ * 400 sizeof(*el->el_line.buffer)); 401 if (el->el_line.buffer == NULL) 402 return -1; 403 404 (void) memset(el->el_line.buffer, 0, EL_BUFSIZ * 405 sizeof(*el->el_line.buffer)); 406 el->el_line.cursor = el->el_line.buffer; 407 el->el_line.lastchar = el->el_line.buffer; 408 el->el_line.limit = &el->el_line.buffer[EL_BUFSIZ - EL_LEAVE]; 409 410 el->el_chared.c_undo.buf = el_malloc(EL_BUFSIZ * 411 sizeof(*el->el_chared.c_undo.buf)); 412 if (el->el_chared.c_undo.buf == NULL) 413 return -1; 414 (void) memset(el->el_chared.c_undo.buf, 0, EL_BUFSIZ * 415 sizeof(*el->el_chared.c_undo.buf)); 416 el->el_chared.c_undo.len = -1; 417 el->el_chared.c_undo.cursor = 0; 418 el->el_chared.c_redo.buf = el_malloc(EL_BUFSIZ * 419 sizeof(*el->el_chared.c_redo.buf)); 420 if (el->el_chared.c_redo.buf == NULL) 421 return -1; 422 el->el_chared.c_redo.pos = el->el_chared.c_redo.buf; 423 el->el_chared.c_redo.lim = el->el_chared.c_redo.buf + EL_BUFSIZ; 424 el->el_chared.c_redo.cmd = ED_UNASSIGNED; 425 426 el->el_chared.c_vcmd.action = NOP; 427 el->el_chared.c_vcmd.pos = el->el_line.buffer; 428 429 el->el_chared.c_kill.buf = el_malloc(EL_BUFSIZ * 430 sizeof(*el->el_chared.c_kill.buf)); 431 if (el->el_chared.c_kill.buf == NULL) 432 return -1; 433 (void) memset(el->el_chared.c_kill.buf, 0, EL_BUFSIZ * 434 sizeof(*el->el_chared.c_kill.buf)); 435 el->el_chared.c_kill.mark = el->el_line.buffer; 436 el->el_chared.c_kill.last = el->el_chared.c_kill.buf; 437 el->el_chared.c_resizefun = NULL; 438 el->el_chared.c_resizearg = NULL; 439 el->el_chared.c_aliasfun = NULL; 440 el->el_chared.c_aliasarg = NULL; 441 442 el->el_map.current = el->el_map.key; 443 444 el->el_state.inputmode = MODE_INSERT; /* XXX: save a default */ 445 el->el_state.doingarg = 0; 446 el->el_state.metanext = 0; 447 el->el_state.argument = 1; 448 el->el_state.lastcmd = ED_UNASSIGNED; 449 450 return 0; 451 } 452 453 /* ch_reset(): 454 * Reset the character editor 455 */ 456 libedit_private void 457 ch_reset(EditLine *el) 458 { 459 el->el_line.cursor = el->el_line.buffer; 460 el->el_line.lastchar = el->el_line.buffer; 461 462 el->el_chared.c_undo.len = -1; 463 el->el_chared.c_undo.cursor = 0; 464 465 el->el_chared.c_vcmd.action = NOP; 466 el->el_chared.c_vcmd.pos = el->el_line.buffer; 467 468 el->el_chared.c_kill.mark = el->el_line.buffer; 469 470 el->el_map.current = el->el_map.key; 471 472 el->el_state.inputmode = MODE_INSERT; /* XXX: save a default */ 473 el->el_state.doingarg = 0; 474 el->el_state.metanext = 0; 475 el->el_state.argument = 1; 476 el->el_state.lastcmd = ED_UNASSIGNED; 477 478 el->el_history.eventno = 0; 479 } 480 481 /* ch_enlargebufs(): 482 * Enlarge line buffer to be able to hold twice as much characters. 483 * Returns 1 if successful, 0 if not. 484 */ 485 libedit_private int 486 ch_enlargebufs(EditLine *el, size_t addlen) 487 { 488 size_t sz, newsz; 489 wchar_t *newbuffer, *oldbuf, *oldkbuf; 490 491 sz = (size_t)(el->el_line.limit - el->el_line.buffer + EL_LEAVE); 492 newsz = sz * 2; 493 /* 494 * If newly required length is longer than current buffer, we need 495 * to make the buffer big enough to hold both old and new stuff. 496 */ 497 if (addlen > sz) { 498 while(newsz - sz < addlen) 499 newsz *= 2; 500 } 501 502 /* 503 * Reallocate line buffer. 504 */ 505 newbuffer = el_realloc(el->el_line.buffer, newsz * sizeof(*newbuffer)); 506 if (!newbuffer) 507 return 0; 508 509 /* zero the newly added memory, leave old data in */ 510 (void) memset(&newbuffer[sz], 0, (newsz - sz) * sizeof(*newbuffer)); 511 512 oldbuf = el->el_line.buffer; 513 514 el->el_line.buffer = newbuffer; 515 el->el_line.cursor = newbuffer + (el->el_line.cursor - oldbuf); 516 el->el_line.lastchar = newbuffer + (el->el_line.lastchar - oldbuf); 517 /* don't set new size until all buffers are enlarged */ 518 el->el_line.limit = &newbuffer[sz - EL_LEAVE]; 519 520 /* 521 * Reallocate kill buffer. 522 */ 523 newbuffer = el_realloc(el->el_chared.c_kill.buf, newsz * 524 sizeof(*newbuffer)); 525 if (!newbuffer) 526 return 0; 527 528 /* zero the newly added memory, leave old data in */ 529 (void) memset(&newbuffer[sz], 0, (newsz - sz) * sizeof(*newbuffer)); 530 531 oldkbuf = el->el_chared.c_kill.buf; 532 533 el->el_chared.c_kill.buf = newbuffer; 534 el->el_chared.c_kill.last = newbuffer + 535 (el->el_chared.c_kill.last - oldkbuf); 536 el->el_chared.c_kill.mark = el->el_line.buffer + 537 (el->el_chared.c_kill.mark - oldbuf); 538 539 /* 540 * Reallocate undo buffer. 541 */ 542 newbuffer = el_realloc(el->el_chared.c_undo.buf, 543 newsz * sizeof(*newbuffer)); 544 if (!newbuffer) 545 return 0; 546 547 /* zero the newly added memory, leave old data in */ 548 (void) memset(&newbuffer[sz], 0, (newsz - sz) * sizeof(*newbuffer)); 549 el->el_chared.c_undo.buf = newbuffer; 550 551 newbuffer = el_realloc(el->el_chared.c_redo.buf, 552 newsz * sizeof(*newbuffer)); 553 if (!newbuffer) 554 return 0; 555 el->el_chared.c_redo.pos = newbuffer + 556 (el->el_chared.c_redo.pos - el->el_chared.c_redo.buf); 557 el->el_chared.c_redo.lim = newbuffer + 558 (el->el_chared.c_redo.lim - el->el_chared.c_redo.buf); 559 el->el_chared.c_redo.buf = newbuffer; 560 561 if (!hist_enlargebuf(el, sz, newsz)) 562 return 0; 563 564 /* Safe to set enlarged buffer size */ 565 el->el_line.limit = &el->el_line.buffer[newsz - EL_LEAVE]; 566 if (el->el_chared.c_resizefun) 567 (*el->el_chared.c_resizefun)(el, el->el_chared.c_resizearg); 568 return 1; 569 } 570 571 /* ch_end(): 572 * Free the data structures used by the editor 573 */ 574 libedit_private void 575 ch_end(EditLine *el) 576 { 577 el_free(el->el_line.buffer); 578 el->el_line.buffer = NULL; 579 el->el_line.limit = NULL; 580 el_free(el->el_chared.c_undo.buf); 581 el->el_chared.c_undo.buf = NULL; 582 el_free(el->el_chared.c_redo.buf); 583 el->el_chared.c_redo.buf = NULL; 584 el->el_chared.c_redo.pos = NULL; 585 el->el_chared.c_redo.lim = NULL; 586 el->el_chared.c_redo.cmd = ED_UNASSIGNED; 587 el_free(el->el_chared.c_kill.buf); 588 el->el_chared.c_kill.buf = NULL; 589 ch_reset(el); 590 } 591 592 593 /* el_insertstr(): 594 * Insert string at cursor 595 */ 596 int 597 el_winsertstr(EditLine *el, const wchar_t *s) 598 { 599 size_t len; 600 601 if (s == NULL || (len = wcslen(s)) == 0) 602 return -1; 603 if (el->el_line.lastchar + len >= el->el_line.limit) { 604 if (!ch_enlargebufs(el, len)) 605 return -1; 606 } 607 608 c_insert(el, (int)len); 609 while (*s) 610 *el->el_line.cursor++ = *s++; 611 return 0; 612 } 613 614 615 /* el_deletestr(): 616 * Delete num characters before the cursor 617 */ 618 void 619 el_deletestr(EditLine *el, int n) 620 { 621 if (n <= 0) 622 return; 623 624 if (el->el_line.cursor < &el->el_line.buffer[n]) 625 return; 626 627 c_delbefore(el, n); /* delete before dot */ 628 el->el_line.cursor -= n; 629 if (el->el_line.cursor < el->el_line.buffer) 630 el->el_line.cursor = el->el_line.buffer; 631 } 632 633 /* el_cursor(): 634 * Move the cursor to the left or the right of the current position 635 */ 636 int 637 el_cursor(EditLine *el, int n) 638 { 639 if (n == 0) 640 goto out; 641 642 el->el_line.cursor += n; 643 644 if (el->el_line.cursor < el->el_line.buffer) 645 el->el_line.cursor = el->el_line.buffer; 646 if (el->el_line.cursor > el->el_line.lastchar) 647 el->el_line.cursor = el->el_line.lastchar; 648 out: 649 return (int)(el->el_line.cursor - el->el_line.buffer); 650 } 651 652 /* c_gets(): 653 * Get a string 654 */ 655 libedit_private int 656 c_gets(EditLine *el, wchar_t *buf, const wchar_t *prompt) 657 { 658 ssize_t len; 659 wchar_t *cp = el->el_line.buffer, ch; 660 661 if (prompt) { 662 len = (ssize_t)wcslen(prompt); 663 (void)memcpy(cp, prompt, (size_t)len * sizeof(*cp)); 664 cp += len; 665 } 666 len = 0; 667 668 for (;;) { 669 el->el_line.cursor = cp; 670 *cp = ' '; 671 el->el_line.lastchar = cp + 1; 672 re_refresh(el); 673 674 if (el_wgetc(el, &ch) != 1) { 675 ed_end_of_file(el, 0); 676 len = -1; 677 break; 678 } 679 680 switch (ch) { 681 682 case L'\b': /* Delete and backspace */ 683 case 0177: 684 if (len == 0) { 685 len = -1; 686 break; 687 } 688 len--; 689 cp--; 690 continue; 691 692 case 0033: /* ESC */ 693 case L'\r': /* Newline */ 694 case L'\n': 695 buf[len] = ch; 696 break; 697 698 default: 699 if (len >= (ssize_t)(EL_BUFSIZ - 16)) 700 terminal_beep(el); 701 else { 702 buf[len++] = ch; 703 *cp++ = ch; 704 } 705 continue; 706 } 707 break; 708 } 709 710 el->el_line.buffer[0] = '\0'; 711 el->el_line.lastchar = el->el_line.buffer; 712 el->el_line.cursor = el->el_line.buffer; 713 return (int)len; 714 } 715 716 717 /* c_hpos(): 718 * Return the current horizontal position of the cursor 719 */ 720 libedit_private int 721 c_hpos(EditLine *el) 722 { 723 wchar_t *ptr; 724 725 /* 726 * Find how many characters till the beginning of this line. 727 */ 728 if (el->el_line.cursor == el->el_line.buffer) 729 return 0; 730 else { 731 for (ptr = el->el_line.cursor - 1; 732 ptr >= el->el_line.buffer && *ptr != '\n'; 733 ptr--) 734 continue; 735 return (int)(el->el_line.cursor - ptr - 1); 736 } 737 } 738 739 libedit_private int 740 ch_resizefun(EditLine *el, el_zfunc_t f, void *a) 741 { 742 el->el_chared.c_resizefun = f; 743 el->el_chared.c_resizearg = a; 744 return 0; 745 } 746 747 libedit_private int 748 ch_aliasfun(EditLine *el, el_afunc_t f, void *a) 749 { 750 el->el_chared.c_aliasfun = f; 751 el->el_chared.c_aliasarg = a; 752 return 0; 753 } 754