chiark / gitweb /
*** empty log message ***
[sympathy.git] / src / ansi.c
index ddce89ea09961141b4814d248b92a22baa5f2822..d575f62ae2b0c5e73848d0d297a90e3954aa3876 100644 (file)
@@ -10,6 +10,18 @@ static char rcsid[] = "$Id$";
 
 /*
  * $Log$
+ * Revision 1.15  2008/02/07 13:19:48  james
+ * *** empty log message ***
+ *
+ * Revision 1.14  2008/02/07 12:21:16  james
+ * *** empty log message ***
+ *
+ * Revision 1.13  2008/02/07 12:16:04  james
+ * *** empty log message ***
+ *
+ * Revision 1.12  2008/02/07 11:32:41  james
+ * *** empty log message ***
+ *
  * Revision 1.11  2008/02/07 11:11:14  staffcvs
  * *** empty log message ***
  *
@@ -223,6 +235,41 @@ ansi_force_attr_normal (ANSI * a)
 {
   ansi_write (a, "\033[0m", 4);
   a->attr = CRT_ATTR_NORMAL;
+  a->color = ANSI_INVAL;
+}
+
+void
+ansi_set_color (ANSI * a, int color)
+{
+  int dif;
+  char buf[16];
+  int i;
+  int fg,bg;
+
+   if ((a->color == ANSI_INVAL) || (color!=a->color)) {
+       fg=CRT_COLOR_FG(color);
+       bg=CRT_COLOR_BG(color);
+
+       if (fg & CRT_COLOR_INTENSITY) {
+               fg+=90;
+       } else {
+               fg+=30;
+       }
+
+       if (bg & CRT_COLOR_INTENSITY) {
+               bg+=100;
+       } else {
+               bg+=40;
+       }
+
+       i=sprintf(buf,"\033[%d;%dm",fg,bg);
+#if 0
+       fprintf(stderr,"Color set to %d %d %x\n",fg,bg,color);
+#endif
+
+        ansi_write (a,buf,i); 
+       a->color=color;
+   }
 }
 
 void
@@ -237,11 +284,13 @@ ansi_set_attr (ANSI * a, int attr)
 
   a->attr = attr;
 
+#if 0
   if (attr == CRT_ATTR_NORMAL)
     {
       ansi_force_attr_normal (a);
       return;
     }
+#endif
 
   if (dif & CRT_ATTR_UNDERLINE)
     {
@@ -292,6 +341,7 @@ ansi_render (ANSI * a, CRT_CA ca)
     ca.chr = ' ';
 
   ansi_set_attr (a, ca.attr);
+  ansi_set_color(a,ca.color);
 
   ansi_write (a, &ca.chr, 1);
 
@@ -300,7 +350,7 @@ ansi_render (ANSI * a, CRT_CA ca)
 /*Can't easily wrap round here as don't know size of destination screen*/
 /*so invalidate the cached cursor position*/
 
-  if (a->pos.x >= CRT_COLS)
+  if (a->pos.x >= a->size.x)
     a->pos.x = ANSI_INVAL;
 
 }
@@ -313,12 +363,84 @@ ansi_cls (ANSI * a)
   crt_cls (&a->crt);
 
   ansi_force_attr_normal (a);
+  ansi_set_color(a,CRT_COLOR_NORMAL);
   ansi_move (a, p);
   ansi_write (a, "\033[2J", 4);
 /*different emulators leave cursor in different places after cls differently*/
   a->pos.x = ANSI_INVAL;
 }
 
