/* * vt102.c: * * Copyright (c) 2008 James McKenzie , * All rights reserved. * */ static char rcsid[] = "$Id$"; /* * $Log$ * 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 *** * * Revision 1.5 2008/02/04 20:23:55 james * *** empty log message *** * * Revision 1.4 2008/02/04 05:45:55 james * :: * * Revision 1.3 2008/02/04 02:05:06 james * *** empty log message *** * * Revision 1.2 2008/02/04 01:32:39 james * *** empty log message *** * * Revision 1.1 2008/02/03 23:36:41 james * *** empty log message *** * */ /* Termcap he say: vt102|dec vt102:\ :mi:\ :al=\E[L:dc=\E[P:dl=\E[M:ei=\E[4l:im=\E[4h:tc=vt100: vt100|vt100-am|dec vt100 (w/advanced video):\ :am:bs:ms:xn:xo:\ :co#80:it#8:li#24:vt#3:\ :DO=\E[%dB:LE=\E[%dD:RA=\E[?7l:RI=\E[%dC:SA=\E[?7h:\ :UP=\E[%dA:\ :ac=``aaffggjjkkllmmnnooppqqrrssttuuvvwwxxyyzz{{||}}~~:\ :ae=^O:as=^N:bl=^G:cb=\E[1K:cd=\E[J:ce=\E[K:cl=\E[H\E[J:\ :cm=\E[%i%d;%dH:cr=^M:cs=\E[%i%d;%dr:ct=\E[3g:do=^J:\ :eA=\E(B\E)0:ho=\E[H:kb=^H:kd=\EOB:ke=\E[?1l\E>:kl=\EOD:\ :kr=\EOC:ks=\E[?1h\E=:ku=\EOA:le=^H:mb=\E[5m:md=\E[1m:\ :me=\E[m\017:mr=\E[7m:nd=\E[C:rc=\E8:\ :rs=\E>\E[?3l\E[?4l\E[?5l\E[?7h\E[?8h:sc=\E7:se=\E[m:\ :sf=^J:so=\E[7m:sr=\EM:st=\EH:ta=^I:ue=\E[m:up=\E[A:\ :us=\E[4m:tc=vt100+fnkeys: vt100+fnkeys|dec vt100 numeric keypad:\ :k0=\EOy:k5=\EOt:k6=\EOu:k7=\EOv:k8=\EOl:k9=\EOw:k;=\EOx:\ :tc=vt100+pfkeys: vt100+pfkeys|dec vt100 numeric keypad:\ :@8=\EOM:k1=\EOP:k2=\EOQ:k3=\EOR:k4=\EOS:tc=vt100+keypad: vt100+keypad|dec vt100 numeric keypad no fkeys:\ :K1=\EOq:K2=\EOr:K3=\EOs:K4=\EOp:K5=\EOn: */ /* so the parser needs to be able to at least do CTRL-G CTRL-H CTRL-I CTRL-J CTRL-M CTRL-N CTRL-O ESC7 ESC8 ESCH ESCM ESC> ESC[%dA ESC[%dB ESC[%dC ESC[%dD ESC[H ESC[%d;%dH ESC[J ESC[K ESC[1K ESC[L ESC[M ESC[P ESC[3g ESC[4h ESC[4l ESC[m ESC[1m ESC[4m ESC[5m ESC[7m ESC[%d;%dr ESC[?3l ESC[?4l ESC[?5l ESC[?7h ESC[?7h ESC[?7l ESC[?8h ESC(B ESC)0 TODO: ESC(B ESC)0 CTRL-O ESC7 ESC8 ESCH ESCM ESC> */ #include "project.h" static inline int csi_ender (int c) { if ((c >= 'a') && (c <= 'z')) return 1; if ((c >= 'A') && (c <= 'Z')) return 1; return 0; } static inline int csi_starter (int c) { switch (c) { case '[': case '(': 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_log_line (VT102 * v, int line) { static FILE *log; CRT_Pos e = { VT102_COLS - 1, line }; CRT_Pos p = { 0, line }; if (!log) log=fopen("log","a+"); if (!log) return; for (; e.x > 0; --e.x) { if (v->crt.screen[CRT_ADDR_POS (&e)].chr != ' ') break; } for (; p.x <= e.x; ++p.x) { 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; } void vt102_cursor_normalize (VT102 * v) { CRT_Pos *top, *bottom; if (v->private_modes[VT102_PRIVATE_MODE_ORIGIN_MODE]) { vt102_clip_cursor (v, v->top_margin, v->bottom_margin); } else { vt102_clip_cursor (v, v->screen_start, v->screen_end); } } 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)) { 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_advance (VT102 * v) { if (v->pos.x < v->bottom_margin.x) { /*Normal advance*/ v->pos.x++; 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; #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) { v->pos.x = v->top_margin.x; } else { v->pos.x = 0; } vt102_cursor_advance_line (v); } 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) { 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; } 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 { 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) { int n = v->bottom_margin.x - p.x; if (n < 0) return; if (n) { memmove (&v->crt.screen[CRT_ADDR_POS (&p)], &v->crt.screen[CRT_ADDR_POS (&p) + 1], sizeof (CRT_CA) * n); } 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_change_mode (VT102 * v, int private, char *ns, int set) { 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_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_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; #if 0 case '=': case '>': { char s[] = { 033, c }; /*Horrid hack for the moment in testing change the key mode of the upstream te*/ write (1, s, 2); } break; #endif 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) { char last; char *ptr; char *arg = buf + 1; int narg; buf[len] = 0; last = buf[len - 1]; #if 0 buf[len - 1] = 0; #endif if (len > 2) { narg = atoi (arg); } else { narg = 1; } switch (buf[0]) { case '[': switch (last) { case 'A': vt102_cursor_relative (v, 0, -narg); break; case 'B': vt102_cursor_relative (v, 0, narg); break; case 'C': vt102_cursor_relative (v, narg, 0); break; case 'D': 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': case 'f': { int x, y; y = narg - 1; ptr = index (arg, ';'); if (ptr) x = atoi (ptr + 1) - 1; else x = 0; vt102_cursor_absolute (v, x, y); } break; case 'J': switch (narg) { case 1: crt_erase (&v->crt, v->pos, v->screen_end, 1); break; case 2: crt_erase (&v->crt, v->screen_start, v->screen_end, 1); break; } break; case 'K': { CRT_Pos ls = { 0, v->pos.y }; CRT_Pos le = { VT102_COLS - 1, v->pos.y }; if (len == 2) narg = 0; /*Different default */ switch (narg) { case 0: crt_erase (&v->crt, v->pos, le, 1); break; case 1: crt_erase (&v->crt, ls, v->pos, 1); break; case 2: crt_erase (&v->crt, ls, le, 1); break; } } break; case 'P': while (narg--) vt102_delete_from_line (v, v->pos); break; case 'L': if ((v->pos.y >= v->top_margin.y) && (v->pos.y <= v->bottom_margin.y)) { while (narg--) crt_scroll_down (&v->crt, v->pos, v->bottom_margin, 1); } break; case 'M': if ((v->pos.y >= v->top_margin.y) && (v->pos.y <= v->bottom_margin.y)) { while (narg--) crt_scroll_up (&v->crt, v->pos, v->bottom_margin, 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': 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: #if 0 fprintf (stderr, "unhandled CSI \\033%s\n", buf, buf[0]); #endif ; } break; default: #if 0 fprintf (stderr, "unhandled CSI \\033%s\n", buf, buf[0]); #endif ; } } void vt102_status_line (VT102 * v, char *str) { int i = VT102_COLS; CRT_CA *ca = &v->crt.screen[CRT_ADDR (VT102_STATUS_ROW, 0)]; while (i--) { ca->attr = CRT_ATTR_REVERSE; ca->chr = *str; if (*str) str++; ca++; } } void vt102_parse_char (VT102 * v, int c) { VT102_parser *p = &v->parser; #if 0 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) { p->csi_buf[p->csi_ptr++] = c; if (csi_ender (c) || (p->csi_ptr == VT102_CSI_LEN)) { vt102_parse_csi (v, p->csi_buf, p->csi_ptr); p->in_csi = 0; } } else if (p->in_escape) { if (csi_starter (c)) { p->csi_ptr = 0; p->csi_buf[p->csi_ptr++] = c; p->in_csi++; p->in_escape = 0; } else { p->in_escape = 0; vt102_parse_esc (v, c); } } else { switch (c) { /*NUL*/ case 0: /*SOH*/ case 1: /*STX*/ case 2: /*ETX*/ case 3: /*EOT*/ case 4: break; /*ENQ*/ case 5: /*FIXME: Should send ack*/ break; /*ACK*/ case 6: /*BEL*/ case 7: break; /*BS*/ case 8: vt102_cursor_retard (v); break; /*HT*/ case 9: vt102_cursor_advance_tab (v); break; /*LF*/ case 10: /*VT*/ case 11: /*FF*/ case 12: vt102_cursor_advance_line (v); if (!v->modes[VT102_MODE_NEWLINE_MODE]) break; /*CR*/ case 13: vt102_cursor_carriage_return (v); 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: break; /*ESC*/ case 27: p->in_escape++; return; /*FS*/ case 28: /*GS*/ case 29: /*RS*/ case 30: /*US*/ case 31: /*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_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"); } void vt102_parser_reset (VT102_parser * p) { p->in_csi = 0; p->in_escape = 0; p->csi_ptr = 0; } void vt102_reset (VT102 * v) { VT102_parser *p = &v->parser; vt102_parser_reset (p); crt_cls (&v->crt); 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; v->screen_end.y = VT102_ROWS - 1; v->top_margin = v->screen_start; v->bottom_margin = v->screen_end; 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; vt102_cursor_home (v); vt102_reset_tabs (v); v->current_line = v->pos; vt102_save_state(v); #if 0 { char buf[3]; int i; for (i=0;i<200;++i) { sprintf(buf,"%3d",i); vt102_parse_char (v,buf[0]); vt102_parse_char (v,buf[1]); vt102_parse_char (v,buf[2]); vt102_parse_char (v,13); vt102_parse_char (v,27); vt102_parse_char (v,'M'); } vt102_parse_char(v,'f'); vt102_parse_char (v,13); for (i=0;i<23;++i) { vt102_parse_char (v,27); vt102_parse_char (v,'M'); } vt102_parse_char(v,'b'); vt102_parse_char (v,13); } #endif vt102_status_line (v, "VT102 foo bar baz I'm the urban spaceman baby"); }