X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=src%2Fvt102.c;h=35719cadc3e582540945776423b106658485c265;hb=9df8b9cc93fa29a848634af76e71fce6ddda67f0;hp=da3a58797923b526fd29f69991ec699644d503a9;hpb=8158d3e1b5d1d977bc1a91e0bb7fc6c892f9685c;p=sympathy.git diff --git a/src/vt102.c b/src/vt102.c index da3a587..35719ca 100644 --- a/src/vt102.c +++ b/src/vt102.c @@ -10,6 +10,42 @@ static char rcsid[] = "$Id$"; /* * $Log$ + * Revision 1.18 2008/02/07 01:59:25 james + * *** empty log message *** + * + * Revision 1.17 2008/02/07 01:58:28 james + * *** empty log message *** + * + * Revision 1.16 2008/02/07 01:57:46 james + * *** empty log message *** + * + * Revision 1.15 2008/02/07 00:43:27 james + * *** empty log message *** + * + * Revision 1.14 2008/02/07 00:40:23 james + * *** empty log message *** + * + * Revision 1.13 2008/02/07 00:39:59 james + * *** empty log message *** + * + * Revision 1.12 2008/02/07 00:39:13 james + * *** empty log message *** + * + * Revision 1.11 2008/02/06 20:26:58 james + * *** empty log message *** + * + * Revision 1.10 2008/02/06 17:53:28 james + * *** empty log message *** + * + * Revision 1.9 2008/02/06 15:53:22 james + * *** empty log message *** + * + * Revision 1.8 2008/02/06 11:49:47 james + * *** empty log message *** + * + * Revision 1.7 2008/02/06 11:30:37 james + * *** empty log message *** + * * Revision 1.6 2008/02/05 01:11:46 james * *** empty log message *** * @@ -72,8 +108,8 @@ CTRL-I CTRL-J CTRL-M CTRL-N -CTRL-O +CTRL-O ESC7 ESC8 ESCH @@ -103,8 +139,6 @@ ESC[5m ESC[7m ESC[%d;%dr -ESC(B -ESC)0 ESC[?3l ESC[?4l @@ -114,11 +148,24 @@ ESC[?7h ESC[?7l ESC[?8h +ESC(B +ESC)0 + + +TODO: + +ESC(B +ESC)0 + +CTRL-O + + */ #include "project.h" + static inline int csi_ender (int c) { @@ -130,11 +177,10 @@ csi_ender (int c) } static inline int -csi_starter (int c) +scs_starter (int c) { switch (c) { - case '[': case '(': case ')': return 1; @@ -142,85 +188,242 @@ csi_starter (int c) return 0; } +static inline int +csi_starter (int c) +{ + switch (c) + { + case '[': + return 1; + } + return 0; +} + +static inline int +in_margins (VT102 * v, CRT_Pos p) +{ + if (v->pos.x < v->top_margin.x) + return 0; + if (v->pos.y < v->top_margin.y) + return 0; + + if (v->pos.x > v->bottom_margin.x) + return 0; + if (v->pos.y > v->bottom_margin.y) + return 0; + + return 1; +} void -vt102_cursor_normalize (VT102 * v, int do_wrapscroll, int use_margins) +vt102_log_line (VT102 * v, int line) { - int wrap = do_wrapscroll ? 1 : 0; - int scroll = do_wrapscroll ? 1 : 0; - CRT_Pos *top, *bottom; + static FILE *log; + CRT_Pos e = { VT102_COLS - 1, line }; + CRT_Pos p = { 0, line }; + + if (!log) + log = fopen ("log", "a+"); + + if (!log) + return; + - if (use_margins) + for (; e.x > 0; --e.x) { - top = &v->top_margin; - bottom = &v->bottom_margin; + if (v->crt.screen[CRT_ADDR_POS (&e)].chr != ' ') + break; } - else + + for (; p.x <= e.x; ++p.x) { - top = &v->screen_start; - bottom = &v->screen_end; + int c = v->crt.screen[CRT_ADDR_POS (&p)].chr; + if (c < 32) + c = ' '; + if (c > 126) + c = ' '; + fputc (c, log); } + fputc ('\n', log); +} + +void +vt102_clip_cursor (VT102 * v, CRT_Pos tl, CRT_Pos br) +{ + if (v->pos.x < tl.x) + v->pos.x = tl.x; + if (v->pos.y < tl.y) + v->pos.y = tl.y; + + if (v->pos.x > br.x) + v->pos.x = br.x; + if (v->pos.y > br.y) + v->pos.y = br.y; +} - if (v->pos.x < top->x) /*don't wrap backwards */ - v->pos.x = top->x; - if (v->pos.x > bottom->x) +void +vt102_cursor_normalize (VT102 * v) +{ + CRT_Pos *top, *bottom; + + if (v->private_modes[VT102_PRIVATE_MODE_ORIGIN_MODE]) { - if (wrap) - { - v->pos.x = top->x; - v->pos.y++; - } - else - { - v->pos.x = bottom->x; - } + vt102_clip_cursor (v, v->top_margin, v->bottom_margin); } + else + { + vt102_clip_cursor (v, v->screen_start, v->screen_end); + } +} - if (v->pos.y < top->y) - v->pos.y = top->y; - if (v->pos.y > bottom->y) +void +vt102_cursor_carriage_return (VT102 * v) +{ + /*FISH*/ v->pos.x = v->top_margin.x; + v->pending_wrap = 0; +} + +void +vt102_cursor_advance_line (VT102 * v) +{ + int couldscroll = in_margins (v, v->pos); + +/*have wraped off end of last line in scrolling region */ +/* (|| not necessary, but shuts compiler up */ + if (((v->pos.y == v->bottom_margin.y) || (v->pos.y == v->screen_end.y)) && + (couldscroll)) { - if (scroll) - crt_scroll_up (&v->crt, *top, *bottom, 1); - v->pos.y = bottom->y; + vt102_log_line (v, v->pos.y); + crt_scroll_up (&v->crt, v->top_margin, v->bottom_margin, 1); + return; } + + v->pos.y++; + v->pending_wrap = 0; } void -vt102_cursor_motion (VT102 * v, int x, int y, int wrapscroll) +vt102_cursor_advance (VT102 * v) { - while (x > 0) + + if (v->pos.x < v->bottom_margin.x) { - x--; +/*Normal advance*/ v->pos.x++; - vt102_cursor_normalize (v, wrapscroll, 1); + v->pending_wrap = 0; + return; } + v->pending_wrap++; +} + + +void +vt102_do_pending_wrap (VT102 * v) +{ + int couldscroll = in_margins (v, v->pos); + int autowrap = v->private_modes[VT102_PRIVATE_MODE_AUTO_WRAP]; + + if (!v->pending_wrap) + return; - while (x < 0) +#if 0 + fprintf (stderr, "ca: (%d,%d) autowrap %d couldscroll %d\n", v->pos.x, + v->pos.y, autowrap, couldscroll); +#endif + +/*End of line but no autowrap, nothing to do*/ + if (!autowrap) + return; + +/*End of screen and not allowed to scroll, nothing to do*/ + if ((v->pos.y == v->screen_end.y) && (!couldscroll)) + return; + + if (couldscroll) { - x++; - v->pos.x--; - vt102_cursor_normalize (v, wrapscroll, 1); + v->pos.x = v->top_margin.x; } + else + { + v->pos.x = 0; + } + + vt102_cursor_advance_line (v); +} - while (y > 0) + +void +vt102_cursor_retard (VT102 * v) +{ + if (v->pos.x != v->top_margin.x) + v->pos.x--; + + v->pending_wrap = 0; +} + +void +vt102_reset_tabs (VT102 * v) +{ + int i; + + memset (v->tabs, 0, sizeof (v->tabs)); + + for (i = 0; i < VT102_COLS; i += 8) + { + v->tabs[i]++; + } +} +void +vt102_cursor_advance_tab (VT102 * v) +{ + if (v->pos.x == v->bottom_margin.x) + return; + while (v->pos.x < v->bottom_margin.x) { - y--; - v->pos.y++; - vt102_cursor_normalize (v, wrapscroll, 1); + v->pos.x++; + if (v->tabs[v->pos.x]) + break; } + v->pending_wrap = 0; +} + +vt102_cursor_home (VT102 * v) +{ + v->pos = v->top_margin; + vt102_cursor_normalize (v); + v->pending_wrap = 0; + +} - while (y < 0) +vt102_cursor_absolute (VT102 * v, int x, int y) +{ + if (v->private_modes[VT102_PRIVATE_MODE_ORIGIN_MODE]) + { + v->pos.x = x + v->top_margin.x; + v->pos.y = y + v->top_margin.x; + } + else { - y++; - v->pos.y--; - vt102_cursor_normalize (v, wrapscroll, 1); + v->pos.x = x; + v->pos.y = y; } + vt102_cursor_normalize (v); + v->pending_wrap = 0; } +vt102_cursor_relative (VT102 * v, int x, int y) +{ + v->pos.x += x; + v->pos.y += y; + vt102_cursor_normalize (v); + v->pending_wrap = 0; +} + + + void vt102_delete_from_line (VT102 * v, CRT_Pos p) { @@ -236,17 +439,293 @@ vt102_delete_from_line (VT102 * v, CRT_Pos p) &v->crt.screen[CRT_ADDR_POS (&p) + 1], sizeof (CRT_CA) * n); } - v->crt.screen[CRT_ADDR (v->bottom_margin.x, p.y)].chr = ' '; + v->crt.screen[CRT_ADDR (p.y, v->bottom_margin.x)].chr = ' '; /*But not attr due to vt102 bug*/ } +void +vt102_insert_into_line (VT102 * v, CRT_Pos p) +{ + int n = v->bottom_margin.x - p.x; + + if (n < 0) + return; + + if (n) + { + + memmove (&v->crt.screen[CRT_ADDR_POS (&p) + 1], + &v->crt.screen[CRT_ADDR_POS (&p)], sizeof (CRT_CA) * n); + } + + v->crt.screen[CRT_ADDR (p.y, v->bottom_margin.x)].chr = ' '; + v->crt.screen[CRT_ADDR (p.y, v->bottom_margin.x)].attr = CRT_ATTR_NORMAL; +} + + void -vt102_parse_esc (VT102 * v, int c) +vt102_change_mode (VT102 * v, int private, char *ns, int set) { - fprintf (stderr, "ESC 0%o(%c)\n", c, c); + int m; + + + if (*ns) + { + m = atoi (ns); + } + else + { + m = 1; + } + + if (m < 0) + return; + if (m >= VT102_NMODES) + return; + + if (private) + { + v->private_modes[m] = set; + switch (m) + { + case VT102_PRIVATE_MODE_CURSOR_MODE: + if (v->application_keypad_mode) + v->private_modes[m] = 0; +#if 0 + fprintf (stderr, "APPLICATION CURSOR MODE %d wanted %d\n", + v->private_modes[m],set); +#endif + break; + case VT102_PRIVATE_MODE_ORIGIN_MODE: + vt102_cursor_home (v); + break; + } + + } + else + v->modes[m] = set; + +#if 0 + fprintf (stderr, "mode set=%d private=%d num=%d\n", set, private, m); +#endif } +void +vt102_parse_mode_string (VT102 * v, char *buf, int len) +{ + int private = 0; + char last = buf[len - 1]; + char num[4]; + int o; + + memset (num, 0, sizeof (num)); + o = sizeof (num) - 1; + + len--; + + if (*buf == '?') + { + private++; + buf++; + len--; + } + + if (len < 0) + return; + + while (len--) + { + if (*buf == ';') + { + vt102_change_mode (v, private, &num[o], last == 'h'); + memset (num, 0, sizeof (num)); + o = sizeof (num) - 1; + buf++; + continue; + } + + num[0] = num[1]; + num[1] = num[2]; + num[2] = *buf; + + if (o) + o--; + + buf++; + } + + vt102_change_mode (v, private, &num[o], last == 'h'); + +} + + +void +vt102_change_attr (VT102 * v, char *na) +{ + int a; + + + if (*na) + { + a = atoi (na); + } + else + { + a = 0; + } + + switch (a) + { + case 0: + v->attr = CRT_ATTR_NORMAL; + break; + case 1: + v->attr |= CRT_ATTR_BOLD; + break; + case 21: + case 22: + v->attr &= ~CRT_ATTR_BOLD; + break; + case 4: + v->attr |= CRT_ATTR_UNDERLINE; + break; + case 24: + v->attr &= ~CRT_ATTR_UNDERLINE; + break; + case 5: + v->attr |= CRT_ATTR_BLINK; + break; + case 25: + v->attr &= ~CRT_ATTR_BLINK; + break; + case 7: + v->attr |= CRT_ATTR_REVERSE; + break; + case 27: + v->attr &= ~CRT_ATTR_REVERSE; + break; + default: + ; +#if 0 + fprintf (stderr, "unhandled SGR %d\n", a); +#endif + } + +} + + +void +vt102_parse_attr_string (VT102 * v, char *buf, int len) +{ + int private = 0; + char last = buf[len - 1]; + char num[4]; + int o; + + memset (num, 0, sizeof (num)); + o = sizeof (num) - 1; + + len--; + + if (len < 0) + return; + + while (len--) + { + if (*buf == ';') + { + vt102_change_attr (v, &num[o]); + memset (num, 0, sizeof (num)); + o = sizeof (num) - 1; + buf++; + continue; + } + + num[0] = num[1]; + num[1] = num[2]; + num[2] = *buf; + + if (o) + o--; + + buf++; + } + vt102_change_attr (v, &num[o]); +} + +void +vt102_save_state (VT102 * v) +{ + v->saved.pos = v->pos; + v->saved.attr = v->attr; + v->saved.origin_mode = v->private_modes[VT102_PRIVATE_MODE_ORIGIN_MODE]; +} + +void +vt102_restore_state (VT102 * v) +{ + v->pos = v->saved.pos; + v->attr = v->saved.attr; + v->private_modes[VT102_PRIVATE_MODE_ORIGIN_MODE] = v->saved.origin_mode; + vt102_cursor_normalize (v); + v->pending_wrap = 0; +} + +void vt102_scs(VT102 *c,int g,int s) +{ +/*Ignoring charsets*/ +} + +void +vt102_parse_esc (VT102 * v, int c) +{ + switch (c) + { + case 'E': + if (v->pos.y == v->bottom_margin.y) + { + vt102_log_line (v, v->pos.y); + crt_scroll_up (&v->crt, v->top_margin, v->bottom_margin, 1); + } + else + { + vt102_cursor_relative (v, 0, 1); + } + break; + case 'H': + v->tabs[v->pos.x]++; + break; + case 'M': + if (v->pos.y == v->top_margin.y) + { + crt_scroll_down (&v->crt, v->top_margin, v->bottom_margin, 1); + } + else + { + vt102_cursor_relative (v, 0, -1); + } + break; + case '7': + vt102_save_state (v); + break; + case '8': + vt102_restore_state (v); + break; + case '=': + v->application_keypad_mode = 1; + break; + case '>': + v->application_keypad_mode = 0; + break; + default: +#if 0 + fprintf (stderr, "unhandled ESC \\033 \\%03o (ESC %c)\n", c, + (c < 32) ? '?' : c); +#endif + ; + } +} void vt102_parse_csi (VT102 * v, char *buf, int len) { @@ -262,7 +741,7 @@ vt102_parse_csi (VT102 * v, char *buf, int len) buf[len - 1] = 0; #endif - if (len>2) + if (len > 2) { narg = atoi (arg); } @@ -277,30 +756,45 @@ vt102_parse_csi (VT102 * v, char *buf, int len) switch (last) { case 'A': - vt102_cursor_motion (v, 0, -narg, 0); + vt102_cursor_relative (v, 0, -narg); break; case 'B': - vt102_cursor_motion (v, 0, narg, 0); + vt102_cursor_relative (v, 0, narg); break; case 'C': - vt102_cursor_motion (v, narg, 0, 0); + vt102_cursor_relative (v, narg, 0); break; case 'D': - vt102_cursor_motion (v, -narg, 0, 0); + vt102_cursor_relative (v, -narg, 0); + break; + case 'E': + vt102_cursor_relative (v, 0, narg); + vt102_cursor_carriage_return (v); + break; + case 'F': + vt102_cursor_relative (v, 0, -narg); + vt102_cursor_carriage_return (v); + break; + case 'G': + vt102_cursor_absolute (v, narg - 1, v->pos.y); break; case 'H': - v->pos.y = narg - 1; + case 'f': + { + int x, y; + + y = narg - 1; - ptr = index (arg, ';'); - if (ptr) - v->pos.x = atoi (ptr + 1) - 1; - else - v->pos.x = 0; + ptr = index (arg, ';'); + if (ptr) + x = atoi (ptr + 1) - 1; + else + x = 0; - vt102_cursor_normalize (v, 0, 0); + vt102_cursor_absolute (v, x, y); + } break; case 'J': - fprintf(stderr,"OCTOPUS %d\n",narg); switch (narg) { case 1: @@ -315,27 +809,18 @@ vt102_parse_csi (VT102 * v, char *buf, int len) { CRT_Pos ls = { 0, v->pos.y }; CRT_Pos le = { VT102_COLS - 1, v->pos.y }; - if (len==2) + if (len == 2) narg = 0; /*Different default */ switch (narg) { case 0: - fprintf(stderr,"FISH %d %d -> %d %d\n", - v->pos.x,v->pos.y, - le.x,le.y); crt_erase (&v->crt, v->pos, le, 1); break; case 1: - fprintf(stderr,"SOUP %d %d -> %d %d\n", - ls.x,ls.y, - v->pos.x,v->pos.y); crt_erase (&v->crt, ls, v->pos, 1); break; case 2: - fprintf(stderr,"TREE %d %d -> %d %d\n", - ls.x,ls.y, - le.x,le.y); crt_erase (&v->crt, ls, le, 1); break; } @@ -364,41 +849,72 @@ vt102_parse_csi (VT102 * v, char *buf, int len) } break; - case 'g': - case 'h': - case 'l': - fprintf (stderr, "C: CSI %s buf[0]=%c\n", buf,buf[0]); - break; + case 'g': + if (len == 2) + narg = 0; /*Different default */ + + switch (narg) + { + case 0: + v->tabs[v->pos.x] = 0; + break; + case 3: + memset (v->tabs, 0, sizeof (v->tabs)); + break; + } + break; + + case 'h': + case 'l': + vt102_parse_mode_string (v, &buf[1], len - 1); + break; - case 'm': - //horror of horrors parsing the ; - break; - case 'r': - v->top_margin=v->screen_start; - v->bottom_margin=v->screen_end; - - if ((len>2) && (ptr=index(arg,';'))) { - ptr++; - v->top_margin.y=narg-1; - v->bottom_margin.y=atoi(ptr)-1; - } - - if (v->top_margin.yscreen_start.y) v->top_margin.y=v->screen_start.y; - if (v->top_margin.y>v->screen_end.y) v->top_margin.y=v->screen_end.y; - if (v->bottom_margin.yscreen_start.y) v->bottom_margin.y=v->screen_start.y; - if (v->bottom_margin.y>v->screen_end.y) v->bottom_margin.y=v->screen_end.y; - - fprintf(stderr,"D: %d %d\n",v->top_margin.y,v->bottom_margin.y); - - v->pos=v->top_margin; - break; + case 'm': + vt102_parse_attr_string (v, &buf[1], len - 1); + break; + case 'r': + v->top_margin = v->screen_start; + v->bottom_margin = v->screen_end; + + if ((len > 2) && (ptr = index (arg, ';'))) + { + ptr++; + v->top_margin.y = narg - 1; + v->bottom_margin.y = atoi (ptr) - 1; + } + + if (v->top_margin.y < v->screen_start.y) + v->top_margin.y = v->screen_start.y; + if (v->top_margin.y > v->screen_end.y) + v->top_margin.y = v->screen_end.y; + if (v->bottom_margin.y < v->screen_start.y) + v->bottom_margin.y = v->screen_start.y; + if (v->bottom_margin.y > v->screen_end.y) + v->bottom_margin.y = v->screen_end.y; + + vt102_cursor_home (v); + break; + case 's': + v->saved.pos = v->pos; + break; + case 'u': + v->pos = v->saved.pos; + vt102_cursor_normalize (v); + v->pending_wrap = 0; + break; default: - fprintf (stderr, "A: CSI %s buf[0]=%c\n", buf,buf[0]); +#if 0 + fprintf (stderr, "unhandled CSI \\033%s\n", buf, buf[0]); +#endif + ; } break; default: - fprintf (stderr, "B: CSI %s buf[0]=%c\n", buf,buf[0]); +#if 0 + fprintf (stderr, "unhandled CSI \\033%s\n", buf, buf[0]); +#endif + ; } @@ -428,9 +944,10 @@ vt102_parse_char (VT102 * v, int c) { VT102_parser *p = &v->parser; + #if 0 - fprintf (stderr, "%c pc %d %d %d %d %d\n", c, c, p->in_csi, p->in_escape, - v->pos.x, v->pos.y); + fprintf (stderr, "char %c pc %d %d %d %d %d\n", (c < 32) ? 32 : c, c, + p->in_csi, p->in_escape, v->pos.x, v->pos.y); #endif if (p->in_csi) { @@ -450,12 +967,20 @@ vt102_parse_char (VT102 * v, int c) p->in_csi++; p->in_escape = 0; } + else if (scs_starter(c)) { + p->in_scs=c; + p->in_escape = 0; + } else { p->in_escape = 0; vt102_parse_esc (v, c); } } + else if (p->in_scs) { + vt102_scs(v,p->in_scs,c); + p->in_scs=0; + } else { @@ -466,27 +991,36 @@ vt102_parse_char (VT102 * v, int c) /*STX*/ case 2: /*ETX*/ case 3: /*EOT*/ case 4: + break; /*ENQ*/ case 5: + tty_write (v->tty, "vt102", 5); + break; /*ACK*/ case 6: /*BEL*/ case 7: + break; /*BS*/ case 8: - vt102_cursor_motion (v, -1, 0, 1); + vt102_cursor_retard (v); break; /*HT*/ case 9: - v->pos.x+=8; - v->pos.x&=~7; - vt102_cursor_normalize(v,1,1); + vt102_cursor_advance_tab (v); break; /*LF*/ case 10: /*VT*/ case 11: /*FF*/ case 12: - vt102_cursor_motion (v, 0, 1, 1); - break; + vt102_cursor_advance_line (v); + if (!v->modes[VT102_MODE_NEWLINE_MODE]) + break; /*CR*/ case 13: - v->pos.x = v->top_margin.x; + vt102_cursor_carriage_return (v); break; /*SO*/ case 14: + /*select G1*/ + /*Ignoring charsets*/ + break; /*SI*/ case 15: + /*select G0*/ + /*Ignoring charsets*/ + break; /*DLE*/ case 16: /*DC1 */ case 17: /*DC2 */ case 18: @@ -509,23 +1043,209 @@ vt102_parse_char (VT102 * v, int c) /*DEL*/ case 127: break; /*regular character */ default: + vt102_do_pending_wrap (v); + + if (v->modes[VT102_MODE_INSERT]) + vt102_insert_into_line (v, v->pos); + v->crt.screen[CRT_ADDR_POS (&v->pos)].chr = c; v->crt.screen[CRT_ADDR_POS (&v->pos)].attr = v->attr; - vt102_cursor_motion (v, 1, 0, 1); + vt102_cursor_advance (v); } } v->crt.pos = v->pos; + v->crt.hide_cursor = + v->private_modes[VT102_PRIVATE_MODE_SHOW_CURSOR] ? 0 : 1; + + if (v->current_line.y != v->pos.y) + { + vt102_log_line (v, v->current_line.y); + v->current_line = v->pos; + } vt102_status_line (v, "VT102 foo bar baz I'm the urban spaceman baby"); } +vt102_parse (VT102 * v, char *buf, int len) +{ + while (len--) + vt102_parse_char (v, *(buf++)); +} + + void vt102_parser_reset (VT102_parser * p) { p->in_csi = 0; p->in_escape = 0; p->csi_ptr = 0; + p->in_scs=0; +} + + +void +vt102_send (VT102 * v, uint8_t key) +{ + uint8_t c; +#if 0 + fprintf (stderr, "vts: %d(%c)\n", key, (key > 31) ? key : ' '); +#endif + if ((key > 31) && (key < 127)) + { + tty_write (v->tty, &key, 1); + return; + } + + switch (key) + { + /*NUL*/ case 0: + /*SOH*/ case 1: + /*STX*/ case 2: + /*ETX*/ case 3: + /*EOT*/ case 4: + /*ENQ*/ case 5: + /*ACK*/ case 6: + /*BEL*/ case 7: + /*BS*/ case 8: + /*HT*/ case 9: + /*LF*/ case 10: + /*VT*/ case 11: + /*FF*/ case 12: + tty_write (v->tty, &key, 1); + break; + /*CR*/ case 13: + tty_write (v->tty, &key, 1); + if (v->modes[VT102_MODE_NEWLINE_MODE]) + { + c = 10; + tty_write (v->tty, &c, 1); + } + break; + /*SO*/ case 14: + /*SI*/ case 15: + /*DLE*/ case 16: + /*DC1 */ case 17: + /*DC2 */ case 18: + /*DC3 */ case 19: + /*DC4 */ case 20: + /*NAK*/ case 21: + /*SYN*/ case 22: + /*ETB*/ case 23: + /*CAN*/ case 24: + /*EM*/ case 25: + /*SUB*/ case 26: + tty_write (v->tty, &key, 1); + break; + /*ESC*/ case 27: + /*FS*/ case 28: + /*GS*/ case 29: + /*RS*/ case 30: + /*US*/ case 31: + /*DEL*/ case 127: + tty_write (v->tty, &key, 1); + break; + + case KEY_UP: + case KEY_DOWN: + case KEY_RIGHT: + case KEY_LEFT: + case KEY_HOME: + case KEY_MIDDLE: + case KEY_END: + + if (v->private_modes[VT102_PRIVATE_MODE_CURSOR_MODE]) + { + uint8_t buf[] = { 033, 'O', 'A' + (key - KEY_UP) }; + tty_write (v->tty, &buf, sizeof (buf)); + } + else + { + uint8_t buf[] = { 033, '[', 'A' + (key - KEY_UP) }; + tty_write (v->tty, &buf, sizeof (buf)); + } + break; + case KEY_STAR: + case KEY_PLUS: + case KEY_COMMA: + case KEY_PERIOD: + case KEY_DIVIDE: + case KEY_0: + case KEY_1: + case KEY_2: + case KEY_3: + case KEY_4: + case KEY_5: + case KEY_6: + case KEY_7: + case KEY_8: + case KEY_9: + if (v->application_keypad_mode) + { + uint8_t buf[] = { 033, 'O', 'a' + (key - KEY_154) }; + tty_write (v->tty, &buf, sizeof (buf)); + } + else + { + static char kpoff[KEY_NUM] = { + [KEY_STAR] = '*', + [KEY_PLUS] = '+', + [KEY_COMMA] = ',', + [KEY_MINUS] = '-', + [KEY_PERIOD] = '.', + [KEY_DIVIDE] = '/', + [KEY_0] = '0', + [KEY_1] = '1', + [KEY_2] = '2', + [KEY_3] = '3', + [KEY_4] = '4', + [KEY_5] = '5', + [KEY_6] = '6', + [KEY_7] = '7', + [KEY_8] = '8', + [KEY_9] = '9' + }; + + tty_write (v->tty, &kpoff[key], 1); + } + break; + case KEY_ENTER: + if (v->application_keypad_mode) + { + uint8_t buf[] = { 033, 'O', 'M' }; + tty_write (v->tty, &buf, sizeof (buf)); + } + else + { + c = 13; + tty_write (v->tty, &c, 1); + if (v->modes[VT102_MODE_NEWLINE_MODE]) + { + c = 10; + tty_write (v->tty, &c, 1); + } + } + break; + case KEY_PF1: + case KEY_PF2: + case KEY_PF3: + case KEY_PF4: + { + uint8_t buf[] = { 033, 'O', 'P' + (key - KEY_PF1) }; + tty_write (v->tty, &buf, sizeof (buf)); + } + break; + case KEY_INSERT: + case KEY_DELETE: + case KEY_PGUP: + case KEY_PGDN: + { + uint8_t buf[] = { 033, '[', '0' + (key - KEY_180), '~' }; + tty_write (v->tty, &buf, sizeof (buf)); + } + break; + } + } void @@ -537,6 +1257,11 @@ vt102_reset (VT102 * v) crt_cls (&v->crt); + v->application_keypad_mode = 0; + + v->current_line = v->pos; + v->pending_wrap = 0; + v->screen_start.x = 0; v->screen_start.y = 0; v->screen_end.x = VT102_COLS - 1; @@ -545,6 +1270,59 @@ vt102_reset (VT102 * v) v->top_margin = v->screen_start; v->bottom_margin = v->screen_end; - v->pos = v->screen_start; + memset (v->modes, 0, VT102_NMODES); + memset (v->private_modes, 0, VT102_NMODES); + v->private_modes[VT102_PRIVATE_MODE_AUTO_WRAP] = 1; + v->private_modes[VT102_PRIVATE_MODE_AUTO_REPEAT] = 1; + v->private_modes[VT102_PRIVATE_MODE_SHOW_CURSOR] = 1; + v->modes[VT102_MODE_LOCAL_ECHO_OFF] = 1; + + vt102_cursor_home (v); + vt102_reset_tabs (v); + v->current_line = v->pos; + + vt102_save_state (v); + + vt102_status_line (v, "VT102 foo bar baz I'm the urban spaceman baby"); + +} + +int +vt102_dispatch (VT102 * v) +{ + char buf[1024]; + int red; + + red = tty_read (v->tty, buf, sizeof (buf)); + + if (red < 0) + return -1; + if (!red) + return 0; + + + vt102_parse (v, buf, red); + + return 0; +} + +VT102 * +vt102_new (TTY * t) +{ + VT102 *v; + + v = (VT102 *) malloc (sizeof (VT102)); + + vt102_reset (v); + + v->tty = t; + + return v; +} + +void +vt102_free (VT102 * v) +{ + free (v); }