Home | History | Annotate | Line # | Download | only in libedit
chared.c revision 1.32
      1 /*	$NetBSD: chared.c,v 1.32 2011/07/29 15:16:33 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.32 2011/07/29 15:16:33 christos Exp $");
     41 #endif
     42 #endif /* not lint && not SCCSID */
     43 
     44 /*
     45  * chared.c: Character editor utilities
     46  */
     47 #include <stdlib.h>
     48 #include "el.h"
     49 
     50 private void ch__clearmacro (EditLine *);
     51 
     52 /* value to leave unused in line buffer */
     53 #define	EL_LEAVE	2
     54 
     55 /* cv_undo():
     56  *	Handle state for the vi undo command
     57  */
     58 protected void
     59 cv_undo(EditLine *el)
     60 {
     61 	c_undo_t *vu = &el->el_chared.c_undo;
     62 	c_redo_t *r = &el->el_chared.c_redo;
     63 	size_t size;
     64 
     65 	/* Save entire line for undo */
     66 	size = el->el_line.lastchar - el->el_line.buffer;
     67 	vu->len = size;
     68 	vu->cursor = (int)(el->el_line.cursor - el->el_line.buffer);
     69 	(void)memcpy(vu->buf, el->el_line.buffer, size * sizeof(*vu->buf));
     70 
     71 	/* save command info for redo */
     72 	r->count = el->el_state.doingarg ? el->el_state.argument : 0;
     73 	r->action = el->el_chared.c_vcmd.action;
     74 	r->pos = r->buf;
     75 	r->cmd = el->el_state.thiscmd;
     76 	r->ch = el->el_state.thisch;
     77 }
     78 
     79 /* cv_yank():
     80  *	Save yank/delete data for paste
     81  */
     82 protected void
     83 cv_yank(EditLine *el, const Char *ptr, int size)
     84 {
     85 	c_kill_t *k = &el->el_chared.c_kill;
     86 
     87 	(void)memcpy(k->buf, ptr, size * sizeof(*k->buf));
     88 	k->last = k->buf + size;
     89 }
     90 
     91 
     92 /* c_insert():
     93  *	Insert num characters
     94  */
     95 protected void
     96 c_insert(EditLine *el, int num)
     97 {
     98 	Char *cp;
     99 
    100 	if (el->el_line.lastchar + num >= el->el_line.limit) {
    101 		if (!ch_enlargebufs(el, (size_t)num))
    102 			return;		/* can't go past end of buffer */
    103 	}
    104 
    105 	if (el->el_line.cursor < el->el_line.lastchar) {
    106 		/* if I must move chars */
    107 		for (cp = el->el_line.lastchar; cp >= el->el_line.cursor; cp--)
    108 			cp[num] = *cp;
    109 	}
    110 	el->el_line.lastchar += num;
    111 }
    112 
    113 
    114 /* c_delafter():
    115  *	Delete num characters after the cursor
    116  */
    117 protected void
    118 c_delafter(EditLine *el, int num)
    119 {
    120 
    121 	if (el->el_line.cursor + num > el->el_line.lastchar)
    122 		num = (int)(el->el_line.lastchar - el->el_line.cursor);
    123 
    124 	if (el->el_map.current != el->el_map.emacs) {
    125 		cv_undo(el);
    126 		cv_yank(el, el->el_line.cursor, num);
    127 	}
    128 
    129 	if (num > 0) {
    130 		Char *cp;
    131 
    132 		for (cp = el->el_line.cursor; cp <= el->el_line.lastchar; cp++)
    133 			*cp = cp[num];
    134 
    135 		el->el_line.lastchar -= num;
    136 	}
    137 }
    138 
    139 
    140 /* c_delafter1():
    141  *	Delete the character after the cursor, do not yank
    142  */
    143 protected void
    144 c_delafter1(EditLine *el)
    145 {
    146 	Char *cp;
    147 
    148 	for (cp = el->el_line.cursor; cp <= el->el_line.lastchar; cp++)
    149 		*cp = cp[1];
    150 
    151 	el->el_line.lastchar--;
    152 }
    153 
    154 
    155 /* c_delbefore():
    156  *	Delete num characters before the cursor
    157  */
    158 protected void
    159 c_delbefore(EditLine *el, int num)
    160 {
    161 
    162 	if (el->el_line.cursor - num < el->el_line.buffer)
    163 		num = (int)(el->el_line.cursor - el->el_line.buffer);
    164 
    165 	if (el->el_map.current != el->el_map.emacs) {
    166 		cv_undo(el);
    167 		cv_yank(el, el->el_line.cursor - num, num);
    168 	}
    169 
    170 	if (num > 0) {
    171 		Char *cp;
    172 
    173 		for (cp = el->el_line.cursor - num;
    174 		    cp <= el->el_line.lastchar;
    175 		    cp++)
    176 			*cp = cp[num];
    177 
    178 		el->el_line.lastchar -= num;
    179 	}
    180 }
    181 
    182 
    183 /* c_delbefore1():
    184  *	Delete the character before the cursor, do not yank
    185  */
    186 protected void
    187 c_delbefore1(EditLine *el)
    188 {
    189 	Char *cp;
    190 
    191 	for (cp = el->el_line.cursor - 1; cp <= el->el_line.lastchar; cp++)
    192 		*cp = cp[1];
    193 
    194 	el->el_line.lastchar--;
    195 }
    196 
    197 
    198 /* ce__isword():
    199  *	Return if p is part of a word according to emacs
    200  */
    201 protected int
    202 ce__isword(Int p)
    203 {
    204 	return Isalnum(p || Strchr(STR("*?_-.[]~="), p) != NULL);
    205 }
    206 
    207 
    208 /* cv__isword():
    209  *	Return if p is part of a word according to vi
    210  */
    211 protected int
    212 cv__isword(Int p)
    213 {
    214 	if (Isalnum(p) || p == '_')
    215 		return 1;
    216 	if (Isgraph(p))
    217 		return 2;
    218 	return 0;
    219 }
    220 
    221 
    222 /* cv__isWord():
    223  *	Return if p is part of a big word according to vi
    224  */
    225 protected int
    226 cv__isWord(Int p)
    227 {
    228 	return !Isspace(p);
    229 }
    230 
    231 
    232 /* c__prev_word():
    233  *	Find the previous word
    234  */
    235 protected Char *
    236 c__prev_word(Char *p, Char *low, int n, int (*wtest)(Int))
    237 {
    238 	p--;
    239 
    240 	while (n--) {
    241 		while ((p >= low) && !(*wtest)(*p))
    242 			p--;
    243 		while ((p >= low) && (*wtest)(*p))
    244 			p--;
    245 	}
    246 
    247 	/* cp now points to one character before the word */
    248 	p++;
    249 	if (p < low)
    250 		p = low;
    251 	/* cp now points where we want it */
    252 	return p;
    253 }
    254 
    255 
    256 /* c__next_word():
    257  *	Find the next word
    258  */
    259 protected Char *
    260 c__next_word(Char *p, Char *high, int n, int (*wtest)(Int))
    261 {
    262 	while (n--) {
    263 		while ((p < high) && !(*wtest)(*p))
    264 			p++;
    265 		while ((p < high) && (*wtest)(*p))
    266 			p++;
    267 	}
    268 	if (p > high)
    269 		p = high;
    270 	/* p now points where we want it */
    271 	return p;
    272 }
    273 
    274 /* cv_next_word():
    275  *	Find the next word vi style
    276  */
    277 protected Char *
    278 cv_next_word(EditLine *el, Char *p, Char *high, int n, int (*wtest)(Int))
    279 {
    280 	int test;
    281 
    282 	while (n--) {
    283 		test = (*wtest)(*p);
    284 		while ((p < high) && (*wtest)(*p) == test)
    285 			p++;
    286 		/*
    287 		 * vi historically deletes with cw only the word preserving the
    288 		 * trailing whitespace! This is not what 'w' does..
    289 		 */
    290 		if (n || el->el_chared.c_vcmd.action != (DELETE|INSERT))
    291 			while ((p < high) && Isspace(*p))
    292 				p++;
    293 	}
    294 
    295 	/* p now points where we want it */
    296 	if (p > high)
    297 		return high;
    298 	else
    299 		return p;
    300 }
    301 
    302 
    303 /* cv_prev_word():
    304  *	Find the previous word vi style
    305  */
    306 protected Char *
    307 cv_prev_word(Char *p, Char *low, int n, int (*wtest)(Int))
    308 {
    309 	int test;
    310 
    311 	p--;
    312 	while (n--) {
    313 		while ((p > low) && Isspace(*p))
    314 			p--;
    315 		test = (*wtest)(*p);
    316 		while ((p >= low) && (*wtest)(*p) == test)
    317 			p--;
    318 	}
    319 	p++;
    320 
    321 	/* p now points where we want it */
    322 	if (p < low)
    323 		return low;
    324 	else
    325 		return p;
    326 }
    327 
    328 
    329 #ifdef notdef
    330 /* c__number():
    331  *	Ignore character p points to, return number appearing after that.
    332  * 	A '$' by itself means a big number; "$-" is for negative; '^' means 1.
    333  * 	Return p pointing to last char used.
    334  */
    335 protected Char *
    336 c__number(
    337     Char *p,	/* character position */
    338     int *num,	/* Return value	*/
    339     int dval)	/* dval is the number to subtract from like $-3 */
    340 {
    341 	int i;
    342 	int sign = 1;
    343 
    344 	if (*++p == '^') {
    345 		*num = 1;
    346 		return p;
    347 	}
    348 	if (*p == '$') {
    349 		if (*++p != '-') {
    350 			*num = 0x7fffffff;	/* Handle $ */
    351 			return --p;
    352 		}
    353 		sign = -1;			/* Handle $- */
    354 		++p;
    355 	}
    356     /* XXX: this assumes ASCII compatible digits */
    357 	for (i = 0; Isdigit(*p); i = 10 * i + *p++ - '0')
    358 		continue;
    359 	*num = (sign < 0 ? dval - i : i);
    360 	return --p;
    361 }
    362 #endif
    363 
    364 /* cv_delfini():
    365  *	Finish vi delete action
    366  */
    367 protected void
    368 cv_delfini(EditLine *el)
    369 {
    370 	int size;
    371 	int action = el->el_chared.c_vcmd.action;
    372 
    373 	if (action & INSERT)
    374 		el->el_map.current = el->el_map.key;
    375 
    376 	if (el->el_chared.c_vcmd.pos == 0)
    377 		/* sanity */
    378 		return;
    379 
    380 	size = (int)(el->el_line.cursor - el->el_chared.c_vcmd.pos);
    381 	if (size == 0)
    382 		size = 1;
    383 	el->el_line.cursor = el->el_chared.c_vcmd.pos;
    384 	if (action & YANK) {
    385 		if (size > 0)
    386 			cv_yank(el, el->el_line.cursor, size);
    387 		else
    388 			cv_yank(el, el->el_line.cursor + size, -size);
    389 	} else {
    390 		if (size > 0) {
    391 			c_delafter(el, size);
    392 			re_refresh_cursor(el);
    393 		} else  {
    394 			c_delbefore(el, -size);
    395 			el->el_line.cursor += size;
    396 		}
    397 	}
    398 	el->el_chared.c_vcmd.action = NOP;
    399 }
    400 
    401 
    402 #ifdef notdef
    403 /* ce__endword():
    404  *	Go to the end of this word according to emacs
    405  */
    406 protected Char *
    407 ce__endword(Char *p, Char *high, int n)
    408 {
    409 	p++;
    410 
    411 	while (n--) {
    412 		while ((p < high) && Isspace(*p))
    413 			p++;
    414 		while ((p < high) && !Isspace(*p))
    415 			p++;
    416 	}
    417 
    418 	p--;
    419 	return p;
    420 }
    421 #endif
    422 
    423 
    424 /* cv__endword():
    425  *	Go to the end of this word according to vi
    426  */
    427 protected Char *
    428 cv__endword(Char *p, Char *high, int n, int (*wtest)(Int))
    429 {
    430 	int test;
    431 
    432 	p++;
    433 
    434 	while (n--) {
    435 		while ((p < high) && Isspace(*p))
    436 			p++;
    437 
    438 		test = (*wtest)(*p);
    439 		while ((p < high) && (*wtest)(*p) == test)
    440 			p++;
    441 	}
    442 	p--;
    443 	return p;
    444 }
    445 
    446 /* ch_init():
    447  *	Initialize the character editor
    448  */
    449 protected int
    450 ch_init(EditLine *el)
    451 {
    452 	c_macro_t *ma = &el->el_chared.c_macro;
    453 
    454 	el->el_line.buffer		= el_malloc(EL_BUFSIZ *
    455 	    sizeof(*el->el_line.buffer));
    456 	if (el->el_line.buffer == NULL)
    457 		return -1;
    458 
    459 	(void) memset(el->el_line.buffer, 0, EL_BUFSIZ *
    460 	    sizeof(*el->el_line.buffer));
    461 	el->el_line.cursor		= el->el_line.buffer;
    462 	el->el_line.lastchar		= el->el_line.buffer;
    463 	el->el_line.limit		= &el->el_line.buffer[EL_BUFSIZ - EL_LEAVE];
    464 
    465 	el->el_chared.c_undo.buf	= el_malloc(EL_BUFSIZ *
    466 	    sizeof(*el->el_chared.c_undo.buf));
    467 	if (el->el_chared.c_undo.buf == NULL)
    468 		return -1;
    469 	(void) memset(el->el_chared.c_undo.buf, 0, EL_BUFSIZ *
    470 	    sizeof(*el->el_chared.c_undo.buf));
    471 	el->el_chared.c_undo.len	= -1;
    472 	el->el_chared.c_undo.cursor	= 0;
    473 	el->el_chared.c_redo.buf	= el_malloc(EL_BUFSIZ *
    474 	    sizeof(*el->el_chared.c_redo.buf));
    475 	if (el->el_chared.c_redo.buf == NULL)
    476 		return -1;
    477 	el->el_chared.c_redo.pos	= el->el_chared.c_redo.buf;
    478 	el->el_chared.c_redo.lim	= el->el_chared.c_redo.buf + EL_BUFSIZ;
    479 	el->el_chared.c_redo.cmd	= ED_UNASSIGNED;
    480 
    481 	el->el_chared.c_vcmd.action	= NOP;
    482 	el->el_chared.c_vcmd.pos	= el->el_line.buffer;
    483 
    484 	el->el_chared.c_kill.buf	= el_malloc(EL_BUFSIZ *
    485 	    sizeof(*el->el_chared.c_kill.buf));
    486 	if (el->el_chared.c_kill.buf == NULL)
    487 		return -1;
    488 	(void) memset(el->el_chared.c_kill.buf, 0, EL_BUFSIZ *
    489 	    sizeof(*el->el_chared.c_kill.buf));
    490 	el->el_chared.c_kill.mark	= el->el_line.buffer;
    491 	el->el_chared.c_kill.last	= el->el_chared.c_kill.buf;
    492 	el->el_chared.c_resizefun	= NULL;
    493 	el->el_chared.c_resizearg	= NULL;
    494 
    495 	el->el_map.current		= el->el_map.key;
    496 
    497 	el->el_state.inputmode		= MODE_INSERT; /* XXX: save a default */
    498 	el->el_state.doingarg		= 0;
    499 	el->el_state.metanext		= 0;
    500 	el->el_state.argument		= 1;
    501 	el->el_state.lastcmd		= ED_UNASSIGNED;
    502 
    503 	ma->level	= -1;
    504 	ma->offset	= 0;
    505 	ma->macro	= el_malloc(EL_MAXMACRO * sizeof(*ma->macro));
    506 	if (ma->macro == NULL)
    507 		return -1;
    508 	return 0;
    509 }
    510 
    511 /* ch_reset():
    512  *	Reset the character editor
    513  */
    514 protected void
    515 ch_reset(EditLine *el, int mclear)
    516 {
    517 	el->el_line.cursor		= el->el_line.buffer;
    518 	el->el_line.lastchar		= el->el_line.buffer;
    519 
    520 	el->el_chared.c_undo.len	= -1;
    521 	el->el_chared.c_undo.cursor	= 0;
    522 
    523 	el->el_chared.c_vcmd.action	= NOP;
    524 	el->el_chared.c_vcmd.pos	= el->el_line.buffer;
    525 
    526 	el->el_chared.c_kill.mark	= el->el_line.buffer;
    527 
    528 	el->el_map.current		= el->el_map.key;
    529 
    530 	el->el_state.inputmode		= MODE_INSERT; /* XXX: save a default */
    531 	el->el_state.doingarg		= 0;
    532 	el->el_state.metanext		= 0;
    533 	el->el_state.argument		= 1;
    534 	el->el_state.lastcmd		= ED_UNASSIGNED;
    535 
    536 	el->el_history.eventno		= 0;
    537 
    538 	if (mclear)
    539 		ch__clearmacro(el);
    540 }
    541 
    542 private void
    543 ch__clearmacro(EditLine *el)
    544 {
    545 	c_macro_t *ma = &el->el_chared.c_macro;
    546 	while (ma->level >= 0)
    547 		el_free(ma->macro[ma->level--]);
    548 }
    549 
    550 /* ch_enlargebufs():
    551  *	Enlarge line buffer to be able to hold twice as much characters.
    552  *	Returns 1 if successful, 0 if not.
    553  */
    554 protected int
    555 ch_enlargebufs(EditLine *el, size_t addlen)
    556 {
    557 	size_t sz, newsz;
    558 	Char *newbuffer, *oldbuf, *oldkbuf;
    559 
    560 	sz = el->el_line.limit - el->el_line.buffer + EL_LEAVE;
    561 	newsz = sz * 2;
    562 	/*
    563 	 * If newly required length is longer than current buffer, we need
    564 	 * to make the buffer big enough to hold both old and new stuff.
    565 	 */
    566 	if (addlen > sz) {
    567 		while(newsz - sz < addlen)
    568 			newsz *= 2;
    569 	}
    570 
    571 	/*
    572 	 * Reallocate line buffer.
    573 	 */
    574 	newbuffer = el_realloc(el->el_line.buffer, newsz * sizeof(*newbuffer));
    575 	if (!newbuffer)
    576 		return 0;
    577 
    578 	/* zero the newly added memory, leave old data in */
    579 	(void) memset(&newbuffer[sz], 0, (newsz - sz) * sizeof(*newbuffer));
    580 
    581 	oldbuf = el->el_line.buffer;
    582 
    583 	el->el_line.buffer = newbuffer;
    584 	el->el_line.cursor = newbuffer + (el->el_line.cursor - oldbuf);
    585 	el->el_line.lastchar = newbuffer + (el->el_line.lastchar - oldbuf);
    586 	/* don't set new size until all buffers are enlarged */
    587 	el->el_line.limit  = &newbuffer[sz - EL_LEAVE];
    588 
    589 	/*
    590 	 * Reallocate kill buffer.
    591 	 */
    592 	newbuffer = el_realloc(el->el_chared.c_kill.buf, newsz *
    593 	    sizeof(*newbuffer));
    594 	if (!newbuffer)
    595 		return 0;
    596 
    597 	/* zero the newly added memory, leave old data in */
    598 	(void) memset(&newbuffer[sz], 0, (newsz - sz) * sizeof(*newbuffer));
    599 
    600 	oldkbuf = el->el_chared.c_kill.buf;
    601 
    602 	el->el_chared.c_kill.buf = newbuffer;
    603 	el->el_chared.c_kill.last = newbuffer +
    604 					(el->el_chared.c_kill.last - oldkbuf);
    605 	el->el_chared.c_kill.mark = el->el_line.buffer +
    606 					(el->el_chared.c_kill.mark - oldbuf);
    607 
    608 	/*
    609 	 * Reallocate undo buffer.
    610 	 */
    611 	newbuffer = el_realloc(el->el_chared.c_undo.buf,
    612 	    newsz * sizeof(*newbuffer));
    613 	if (!newbuffer)
    614 		return 0;
    615 
    616 	/* zero the newly added memory, leave old data in */
    617 	(void) memset(&newbuffer[sz], 0, (newsz - sz) * sizeof(*newbuffer));
    618 	el->el_chared.c_undo.buf = newbuffer;
    619 
    620 	newbuffer = el_realloc(el->el_chared.c_redo.buf,
    621 	    newsz * sizeof(*newbuffer));
    622 	if (!newbuffer)
    623 		return 0;
    624 	el->el_chared.c_redo.pos = newbuffer +
    625 			(el->el_chared.c_redo.pos - el->el_chared.c_redo.buf);
    626 	el->el_chared.c_redo.lim = newbuffer +
    627 			(el->el_chared.c_redo.lim - el->el_chared.c_redo.buf);
    628 	el->el_chared.c_redo.buf = newbuffer;
    629 
    630 	if (!hist_enlargebuf(el, sz, newsz))
    631 		return 0;
    632 
    633 	/* Safe to set enlarged buffer size */
    634 	el->el_line.limit  = &el->el_line.buffer[newsz - EL_LEAVE];
    635 	if (el->el_chared.c_resizefun)
    636 		(*el->el_chared.c_resizefun)(el, el->el_chared.c_resizearg);
    637 	return 1;
    638 }
    639 
    640 /* ch_end():
    641  *	Free the data structures used by the editor
    642  */
    643 protected void
    644 ch_end(EditLine *el)
    645 {
    646 	el_free(el->el_line.buffer);
    647 	el->el_line.buffer = NULL;
    648 	el->el_line.limit = NULL;
    649 	el_free(el->el_chared.c_undo.buf);
    650 	el->el_chared.c_undo.buf = NULL;
    651 	el_free(el->el_chared.c_redo.buf);
    652 	el->el_chared.c_redo.buf = NULL;
    653 	el->el_chared.c_redo.pos = NULL;
    654 	el->el_chared.c_redo.lim = NULL;
    655 	el->el_chared.c_redo.cmd = ED_UNASSIGNED;
    656 	el_free(el->el_chared.c_kill.buf);
    657 	el->el_chared.c_kill.buf = NULL;
    658 	ch_reset(el, 1);
    659 	el_free(el->el_chared.c_macro.macro);
    660 	el->el_chared.c_macro.macro = NULL;
    661 }
    662 
    663 
    664 /* el_insertstr():
    665  *	Insert string at cursorI
    666  */
    667 public int
    668 FUN(el,insertstr)(EditLine *el, const Char *s)
    669 {
    670 	size_t len;
    671 
    672 	if ((len = Strlen(s)) == 0)
    673 		return -1;
    674 	if (el->el_line.lastchar + len >= el->el_line.limit) {
    675 		if (!ch_enlargebufs(el, len))
    676 			return -1;
    677 	}
    678 
    679 	c_insert(el, (int)len);
    680 	while (*s)
    681 		*el->el_line.cursor++ = *s++;
    682 	return 0;
    683 }
    684 
    685 
    686 /* el_deletestr():
    687  *	Delete num characters before the cursor
    688  */
    689 public void
    690 el_deletestr(EditLine *el, int n)
    691 {
    692 	if (n <= 0)
    693 		return;
    694 
    695 	if (el->el_line.cursor < &el->el_line.buffer[n])
    696 		return;
    697 
    698 	c_delbefore(el, n);		/* delete before dot */
    699 	el->el_line.cursor -= n;
    700 	if (el->el_line.cursor < el->el_line.buffer)
    701 		el->el_line.cursor = el->el_line.buffer;
    702 }
    703 
    704 /* c_gets():
    705  *	Get a string
    706  */
    707 protected int
    708 c_gets(EditLine *el, Char *buf, const Char *prompt)
    709 {
    710 	Char ch;
    711 	ssize_t len;
    712 	Char *cp = el->el_line.buffer;
    713 
    714 	if (prompt) {
    715 		len = Strlen(prompt);
    716 		(void)memcpy(cp, prompt, len * sizeof(*cp));
    717 		cp += len;
    718 	}
    719 	len = 0;
    720 
    721 	for (;;) {
    722 		el->el_line.cursor = cp;
    723 		*cp = ' ';
    724 		el->el_line.lastchar = cp + 1;
    725 		re_refresh(el);
    726 
    727 		if (FUN(el,getc)(el, &ch) != 1) {
    728 			ed_end_of_file(el, 0);
    729 			len = -1;
    730 			break;
    731 		}
    732 
    733 		switch (ch) {
    734 
    735 		case 0010:	/* Delete and backspace */
    736 		case 0177:
    737 			if (len == 0) {
    738 				len = -1;
    739 				break;
    740 			}
    741 			cp--;
    742 			continue;
    743 
    744 		case 0033:	/* ESC */
    745 		case '\r':	/* Newline */
    746 		case '\n':
    747 			buf[len] = ch;
    748 			break;
    749 
    750 		default:
    751 			if (len >= EL_BUFSIZ - 16)
    752 				terminal_beep(el);
    753 			else {
    754 				buf[len++] = ch;
    755 				*cp++ = ch;
    756 			}
    757 			continue;
    758 		}
    759 		break;
    760 	}
    761 
    762 	el->el_line.buffer[0] = '\0';
    763 	el->el_line.lastchar = el->el_line.buffer;
    764 	el->el_line.cursor = el->el_line.buffer;
    765 	return (int)len;
    766 }
    767 
    768 
    769 /* c_hpos():
    770  *	Return the current horizontal position of the cursor
    771  */
    772 protected int
    773 c_hpos(EditLine *el)
    774 {
    775 	Char *ptr;
    776 
    777 	/*
    778 	 * Find how many characters till the beginning of this line.
    779 	 */
    780 	if (el->el_line.cursor == el->el_line.buffer)
    781 		return 0;
    782 	else {
    783 		for (ptr = el->el_line.cursor - 1;
    784 		     ptr >= el->el_line.buffer && *ptr != '\n';
    785 		     ptr--)
    786 			continue;
    787 		return (int)(el->el_line.cursor - ptr - 1);
    788 	}
    789 }
    790 
    791 protected int
    792 ch_resizefun(EditLine *el, el_zfunc_t f, void *a)
    793 {
    794 	el->el_chared.c_resizefun = f;
    795 	el->el_chared.c_resizearg = a;
    796 	return 0;
    797 }
    798