lib/libedit/emacs.c

45 #include "el.h"
53 em_delete_or_list(EditLine *el, int c)
56 	if (el->el_line.cursor == el->el_line.lastchar) {
58 		if (el->el_line.cursor == el->el_line.buffer) {
60 			term_writec(el, c);	/* then do an EOF */
67 			term_beep(el);
71 		if (el->el_state.doingarg)
72 			c_delafter(el, el->el_state.argument);
74 			c_delafter1(el);
75 		if (el->el_line.cursor > el->el_line.lastchar)
76 			el->el_line.cursor = el->el_line.lastchar;
89 em_delete_next_word(EditLine *el, int c __unused)
93 	if (el->el_line.cursor == el->el_line.lastchar)
96 	cp = c__next_word(el->el_line.cursor, el->el_line.lastchar,
97 	    el->el_state.argument, ce__isword);
99 	for (p = el->el_line.cursor, kp = el->el_chared.c_kill.buf; p < cp; p++)
102 	el->el_chared.c_kill.last = kp;
104 	c_delafter(el, (int)(cp - el->el_line.cursor));	/* delete after dot */
105 	if (el->el_line.cursor > el->el_line.lastchar)
106 		el->el_line.cursor = el->el_line.lastchar;
118 em_yank(EditLine *el, int c __unused)
122 	if (el->el_chared.c_kill.last == el->el_chared.c_kill.buf)
125 	if (el->el_line.lastchar +
126 	    (el->el_chared.c_kill.last - el->el_chared.c_kill.buf) >=
127 	    el->el_line.limit)
130 	el->el_chared.c_kill.mark = el->el_line.cursor;
131 	cp = el->el_line.cursor;
134 	c_insert(el,
135 	    (int)(el->el_chared.c_kill.last - el->el_chared.c_kill.buf));
137 	for (kp = el->el_chared.c_kill.buf; kp < el->el_chared.c_kill.last; kp++)
141 	if (el->el_state.argument == 1)
142 		el->el_line.cursor = cp;
154 em_kill_line(EditLine *el, int c __unused)
158 	cp = el->el_line.buffer;
159 	kp = el->el_chared.c_kill.buf;
160 	while (cp < el->el_line.lastchar)
162 	el->el_chared.c_kill.last = kp;
164 	el->el_line.lastchar = el->el_line.buffer;
165 	el->el_line.cursor = el->el_line.buffer;
176 em_kill_region(EditLine *el, int c __unused)
180 	if (!el->el_chared.c_kill.mark)
183 	if (el->el_chared.c_kill.mark > el->el_line.cursor) {
184 		cp = el->el_line.cursor;
185 		kp = el->el_chared.c_kill.buf;
186 		while (cp < el->el_chared.c_kill.mark)
188 		el->el_chared.c_kill.last = kp;
189 		c_delafter(el, (int)(cp - el->el_line.cursor));
191 		cp = el->el_chared.c_kill.mark;
192 		kp = el->el_chared.c_kill.buf;
193 		while (cp < el->el_line.cursor)
195 		el->el_chared.c_kill.last = kp;
196 		c_delbefore(el, (int)(cp - el->el_chared.c_kill.mark));
197 		el->el_line.cursor = el->el_chared.c_kill.mark;
209 em_copy_region(EditLine *el, int c __unused)
213 	if (!el->el_chared.c_kill.mark)
216 	if (el->el_chared.c_kill.mark > el->el_line.cursor) {
217 		cp = el->el_line.cursor;
218 		kp = el->el_chared.c_kill.buf;
219 		while (cp < el->el_chared.c_kill.mark)
221 		el->el_chared.c_kill.last = kp;
223 		cp = el->el_chared.c_kill.mark;
224 		kp = el->el_chared.c_kill.buf;
225 		while (cp < el->el_line.cursor)
227 		el->el_chared.c_kill.last = kp;
238 em_gosmacs_transpose(EditLine *el, int c)
241 	if (el->el_line.cursor > &el->el_line.buffer[1]) {
243 		c = el->el_line.cursor[-2];
244 		el->el_line.cursor[-2] = el->el_line.cursor[-1];
245 		el->el_line.cursor[-1] = c;
258 em_next_word(EditLine *el, int c __unused)
260 	if (el->el_line.cursor == el->el_line.lastchar)
263 	el->el_line.cursor = c__next_word(el->el_line.cursor,
264 	    el->el_line.lastchar,
265 	    el->el_state.argument,
268 	if (el->el_map.type == MAP_VI)
269 		if (el->el_chared.c_vcmd.action != NOP) {
270 			cv_delfini(el);
283 em_upper_case(EditLine *el, int c __unused)
287 	ep = c__next_word(el->el_line.cursor, el->el_line.lastchar,
288 	    el->el_state.argument, ce__isword);
290 	for (cp = el->el_line.cursor; cp < ep; cp++)
294 	el->el_line.cursor = ep;
295 	if (el->el_line.cursor > el->el_line.lastchar)
296 		el->el_line.cursor = el->el_line.lastchar;
307 em_capitol_case(EditLine *el, int c __unused)
311 	ep = c__next_word(el->el_line.cursor, el->el_line.lastchar,
312 	    el->el_state.argument, ce__isword);
314 	for (cp = el->el_line.cursor; cp < ep; cp++) {
326 	el->el_line.cursor = ep;
327 	if (el->el_line.cursor > el->el_line.lastchar)
328 		el->el_line.cursor = el->el_line.lastchar;
339 em_lower_case(EditLine *el, int c __unused)
343 	ep = c__next_word(el->el_line.cursor, el->el_line.lastchar,
344 	    el->el_state.argument, ce__isword);
346 	for (cp = el->el_line.cursor; cp < ep; cp++)
350 	el->el_line.cursor = ep;
351 	if (el->el_line.cursor > el->el_line.lastchar)
352 		el->el_line.cursor = el->el_line.lastchar;
363 em_set_mark(EditLine *el, int c __unused)
366 	el->el_chared.c_kill.mark = el->el_line.cursor;
377 em_exchange_mark(EditLine *el, int c __unused)
381 	cp = el->el_line.cursor;
382 	el->el_line.cursor = el->el_chared.c_kill.mark;
383 	el->el_chared.c_kill.mark = cp;
394 em_universal_argument(EditLine *el, int c __unused)
397 	if (el->el_state.argument > 1000000)
399 	el->el_state.doingarg = 1;
400 	el->el_state.argument *= 4;
411 em_meta_next(EditLine *el, int c __unused)
414 	el->el_state.metanext = 1;
424 em_toggle_overwrite(EditLine *el, int c __unused)
427 	el->el_state.inputmode = (el->el_state.inputmode == MODE_INSERT) ?
438 em_copy_prev_word(EditLine *el, int c __unused)
442 	if (el->el_line.cursor == el->el_line.buffer)
445 	oldc = el->el_line.cursor;
447 	cp = c__prev_word(el->el_line.cursor, el->el_line.buffer,
448 	    el->el_state.argument, ce__isword);
450 	c_insert(el, (int)(oldc - cp));
451 	for (dp = oldc; cp < oldc && dp < el->el_line.lastchar; cp++)
454 	el->el_line.cursor = dp;/* put cursor at end */
465 em_inc_search_next(EditLine *el, int c __unused)
468 	el->el_search.patlen = 0;
469 	return (ce_inc_search(el, ED_SEARCH_NEXT_HISTORY));
478 em_inc_search_prev(EditLine *el, int c __unused)
481 	el->el_search.patlen = 0;
482 	return (ce_inc_search(el, ED_SEARCH_PREV_HISTORY));
492 em_delete_prev_char(EditLine *el, int c __unused)
495 	if (el->el_line.cursor <= el->el_line.buffer)
498 	if (el->el_state.doingarg)
499 		c_delbefore(el, el->el_state.argument);
501 		c_delbefore1(el);
502 	el->el_line.cursor -= el->el_state.argument;
503 	if (el->el_line.cursor < el->el_line.buffer)
504 		el->el_line.cursor = el->el_line.buffer;