X-Git-Url: http://git.madism.org/?p=apps%2Fmadtty.git;a=blobdiff_plain;f=madtty%2Fmadtty.c;h=317712c147756556deca45b2eb9abe76151c8536;hp=7b85f2766c49128857301495402c087d25d206fd;hb=c50afdbb8673cc2becc273935b05833c0b06daf2;hpb=800cf6341f10d4c927c5ee77a5351b684a431ac1 diff --git a/madtty/madtty.c b/madtty/madtty.c index 7b85f27..317712c 100644 --- a/madtty/madtty.c +++ b/madtty/madtty.c @@ -24,20 +24,31 @@ #include #include #include -#include -#include +#include #include #include #include #include +#include #include +#include #include - +#ifdef __linux__ +# include +#elif defined(__FreeBSD__) +# include +#elif defined(__OpenBSD__) || defined(__NetBSD__) +# include +#endif #include "madtty.h" +#ifndef NCURSES_ATTR_SHIFT +# define NCURSES_ATTR_SHIFT 8 +#endif + #define IS_CONTROL(ch) !((ch) & 0xffffff60UL) -static int has_default = 0; +static int has_default, is_utf8; enum { C0_NUL = 0x00, @@ -67,11 +78,41 @@ enum { CSI_78 , CSI_79 , CSI_7A , CSI_7B , CSI_7C , CSI_7D , CSI_7E , CSI_7F }; -struct mtty_row_t { +struct madtty_t { + int pty; + pid_t childpid; + + /* flags */ + unsigned seen_input : 1; + unsigned insert : 1; + unsigned escaped : 1; + unsigned graphmode : 1; + unsigned curshid : 1; + + /* geometry */ + int rows, cols; + unsigned curattrs; + + struct t_row_t *lines; + struct t_row_t *scroll_top; + struct t_row_t *scroll_bot; + + /* cursor */ + struct t_row_t *curs_row; + int curs_col, curs_srow, curs_scol; + + /* buffers and parsing state */ + mbstate_t ps; + char rbuf[BUFSIZ]; + char ebuf[BUFSIZ]; + int rlen, elen; +}; + +typedef struct t_row_t { wchar_t *text; uint16_t *attr; unsigned dirty : 1; -}; +} t_row_t; static char const * const keytable[KEY_MAX+1] = { ['\n'] = "\r", @@ -87,19 +128,29 @@ static char const * const keytable[KEY_MAX+1] = { [KEY_PPAGE] = "\e[5~", [KEY_NPAGE] = "\e[6~", [KEY_SUSPEND] = "\x1A", /* Ctrl+Z gets mapped to this */ - [KEY_F(1)] = "\e[[A", - [KEY_F(2)] = "\e[[B", - [KEY_F(3)] = "\e[[C", - [KEY_F(4)] = "\e[[D", - [KEY_F(5)] = "\e[[E", + [KEY_F(1)] = "\e[11~", + [KEY_F(2)] = "\e[12~", + [KEY_F(3)] = "\e[13~", + [KEY_F(4)] = "\e[14~", + [KEY_F(5)] = "\e[15~", [KEY_F(6)] = "\e[17~", [KEY_F(7)] = "\e[18~", [KEY_F(8)] = "\e[19~", [KEY_F(9)] = "\e[20~", [KEY_F(10)] = "\e[21~", + [KEY_F(11)] = "\e[23~", + [KEY_F(12)] = "\e[24~", + [KEY_F(13)] = "\e[25~", + [KEY_F(14)] = "\e[26~", + [KEY_F(15)] = "\e[28~", + [KEY_F(16)] = "\e[29~", + [KEY_F(17)] = "\e[31~", + [KEY_F(18)] = "\e[32~", + [KEY_F(19)] = "\e[33~", + [KEY_F(20)] = "\e[34~", }; -static void mtty_row_set(mtty_row_t *row, int start, int len, uint16_t attr) +static void t_row_set(t_row_t *row, int start, int len, uint16_t attr) { row->dirty = true; wmemset(row->text + start, 0, len); @@ -108,7 +159,7 @@ static void mtty_row_set(mtty_row_t *row, int start, int len, uint16_t attr) } } -static void mtty_row_roll(mtty_row_t *start, mtty_row_t *end, int count) +static void t_row_roll(t_row_t *start, t_row_t *end, int count) { int n = end - start; @@ -117,43 +168,43 @@ static void mtty_row_roll(mtty_row_t *start, mtty_row_t *end, int count) count += n; if (count) { - mtty_row_t *buf = alloca(count * sizeof(mtty_row_t)); + t_row_t *buf = alloca(count * sizeof(t_row_t)); - memcpy(buf, start, count * sizeof(mtty_row_t)); - memmove(start, start + count, (n - count) * sizeof(mtty_row_t)); - memcpy(end - count, buf, count * sizeof(mtty_row_t)); - for (mtty_row_t *row = start; row < end; row++) { + memcpy(buf, start, count * sizeof(t_row_t)); + memmove(start, start + count, (n - count) * sizeof(t_row_t)); + memcpy(end - count, buf, count * sizeof(t_row_t)); + for (t_row_t *row = start; row < end; row++) { row->dirty = true; } } } -static void clamp_cursor_to_bounds(madtty_t *rt) +static void clamp_cursor_to_bounds(madtty_t *t) { - if (rt->curs_row < rt->lines) { - rt->curs_row = rt->lines; + if (t->curs_row < t->lines) { + t->curs_row = t->lines; } - if (rt->curs_row >= rt->lines + rt->rows) { - rt->curs_row = rt->lines + rt->rows - 1; + if (t->curs_row >= t->lines + t->rows) { + t->curs_row = t->lines + t->rows - 1; } - if (rt->curs_col < 0) { - rt->curs_col = 0; + if (t->curs_col < 0) { + t->curs_col = 0; } - if (rt->curs_col >= rt->cols) { - rt->curs_col = rt->cols - 1; + if (t->curs_col >= t->cols) { + t->curs_col = t->cols - 1; } } -static void cursor_line_down(madtty_t *rt) +static void cursor_line_down(madtty_t *t) { - rt->curs_row++; - if (rt->curs_row < rt->scroll_bot) + t->curs_row++; + if (t->curs_row < t->scroll_bot) return; - rt->curs_row = rt->scroll_bot - 1; - mtty_row_roll(rt->scroll_top, rt->scroll_bot, 1); - mtty_row_set(rt->curs_row, 0, rt->cols, 0); + t->curs_row = t->scroll_bot - 1; + t_row_roll(t->scroll_top, t->scroll_bot, 1); + t_row_set(t->curs_row, 0, t->cols, 0); } __attribute__((const)) @@ -163,18 +214,18 @@ static uint16_t build_attrs(unsigned curattrs) >> NCURSES_ATTR_SHIFT; } -static void new_escape_sequence(madtty_t *rt) +static void new_escape_sequence(madtty_t *t) { - rt->escaped = true; - rt->elen = 0; - rt->ebuf[0] = '\0'; + t->escaped = true; + t->elen = 0; + t->ebuf[0] = '\0'; } -static void cancel_escape_sequence(madtty_t *rt) +static void cancel_escape_sequence(madtty_t *t) { - rt->escaped = false; - rt->elen = 0; - rt->ebuf[0] = '\0'; + t->escaped = false; + t->elen = 0; + t->ebuf[0] = '\0'; } static bool is_valid_csi_ender(int c) @@ -185,58 +236,58 @@ static bool is_valid_csi_ender(int c) } /* interprets a 'set attribute' (SGR) CSI escape sequence */ -static void interpret_csi_SGR(madtty_t *rt, int param[], int pcount) +static void interpret_csi_SGR(madtty_t *t, int param[], int pcount) { int i; if (pcount == 0) { /* special case: reset attributes */ - rt->curattrs = A_NORMAL; + t->curattrs = A_NORMAL; return; } for (i = 0; i < pcount; i++) { switch (param[i]) { #define CASE(x, op) case x: op; break - CASE(0, rt->curattrs = A_NORMAL); - CASE(1, rt->curattrs |= A_BOLD); - CASE(4, rt->curattrs |= A_UNDERLINE); - CASE(5, rt->curattrs |= A_BLINK); - CASE(6, rt->curattrs |= A_BLINK); - CASE(7, rt->curattrs |= A_REVERSE); - CASE(8, rt->curattrs |= A_INVIS); - CASE(22, rt->curattrs &= ~A_BOLD); - CASE(24, rt->curattrs &= ~A_UNDERLINE); - CASE(25, rt->curattrs &= ~A_BLINK); - CASE(27, rt->curattrs &= ~A_REVERSE); - CASE(28, rt->curattrs &= ~A_INVIS); + CASE(0, t->curattrs = A_NORMAL); + CASE(1, t->curattrs |= A_BOLD); + CASE(4, t->curattrs |= A_UNDERLINE); + CASE(5, t->curattrs |= A_BLINK); + CASE(6, t->curattrs |= A_BLINK); + CASE(7, t->curattrs |= A_REVERSE); + CASE(8, t->curattrs |= A_INVIS); + CASE(22, t->curattrs &= ~A_BOLD); + CASE(24, t->curattrs &= ~A_UNDERLINE); + CASE(25, t->curattrs &= ~A_BLINK); + CASE(27, t->curattrs &= ~A_REVERSE); + CASE(28, t->curattrs &= ~A_INVIS); case 30 ... 37: /* fg */ if (has_default) { - rt->curattrs &= ~0xf0; - rt->curattrs |= (param[i] + 1 - 30) << 4; + t->curattrs &= ~0xf0; + t->curattrs |= (param[i] + 1 - 30) << 4; } else { - rt->curattrs &= ~070; - rt->curattrs |= (7 - (param[i] - 30)) << 3; + t->curattrs &= ~070; + t->curattrs |= (7 - (param[i] - 30)) << 3; } break; case 39: - rt->curattrs &= has_default ? ~0xf0 : ~070; + t->curattrs &= has_default ? ~0xf0 : ~070; break; case 40 ... 47: /* bg */ if (has_default) { - rt->curattrs &= ~0x0f; - rt->curattrs |= (param[i] + 1 - 40); + t->curattrs &= ~0x0f; + t->curattrs |= (param[i] + 1 - 40); } else { - rt->curattrs &= ~007; - rt->curattrs |= (param[i] - 40); + t->curattrs &= ~007; + t->curattrs |= (param[i] - 40); } break; case 49: - rt->curattrs &= has_default ? ~0x0f : ~007; + t->curattrs &= has_default ? ~0x0f : ~007; break; default: @@ -246,189 +297,190 @@ static void interpret_csi_SGR(madtty_t *rt, int param[], int pcount) } /* interprets an 'erase display' (ED) escape sequence */ -static void interpret_csi_ED(madtty_t *rt, int param[], int pcount) +static void interpret_csi_ED(madtty_t *t, int param[], int pcount) { - mtty_row_t *row, *start, *end; - attr_t attr = build_attrs(rt->curattrs); + t_row_t *row, *start, *end; + attr_t attr = build_attrs(t->curattrs); /* decide range */ if (pcount && param[0] == 2) { - start = rt->lines; - end = rt->lines + rt->rows; + start = t->lines; + end = t->lines + t->rows; } else if (pcount && param[0] == 1) { - start = rt->lines; - end = rt->curs_row; - mtty_row_set(rt->curs_row, 0, rt->curs_col + 1, attr); + start = t->lines; + end = t->curs_row; + t_row_set(t->curs_row, 0, t->curs_col + 1, attr); } else { - mtty_row_set(rt->curs_row, rt->curs_col, - rt->cols - rt->curs_col, attr); - start = rt->curs_row + 1; - end = rt->lines + rt->rows; + t_row_set(t->curs_row, t->curs_col, + t->cols - t->curs_col, attr); + start = t->curs_row + 1; + end = t->lines + t->rows; } for (row = start; row < end; row++) { - mtty_row_set(row, 0, rt->cols, attr); + t_row_set(row, 0, t->cols, attr); } } /* interprets a 'move cursor' (CUP) escape sequence */ -static void interpret_csi_CUP(madtty_t *rt, int param[], int pcount) +static void interpret_csi_CUP(madtty_t *t, int param[], int pcount) { if (pcount == 0) { /* special case */ - rt->curs_row = rt->lines; - rt->curs_col = 0; + t->curs_row = t->lines; + t->curs_col = 0; return; } else if (pcount < 2) { return; /* malformed */ } - rt->curs_row = rt->lines + param[0] - 1; /* convert from 1-based to 0-based */ - rt->curs_col = param[1] - 1; /* convert from 1-based to 0-based */ + t->curs_row = t->lines + param[0] - 1; + t->curs_col = param[1] - 1; - clamp_cursor_to_bounds(rt); + clamp_cursor_to_bounds(t); } /* Interpret the 'relative mode' sequences: CUU, CUD, CUF, CUB, CNL, * CPL, CHA, HPR, VPA, VPR, HPA */ -static void interpret_csi_C(madtty_t *rt, char verb, int param[], int pcount) +static void +interpret_csi_C(madtty_t *t, char verb, int param[], int pcount) { int n = (pcount && param[0] > 0) ? param[0] : 1; switch (verb) { - case 'A': rt->curs_row -= n; break; - case 'B': case 'e': rt->curs_row += n; break; - case 'C': case 'a': rt->curs_col += n; break; - case 'D': rt->curs_col -= n; break; - case 'E': rt->curs_row += n; rt->curs_col = 0; break; - case 'F': rt->curs_row -= n; rt->curs_col = 0; break; - case 'G': case '`': rt->curs_col = param[0] - 1; break; - case 'd': rt->curs_row = rt->lines + param[0] - 1; break; + case 'A': t->curs_row -= n; break; + case 'B': case 'e': t->curs_row += n; break; + case 'C': case 'a': t->curs_col += n; break; + case 'D': t->curs_col -= n; break; + case 'E': t->curs_row += n; t->curs_col = 0; break; + case 'F': t->curs_row -= n; t->curs_col = 0; break; + case 'G': case '`': t->curs_col = param[0] - 1; break; + case 'd': t->curs_row = t->lines + param[0] - 1; break; } - clamp_cursor_to_bounds(rt); + clamp_cursor_to_bounds(t); } /* Interpret the 'erase line' escape sequence */ -static void interpret_csi_EL(madtty_t *rt, int param[], int pcount) +static void interpret_csi_EL(madtty_t *t, int param[], int pcount) { - attr_t attr = build_attrs(rt->curattrs); + attr_t attr = build_attrs(t->curattrs); switch (pcount ? param[0] : 0) { case 1: - mtty_row_set(rt->curs_row, 0, rt->curs_col + 1, attr); + t_row_set(t->curs_row, 0, t->curs_col + 1, attr); break; case 2: - mtty_row_set(rt->curs_row, 0, rt->cols, attr); + t_row_set(t->curs_row, 0, t->cols, attr); break; default: - mtty_row_set(rt->curs_row, rt->curs_col, rt->cols - rt->curs_col, + t_row_set(t->curs_row, t->curs_col, t->cols - t->curs_col, attr); break; } } /* Interpret the 'insert blanks' sequence (ICH) */ -static void interpret_csi_ICH(madtty_t *rt, int param[], int pcount) +static void interpret_csi_ICH(madtty_t *t, int param[], int pcount) { - mtty_row_t *row = rt->curs_row; + t_row_t *row = t->curs_row; int n = (pcount && param[0] > 0) ? param[0] : 1; int i; - if (rt->curs_col + n > rt->cols) { - n = rt->cols - rt->curs_col; + if (t->curs_col + n > t->cols) { + n = t->cols - t->curs_col; } - for (i = rt->cols - 1; i >= rt->curs_col + n; i--) { + for (i = t->cols - 1; i >= t->curs_col + n; i--) { row->text[i] = row->text[i - n]; row->attr[i] = row->attr[i - n]; } - mtty_row_set(row, rt->curs_col, n, build_attrs(rt->curattrs)); + t_row_set(row, t->curs_col, n, build_attrs(t->curattrs)); } /* Interpret the 'delete chars' sequence (DCH) */ -static void interpret_csi_DCH(madtty_t *rt, int param[], int pcount) +static void interpret_csi_DCH(madtty_t *t, int param[], int pcount) { - mtty_row_t *row = rt->curs_row; + t_row_t *row = t->curs_row; int n = (pcount && param[0] > 0) ? param[0] : 1; int i; - if (rt->curs_col + n > rt->cols) { - n = rt->cols - rt->curs_col; + if (t->curs_col + n > t->cols) { + n = t->cols - t->curs_col; } - for (i = rt->curs_col; i < rt->cols - n; i++) { + for (i = t->curs_col; i < t->cols - n; i++) { row->text[i] = row->text[i + n]; row->attr[i] = row->attr[i + n]; } - mtty_row_set(row, rt->cols - n, n, build_attrs(rt->curattrs)); + t_row_set(row, t->cols - n, n, build_attrs(t->curattrs)); } /* Interpret a 'scroll reverse' (SR) */ -static void interpret_csi_SR(madtty_t *rt) +static void interpret_csi_SR(madtty_t *t) { - mtty_row_roll(rt->scroll_top, rt->scroll_bot, -1); - mtty_row_set(rt->scroll_top, 0, rt->cols, build_attrs(rt->curattrs)); + t_row_roll(t->scroll_top, t->scroll_bot, -1); + t_row_set(t->scroll_top, 0, t->cols, build_attrs(t->curattrs)); } /* Interpret an 'insert line' sequence (IL) */ -static void interpret_csi_IL(madtty_t *rt, int param[], int pcount) +static void interpret_csi_IL(madtty_t *t, int param[], int pcount) { int n = (pcount && param[0] > 0) ? param[0] : 1; - if (rt->curs_row + n >= rt->scroll_bot) { - for (mtty_row_t *row = rt->curs_row; row < rt->scroll_bot; row++) { - mtty_row_set(row, 0, rt->cols, build_attrs(rt->curattrs)); + if (t->curs_row + n >= t->scroll_bot) { + for (t_row_t *row = t->curs_row; row < t->scroll_bot; row++) { + t_row_set(row, 0, t->cols, build_attrs(t->curattrs)); } } else { - mtty_row_roll(rt->curs_row, rt->scroll_bot, -n); - for (mtty_row_t *row = rt->curs_row; row < rt->curs_row + n; row++) { - mtty_row_set(row, 0, rt->cols, build_attrs(rt->curattrs)); + t_row_roll(t->curs_row, t->scroll_bot, -n); + for (t_row_t *row = t->curs_row; row < t->curs_row + n; row++) { + t_row_set(row, 0, t->cols, build_attrs(t->curattrs)); } } } /* Interpret a 'delete line' sequence (DL) */ -static void interpret_csi_DL(madtty_t *rt, int param[], int pcount) +static void interpret_csi_DL(madtty_t *t, int param[], int pcount) { int n = (pcount && param[0] > 0) ? param[0] : 1; - if (rt->curs_row + n >= rt->scroll_bot) { - for (mtty_row_t *row = rt->curs_row; row < rt->scroll_bot; row++) { - mtty_row_set(row, 0, rt->cols, build_attrs(rt->curattrs)); + if (t->curs_row + n >= t->scroll_bot) { + for (t_row_t *row = t->curs_row; row < t->scroll_bot; row++) { + t_row_set(row, 0, t->cols, build_attrs(t->curattrs)); } } else { - mtty_row_roll(rt->curs_row, rt->scroll_bot, n); - for (mtty_row_t *row = rt->scroll_bot - n; row < rt->scroll_bot; row++) { - mtty_row_set(row, 0, rt->cols, build_attrs(rt->curattrs)); + t_row_roll(t->curs_row, t->scroll_bot, n); + for (t_row_t *row = t->scroll_bot - n; row < t->scroll_bot; row++) { + t_row_set(row, 0, t->cols, build_attrs(t->curattrs)); } } } /* Interpret an 'erase characters' (ECH) sequence */ -static void interpret_csi_ECH(madtty_t *rt, int param[], int pcount) +static void interpret_csi_ECH(madtty_t *t, int param[], int pcount) { int n = (pcount && param[0] > 0) ? param[0] : 1; - if (rt->curs_col + n < rt->cols) { - n = rt->cols - rt->curs_col; + if (t->curs_col + n < t->cols) { + n = t->cols - t->curs_col; } - mtty_row_set(rt->curs_row, rt->curs_col, n, build_attrs(rt->curattrs)); + t_row_set(t->curs_row, t->curs_col, n, build_attrs(t->curattrs)); } /* Interpret a 'set scrolling region' (DECSTBM) sequence */ -static void interpret_csi_DECSTBM(madtty_t *rt, int param[], int pcount) +static void interpret_csi_DECSTBM(madtty_t *t, int param[], int pcount) { int new_top, new_bot; switch (pcount) { case 0: - rt->scroll_top = rt->lines; - rt->scroll_bot = rt->lines + rt->rows; + t->scroll_top = t->lines; + t->scroll_bot = t->lines + t->rows; break; default: return; /* malformed */ @@ -440,35 +492,36 @@ static void interpret_csi_DECSTBM(madtty_t *rt, int param[], int pcount) /* clamp to bounds */ if (new_top < 0) new_top = 0; - if (new_top >= rt->rows) - new_top = rt->rows - 1; + if (new_top >= t->rows) + new_top = t->rows - 1; if (new_bot < 0) new_bot = 0; - if (new_bot >= rt->rows) - new_bot = rt->rows; + if (new_bot >= t->rows) + new_bot = t->rows; /* check for range validity */ if (new_top < new_bot) { - rt->scroll_top = rt->lines + new_top; - rt->scroll_bot = rt->lines + new_bot; + t->scroll_top = t->lines + new_top; + t->scroll_bot = t->lines + new_bot; } break; } } -static void es_interpret_csi(madtty_t *rt) +static void es_interpret_csi(madtty_t *t) { - static int csiparam[MAX_CSI_ES_PARAMS]; + static int csiparam[BUFSIZ]; int param_count = 0; - const char *p = rt->ebuf + 1; - char verb = rt->ebuf[rt->elen - 1]; + const char *p = t->ebuf + 1; + char verb = t->ebuf[t->elen - 1]; - p += rt->ebuf[1] == '?'; /* CSI private mode */ + p += t->ebuf[1] == '?'; /* CSI private mode */ /* parse numeric parameters */ while (isdigit((unsigned char)*p) || *p == ';') { if (*p == ';') { - if (param_count >= MAX_CSI_ES_PARAMS) return; /* too long! */ + if (param_count >= (int)sizeof(csiparam)) + return; /* too long! */ csiparam[param_count++] = 0; } else { if (param_count == 0) csiparam[param_count++] = 0; @@ -479,16 +532,16 @@ static void es_interpret_csi(madtty_t *rt) p++; } - if (rt->ebuf[1] == '?') { + if (t->ebuf[1] == '?') { switch (verb) { case 'l': if (csiparam[0] == 25) - rt->curshid = true; + t->curshid = true; break; case 'h': if (csiparam[0] == 25) - rt->curshid = false; + t->curshid = false; break; } } @@ -497,66 +550,66 @@ static void es_interpret_csi(madtty_t *rt) switch (verb) { case 'h': if (param_count == 1 && csiparam[0] == 4) /* insert mode */ - rt->insert = true; + t->insert = true; break; case 'l': if (param_count == 1 && csiparam[0] == 4) /* replace mode */ - rt->insert = false; + t->insert = false; break; case 'm': /* it's a 'set attribute' sequence */ - interpret_csi_SGR(rt, csiparam, param_count); break; + interpret_csi_SGR(t, csiparam, param_count); break; case 'J': /* it's an 'erase display' sequence */ - interpret_csi_ED(rt, csiparam, param_count); break; + interpret_csi_ED(t, csiparam, param_count); break; case 'H': case 'f': /* it's a 'move cursor' sequence */ - interpret_csi_CUP(rt, csiparam, param_count); break; + interpret_csi_CUP(t, csiparam, param_count); break; case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'e': case 'a': case 'd': case '`': /* it is a 'relative move' */ - interpret_csi_C(rt, verb, csiparam, param_count); break; + interpret_csi_C(t, verb, csiparam, param_count); break; case 'K': /* erase line */ - interpret_csi_EL(rt, csiparam, param_count); break; + interpret_csi_EL(t, csiparam, param_count); break; case '@': /* insert characters */ - interpret_csi_ICH(rt, csiparam, param_count); break; + interpret_csi_ICH(t, csiparam, param_count); break; case 'P': /* delete characters */ - interpret_csi_DCH(rt, csiparam, param_count); break; + interpret_csi_DCH(t, csiparam, param_count); break; case 'L': /* insert lines */ - interpret_csi_IL(rt, csiparam, param_count); break; + interpret_csi_IL(t, csiparam, param_count); break; case 'M': /* delete lines */ - interpret_csi_DL(rt, csiparam, param_count); break; + interpret_csi_DL(t, csiparam, param_count); break; case 'X': /* erase chars */ - interpret_csi_ECH(rt, csiparam, param_count); break; + interpret_csi_ECH(t, csiparam, param_count); break; case 'r': /* set scrolling region */ - interpret_csi_DECSTBM(rt, csiparam, param_count); break; + interpret_csi_DECSTBM(t, csiparam, param_count); break; case 's': /* save cursor location */ - rt->curs_srow = rt->curs_row - rt->lines; - rt->curs_scol = rt->curs_col; + t->curs_srow = t->curs_row - t->lines; + t->curs_scol = t->curs_col; break; case 'u': /* restore cursor location */ - rt->curs_row = rt->lines + rt->curs_srow; - rt->curs_col = rt->curs_scol; - clamp_cursor_to_bounds(rt); + t->curs_row = t->lines + t->curs_srow; + t->curs_col = t->curs_scol; + clamp_cursor_to_bounds(t); break; default: break; } } -static void try_interpret_escape_seq(madtty_t *rt) +static void try_interpret_escape_seq(madtty_t *t) { - char lastchar = rt->ebuf[rt->elen-1]; + char lastchar = t->ebuf[t->elen-1]; - switch (*rt->ebuf) { + switch (*t->ebuf) { case '\0': return; case 'M': - interpret_csi_SR(rt); - cancel_escape_sequence(rt); + interpret_csi_SR(t); + cancel_escape_sequence(t); return; case '(': case ')': - if (rt->elen == 2) + if (t->elen == 2) goto cancel; break; @@ -570,37 +623,35 @@ static void try_interpret_escape_seq(madtty_t *rt) case '[': if (is_valid_csi_ender(lastchar)) { - es_interpret_csi(rt); - cancel_escape_sequence(rt); + es_interpret_csi(t); + cancel_escape_sequence(t); return; } break; } - if (rt->elen + 1 >= (int)sizeof(rt->ebuf)) { + if (t->elen + 1 >= (int)sizeof(t->ebuf)) { cancel: -#if 0 - int i; +#ifndef NDEBUG fprintf(stderr, "cancelled: \\033"); - for (i = 0; i < rt->elen; i++) { - int c = rt->ebuf[i]; - if (isprint(c) && c >= ' ') { - fputc(c, stderr); + for (int i = 0; i < (int)t->elen; i++) { + if (isprint(t->ebuf[i])) { + fputc(t->ebuf[i], stderr); } else { - fprintf(stderr, "\\%03o", c); + fprintf(stderr, "\\%03o", t->ebuf[i]); } } fputc('\n', stderr); #endif - cancel_escape_sequence(rt); + cancel_escape_sequence(t); } } -static void madtty_process_nonprinting(madtty_t *rt, wchar_t wc) +static void madtty_process_nonprinting(madtty_t *t, wchar_t wc) { switch (wc) { case C0_ESC: - new_escape_sequence(rt); + new_escape_sequence(t); break; case C0_BEL: @@ -608,224 +659,310 @@ static void madtty_process_nonprinting(madtty_t *rt, wchar_t wc) break; case C0_BS: - if (rt->curs_col > 0) - rt->curs_col--; + if (t->curs_col > 0) + t->curs_col--; break; case C0_HT: /* tab */ - rt->curs_col = (rt->curs_col + 8) & ~7; - if (rt->curs_col >= rt->cols) - rt->curs_col = rt->cols - 1; + t->curs_col = (t->curs_col + 8) & ~7; + if (t->curs_col >= t->cols) + t->curs_col = t->cols - 1; break; case C0_CR: - rt->curs_col = 0; + t->curs_col = 0; break; case C0_VT: case C0_FF: case C0_LF: - cursor_line_down(rt); + cursor_line_down(t); break; case C0_SO: /* shift out - acs */ - rt->graphmode = true; + t->graphmode = true; break; case C0_SI: /* shift in - acs */ - rt->graphmode = false; + t->graphmode = false; break; } } -void madtty_putc(madtty_t *rt, wchar_t wc) +static void is_utf8_locale(void) { - int width = 0; + const char *cset = nl_langinfo(CODESET) ?: "ANSI_X3.4-1968"; + is_utf8 = !strcmp(cset, "UTF-8"); +} - if (!rt->seen_input) { - rt->seen_input = 1; - kill(-rt->childpid, SIGWINCH); - } +// vt100 special graphics and line drawing +// 5f-7e standard vt100 +// 40-5e rxvt extension for extra curses acs chars +static uint16_t const vt100_utf8[62] = { // 41 .. 7e + 0x2191, 0x2193, 0x2192, 0x2190, 0x2588, 0x259a, 0x2603, // 41-47 hi mr. snowman! + 0, 0, 0, 0, 0, 0, 0, 0, // 48-4f + 0, 0, 0, 0, 0, 0, 0, 0, // 50-57 + 0, 0, 0, 0, 0, 0, 0, 0x0020, // 58-5f + 0x25c6, 0x2592, 0x2409, 0x240c, 0x240d, 0x240a, 0x00b0, 0x00b1, // 60-67 + 0x2424, 0x240b, 0x2518, 0x2510, 0x250c, 0x2514, 0x253c, 0x23ba, // 68-6f + 0x23bb, 0x2500, 0x23bc, 0x23bd, 0x251c, 0x2524, 0x2534, 0x252c, // 70-77 + 0x2502, 0x2264, 0x2265, 0x03c0, 0x2260, 0x00a3, 0x00b7, // 78-7e +}; -#if 0 - if (wc == '\n' || (wc >= ' ' && isprint(wc))) { - fputc(wc, stderr); - } else { - fprintf(stderr, "\\%03o", wc); +static uint32_t vt100[62]; + +void madtty_init_vt100_graphics(void) +{ + vt100['l' - 0x41] = ACS_ULCORNER; + vt100['m' - 0x41] = ACS_LLCORNER; + vt100['k' - 0x41] = ACS_URCORNER; + vt100['j' - 0x41] = ACS_LRCORNER; + vt100['u' - 0x41] = ACS_RTEE; + vt100['t' - 0x41] = ACS_LTEE; + vt100['v' - 0x41] = ACS_TTEE; + vt100['w' - 0x41] = ACS_BTEE; + vt100['q' - 0x41] = ACS_HLINE; + vt100['x' - 0x41] = ACS_VLINE; + vt100['n' - 0x41] = ACS_PLUS; + vt100['o' - 0x41] = ACS_S1; + vt100['s' - 0x41] = ACS_S9; + vt100['`' - 0x41] = ACS_DIAMOND; + vt100['a' - 0x41] = ACS_CKBOARD; + vt100['f' - 0x41] = ACS_DEGREE; + vt100['g' - 0x41] = ACS_PLMINUS; + vt100['~' - 0x41] = ACS_BULLET; + vt100[',' - 0x41] = ACS_LARROW; + vt100['+' - 0x41] = ACS_RARROW; + vt100['.' - 0x41] = ACS_DARROW; + vt100['-' - 0x41] = ACS_UARROW; + vt100['h' - 0x41] = ACS_BOARD; + vt100['i' - 0x41] = ACS_LANTERN; + vt100['0' - 0x41] = ACS_BLOCK; + /* these defaults were invented for ncurses */ + vt100['p' - 0x41] = ACS_S3; + vt100['r' - 0x41] = ACS_S7; + vt100['y' - 0x41] = ACS_LEQUAL; + vt100['z' - 0x41] = ACS_GEQUAL; + vt100['{' - 0x41] = ACS_PI; + vt100['|' - 0x41] = ACS_NEQUAL; + vt100['}' - 0x41] = ACS_STERLING; + is_utf8_locale(); +} + +static void madtty_putc(madtty_t *t, wchar_t wc) +{ + int width = 0; + + if (!t->seen_input) { + t->seen_input = 1; + kill(-t->childpid, SIGWINCH); } -#endif - if (rt->escaped) { - assert (rt->elen + 1 < (int)sizeof(rt->ebuf)); - rt->ebuf[rt->elen] = wc; - rt->ebuf[++rt->elen] = '\0'; - try_interpret_escape_seq(rt); + if (t->escaped) { + assert (t->elen + 1 < (int)sizeof(t->ebuf)); + t->ebuf[t->elen] = wc; + t->ebuf[++t->elen] = '\0'; + try_interpret_escape_seq(t); } else if (IS_CONTROL(wc)) { - madtty_process_nonprinting(rt, wc); + madtty_process_nonprinting(t, wc); } else { - mtty_row_t *tmp; - - if (rt->graphmode) { - // vt100 special graphics and line drawing - // 5f-7e standard vt100 - // 40-5e rxvt extension for extra curses acs chars - static uint16_t vt100_0[62] = { // 41 .. 7e - 0x2191, 0x2193, 0x2192, 0x2190, 0x2588, 0x259a, 0x2603, // 41-47 hi mr. snowman! - 0, 0, 0, 0, 0, 0, 0, 0, // 48-4f - 0, 0, 0, 0, 0, 0, 0, 0, // 50-57 - 0, 0, 0, 0, 0, 0, 0, 0x0020, // 58-5f - 0x25c6, 0x2592, 0x2409, 0x240c, 0x240d, 0x240a, 0x00b0, 0x00b1, // 60-67 - 0x2424, 0x240b, 0x2518, 0x2510, 0x250c, 0x2514, 0x253c, 0x23ba, // 68-6f - 0x23bb, 0x2500, 0x23bc, 0x23bd, 0x251c, 0x2524, 0x2534, 0x252c, // 70-77 - 0x2502, 0x2264, 0x2265, 0x03c0, 0x2260, 0x00a3, 0x00b7, // 78-7e - }; - - if (wc >= 0x41 && wc <= 0x7e && vt100_0[wc - 0x41]) { - wc = vt100_0[wc - 0x41]; + t_row_t *tmp; + + if (t->graphmode) { + if (wc >= 0x41 && wc <= 0x7e) { + wchar_t gc = is_utf8 ? vt100_utf8[wc - 0x41] : vt100[wc - 0x41]; + if (gc) + wc = gc; } width = 1; } else { width = wcwidth(wc) ?: 1; } - if (width == 2 && rt->curs_col == rt->cols - 1) { - tmp = rt->curs_row; + if (width == 2 && t->curs_col == t->cols - 1) { + tmp = t->curs_row; tmp->dirty = true; - tmp->text[rt->curs_col] = 0; - tmp->attr[rt->curs_col] = build_attrs(rt->curattrs); - rt->curs_col++; + tmp->text[t->curs_col] = 0; + tmp->attr[t->curs_col] = build_attrs(t->curattrs); + t->curs_col++; } - if (rt->curs_col >= rt->cols) { - rt->curs_col = 0; - cursor_line_down(rt); + if (t->curs_col >= t->cols) { + t->curs_col = 0; + cursor_line_down(t); } - tmp = rt->curs_row; + tmp = t->curs_row; tmp->dirty = true; - if (rt->insert) { - wmemmove(tmp->text + rt->curs_col + width, tmp->text + rt->curs_col, - (rt->cols - rt->curs_col - width)); - memmove(tmp->attr + rt->curs_col + width, tmp->attr + rt->curs_col, - (rt->cols - rt->curs_col - width) * sizeof(tmp->attr[0])); + if (t->insert) { + wmemmove(tmp->text + t->curs_col + width, tmp->text + t->curs_col, + (t->cols - t->curs_col - width)); + memmove(tmp->attr + t->curs_col + width, tmp->attr + t->curs_col, + (t->cols - t->curs_col - width) * sizeof(tmp->attr[0])); } - tmp->text[rt->curs_col] = wc; - tmp->attr[rt->curs_col] = build_attrs(rt->curattrs); - rt->curs_col++; + tmp->text[t->curs_col] = wc; + tmp->attr[t->curs_col] = build_attrs(t->curattrs); + t->curs_col++; if (width == 2) { - tmp->text[rt->curs_col] = 0; - tmp->attr[rt->curs_col] = build_attrs(rt->curattrs); - rt->curs_col++; + tmp->text[t->curs_col] = 0; + tmp->attr[t->curs_col] = build_attrs(t->curattrs); + t->curs_col++; } } } -int madtty_process(madtty_t *rt) +int madtty_process(madtty_t *t) { int res, pos = 0; - if (rt->pty < 0) { + if (t->pty < 0) { errno = EINVAL; return -1; } - res = read(rt->pty, rt->rbuf + rt->rlen, sizeof(rt->rbuf) - rt->rlen); + res = read(t->pty, t->rbuf + t->rlen, sizeof(t->rbuf) - t->rlen); if (res < 0) return -1; - rt->rlen += res; - while (pos < rt->rlen) { + t->rlen += res; + while (pos < t->rlen) { wchar_t wc; ssize_t len; - len = (ssize_t)mbrtowc(&wc, rt->rbuf + pos, rt->rlen - pos, &rt->ps); + len = (ssize_t)mbrtowc(&wc, t->rbuf + pos, t->rlen - pos, &t->ps); if (len == -2) { - rt->rlen -= pos; - memmove(rt->rbuf, rt->rbuf + pos, rt->rlen); + t->rlen -= pos; + memmove(t->rbuf, t->rbuf + pos, t->rlen); return 0; } if (len == -1) { len = 1; - wc = rt->rbuf[pos]; + wc = t->rbuf[pos]; } pos += len ? len : 1; - madtty_putc(rt, wc); + madtty_putc(t, wc); } - rt->rlen -= pos; - memmove(rt->rbuf, rt->rbuf + pos, rt->rlen); + t->rlen -= pos; + memmove(t->rbuf, t->rbuf + pos, t->rlen); return 0; } madtty_t *madtty_create(int rows, int cols) { - madtty_t *rt; + madtty_t *t; int i; if (rows <= 0 || cols <= 0) return NULL; - rt = (madtty_t*)calloc(sizeof(madtty_t), 1); - if (!rt) + t = (madtty_t*)calloc(sizeof(madtty_t), 1); + if (!t) return NULL; /* record dimensions */ - rt->rows = rows; - rt->cols = cols; + t->rows = rows; + t->cols = cols; /* default mode is replace */ - rt->insert = false; + t->insert = false; /* create the cell matrix */ - rt->lines = (mtty_row_t*)calloc(sizeof(mtty_row_t), rt->rows); - for (i = 0; i < rt->rows; i++) { - rt->lines[i].text = (wchar_t *)calloc(sizeof(wchar_t), rt->cols); - rt->lines[i].attr = (uint16_t *)calloc(sizeof(uint16_t), rt->cols); + t->lines = (t_row_t*)calloc(sizeof(t_row_t), t->rows); + for (i = 0; i < t->rows; i++) { + t->lines[i].text = (wchar_t *)calloc(sizeof(wchar_t), t->cols); + t->lines[i].attr = (uint16_t *)calloc(sizeof(uint16_t), t->cols); } - rt->pty = -1; /* no pty for now */ + t->pty = -1; /* no pty for now */ /* initialization of other public fields */ - rt->curs_row = rt->lines; - rt->curs_col = 0; - rt->curattrs = A_NORMAL; /* white text over black background */ + t->curs_row = t->lines; + t->curs_col = 0; + t->curattrs = A_NORMAL; /* white text over black background */ /* initial scrolling area is the whole window */ - rt->scroll_top = rt->lines; - rt->scroll_bot = rt->lines + rt->rows; + t->scroll_top = t->lines; + t->scroll_bot = t->lines + t->rows; - return rt; + return t; } -void madtty_destroy(madtty_t *rt) +void madtty_resize(madtty_t *t, int rows, int cols) +{ + struct winsize ws = { .ws_row = rows, .ws_col = cols }; + t_row_t *lines = t->lines; + + if (rows <= 0 || cols <= 0) + return; + + if (t->rows != rows) { + while (t->rows > rows) { + free(lines[t->rows - 1].text); + free(lines[t->rows - 1].attr); + t->rows--; + } + + lines = realloc(lines, sizeof(t_row_t) * rows); + } + + if (t->cols != cols) { + for (int row = 0; row < t->rows; row++) { + lines[row].text = realloc(lines[row].text, sizeof(wchar_t) * cols); + lines[row].attr = realloc(lines[row].attr, sizeof(uint16_t) * cols); + if (t->cols < cols) + t_row_set(lines + row, t->cols, cols - t->cols, 0); + else + lines[row].dirty = true; + } + t->cols = cols; + } + + while (t->rows < rows) { + lines[t->rows].text = (wchar_t *)calloc(sizeof(wchar_t), cols); + lines[t->rows].attr = (uint16_t *)calloc(sizeof(uint16_t), cols); + t_row_set(lines + t->rows, 0, t->cols, 0); + t->rows++; + } + + t->curs_row += lines - t->lines; + t->scroll_top = lines; + t->scroll_bot = lines + rows; + t->lines = lines; + clamp_cursor_to_bounds(t); + ioctl(t->pty, TIOCSWINSZ, &ws); + kill(-t->childpid, SIGWINCH); +} + +void madtty_destroy(madtty_t *t) { int i; - if (!rt) + if (!t) return; - for (i = 0; i < rt->rows; i++) { - free(rt->lines[i].text); - free(rt->lines[i].attr); + for (i = 0; i < t->rows; i++) { + free(t->lines[i].text); + free(t->lines[i].attr); } - free(rt->lines); - free(rt); + free(t->lines); + free(t); } -void madtty_draw(madtty_t *rt, WINDOW *win, int srow, int scol) +void madtty_draw(madtty_t *t, WINDOW *win, int srow, int scol) { curs_set(0); - for (int i = 0; i < rt->rows; i++) { - mtty_row_t *row = rt->lines + i; + for (int i = 0; i < t->rows; i++) { + t_row_t *row = t->lines + i; if (!row->dirty) continue; wmove(win, srow + i, scol); - for (int j = 0; j < rt->cols; j++) { + for (int j = 0; j < t->cols; j++) { if (!j || row->attr[j] != row->attr[j - 1]) wattrset(win, (attr_t)row->attr[j] << NCURSES_ATTR_SHIFT); if (row->text[j] >= 128) { @@ -843,52 +980,49 @@ void madtty_draw(madtty_t *rt, WINDOW *win, int srow, int scol) row->dirty = false; } - wmove(win, srow + rt->curs_row - rt->lines, scol + rt->curs_col); - curs_set(!rt->curshid); + wmove(win, srow + t->curs_row - t->lines, scol + t->curs_col); + curs_set(!t->curshid); } /******************************************************/ -pid_t madtty_forkpty(madtty_t *rt, const char *path, const char *argv[]) +pid_t madtty_forkpty(madtty_t *t, const char *p, const char *argv[], int *pty) { struct winsize ws; pid_t pid; - ws.ws_row = rt->rows; - ws.ws_col = rt->cols; + ws.ws_row = t->rows; + ws.ws_col = t->cols; ws.ws_xpixel = ws.ws_ypixel = 0; - pid = forkpty(&rt->pty, NULL, NULL, &ws); + pid = forkpty(&t->pty, NULL, NULL, &ws); if (pid < 0) return -1; if (pid == 0) { setsid(); setenv("TERM", "rxvt", 1); - execv(path, (char *const*)argv); + execv(p, (char *const*)argv); fprintf(stderr, "\nexecv() failed.\nCommand: '%s'\n", argv[0]); exit(1); } - return rt->childpid = pid; + if (pty) + *pty = t->pty; + return t->childpid = pid; } -void madtty_keypress(madtty_t *rt, int keycode) +int madtty_getpty(madtty_t *t) +{ + return t->pty; +} + +void madtty_keypress(madtty_t *t, int keycode) { char c = (char)keycode; const char *buf; int len; -#if 0 - if (keycode == KEY_F(1)) { -#define MIN(a, b) ((a < (b)) ? a : (b)) - kill(-rt->childpid, SIGWINCH); - rt->scroll_bot = MIN(rt->scroll_bot, rt->lines + rt->rows); - rt->curs_row = MIN(rt->curs_row, rt->lines + rt->rows); - printf(stderr, "%d\n", rt->rows); - return; - } -#endif if (keycode >= 0 && keycode < KEY_MAX && keytable[keycode]) { buf = keytable[keycode]; len = strlen(keytable[keycode]); @@ -898,7 +1032,7 @@ void madtty_keypress(madtty_t *rt, int keycode) } while (len > 0) { - int res = write(rt->pty, buf, len); + int res = write(t->pty, buf, len); if (res < 0 && errno != EAGAIN && errno != EINTR) return; @@ -907,21 +1041,10 @@ void madtty_keypress(madtty_t *rt, int keycode) } } -void madtty_initialize(void) +void madtty_init_colors(void) { - setlocale(LC_ALL, ""); - initscr(); - start_color(); - noecho(); - raw(); - nodelay(stdscr, TRUE); - keypad(stdscr, TRUE); - curs_set(0); - ESCDELAY=50; - - if (COLORS > 8) { + if (COLOR_PAIRS > 64) { use_default_colors(); - assume_default_colors(-1, -1); has_default = 1; for (int bg = -1; bg < 8; bg++) { @@ -930,10 +1053,33 @@ void madtty_initialize(void) } } } else { + int use_default = use_default_colors() == OK; for (int bg = 0; bg < 8; bg++) { for (int fg = 0; fg < 8; fg++) { - init_pair((7 - fg) * 8 + bg, fg, bg); + if (use_default) { + init_pair((7 - fg) * 8 + bg, + fg == COLOR_WHITE ? -1 : fg, + bg == COLOR_BLACK ? -1 : bg); + } else { + init_pair((7 - fg) * 8 + bg, fg, bg); + } } } } } + +int madtty_color_pair(int fg, int bg) +{ + if (has_default) { + if (fg < -1) + fg = -1; + if (bg < -1) + bg = -1; + return COLOR_PAIR((fg + 1) * 16 + bg + 1); + } + if (fg < 0) + fg = COLOR_WHITE; + if (bg < 0) + bg = COLOR_BLACK; + return COLOR_PAIR((7 - fg) * 8 + bg); +}