+}
+
+vt102_send_id (Context * c, char *buf)
+{
+
+ if (c->t) {
+ int l = strlen (buf);
+ c->t->xmit (c->t, buf, l);
+ }
+}
+
+void
+vt102_scs (Context * c, int g, int s)
+{
+ VT102 *v = c->v;
+ int cs = VT102_CSID_US;
+
+
+ switch (s) {
+ case 'A':
+ cs = VT102_CSID_UK;
+ break;
+ case '1':
+ case '2':
+ case 'B':
+ cs = VT102_CSID_US;
+ break;
+ case '0':
+ cs = VT102_CSID_GL;
+ break;
+ }
+
+ switch (g) {
+ case '(':
+ v->g[0] = cs;
+ break;
+ case ')':
+ v->g[1] = cs;
+ break;
+ }
+
+}
+
+static int
+vt102_parse_csi (Context * c, char *buf, int len)
+{
+ char last;
+ char *ptr;
+ char *arg = buf + 1;
+ int narg;
+ int err = 0;
+
+ VT102 *v = c->v;
+
+ buf[len] = 0;
+
+ last = buf[len - 1];
+
+ if (len > 2) {
+ narg = atoi (arg);
+ } else {
+ narg = 1;
+ }
+
+ switch (buf[0]) {
+ case '[': /* CSI */
+ switch (last) {
+ case '@': /* ICH */
+ while (narg--)
+ vt102_insert_into_line (v, v->pos);
+ break;
+ case 'A': /* CUU */
+ vt102_cursor_relative (v, 0, -narg);
+ break;
+ case 'e': /* VPR */
+ case 'B': /* CUD */
+ vt102_cursor_relative (v, 0, narg);
+ break;
+ case 'a': /* HPR */
+ case 'C': /* CUF */
+ vt102_cursor_relative (v, narg, 0);
+ break;
+ case 'D': /* CUB */
+ vt102_cursor_relative (v, -narg, 0);
+ break;
+ case 'E': /* CNL */
+ vt102_cursor_relative (v, 0, narg);
+ vt102_cursor_carriage_return (v);
+ break;
+ case 'F': /* CPL */
+ vt102_cursor_relative (v, 0, -narg);
+ vt102_cursor_carriage_return (v);
+ break;
+ case 'G': /* CHG */
+ vt102_cursor_absolute (v, narg - 1, v->pos.y);
+ break;
+ case 'H': /* CUP */
+ case 'f': /* HVP */
+ {
+ 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 'I': /* CHT */
+ while (narg--)
+ vt102_cursor_advance_tab (c->v);
+ break;
+ case 'J': /* ED */
+ /* Different default */
+ if (len == 2)
+ narg = 0;
+ switch (narg) {
+ case 0:
+ crt_erase (&v->crt, v->pos, v->screen_end, 1, v->color);
+ break;
+ case 1:
+ crt_erase (&v->crt, v->screen_start, v->pos, 1, v->color);
+ break;
+ case 2:
+ crt_erase (&v->crt, v->screen_start, v->screen_end, 1, v->color);
+ break;
+ }
+ break;
+ case 'K': /* EL */
+ {
+ CRT_Pos ls = { 0, v->pos.y };
+ CRT_Pos le = { v->current_size.x - 1, v->pos.y };
+ /* Different default */
+ if (len == 2)
+ narg = 0;
+
+ switch (narg) {
+ case 0:
+ crt_erase (&v->crt, v->pos, le, 1, v->color);
+ break;
+ case 1:
+ crt_erase (&v->crt, ls, v->pos, 1, v->color);
+ break;
+ case 2:
+ crt_erase (&v->crt, ls, le, 1, v->color);
+ break;
+ }
+ }
+ break;
+
+ case 'L': /* IL */
+ 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, v->color);
+ }
+ break;
+
+ case 'M': /* DL */
+ if ((v->pos.y >= v->top_margin.y)
+ && (v->pos.y <= v->bottom_margin.y)) {
+ while (narg--) {
+ vt102_history (c, v->pos, v->bottom_margin);
+ crt_scroll_up (&v->crt, v->pos, v->bottom_margin, 1, v->color);
+ }
+ }
+ break;
+ case 'P': /* DCH */
+ while (narg--)
+ vt102_delete_from_line (v, v->pos);
+ break;
+ case 'S': /* SU */
+ while (narg--) {
+ vt102_history (c, v->top_margin, v->bottom_margin);
+ crt_scroll_up (&v->crt, v->top_margin, v->bottom_margin, 1, v->color);
+ }
+ break;
+ case 'T': /* SD */
+ while (narg--)
+ crt_scroll_down (&v->crt, v->top_margin, v->bottom_margin, 1,
+ v->color);
+ break;
+ case 'X': /* ECH */
+ {
+ CRT_Pos end = v->pos;
+ if (!narg)
+ narg++;
+
+ end.x += narg - 1;
+ if (end.x > v->bottom_margin.x)
+ end.x = v->bottom_margin.x;
+
+ crt_erase (&v->crt, v->pos, end, 1, v->color);
+ }
+ break;
+ case 'Z': /* CBT */
+ while (narg--)
+ vt102_cursor_retreat_tab (c->v);
+ break;
+ case '`': /* HPA */
+ vt102_cursor_absolute (v, narg - 1, v->pos.y);
+ break;
+ case 'b': /* REP */
+ while (narg--) {
+ vt102_regular_char (c, v, v->last_reg_char);
+ err += vt102_rx_hook (c, v->last_reg_char);
+ }
+ break;
+ case 'c': /* DA */
+ /* For some obscure reason some programs seem to send */
+ /* CSI [ ? .. c, which we ignore */
+ if (buf[1] != '?')
+ vt102_send_id (c, "\033[?2c");
+ break;
+ case 'd': /* VPA */
+ vt102_cursor_absolute (v, v->pos.x, narg - 1);
+ break;
+ case 'g': /* TBC */
+ /* Different default */
+ if (len == 2)
+ narg = 0;
+
+ switch (narg) {
+ case 0:
+ v->tabs[v->pos.x] = 0;
+ break;
+ case 2:
+ // FIXME: - LA120 says current line only WTF?
+ case 3:
+ memset (v->tabs, 0, sizeof (v->tabs));
+ break;
+ }
+ break;
+
+ case 'i': /* MC */
+ // Printer commands
+ // FIXME
+ break;
+ case 'h': /* SM */
+ case 'l': /* RM */
+ vt102_parse_mode_string (c, &buf[1], len - 1);
+ break;
+ case 'm': /* SGR */
+ vt102_parse_attr_string (v, &buf[1], len - 1);
+ break;
+ case 'n': /* DSR */
+ // Device status report
+ switch (buf[1]) {
+ case '5':
+ vt102_send_id (c, "\033[0n");
+ break;
+ case '6': /* CPR */
+ if (c->t) {
+ char buf[16];
+ int i;
+ i = sprintf (buf, "\033[%d;%dR", v->pos.y + 1, v->pos.x + 1);
+ c->t->xmit (c->t, buf, i);
+ }
+ break;
+ default:
+ // ?15n printer status
+ log_f (c->l, "<%s:%d unhandled DSR: \\033%s>", __FILE__,
+ __LINE__, buf);
+ }
+ break;
+ case 'q': /* DECLL */
+ // Load LED on off
+ break;
+ case 'r': /* DECSTBM */
+ 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': /* SCP */
+ v->saved.pos = v->pos;
+ break;
+ case 'u': /* RCP */
+ v->pos = v->saved.pos;
+ vt102_cursor_normalize (v);
+ v->pending_wrap = 0;
+ break;
+ case 'y': /* DECTST */
+ // Invoke confidence test
+ break;
+ case 'z': /* DECVERP */
+ // request terminal parameters
+ break;
+
+ default:
+ log_f (c->l, "<%s:%d unhandled CSI: \\033%s>", __FILE__, __LINE__, buf);
+
+ ;