+int ansi_scroll_up(ANSI *a,CRT_Pos s,CRT_Pos e)
+{
+char buf[16];
+int i;
+if (s.x) return -1;
+if (e.x!=(CRT_COLS-1)) return -1;
+if (s.y) return -1;
+if (s.y>=a->size.y) return -1;
+
+ansi_showhide_cursor (a, 1);
+i=sprintf(buf,"\033[%d;%dr",s.y+1,e.y+1);
+ansi_write(a,buf,i);
+i=sprintf(buf,"\033[%d;%dH",e.y+1,0);
+ansi_write(a,buf,i);
+ansi_write (a, "\033D",2);
+ansi_write(a,"\033[r", 3);
+
+a->pos.x=ANSI_INVAL;
+
+return 0;
+}
+
+
+void ansi_spot_scroll_up(ANSI * a, CRT * c)
+{
+int l,n,p;
+
+  l = c->sh.e.x - c->sh.s.x;
+  l++;
+  l *= sizeof (CRT_CA);
+
+  n = c->sh.e.y - c->sh.s.y;
+  p = CRT_ADDR_POS (&c->sh.s);
+
+  while (n--)
+    {
+      if (memcmp (&c->screen[p], &a->crt.screen[p + CRT_COLS], l))
+               return;
+      p += CRT_COLS;
+    }
+
+  if (ansi_scroll_up(a,c->sh.s,c->sh.e)) return;
+
+  n = c->sh.e.y - c->sh.s.y;
+  p = CRT_ADDR_POS (&c->sh.s);
+
+  while (n--)
+    {
+      memcpy (&a->crt.screen[p], &a->crt.screen[p + CRT_COLS], l);
+      p += CRT_COLS;
+    }
+
+c->sh.dir=0; //FIXME: horrid hack
+
+}
+
+void ansi_spot_scroll(ANSI * a, CRT * c)
+{
+
+ switch(c->sh.dir) {
+case -1:
+/*we only care about up for the moment */
+ansi_spot_scroll_up(a,c);
+break;
+}
+
+return;
+}
+
+
+
 
 void
 ansi_draw (ANSI * a, CRT * c)
@@ -327,6 +449,8 @@ ansi_draw (ANSI * a, CRT * c)
   int o;
   int hidden_cursor = 0;
 
+  ansi_spot_scroll(a,c);
+
   for (p.y = 0; p.y < CRT_ROWS; ++p.y)
     {
       if (p.y >= a->size.y)
@@ -356,6 +480,7 @@ ansi_draw (ANSI * a, CRT * c)
 
       ansi_showhide_cursor (a, 1);
       ansi_set_attr (a, CRT_ATTR_REVERSE);
+      ansi_set_color(a,CRT_MAKE_COLOR(CRT_COLOR_WHITE,CRT_COLOR_RED));
       ansi_move (a, p);
 
       ansi_write (a, msg, sizeof (msg));
@@ -390,18 +515,20 @@ ansi_reset (ANSI * a)
 
   ansi_cls (a);
   ansi_write (a, "\033=", 2);
+  ansi_write (a, "\033[?6l", 5);
+  ansi_write (a, "\033[r", 3);
   ansi_draw (a, &a->crt);
 }
 
 void
-ansi_flush_escape (ANSI * a, VT102 * v)
+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]);
+      vt102_send (v, p->escape_buf[i],t);
     }
 
   p->escape_ptr = 0;
@@ -409,26 +536,26 @@ ansi_flush_escape (ANSI * a, VT102 * v)
 }
 
 void
-ansi_parse_deckey (ANSI * a, VT102 * v)
+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);
+      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'));
+      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'));
+      vt102_send (v, KEY_154 + (p->escape_buf[2] - 'a'),t);
     }
   else
     {
-      ansi_flush_escape (a, v);
+      ansi_flush_escape (a, v,t);
       return;
     }
   p->in_escape = 0;
@@ -436,22 +563,22 @@ ansi_parse_deckey (ANSI * a, VT102 * v)
 }
 
 void
-ansi_parse_ansikey (ANSI * a, VT102 * v)
+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);
+      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'));
+      vt102_send (v, KEY_180 + (p->escape_buf[2] - '0'),t);
     }
   else
     {
-      ansi_flush_escape (a, v);
+      ansi_flush_escape (a, v,t);
       return;
     }
 
