static el_status_t copy_region(void)
{
if (rl_mark > rl_end)
return el_ring_bell();
if (rl_point > rl_mark)
save_yank(rl_mark, rl_point - rl_mark);
else
save_yank(rl_point, rl_mark - rl_point);
return CSstay;
}
static el_status_t delete_string(int count)
{
int i;
char *p;
if (count <= 0 || rl_end == rl_point)
return el_ring_bell();
if (count == 1 && rl_point == rl_end - 1) {
/* Optimize common case of delete at end of line. */
rl_end--;
p = &rl_line_buffer[rl_point];
i = 1;
tty_put(' ');
if (ISCTL(*p)) {
i = 2;
tty_put(' ');
} else if (rl_meta_chars && ISMETA(*p)) {
i = 3;
tty_put(' ');
tty_put(' ');
}
tty_backn(i);
*p = '\0';
return CSmove;
}
if (rl_point + count > rl_end && (count = rl_end - rl_point) <= 0)
return CSstay;
if (count > 1)
save_yank(rl_point, count);
for (p = &rl_line_buffer[rl_point], i = rl_end - (rl_point + count) + 1; --i >= 0; p++)
p[0] = p[count];
ceol();
rl_end -= count;
tty_string(&rl_line_buffer[rl_point]);
return CSmove;
}
static el_status_t kill_line(void)
{
int i;
if (Repeat != NO_ARG) {
if (Repeat < rl_point) {
i = rl_point;
rl_point = Repeat;
reposition();
delete_string(i - rl_point);
} else if (Repeat > rl_point) {
right(CSmove);
delete_string(Repeat - rl_point - 1);
}
return CSmove;
}
save_yank(rl_point, rl_end - rl_point);
rl_line_buffer[rl_point] = '\0';
ceol();
rl_end = rl_point;
return CSstay;
}
static void process_input(brl_t *brl)
{
unsigned char c;
int mapped, type, in, n, diff;
char out, *line, *hentry;
while((n = read(brl->fd, &c, sizeof(c))) > 0) {
if (brl->esc) {
if (brl->seq_len < (int)sizeof(brl->seq))
brl->seq[brl->seq_len++] = c;
if (brl->seq_len == 2) {
if (c != '[') {
mapped = map_esc_sequence(brl);
brl->esc = FALSE;
}
else
continue;
}
else {
if (0x40 <= c && c <= 0x7e) {
mapped = map_ctrl_sequence(brl);
brl->esc = FALSE;
}
else {
if (brl->seq_len == (int)sizeof(brl->seq)) {
mapped = BRL_TYPE_INVALID;
brl->esc = FALSE;
}
else
continue;
}
}
}
else
mapped = map_input(brl, c);
type = BRL_INPUT_TYPE(mapped);
in = BRL_INPUT_DATA(mapped);
switch (type) {
case BRL_TYPE_SELF:
out = (char)(in & 0xff);
insert_input(brl, &out, 1);
redraw_prompt(brl);
break;
case BRL_TYPE_COMMAND:
switch (in) {
case BRL_CMD_PREV_LINE:
if (brl->h.srch == 0)
save_input(brl);
hentry = ringbuf_search(&brl->h, -1, 0, (char *)brl->saved);
debug(brl, "s:%d,'%s'", brl->h.srch,
brl->saved ? brl->saved : "-");
if (hentry != NULL) {
reset_input(brl);
insert_input(brl, hentry, strlen(hentry));
redraw_prompt(brl);
}
else
bell(brl);
break;
case BRL_CMD_NEXT_LINE:
hentry = ringbuf_search(&brl->h, +1, 0, (char *)brl->saved);
debug(brl, "s:%d,'%s'", brl->h.srch,
brl->saved ? brl->saved : "-");
if (hentry != NULL) {
if (hentry == brl->saved)
restore_input(brl);
else {
reset_input(brl);
insert_input(brl, hentry, strlen(hentry));
}
redraw_prompt(brl);
}
else
bell(brl);
break;
case BRL_CMD_BACKWARD:
move_cursor(brl, -1);
redraw_prompt(brl);
break;
case BRL_CMD_FORWARD:
move_cursor(brl, +1);
redraw_prompt(brl);
break;
case BRL_CMD_LINE_START:
move_cursor(brl, -brl->offs);
redraw_prompt(brl);
break;
case BRL_CMD_LINE_END:
move_cursor(brl, brl->data - brl->offs);
redraw_prompt(brl);
break;
case BRL_CMD_ERASE_BEFORE:
erase_input(brl, -1);
if (brl->offs < brl->data)
move_cursor(brl, -1);
redraw_prompt(brl);
break;
case BRL_CMD_ERASE_AT:
erase_input(brl, 1);
redraw_prompt(brl);
break;
case BRL_CMD_ERASE_REST:
save_yank(brl, brl->offs, brl->data);
erase_input(brl, brl->data - brl->offs);
redraw_prompt(brl);
break;
case BRL_CMD_ERASE_ALL:
save_yank(brl, 0, brl->data);
reset_input(brl);
redraw_prompt(brl);
break;
case BRL_CMD_YANK:
insert_input(brl, (char *)brl->yank, brl->yank_data);
redraw_prompt(brl);
break;
case BRL_CMD_PREV_WORD:
diff = input_delimiter(brl, -1);
move_cursor(brl, diff);
redraw_prompt(brl);
break;
case BRL_CMD_NEXT_WORD:
diff = input_delimiter(brl, +1);
move_cursor(brl, diff);
redraw_prompt(brl);
break;
case BRL_CMD_REDRAW:
redraw_prompt(brl);
break;
case BRL_CMD_ENTER:
dprintf(brl->fd, "\n\r");
if (brl->line_cb != NULL) {
line = alloca(brl->data + 1);
strncpy(line, (char *)brl->buf, brl->data);
line[brl->data] = '\0';
reset_input(brl);
restore_rawmode(brl);
brl->line_cb(brl, line, brl->user_data);
enable_rawmode(brl);
ringbuf_reset_search(&brl->h);
debug(brl, "");
redraw_prompt(brl);
}
else
return;
break;
default:
#if 0
printf("editing command 0x%x\n\r", in);
#endif
bell(brl);
}
break;
case BRL_TYPE_CSEQ:
brl->esc = TRUE;
brl->seq[0] = c;
brl->seq_len = 1;
break;
case BRL_TYPE_INVALID:
default:
bell(brl);
break;
}
}
}
