static char *get_selection_string(t_unicode sel_text[], char *charset) { struct char_set_state paste_state; struct char_set *paste_charset; t_unicode *u = sel_text; char *s, *p; size_t sel_space = 0; while (sel_text[sel_space]) sel_space++; paste_charset = lookup_charset(charset); sel_space *= MB_LEN_MAX; p = s = malloc(sel_space); init_charset_state(&paste_state, paste_charset); while (*u) { size_t result = unicode_to_charset(&paste_state, *u++, (unsigned char *)p, sel_space); if (result == -1) { warn("save_selection unfinished2\n"); break; } p += result; sel_space -= result; } *p = '\0'; cleanup_charset_state(&paste_state); return s; }
static void init_upperlowerDOS_table(void) { struct char_set_state dos_state; t_unicode symbol, symbolc; int i, result; for (i = 0; i < 128; i++) { /* force English ASCII handling for 0 -- 127 to avoid problems with the Turkish dotless i */ upperDOS_table[i] = lowerDOS_table[i] = i; if (i >= 'a' && i <= 'z') upperDOS_table[i] = i - ('a' - 'A'); else if (i >= 'A' && i <= 'Z') lowerDOS_table[i] = i + ('a' - 'A'); } for (i = 128; i < 256; i++) { upperDOS_table[i] = lowerDOS_table[i] = i; init_charset_state(&dos_state, trconfig.dos_charset); result = charset_to_unicode(&dos_state, &symbol, &upperDOS_table[i], 1); cleanup_charset_state(&dos_state); if (result == 1) { symbolc = towupper(symbol); init_charset_state(&dos_state, trconfig.dos_charset); result = unicode_to_charset(&dos_state, symbolc, &upperDOS_table[i], 1); cleanup_charset_state(&dos_state); if (result != 1) upperDOS_table[i] = i; symbolc = towlower(symbol); init_charset_state(&dos_state, trconfig.dos_charset); result = unicode_to_charset(&dos_state, symbolc, &lowerDOS_table[i], 1); cleanup_charset_state(&dos_state); if (result != 1) lowerDOS_table[i] = i; } } }
static void init_unicode_to_dos_table(void) { struct char_set_state dos_state; unsigned char *dest; t_unicode symbol; int result; dest = unicode_to_dos_table; /* these are either invalid or ascii: no replacement '_' ! */ for (symbol = 0; symbol <= 0x7f; symbol++) *dest++ = symbol; for (symbol = 0x80; symbol <= 0xffff; symbol++) { init_charset_state(&dos_state, trconfig.dos_charset); result = unicode_to_charset(&dos_state, symbol, dest, 1); if (result == -1 && errno == -E2BIG) error("BUG: Internal multibyte character sets can't happen\n"); if (result != 1 || *dest == '?') *dest = '_'; cleanup_charset_state(&dos_state); dest++; } }
static void tty_emulate(ShellState *s, int c) { int i, offset, offset1, offset2, n; char buf1[10]; #define ESC2(c1,c2) (((c1)<<8)|((unsigned char)c2)) /* some bytes are state independent */ switch (c) { case 0x18: case 0x1A: s->state = TTY_STATE_NORM; return; case 0x1B: s->state = TTY_STATE_ESC; return; #if 0 case 0x9B: goto csi_entry; #endif } switch (s->state) { case TTY_STATE_NORM: switch (c) { /* BEL Bell (Ctrl-G) */ /* FF Form Feed or New Page (NP) (Ctrl-L) same as LF */ /* TAB Horizontal Tab (HT) (Ctrl-I) */ /* VT Vertical Tab (Ctrl-K) same as LF */ case 8: /* ^H BS = backspace */ { int c1; c1 = eb_prevc(s->b, s->cur_offset, &offset); if (c1 != '\n') s->cur_offset = offset; } break; case 10: /* ^J NL = line feed */ /* go to next line */ /* CG: should check if column should be kept */ offset = s->cur_offset; for (;;) { if (offset == s->b->total_size) { /* add a new line */ buf1[0] = '\n'; eb_insert(s->b, offset, buf1, 1); offset = s->b->total_size; break; } c = eb_nextc(s->b, offset, &offset); if (c == '\n') break; } s->cur_offset = offset; break; case 13: /* ^M CR = carriage return */ /* move to bol */ for (;;) { c = eb_prevc(s->b, s->cur_offset, &offset1); if (c == '\n') break; s->cur_offset = offset1; } break; case 14: /* ^N SO = shift out */ s->shifted = 1; break; case 15: /* ^O SI = shift in */ s->shifted = 0; break; default: if (c >= 32 || c == 9) { int c1, cur_len, len; /* CG: assuming ISO-8859-1 characters */ /* CG: horrible kludge for alternate charset support */ if (s->shifted && c >= 96 && c < 128) c += 32; /* write char (should factorize with do_char() code */ len = unicode_to_charset(buf1, c, s->b->charset); c1 = eb_nextc(s->b, s->cur_offset, &offset); /* XXX: handle tab case */ if (c1 == '\n') { /* insert */ eb_insert(s->b, s->cur_offset, buf1, len); } else { cur_len = offset - s->cur_offset; if (cur_len == len) { eb_write(s->b, s->cur_offset, buf1, len); } else { eb_delete(s->b, s->cur_offset, cur_len); eb_insert(s->b, s->cur_offset, buf1, len); } } s->cur_offset += len; } break; } break; case TTY_STATE_ESC: if (c == '[') { for (i = 0; i < MAX_ESC_PARAMS; i++) { s->esc_params[i] = 0; s->has_params[i] = 0; } s->nb_esc_params = 0; s->esc1 = 0; s->state = TTY_STATE_CSI; } else { /* CG: should deal with other sequences: * ansi: hts=\EH, s0ds=\E(B, s1ds=\E)B, s2ds=\E*B, s3ds=\E+B, * linux: hts=\EH, rc=\E8, ri=\EM, rs1=\Ec\E]R, sc=\E7, * vt100: enacs=\E(B\E)0, hts=\EH, rc=\E8, ri=\EM$<5>, * rmkx=\E[?1l\E>, * rs2=\E>\E[?3l\E[?4l\E[?5l\E[?7h\E[?8h, sc=\E7, * smkx=\E[?1h\E=, * xterm: enacs=\E(B\E)0, hts=\EH, is2=\E[!p\E[?3;4l\E[4l\E>, * rc=\E8, ri=\EM, rmkx=\E[?1l\E>, rs1=\Ec, * rs2=\E[!p\E[?3;4l\E[4l\E>, sc=\E7, smkx=\E[?1h\E=, */ switch (c) { case '(': case ')': case '*': case '+': case ']': s->esc1 = c; s->state = TTY_STATE_ESC2; break; case 'H': // hts case '7': // sc case '8': // rc case 'M': // ri case 'c': // rs1 case '>': // rmkx, is2, rs2 case '=': // smkx // XXX: do these default: s->state = TTY_STATE_NORM; break; } } break; case TTY_STATE_ESC2: s->state = TTY_STATE_NORM; switch (ESC2(s->esc1, c)) { case ESC2('(','B'): case ESC2(')','B'): case ESC2('(','0'): case ESC2(')','0'): case ESC2('*','B'): case ESC2('+','B'): case ESC2(']','R'): /* XXX: ??? */ break; } break; case TTY_STATE_CSI: if (c == '?') { s->esc1 = c; break; } if (c >= '0' && c <= '9') { if (s->nb_esc_params < MAX_ESC_PARAMS) { s->esc_params[s->nb_esc_params] = s->esc_params[s->nb_esc_params] * 10 + c - '0'; s->has_params[s->nb_esc_params] = 1; } } else { s->nb_esc_params++; if (c == ';') break; s->state = TTY_STATE_NORM; switch (ESC2(s->esc1,c)) { case ESC2('?','h'): /* set terminal mode */ /* 1047, 1048 -> cup mode: * xterm 1049 private mode, * should grab all keys while active! */ if (s->esc_params[0] == 1047 || s->esc_params[0] == 1048 || s->esc_params[0] == 1049) { s->grab_keys = 1; qe_grab_keys(shell_key, s); /* Should also clear screen */ } break; case ESC2('?','l'): /* reset terminal mode */ if (s->esc_params[0] == 1047 || s->esc_params[0] == 1048 || s->esc_params[0] == 1049) { qe_ungrab_keys(); s->grab_keys = 0; } break; case 'A': /* move relative up */ tty_gotoxy(s, 0, -(s->esc_params[0] + 1 - s->has_params[0]), 1); break; case 'B': /* move relative down */ tty_gotoxy(s, 0, (s->esc_params[0] + 1 - s->has_params[0]), 1); break; case 'C': /* move relative forward */ tty_gotoxy(s, (s->esc_params[0] + 1 - s->has_params[0]), 0, 1); break; case 'D': /* move relative backward */ tty_gotoxy(s, -(s->esc_params[0] + 1 - s->has_params[0]), 0, 1); break; case 'H': /* goto xy */ tty_gotoxy(s, s->esc_params[1] - s->has_params[1], s->esc_params[0] - s->has_params[0], 0); break; case 'J': /* clear to end of screen */ case 'L': /* insert lines */ case 'M': /* delete lines */ case 'S': /* scroll forward P lines */ case 'T': /* scroll back P lines */ case 'X': /* erase P characters */ break; case 'K': /* clear eol (parm=1 -> bol) */ offset1 = s->cur_offset; for (;;) { c = eb_nextc(s->b, offset1, &offset2); if (c == '\n') break; offset1 = offset2; } eb_delete(s->b, s->cur_offset, offset1 - s->cur_offset); break; case 'P': /* delete chars */ n = s->esc_params[0]; if (n <= 0) n = 1; offset1 = s->cur_offset; for (; n > 0; n--) { c = eb_nextc(s->b, offset1, &offset2); if (c == '\n') break; offset1 = offset2; } eb_delete(s->b, s->cur_offset, offset1 - s->cur_offset); break; case '@': /* insert chars */ n = s->esc_params[0]; if (n <= 0) n = 1; buf1[0] = ' '; for (; n > 0; n--) { eb_insert(s->b, s->cur_offset, buf1, 1); } break; case 'm': /* colors */ n = s->nb_esc_params; if (n == 0) n = 1; for (i = 0; i < n; i++) tty_csi_m(s, s->esc_params[i]); break; case 'n': if (s->esc_params[0] == 6) { /* XXX: send cursor position, just to be able to launch qemacs in qemacs (in 8859-1) ! */ char buf2[20]; snprintf(buf2, sizeof(buf2), "\033[%d;%dR", 1, 1); tty_write(s, buf2, -1); } break; default: break; } } break; } #undef ESC2 tty_update_cursor(s); }
void hex_write_char(EditState *s, int key) { unsigned int cur_ch, ch; int hsize, shift, cur_len, len, h; char buf[10]; if (s->hex_mode) { if (s->unihex_mode) hsize = 4; else hsize = 2; h = to_hex(key); if (h < 0) return; if (s->insert && s->hex_nibble == 0) { ch = h << ((hsize - 1) * 4); if (s->unihex_mode) { len = unicode_to_charset(buf, ch, s->b->charset); } else { len = 1; buf[0] = ch; } eb_insert(s->b, s->offset, buf, len); } else { if (s->unihex_mode) { cur_ch = eb_nextc(s->b, s->offset, &cur_len); cur_len -= s->offset; } else { eb_read(s->b, s->offset, buf, 1); cur_ch = buf[0]; cur_len = 1; } shift = (hsize - s->hex_nibble - 1) * 4; ch = (cur_ch & ~(0xf << shift)) | (h << shift); if (s->unihex_mode) { len = unicode_to_charset(buf, ch, s->b->charset); } else { len = 1; buf[0] = ch; } #if 1 eb_replace(s->b, s->offset, cur_len, buf, len); #else if (cur_len == len) { eb_write(s->b, s->offset, buf, len); } else { eb_delete(s->b, s->offset, cur_len); eb_insert(s->b, s->offset, buf, len); } #endif } if (++s->hex_nibble == hsize) { s->hex_nibble = 0; if (s->offset < s->b->total_size) s->offset += len; } } else { text_write_char(s, key); } }
static void tty_emulate(ShellState *s, int c) { int i, offset, offset1, offset2, n; unsigned char buf1[10]; switch(s->state) { case TTY_STATE_NORM: switch(c) { case 8: { int c1; c1 = eb_prevc(s->b, s->cur_offset, &offset); if (c1 != '\n') s->cur_offset = offset; } break; case 10: /* go to next line */ offset = s->cur_offset; for(;;) { if (offset == s->b->total_size) { /* add a new line */ buf1[0] = '\n'; eb_insert(s->b, offset, buf1, 1); offset = s->b->total_size; break; } c = eb_nextc(s->b, offset, &offset); if (c == '\n') break; } s->cur_offset = offset; break; case 13: /* move to bol */ for(;;) { c = eb_prevc(s->b, s->cur_offset, &offset1); if (c == '\n') break; s->cur_offset = offset1; } break; case 27: s->state = TTY_STATE_ESC; break; default: if (c >= 32 || c == 9) { int c1, cur_len, len; /* write char (should factorize with do_char() code */ len = unicode_to_charset(buf1, c, s->b->charset); c1 = eb_nextc(s->b, s->cur_offset, &offset); /* XXX: handle tab case */ if (c1 == '\n') { /* insert */ eb_insert(s->b, s->cur_offset, buf1, len); } else { cur_len = offset - s->cur_offset; if (cur_len == len) { eb_write(s->b, s->cur_offset, buf1, len); } else { eb_delete(s->b, s->cur_offset, cur_len); eb_insert(s->b, s->cur_offset, buf1, len); } } s->cur_offset += len; } break; } break; case TTY_STATE_ESC: if (c == '[') { for(i=0;i<MAX_ESC_PARAMS;i++) s->esc_params[i] = 0; s->nb_esc_params = 0; s->state = TTY_STATE_CSI; } else { s->state = TTY_STATE_NORM; } break; case TTY_STATE_CSI: if (c >= '0' && c <= '9') { if (s->nb_esc_params < MAX_ESC_PARAMS) { s->esc_params[s->nb_esc_params] = s->esc_params[s->nb_esc_params] * 10 + c - '0'; } } else { s->nb_esc_params++; if (c == ';') break; s->state = TTY_STATE_NORM; switch(c) { case 'H': /* goto xy */ { int x, y; y = s->esc_params[0] - 1; x = s->esc_params[1] - 1; if (y < 0) y = 0; else if (y >= TTY_YSIZE) y = TTY_YSIZE - 1; if (x < 0) x = 0; tty_gotoxy(s, x, y); } break; case 'K': /* clear to eol */ offset1 = s->cur_offset; for(;;) { c = eb_nextc(s->b, offset1, &offset2); if (c == '\n') break; offset1 = offset2; } eb_delete(s->b, s->cur_offset, offset1 - s->cur_offset); break; case 'P': /* delete chars */ n = s->esc_params[0]; if (n <= 0) n = 1; offset1 = s->cur_offset; for(;n > 0;n--) { c = eb_nextc(s->b, offset1, &offset2); if (c == '\n') break; offset1 = offset2; } eb_delete(s->b, s->cur_offset, offset1 - s->cur_offset); break; case '@': /* insert chars */ n = s->esc_params[0]; if (n <= 0) n = 1; buf1[0] = ' '; for(;n > 0;n--) { eb_insert(s->b, s->cur_offset, buf1, 1); } break; case 'm': /* colors */ n = s->nb_esc_params; if (n == 0) n = 1; for(i=0;i<n;i++) tty_csi_m(s, s->esc_params[i]); break; case 'n': if (s->esc_params[0] == 6) { /* XXX: send cursor position, just to be able to launch qemacs in qemacs ! */ char buf2[20]; snprintf(buf2, sizeof(buf2), "\033[%d;%dR", 1, 1); tty_write(s, buf2, -1); } break; default: break; } } break; } tty_update_cursor(s); }