lib/libedit/emacs.c

51 #include "el.h"
60 em_delete_or_list(EditLine *el, wint_t c)
63 	if (el->el_line.cursor == el->el_line.lastchar) {
65 		if (el->el_line.cursor == el->el_line.buffer) {
67 			terminal_writec(el, c);	/* then do an EOF */
74 			terminal_beep(el);
78 		if (el->el_state.doingarg)
79 			c_delafter(el, el->el_state.argument);
81 			c_delafter1(el);
82 		if (el->el_line.cursor > el->el_line.lastchar)
83 			el->el_line.cursor = el->el_line.lastchar;
96 em_delete_next_word(EditLine *el, wint_t c __attribute__((__unused__)))
100 	if (el->el_line.cursor == el->el_line.lastchar)
103 	cp = c__next_word(el->el_line.cursor, el->el_line.lastchar,
104 	    el->el_state.argument, ce__isword);
106 	for (p = el->el_line.cursor, kp = el->el_chared.c_kill.buf; p < cp; p++)
109 	el->el_chared.c_kill.last = kp;
111 	c_delafter(el, (int)(cp - el->el_line.cursor));	/* delete after dot */
112 	if (el->el_line.cursor > el->el_line.lastchar)
113 		el->el_line.cursor = el->el_line.lastchar;
125 em_yank(EditLine *el, wint_t c __attribute__((__unused__)))
129 	if (el->el_chared.c_kill.last == el->el_chared.c_kill.buf)
132 	if (el->el_line.lastchar +
133 	    (el->el_chared.c_kill.last - el->el_chared.c_kill.buf) >=
134 	    el->el_line.limit)
137 	el->el_chared.c_kill.mark = el->el_line.cursor;
138 	cp = el->el_line.cursor;
141 	c_insert(el,
142 	    (int)(el->el_chared.c_kill.last - el->el_chared.c_kill.buf));
144 	for (kp = el->el_chared.c_kill.buf; kp < el->el_chared.c_kill.last; kp++)
148 	if (el->el_state.argument == 1)
149 		el->el_line.cursor = cp;
161 em_kill_line(EditLine *el, wint_t c __attribute__((__unused__)))
165 	cp = el->el_line.buffer;
166 	kp = el->el_chared.c_kill.buf;
167 	while (cp < el->el_line.lastchar)
169 	el->el_chared.c_kill.last = kp;
171 	el->el_line.lastchar = el->el_line.buffer;
172 	el->el_line.cursor = el->el_line.buffer;
183 em_kill_region(EditLine *el, wint_t c __attribute__((__unused__)))
187 	if (!el->el_chared.c_kill.mark)
190 	if (el->el_chared.c_kill.mark > el->el_line.cursor) {
191 		cp = el->el_line.cursor;
192 		kp = el->el_chared.c_kill.buf;
193 		while (cp < el->el_chared.c_kill.mark)
195 		el->el_chared.c_kill.last = kp;
196 		c_delafter(el, (int)(cp - el->el_line.cursor));
198 		cp = el->el_chared.c_kill.mark;
199 		kp = el->el_chared.c_kill.buf;
200 		while (cp < el->el_line.cursor)
202 		el->el_chared.c_kill.last = kp;
203 		c_delbefore(el, (int)(cp - el->el_chared.c_kill.mark));
204 		el->el_line.cursor = el->el_chared.c_kill.mark;
216 em_copy_region(EditLine *el, wint_t c __attribute__((__unused__)))
220 	if (!el->el_chared.c_kill.mark)
223 	if (el->el_chared.c_kill.mark > el->el_line.cursor) {
224 		cp = el->el_line.cursor;
225 		kp = el->el_chared.c_kill.buf;
226 		while (cp < el->el_chared.c_kill.mark)
228 		el->el_chared.c_kill.last = kp;
230 		cp = el->el_chared.c_kill.mark;
231 		kp = el->el_chared.c_kill.buf;
232 		while (cp < el->el_line.cursor)
234 		el->el_chared.c_kill.last = kp;
245 em_gosmacs_transpose(EditLine *el, wint_t c)
248 	if (el->el_line.cursor > &el->el_line.buffer[1]) {
250 		c = el->el_line.cursor[-2];
251 		el->el_line.cursor[-2] = el->el_line.cursor[-1];
252 		el->el_line.cursor[-1] = (Char)c;
265 em_next_word(EditLine *el, wint_t c __attribute__((__unused__)))
267 	if (el->el_line.cursor == el->el_line.lastchar)
270 	el->el_line.cursor = c__next_word(el->el_line.cursor,
271 	    el->el_line.lastchar,
272 	    el->el_state.argument,
275 	if (el->el_map.type == MAP_VI)
276 		if (el->el_chared.c_vcmd.action != NOP) {
277 			cv_delfini(el);
290 em_upper_case(EditLine *el, wint_t c __attribute__((__unused__)))
294 	ep = c__next_word(el->el_line.cursor, el->el_line.lastchar,
295 	    el->el_state.argument, ce__isword);
297 	for (cp = el->el_line.cursor; cp < ep; cp++)
301 	el->el_line.cursor = ep;
302 	if (el->el_line.cursor > el->el_line.lastchar)
303 		el->el_line.cursor = el->el_line.lastchar;
314 em_capitol_case(EditLine *el, wint_t c __attribute__((__unused__)))
318 	ep = c__next_word(el->el_line.cursor, el->el_line.lastchar,
319 	    el->el_state.argument, ce__isword);
321 	for (cp = el->el_line.cursor; cp < ep; cp++) {
333 	el->el_line.cursor = ep;
334 	if (el->el_line.cursor > el->el_line.lastchar)
335 		el->el_line.cursor = el->el_line.lastchar;
346 em_lower_case(EditLine *el, wint_t c __attribute__((__unused__)))
350 	ep = c__next_word(el->el_line.cursor, el->el_line.lastchar,
351 	    el->el_state.argument, ce__isword);
353 	for (cp = el->el_line.cursor; cp < ep; cp++)
357 	el->el_line.cursor = ep;
358 	if (el->el_line.cursor > el->el_line.lastchar)
359 		el->el_line.cursor = el->el_line.lastchar;
370 em_set_mark(EditLine *el, wint_t c __attribute__((__unused__)))
373 	el->el_chared.c_kill.mark = el->el_line.cursor;
384 em_exchange_mark(EditLine *el, wint_t c __attribute__((__unused__)))
388 	cp = el->el_line.cursor;
389 	el->el_line.cursor = el->el_chared.c_kill.mark;
390 	el->el_chared.c_kill.mark = cp;
401 em_universal_argument(EditLine *el, wint_t c __attribute__((__unused__)))
404 	if (el->el_state.argument > 1000000)
406 	el->el_state.doingarg = 1;
407 	el->el_state.argument *= 4;
418 em_meta_next(EditLine *el, wint_t c __attribute__((__unused__)))
421 	el->el_state.metanext = 1;
431 em_toggle_overwrite(EditLine *el, wint_t c __attribute__((__unused__)))
434 	el->el_state.inputmode = (el->el_state.inputmode == MODE_INSERT) ?
445 em_copy_prev_word(EditLine *el, wint_t c __attribute__((__unused__)))
449 	if (el->el_line.cursor == el->el_line.buffer)
452 	oldc = el->el_line.cursor;
454 	cp = c__prev_word(el->el_line.cursor, el->el_line.buffer,
455 	    el->el_state.argument, ce__isword);
457 	c_insert(el, (int)(oldc - cp));
458 	for (dp = oldc; cp < oldc && dp < el->el_line.lastchar; cp++)
461 	el->el_line.cursor = dp;/* put cursor at end */
472 em_inc_search_next(EditLine *el, wint_t c __attribute__((__unused__)))
475 	el->el_search.patlen = 0;
476 	return ce_inc_search(el, ED_SEARCH_NEXT_HISTORY);
485 em_inc_search_prev(EditLine *el, wint_t c __attribute__((__unused__)))
488 	el->el_search.patlen = 0;
489 	return ce_inc_search(el, ED_SEARCH_PREV_HISTORY);
499 em_delete_prev_char(EditLine *el, wint_t c __attribute__((__unused__)))
502 	if (el->el_line.cursor <= el->el_line.buffer)
505 	if (el->el_state.doingarg)
506 		c_delbefore(el, el->el_state.argument);
508 		c_delbefore1(el);
509 	el->el_line.cursor -= el->el_state.argument;
510 	if (el->el_line.cursor < el->el_line.buffer)
511 		el->el_line.cursor = el->el_line.buffer;