1 /* $NetBSD: chared.c,v 1.63 2022/10/30 19:11:31 christos 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.63 2022/10/30 19:11:31 christos 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
cv_undo(EditLine * el)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
cv_yank(EditLine * el,const wchar_t * ptr,int size)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
c_insert(EditLine * el,int num)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
c_delafter(EditLine * el,int num)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
c_delafter1(EditLine * el)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
c_delbefore(EditLine * el,int num)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[num] <= 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
c_delbefore1(EditLine * el)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
ce__isword(wint_t p)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
cv__isword(wint_t p)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
cv__isWord(wint_t p)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 *
c__prev_word(wchar_t * p,wchar_t * low,int n,int (* wtest)(wint_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 *
c__next_word(wchar_t * p,wchar_t * high,int n,int (* wtest)(wint_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 *
cv_next_word(EditLine * el,wchar_t * p,wchar_t * high,int n,int (* wtest)(wint_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 *
cv_prev_word(wchar_t * p,wchar_t * low,int n,int (* wtest)(wint_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
cv_delfini(EditLine * el)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 *
cv__endword(wchar_t * p,wchar_t * high,int n,int (* wtest)(wint_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
ch_init(EditLine * el)397 ch_init(EditLine *el)
398 {
399 el->el_line.buffer = el_calloc(EL_BUFSIZ,
400 sizeof(*el->el_line.buffer));
401 if (el->el_line.buffer == NULL)
402 return -1;
403
404 el->el_line.cursor = el->el_line.buffer;
405 el->el_line.lastchar = el->el_line.buffer;
406 el->el_line.limit = &el->el_line.buffer[EL_BUFSIZ - EL_LEAVE];
407
408 el->el_chared.c_undo.buf = el_calloc(EL_BUFSIZ,
409 sizeof(*el->el_chared.c_undo.buf));
410 if (el->el_chared.c_undo.buf == NULL)
411 return -1;
412 el->el_chared.c_undo.len = -1;
413 el->el_chared.c_undo.cursor = 0;
414 el->el_chared.c_redo.buf = el_calloc(EL_BUFSIZ,
415 sizeof(*el->el_chared.c_redo.buf));
416 if (el->el_chared.c_redo.buf == NULL)
417 goto out;
418 el->el_chared.c_redo.pos = el->el_chared.c_redo.buf;
419 el->el_chared.c_redo.lim = el->el_chared.c_redo.buf + EL_BUFSIZ;
420 el->el_chared.c_redo.cmd = ED_UNASSIGNED;
421
422 el->el_chared.c_vcmd.action = NOP;
423 el->el_chared.c_vcmd.pos = el->el_line.buffer;
424
425 el->el_chared.c_kill.buf = el_calloc(EL_BUFSIZ,
426 sizeof(*el->el_chared.c_kill.buf));
427 if (el->el_chared.c_kill.buf == NULL)
428 goto out;
429 el->el_chared.c_kill.mark = el->el_line.buffer;
430 el->el_chared.c_kill.last = el->el_chared.c_kill.buf;
431 el->el_chared.c_resizefun = NULL;
432 el->el_chared.c_resizearg = NULL;
433 el->el_chared.c_aliasfun = NULL;
434 el->el_chared.c_aliasarg = NULL;
435
436 el->el_map.current = el->el_map.key;
437
438 el->el_state.inputmode = MODE_INSERT; /* XXX: save a default */
439 el->el_state.doingarg = 0;
440 el->el_state.metanext = 0;
441 el->el_state.argument = 1;
442 el->el_state.lastcmd = ED_UNASSIGNED;
443
444 return 0;
445 out:
446 ch_end(el);
447 return -1;
448 }
449
450 /* ch_reset():
451 * Reset the character editor
452 */
453 libedit_private void
ch_reset(EditLine * el)454 ch_reset(EditLine *el)
455 {
456 el->el_line.cursor = el->el_line.buffer;
457 el->el_line.lastchar = el->el_line.buffer;
458
459 el->el_chared.c_undo.len = -1;
460 el->el_chared.c_undo.cursor = 0;
461
462 el->el_chared.c_vcmd.action = NOP;
463 el->el_chared.c_vcmd.pos = el->el_line.buffer;
464
465 el->el_chared.c_kill.mark = el->el_line.buffer;
466
467 el->el_map.current = el->el_map.key;
468
469 el->el_state.inputmode = MODE_INSERT; /* XXX: save a default */
470 el->el_state.doingarg = 0;
471 el->el_state.metanext = 0;
472 el->el_state.argument = 1;
473 el->el_state.lastcmd = ED_UNASSIGNED;
474
475 el->el_history.eventno = 0;
476 }
477
478 /* ch_enlargebufs():
479 * Enlarge line buffer to be able to hold twice as much characters.
480 * Returns 1 if successful, 0 if not.
481 */
482 libedit_private int
ch_enlargebufs(EditLine * el,size_t addlen)483 ch_enlargebufs(EditLine *el, size_t addlen)
484 {
485 size_t sz, newsz;
486 wchar_t *newbuffer, *oldbuf, *oldkbuf;
487
488 sz = (size_t)(el->el_line.limit - el->el_line.buffer + EL_LEAVE);
489 newsz = sz * 2;
490 /*
491 * If newly required length is longer than current buffer, we need
492 * to make the buffer big enough to hold both old and new stuff.
493 */
494 if (addlen > sz) {
495 while(newsz - sz < addlen)
496 newsz *= 2;
497 }
498
499 /*
500 * Reallocate line buffer.
501 */
502 newbuffer = el_realloc(el->el_line.buffer, newsz * sizeof(*newbuffer));
503 if (!newbuffer)
504 return 0;
505
506 /* zero the newly added memory, leave old data in */
507 (void) memset(&newbuffer[sz], 0, (newsz - sz) * sizeof(*newbuffer));
508
509 oldbuf = el->el_line.buffer;
510
511 el->el_line.buffer = newbuffer;
512 el->el_line.cursor = newbuffer + (el->el_line.cursor - oldbuf);
513 el->el_line.lastchar = newbuffer + (el->el_line.lastchar - oldbuf);
514 /* don't set new size until all buffers are enlarged */
515 el->el_line.limit = &newbuffer[sz - EL_LEAVE];
516
517 /*
518 * Reallocate kill buffer.
519 */
520 newbuffer = el_realloc(el->el_chared.c_kill.buf, newsz *
521 sizeof(*newbuffer));
522 if (!newbuffer)
523 return 0;
524
525 /* zero the newly added memory, leave old data in */
526 (void) memset(&newbuffer[sz], 0, (newsz - sz) * sizeof(*newbuffer));
527
528 oldkbuf = el->el_chared.c_kill.buf;
529
530 el->el_chared.c_kill.buf = newbuffer;
531 el->el_chared.c_kill.last = newbuffer +
532 (el->el_chared.c_kill.last - oldkbuf);
533 el->el_chared.c_kill.mark = el->el_line.buffer +
534 (el->el_chared.c_kill.mark - oldbuf);
535
536 /*
537 * Reallocate undo buffer.
538 */
539 newbuffer = el_realloc(el->el_chared.c_undo.buf,
540 newsz * sizeof(*newbuffer));
541 if (!newbuffer)
542 return 0;
543
544 /* zero the newly added memory, leave old data in */
545 (void) memset(&newbuffer[sz], 0, (newsz - sz) * sizeof(*newbuffer));
546 el->el_chared.c_undo.buf = newbuffer;
547
548 newbuffer = el_realloc(el->el_chared.c_redo.buf,
549 newsz * sizeof(*newbuffer));
550 if (!newbuffer)
551 return 0;
552 el->el_chared.c_redo.pos = newbuffer +
553 (el->el_chared.c_redo.pos - el->el_chared.c_redo.buf);
554 el->el_chared.c_redo.lim = newbuffer +
555 (el->el_chared.c_redo.lim - el->el_chared.c_redo.buf);
556 el->el_chared.c_redo.buf = newbuffer;
557
558 if (!hist_enlargebuf(el, sz, newsz))
559 return 0;
560
561 /* Safe to set enlarged buffer size */
562 el->el_line.limit = &el->el_line.buffer[newsz - EL_LEAVE];
563 if (el->el_chared.c_resizefun)
564 (*el->el_chared.c_resizefun)(el, el->el_chared.c_resizearg);
565 return 1;
566 }
567
568 /* ch_end():
569 * Free the data structures used by the editor
570 */
571 libedit_private void
ch_end(EditLine * el)572 ch_end(EditLine *el)
573 {
574 el_free(el->el_line.buffer);
575 el->el_line.buffer = NULL;
576 el->el_line.limit = NULL;
577 el_free(el->el_chared.c_undo.buf);
578 el->el_chared.c_undo.buf = NULL;
579 el_free(el->el_chared.c_redo.buf);
580 el->el_chared.c_redo.buf = NULL;
581 el->el_chared.c_redo.pos = NULL;
582 el->el_chared.c_redo.lim = NULL;
583 el->el_chared.c_redo.cmd = ED_UNASSIGNED;
584 el_free(el->el_chared.c_kill.buf);
585 el->el_chared.c_kill.buf = NULL;
586 ch_reset(el);
587 }
588
589
590 /* el_insertstr():
591 * Insert string at cursor
592 */
593 int
el_winsertstr(EditLine * el,const wchar_t * s)594 el_winsertstr(EditLine *el, const wchar_t *s)
595 {
596 size_t len;
597
598 if (s == NULL || (len = wcslen(s)) == 0)
599 return -1;
600 if (el->el_line.lastchar + len >= el->el_line.limit) {
601 if (!ch_enlargebufs(el, len))
602 return -1;
603 }
604
605 c_insert(el, (int)len);
606 while (*s)
607 *el->el_line.cursor++ = *s++;
608 return 0;
609 }
610
611
612 /* el_deletestr():
613 * Delete num characters before the cursor
614 */
615 void
el_deletestr(EditLine * el,int n)616 el_deletestr(EditLine *el, int n)
617 {
618 if (n <= 0)
619 return;
620
621 if (el->el_line.cursor < &el->el_line.buffer[n])
622 return;
623
624 c_delbefore(el, n); /* delete before dot */
625 el->el_line.cursor -= n;
626 if (el->el_line.cursor < el->el_line.buffer)
627 el->el_line.cursor = el->el_line.buffer;
628 }
629
630 /* el_deletestr1():
631 * Delete characters between start and end
632 */
633 int
el_deletestr1(EditLine * el,int start,int end)634 el_deletestr1(EditLine *el, int start, int end)
635 {
636 size_t line_length, len;
637 wchar_t *p1, *p2;
638
639 if (end <= start)
640 return 0;
641
642 line_length = (size_t)(el->el_line.lastchar - el->el_line.buffer);
643
644 if (start >= (int)line_length || end >= (int)line_length)
645 return 0;
646
647 len = (size_t)(end - start);
648 if (len > line_length - (size_t)end)
649 len = line_length - (size_t)end;
650
651 p1 = el->el_line.buffer + start;
652 p2 = el->el_line.buffer + end;
653 for (size_t i = 0; i < len; i++) {
654 *p1++ = *p2++;
655 el->el_line.lastchar--;
656 }
657
658 if (el->el_line.cursor < el->el_line.buffer)
659 el->el_line.cursor = el->el_line.buffer;
660
661 return end - start;
662 }
663
664 /* el_wreplacestr():
665 * Replace the contents of the line with the provided string
666 */
667 int
el_wreplacestr(EditLine * el,const wchar_t * s)668 el_wreplacestr(EditLine *el, const wchar_t *s)
669 {
670 size_t len;
671 wchar_t * p;
672
673 if (s == NULL || (len = wcslen(s)) == 0)
674 return -1;
675
676 if (el->el_line.buffer + len >= el->el_line.limit) {
677 if (!ch_enlargebufs(el, len))
678 return -1;
679 }
680
681 p = el->el_line.buffer;
682 for (size_t i = 0; i < len; i++)
683 *p++ = *s++;
684
685 el->el_line.buffer[len] = '\0';
686 el->el_line.lastchar = el->el_line.buffer + len;
687 if (el->el_line.cursor > el->el_line.lastchar)
688 el->el_line.cursor = el->el_line.lastchar;
689
690 return 0;
691 }
692
693 /* el_cursor():
694 * Move the cursor to the left or the right of the current position
695 */
696 int
el_cursor(EditLine * el,int n)697 el_cursor(EditLine *el, int n)
698 {
699 if (n == 0)
700 goto out;
701
702 el->el_line.cursor += n;
703
704 if (el->el_line.cursor < el->el_line.buffer)
705 el->el_line.cursor = el->el_line.buffer;
706 if (el->el_line.cursor > el->el_line.lastchar)
707 el->el_line.cursor = el->el_line.lastchar;
708 out:
709 return (int)(el->el_line.cursor - el->el_line.buffer);
710 }
711
712 /* c_gets():
713 * Get a string
714 */
715 libedit_private int
c_gets(EditLine * el,wchar_t * buf,const wchar_t * prompt)716 c_gets(EditLine *el, wchar_t *buf, const wchar_t *prompt)
717 {
718 ssize_t len;
719 wchar_t *cp = el->el_line.buffer, ch;
720
721 if (prompt) {
722 len = (ssize_t)wcslen(prompt);
723 (void)memcpy(cp, prompt, (size_t)len * sizeof(*cp));
724 cp += len;
725 }
726 len = 0;
727
728 for (;;) {
729 el->el_line.cursor = cp;
730 *cp = ' ';
731 el->el_line.lastchar = cp + 1;
732 re_refresh(el);
733
734 if (el_wgetc(el, &ch) != 1) {
735 ed_end_of_file(el, 0);
736 len = -1;
737 break;
738 }
739
740 switch (ch) {
741
742 case L'\b': /* Delete and backspace */
743 case 0177:
744 if (len == 0) {
745 len = -1;
746 break;
747 }
748 len--;
749 cp--;
750 continue;
751
752 case 0033: /* ESC */
753 case L'\r': /* Newline */
754 case L'\n':
755 buf[len] = ch;
756 break;
757
758 default:
759 if (len >= (ssize_t)(EL_BUFSIZ - 16))
760 terminal_beep(el);
761 else {
762 buf[len++] = ch;
763 *cp++ = ch;
764 }
765 continue;
766 }
767 break;
768 }
769
770 el->el_line.buffer[0] = '\0';
771 el->el_line.lastchar = el->el_line.buffer;
772 el->el_line.cursor = el->el_line.buffer;
773 return (int)len;
774 }
775
776
777 /* c_hpos():
778 * Return the current horizontal position of the cursor
779 */
780 libedit_private int
c_hpos(EditLine * el)781 c_hpos(EditLine *el)
782 {
783 wchar_t *ptr;
784
785 /*
786 * Find how many characters till the beginning of this line.
787 */
788 if (el->el_line.cursor == el->el_line.buffer)
789 return 0;
790 else {
791 for (ptr = el->el_line.cursor - 1;
792 ptr >= el->el_line.buffer && *ptr != '\n';
793 ptr--)
794 continue;
795 return (int)(el->el_line.cursor - ptr - 1);
796 }
797 }
798
799 libedit_private int
ch_resizefun(EditLine * el,el_zfunc_t f,void * a)800 ch_resizefun(EditLine *el, el_zfunc_t f, void *a)
801 {
802 el->el_chared.c_resizefun = f;
803 el->el_chared.c_resizearg = a;
804 return 0;
805 }
806
807 libedit_private int
ch_aliasfun(EditLine * el,el_afunc_t f,void * a)808 ch_aliasfun(EditLine *el, el_afunc_t f, void *a)
809 {
810 el->el_chared.c_aliasfun = f;
811 el->el_chared.c_aliasarg = a;
812 return 0;
813 }
814