@@ -462,7 +589,7 @@ ansi_parse_ansikey (ANSI * a, VT102 * v)
 
 
 void
-ansi_parse_escape (ANSI * a, VT102 * v)
+ansi_parse_escape (ANSI * a, VT102 * v,TTY *t)
 {
   ANSI_Parser *p = &a->parser;
   switch (p->escape_ptr)
@@ -477,41 +604,41 @@ ansi_parse_escape (ANSI * a, VT102 * v)
         case 'O':
           break;
         default:
-          ansi_flush_escape (a, v);
+          ansi_flush_escape (a, v,t);
         }
       break;
     case 3:
       switch (p->escape_buf[1])
         {
         case 'O':
-          ansi_parse_deckey (a, v);
+          ansi_parse_deckey (a, v,t);
           break;
         case '[':
           if ((p->escape_buf[2] >= 'A') && (p->escape_buf[2] <= 'Z'))
-            ansi_parse_deckey (a, v);
+            ansi_parse_deckey (a, v,t);
           break;
         default:
-          ansi_flush_escape (a, v);
+          ansi_flush_escape (a, v,t);
         }
       break;
     case 4:
       switch (p->escape_buf[1])
         {
         case '[':
-          ansi_parse_ansikey (a, v);
+          ansi_parse_ansikey (a, v,t);
           break;
         default:
-          ansi_flush_escape (a, v);
+          ansi_flush_escape (a, v,t);
         }
       break;
     case 5:
-      ansi_flush_escape (a, v);
+      ansi_flush_escape (a, v,t);
     }
 }
 
 
 void
-ansi_check_escape (ANSI * a, VT102 * v)
+ansi_check_escape (ANSI * a, VT102 * v,TTY *t)
 {
   ANSI_Parser *p = &a->parser;
   struct timeval now, diff;
@@ -529,24 +656,24 @@ ansi_check_escape (ANSI * a, VT102 * v)
 
   /*Time up? */
   if (diff.tv_sec || (diff.tv_usec > ANSI_ESCAPE_TIMEOUT))
-    ansi_flush_escape (a, v);
+    ansi_flush_escape (a, v,t);
 
 }
 
 
 void
-ansi_parse_char (ANSI * a, int c, VT102 * v)
+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);
+  ansi_check_escape (a, v,t);
 
   if (c == 033)
     {
       if (p->in_escape)
-        ansi_flush_escape (a, v);
+        ansi_flush_escape (a, v,t);
 
       p->in_escape++;
       p->escape_ptr = 0;
@@ -556,29 +683,29 @@ ansi_parse_char (ANSI * a, int c, VT102 * v)
   if (p->in_escape)
     {
       p->escape_buf[p->escape_ptr++] = c;
-      ansi_parse_escape (a, v);
+      ansi_parse_escape (a, v,t);
     }
   else
     {
-      vt102_send (v, c);
+      vt102_send (v, c,t);
     }
 
 }
 
 void
-ansi_parse (ANSI * a, char *buf, int len, VT102 * v)
+ansi_parse (ANSI * a, char *buf, int len, VT102 * v,TTY *t)
 {
   while (len--)
-    ansi_parse_char (a, *(buf++), v);
+    ansi_parse_char (a, *(buf++), v,t);
 }
 
 int
-ansi_dispatch (ANSI * a, VT102 * v)
+ansi_dispatch (ANSI * a, VT102 * v,TTY *t)
 {
   char buf[1024];
   int red;
 
-  ansi_check_escape (a, v);
+  ansi_check_escape (a, v,t);
 
 
   red = ansi_read (a, buf, sizeof (buf));
@@ -590,13 +717,13 @@ ansi_dispatch (ANSI * a, VT102 * v)
     return -1;
 #endif
 
-#if 1
+#if 0
   if (*buf == 1) 
        return 1;
 #endif
 
 
-  ansi_parse (a, buf, red, v);
+  ansi_parse (a, buf, red, v,t);
 
   return 0;
 }