+
+void
+ansi_flush_escape (ANSI * a, VT102 * v,TTY *t)
+{
+ ANSI_Parser *p = &a->parser;
+ int i;
+
+ for (i = 0; i < p->escape_ptr; ++i)
+ {
+ vt102_send (v, p->escape_buf[i],t);
+ }
+
+ p->escape_ptr = 0;
+ p->in_escape = 0;
+}
+
+void
+ansi_parse_deckey (ANSI * a, VT102 * v,TTY *t)
+{
+ ANSI_Parser *p = &a->parser;
+ if ((p->escape_buf[1] != '[') && (p->escape_buf[1] != 'O'))
+ {
+ ansi_flush_escape (a, v,t);
+ return;
+ }
+
+ if ((p->escape_buf[2] >= 'A') || (p->escape_buf[2] <= 'Z'))
+ {
+ vt102_send (v, KEY_UP + (p->escape_buf[2] - 'A'),t);
+ }
+ else if ((p->escape_buf[2] >= 'a') || (p->escape_buf[2] <= 'z'))
+ {
+ vt102_send (v, KEY_154 + (p->escape_buf[2] - 'a'),t);
+ }
+ else
+ {
+ ansi_flush_escape (a, v,t);
+ return;
+ }
+ p->in_escape = 0;
+ p->escape_ptr = 0;
+}
+
+void
+ansi_parse_ansikey (ANSI * a, VT102 * v,TTY *t)
+{
+ ANSI_Parser *p = &a->parser;
+
+ if ((p->escape_buf[1] != '[') || (p->escape_buf[3] != '~'))
+ {
+ ansi_flush_escape (a, v,t);
+ return;
+ }
+ if ((p->escape_buf[2] >= '0') || (p->escape_buf[2] <= '9'))
+ {
+ vt102_send (v, KEY_180 + (p->escape_buf[2] - '0'),t);
+ }
+ else
+ {
+ ansi_flush_escape (a, v,t);
+ return;
+ }
+
+ p->in_escape = 0;
+ p->escape_ptr = 0;
+}
+
+
+
+void
+ansi_parse_escape (ANSI * a, VT102 * v,TTY *t)
+{
+ ANSI_Parser *p = &a->parser;
+ switch (p->escape_ptr)
+ {
+ case 0:
+ case 1:
+ return;
+ case 2:
+ switch (p->escape_buf[1])
+ {
+ case '[':
+ case 'O':
+ break;
+ default:
+ ansi_flush_escape (a, v,t);
+ }
+ break;
+ case 3:
+ switch (p->escape_buf[1])
+ {
+ case 'O':
+ ansi_parse_deckey (a, v,t);
+ break;
+ case '[':
+ if ((p->escape_buf[2] >= 'A') && (p->escape_buf[2] <= 'Z'))
+ ansi_parse_deckey (a, v,t);
+ break;
+ default:
+ ansi_flush_escape (a, v,t);
+ }
+ break;
+ case 4:
+ switch (p->escape_buf[1])
+ {
+ case '[':
+ ansi_parse_ansikey (a, v,t);
+ break;
+ default:
+ ansi_flush_escape (a, v,t);
+ }
+ break;
+ case 5:
+ ansi_flush_escape (a, v,t);
+ }
+}
+
+
+void
+ansi_check_escape (ANSI * a, VT102 * v,TTY *t)
+{
+ ANSI_Parser *p = &a->parser;
+ struct timeval now, diff;
+ gettimeofday (&now, NULL);
+ timersub (&now, &p->last_escape, &diff);
+
+#if 0
+ fprintf (stderr, "ie %d tl %d.%06d eb %d\n",
+ p->in_escape, diff.tv_sec, diff.tv_usec, p->escape_ptr);
+#endif
+
+ if (!p->in_escape)
+ return;
+
+
+ /*Time up? */
+ if (diff.tv_sec || (diff.tv_usec > ANSI_ESCAPE_TIMEOUT))
+ ansi_flush_escape (a, v,t);
+
+}
+
+
+void
+ansi_parse_char (ANSI * a, int c, VT102 * v,TTY *t)
+{
+ ANSI_Parser *p = &a->parser;
+
+
+/*See if it's time to flush the escape*/
+ ansi_check_escape (a, v,t);
+
+ if (c == 033)
+ {
+ if (p->in_escape)
+ ansi_flush_escape (a, v,t);
+
+ p->in_escape++;
+ p->escape_ptr = 0;
+ gettimeofday (&p->last_escape, NULL);
+ }
+
+ if (p->in_escape)
+ {
+ p->escape_buf[p->escape_ptr++] = c;
+ ansi_parse_escape (a, v,t);
+ }
+ else
+ {
+ vt102_send (v, c,t);
+ }
+
+}
+
+void
+ansi_parse (ANSI * a, char *buf, int len, VT102 * v,TTY *t)
+{
+ while (len--)
+ ansi_parse_char (a, *(buf++), v,t);
+}
+
+int
+ansi_dispatch (ANSI * a, VT102 * v,TTY *t)
+{
+ char buf[1024];
+ int red;
+
+ ansi_check_escape (a, v,t);
+
+
+ red = ansi_read (a, buf, sizeof (buf));
+ if (red <= 0)
+ return red;
+
+#if 0
+ if (*buf == 3)
+ return -1;
+#endif
+
+#if 0
+ if (*buf == 1)
+ return 1;
+#endif
+
+
+ ansi_parse (a, buf, red, v,t);
+
+ return 0;
+}