apps/irssi/src/fe-text/term-terminfo.c

   1 /*
   2  term-terminfo.c : irssi
   3
   4     Copyright (C) 2001 Timo Sirainen
   5
   6     This program is free software; you can redistribute it and/or modify
   7     it under the terms of the GNU General Public License as published by
   8     the Free Software Foundation; either version 2 of the License, or
   9     (at your option) any later version.
  10
  11     This program is distributed in the hope that it will be useful,
  12     but WITHOUT ANY WARRANTY; without even the implied warranty of
  13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14     GNU General Public License for more details.
  15
  16     You should have received a copy of the GNU General Public License
  17     along with this program; if not, write to the Free Software
  18     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19 */
  20
  21 #include "module.h"
  22 #include "signals.h"
  23 #include "term.h"
  24 #include "terminfo-core.h"
  25 #include "utf8.h"
  26
  27 #include <signal.h>
  28
  29 /* returns number of characters in the beginning of the buffer being a
  30    a single character, or -1 if more input is needed. The character will be
  31    saved in result */
  32 typedef int (*TERM_INPUT_FUNC)(const unsigned char *buffer, int size,
  33                                unichar *result);
  34
  35 struct _TERM_WINDOW {
  36         /* Terminal to use for window */
  37         TERM_REC *term;
  38
  39         /* Area for window in terminal */
  40         int x, y;
  41         int width, height;
  42 };
  43
  44 TERM_WINDOW *root_window;
  45
  46 static char *term_lines_empty; /* 1 if line is entirely empty */
  47 static int vcmove, vcx, vcy, curs_visible;
  48 static int crealx, crealy, cforcemove;
  49 static int curs_x, curs_y;
  50 static int auto_detach;
  51
  52 static int last_fg, last_bg, last_attrs;
  53
  54 static int redraw_needed, redraw_tag;
  55 static int freeze_counter;
  56
  57 static TERM_INPUT_FUNC input_func;
  58 static unsigned char term_inbuf[256];
  59 static int term_inbuf_pos;
  60
  61 /* SIGCONT handler */
  62 static void sig_cont(int p)
  63 {
  64         redraw_needed = TRUE;
  65         terminfo_cont(current_term);
  66 }
  67
  68 static int redraw_timeout(void)
  69 {
  70         if (redraw_needed) {
  71                 irssi_redraw();
  72                 redraw_needed = FALSE;
  73         }
  74
  75         return 1;
  76 }
  77
  78 int term_init(void)
  79 {
  80         struct sigaction act;
  81         int width, height;
  82
  83         last_fg = last_bg = -1;
  84         last_attrs = 0;
  85         vcx = vcy = 0; crealx = crealy = -1;
  86         vcmove = FALSE; cforcemove = TRUE;
  87         curs_visible = TRUE;
  88
  89         current_term = terminfo_core_init(stdin, stdout);
  90         if (current_term == NULL)
  91                 return FALSE;
  92
  93         if (term_get_size(&width, &height)) {
  94                 current_term->width = width;
  95                 current_term->height = height;
  96         }
  97
  98         /* grab CONT signal */
  99         sigemptyset(&act.sa_mask);
 100         act.sa_flags = 0;
 101         act.sa_handler = sig_cont;
 102         sigaction(SIGCONT, &act, NULL);
 103         redraw_tag = g_timeout_add(500, (GSourceFunc) redraw_timeout, NULL);
 104
 105         curs_x = curs_y = 0;
 106         term_width = current_term->width;
 107         term_height = current_term->height;
 108         root_window = term_window_create(0, 0, term_width, term_height);
 109         term_detached = FALSE;
 110
 111         term_lines_empty = g_new0(char, term_height);
 112
 113         term_set_input_type(TERM_TYPE_8BIT);
 114         term_common_init();
 115         g_atexit(term_deinit);
 116         return TRUE;
 117 }
 118
 119 void term_deinit(void)
 120 {
 121         if (current_term != NULL) {
 122                 signal(SIGCONT, SIG_DFL);
 123                 g_source_remove(redraw_tag);
 124
 125                 term_common_deinit();
 126                 terminfo_core_deinit(current_term);
 127                 current_term = NULL;
 128         }
 129 }
 130
 131 static void term_move_real(void)
 132 {
 133         if (term_detached) return;
 134
 135         if (vcx != crealx || vcy != crealy || cforcemove) {
 136                 if (curs_visible) {
 137                         terminfo_set_cursor_visible(FALSE);
 138                         curs_visible = FALSE;
 139                 }
 140
 141                 if (cforcemove) {
 142                         crealx = crealy = -1;
 143                         cforcemove = FALSE;
 144                 }
 145                 terminfo_move_relative(crealx, crealy, vcx, vcy);
 146                 crealx = vcx; crealy = vcy;
 147         }
 148
 149         vcmove = FALSE;
 150 }
 151
 152 /* Cursor position is unknown - move it immediately to known position */
 153 static void term_move_reset(int x, int y)
 154 {
 155         if (x >= term_width) x = term_width-1;
 156         if (y >= term_height) y = term_height-1;
 157
 158         vcx = x; vcy = y;
 159         cforcemove = TRUE;
 160         term_move_real();
 161 }
 162
 163 /* Resize terminal - if width or height is negative,
 164    the new size is unknown and should be figured out somehow */
 165 void term_resize(int width, int height)
 166 {
 167         if (width < 0 || height < 0) {
 168                 terminfo_resize(current_term);
 169                 width = current_term->width;
 170                 height = current_term->height;
 171         }
 172
 173         if (term_width != width || term_height != height) {
 174                 term_width = current_term->width = width;
 175                 term_height = current_term->height = height;
 176                 term_window_move(root_window, 0, 0, term_width, term_height);
 177
 178                 g_free(term_lines_empty);
 179                 term_lines_empty = g_new0(char, term_height);
 180         }
 181
 182         term_move_reset(0, 0);
 183 }
 184
 185 void term_resize_final(int width, int height)
 186 {
 187 }
 188
 189 /* Returns TRUE if terminal has colors */
 190 int term_has_colors(void)
 191 {
 192         return current_term->has_colors;
 193 }
 194
 195 /* Force the colors on any way you can */
 196 void term_force_colors(int set)
 197 {
 198         if (term_detached) return;
 199
 200         terminfo_setup_colors(current_term, set);
 201 }
 202
 203 /* Clear screen */
 204 void term_clear(void)
 205 {
 206         if (term_detached) return;
 207
 208         term_set_color(root_window, ATTR_RESET);
 209         terminfo_clear();
 210         term_move_reset(0, 0);
 211
 212         memset(term_lines_empty, 1, term_height);
 213 }
 214
 215 /* Beep */
 216 void term_beep(void)
 217 {
 218         if (term_detached) return;
 219
 220         terminfo_beep(current_term);
 221 }
 222
 223 /* Create a new window in terminal */
 224 TERM_WINDOW *term_window_create(int x, int y, int width, int height)
 225 {
 226         TERM_WINDOW *window;
 227
 228         window = g_new0(TERM_WINDOW, 1);
 229         window->term = current_term;
 230         window->x = x; window->y = y;
 231         window->width = width; window->height = height;
 232         return window;
 233 }
 234
 235 /* Destroy a terminal window */
 236 void term_window_destroy(TERM_WINDOW *window)
 237 {
 238         g_free(window);
 239 }
 240
 241 /* Move/resize a window */
 242 void term_window_move(TERM_WINDOW *window, int x, int y,
 243                       int width, int height)
 244 {
 245         window->x = x;
 246         window->y = y;
 247         window->width = width;
 248         window->height = height;
 249 }
 250
 251 /* Clear window */
 252 void term_window_clear(TERM_WINDOW *window)
 253 {
 254         int y;
 255
 256         if (term_detached) return;
 257
 258         terminfo_set_normal();
 259         if (window->y == 0 && window->height == term_height) {
 260                 term_clear();
 261         } else {
 262                 for (y = 0; y < window->height; y++) {
 263                         term_move(window, 0, y);
 264                         term_clrtoeol(window);
 265                 }
 266         }
 267 }
 268
 269 /* Scroll window up/down */
 270 void term_window_scroll(TERM_WINDOW *window, int count)
 271 {
 272         int y;
 273
 274         if (term_detached) return;
 275
 276         terminfo_scroll(window->y, window->y+window->height-1, count);
 277         term_move_reset(vcx, vcy);
 278
 279         /* set the newly scrolled area dirty */
 280         for (y = 0; y < window->height; y++)
 281                 term_lines_empty[window->y+y] = FALSE;
 282 }
 283
 284 /* Change active color */
 285 void term_set_color(TERM_WINDOW *window, int col)
 286 {
 287         int set_normal;
 288
 289         if (term_detached) return;
 290
 291         set_normal = ((col & ATTR_RESETFG) && last_fg != -1) ||
 292                 ((col & ATTR_RESETBG) && last_bg != -1);
 293         if (((last_attrs & ATTR_BOLD) && (col & ATTR_BOLD) == 0) ||
 294             ((last_attrs & ATTR_BLINK) && (col & ATTR_BLINK) == 0)) {
 295                 /* we'll need to get rid of bold/blink - this can only be
 296                    done with setting the default color */
 297                 set_normal = TRUE;
 298         }
 299
 300         if (set_normal) {
 301                 last_fg = last_bg = -1;
 302                 last_attrs = 0;
 303                 terminfo_set_normal();
 304         }
 305
 306         if (!term_use_colors && (col & 0xf0) != 0)
 307                 col |= ATTR_REVERSE;
 308
 309         /* reversed text (use standout) */
 310         if (col & ATTR_REVERSE) {
 311                 if ((last_attrs & ATTR_REVERSE) == 0)
 312                         terminfo_set_standout(TRUE);
 313         } else if (last_attrs & ATTR_REVERSE)
 314                 terminfo_set_standout(FALSE);
 315
 316         /* set foreground color */
 317         if ((col & 0x0f) != last_fg &&
 318             ((col & 0x0f) != 0 || (col & ATTR_RESETFG) == 0)) {
 319                 if (term_use_colors) {
 320                         last_fg = col & 0x0f;
 321                         terminfo_set_fg(last_fg);
 322                 }
 323         }
 324
 325         /* set background color */
 326         if (col & ATTR_BLINK)
 327                 col |= 0x80;
 328         else if (col & 0x80)
 329                 col |= ATTR_BLINK;
 330
 331         if ((col & 0xf0) >> 4 != last_bg &&
 332             ((col & 0xf0) != 0 || (col & ATTR_RESETBG) == 0)) {
 333                 if (term_use_colors) {
 334                         last_bg = (col & 0xf0) >> 4;
 335                         terminfo_set_bg(last_bg);
 336                 }
 337         }
 338
 339         /* bold */
 340         if (col & 0x08)
 341                 col |= ATTR_BOLD;
 342         else if (col & ATTR_BOLD)
 343                 terminfo_set_bold();
 344
 345         /* underline */
 346         if (col & ATTR_UNDERLINE) {
 347                 if ((last_attrs & ATTR_UNDERLINE) == 0)
 348                         terminfo_set_uline(TRUE);
 349         } else if (last_attrs & ATTR_UNDERLINE)
 350                 terminfo_set_uline(FALSE);
 351
 352         last_attrs = col & ~0xff;
 353 }
 354
 355 void term_move(TERM_WINDOW *window, int x, int y)
 356 {
 357         vcmove = TRUE;
 358         vcx = x+window->x;
 359         vcy = y+window->y;
 360
 361         if (vcx >= term_width)
 362                 vcx = term_width-1;
 363         if (vcy >= term_height)
 364                 vcy = term_height-1;
 365 }
 366
 367 static void term_printed_text(int count)
 368 {
 369         term_lines_empty[vcy] = FALSE;
 370
 371         /* if we continued writing past the line, wrap to next line.
 372            However, next term_move() really shouldn't try to cache
 373            the move, otherwise terminals would try to combine the
 374            last word in upper line with first word in lower line. */
 375         cforcemove = TRUE;
 376         vcx += count;
 377         while (vcx >= term_width) {
 378                 vcx -= term_width;
 379                 if (vcy < term_height) vcy++;
 380                 if (vcx > 0) term_lines_empty[vcy] = FALSE;
 381         }
 382 }
 383
 384 void term_addch(TERM_WINDOW *window, int chr)
 385 {
 386         if (term_detached) return;
 387
 388         if (vcmove) term_move_real();
 389
 390         /* With UTF-8, move cursor only if this char is either single-byte
 391            (8. bit on) or beginning of multibyte (7+8 bits on) */
 392         if (term_type != TERM_TYPE_UTF8 ||
 393             (chr & 0x80) == 0 || (chr & 0x40) == 0) {
 394                 term_printed_text(1);
 395         }
 396
 397         if (vcy != term_height || vcx != 0)
 398                 putc(chr, window->term->out);
 399 }
 400
 401 static void term_addch_utf8(TERM_WINDOW *window, unichar chr)
 402 {
 403         char buf[10];
 404         int i, len;
 405
 406         len = utf16_char_to_utf8(chr, buf);
 407         for (i = 0;  i < len; i++)
 408                 putc(buf[i], window->term->out);
 409 }
 410
 411 void term_add_unichar(TERM_WINDOW *window, unichar chr)
 412 {
 413         if (term_detached) return;
 414
 415         if (vcmove) term_move_real();
 416         term_printed_text(1);
 417         if (vcy == term_height && vcx == 0)
 418                 return; /* last char in screen */
 419
 420         switch (term_type) {
 421         case TERM_TYPE_UTF8:
 422                 term_addch_utf8(window, chr);
 423                 break;
 424         case TERM_TYPE_BIG5:
 425                 putc((chr >> 8) & 0xff, window->term->out);
 426                 putc((chr & 0xff), window->term->out);
 427                 break;
 428         default:
 429                 putc(chr, window->term->out);
 430                 break;
 431         }
 432 }
 433
 434 void term_addstr(TERM_WINDOW *window, const char *str)
 435 {
 436         int len;
 437
 438         if (term_detached) return;
 439
 440         if (vcmove) term_move_real();
 441         len = strlen(str);
 442         term_printed_text(len);
 443
 444         if (vcy != term_height || vcx != 0)
 445                 fputs(str, window->term->out);
 446         else
 447                 fwrite(str, 1, len-1, window->term->out);
 448 }
 449
 450 void term_clrtoeol(TERM_WINDOW *window)
 451 {
 452         if (term_detached) return;
 453
 454         /* clrtoeol() doesn't necessarily understand colors */
 455         if (last_fg == -1 && last_bg == -1 &&
 456             (last_attrs & (ATTR_UNDERLINE|ATTR_REVERSE)) == 0) {
 457                 if (!term_lines_empty[vcy]) {
 458                         if (vcmove) term_move_real();
 459                         terminfo_clrtoeol();
 460                         if (vcx == 0) term_lines_empty[vcy] = TRUE;
 461                 }
 462         } else if (vcx < term_width) {
 463                 /* we'll need to fill the line ourself. */
 464                 if (vcmove) term_move_real();
 465                 terminfo_repeat(' ', term_width-vcx);
 466                 terminfo_move(vcx, vcy);
 467                 term_lines_empty[vcy] = FALSE;
 468         }
 469 }
 470
 471 void term_move_cursor(int x, int y)
 472 {
 473         curs_x = x;
 474         curs_y = y;
 475 }
 476
 477 void term_refresh(TERM_WINDOW *window)
 478 {
 479         if (term_detached || freeze_counter > 0)
 480                 return;
 481
 482         term_move(root_window, curs_x, curs_y);
 483         term_move_real();
 484
 485         if (!curs_visible) {
 486                 terminfo_set_cursor_visible(TRUE);
 487                 curs_visible = TRUE;
 488         }
 489         term_set_color(window, ATTR_RESET);
 490         fflush(window != NULL ? window->term->out : current_term->out);
 491 }
 492
 493 void term_refresh_freeze(void)
 494 {
 495         freeze_counter++;
 496
 497         if (!term_detached && curs_visible) {
 498                 terminfo_set_cursor_visible(FALSE);
 499                 curs_visible = FALSE;
 500         }
 501 }
 502
 503 void term_refresh_thaw(void)
 504 {
 505         if (--freeze_counter == 0)
 506                 term_refresh(NULL);
 507 }
 508
 509 void term_auto_detach(int set)
 510 {
 511         auto_detach = set;
 512 }
 513
 514 void term_detach(void)
 515 {
 516         terminfo_stop(current_term);
 517
 518         fclose(current_term->in);
 519         fclose(current_term->out);
 520
 521         current_term->in = NULL;
 522         current_term->out = NULL;
 523         term_detached = TRUE;
 524 }
 525
 526 void term_attach(FILE *in, FILE *out)
 527 {
 528         current_term->in = in;
 529         current_term->out = out;
 530         term_detached = FALSE;
 531
 532         terminfo_cont(current_term);
 533         irssi_redraw();
 534 }
 535
 536 void term_stop(void)
 537 {
 538         if (term_detached) {
 539                 kill(getpid(), SIGSTOP);
 540         } else {
 541                 terminfo_stop(current_term);
 542                 kill(getpid(), SIGSTOP);
 543                 terminfo_cont(current_term);
 544                 irssi_redraw();
 545         }
 546 }
 547
 548 static int input_utf8(const unsigned char *buffer, int size, unichar *result)
 549 {
 550         const unsigned char *end = buffer;
 551
 552         *result = get_utf8_char(&end, size);
 553         switch (*result) {
 554         case (unichar) -2:
 555                 /* not UTF8 - fallback to 8bit ascii */
 556                 *result = *buffer;
 557                 return 1;
 558         case (unichar) -1:
 559                 /* need more data */
 560                 return -1;
 561         default:
 562                 return (int) (end-buffer)+1;
 563         }
 564 }
 565
 566 /* XXX I didn't check the encoding range of big5+. This is standard big5. */
 567 #define is_big5_los(lo) (0x40 <= (lo) && (lo) <= 0x7E) /* standard */
 568 #define is_big5_lox(lo) (0x80 <= (lo) && (lo) <= 0xFE) /* extended */
 569 #define is_big5_hi(hi)  (0x81 <= (hi) && (hi) <= 0xFE)
 570 #define is_big5(hi,lo) (is_big5_hi(hi) && (is_big5_los(lo) || is_big5_lox(lo)))
 571
 572 static int input_big5(const unsigned char *buffer, int size, unichar *result)
 573 {
 574         if (is_big5_hi(*buffer)) {
 575                 /* could be */
 576                 if (size == 1)
 577                         return -1;
 578
 579                 if (is_big5_los(buffer[1]) || is_big5_lox(buffer[1])) {
 580                         *result = buffer[1] + ((int) *buffer << 8);
 581                         return 2;
 582                 }
 583         }
 584
 585         *result = *buffer;
 586         return 1;
 587 }
 588
 589 static int input_8bit(const unsigned char *buffer, int size, unichar *result)
 590 {
 591         *result = *buffer;
 592         return 1;
 593 }
 594
 595 void term_set_input_type(int type)
 596 {
 597         switch (type) {
 598         case TERM_TYPE_UTF8:
 599                 input_func = input_utf8;
 600                 break;
 601         case TERM_TYPE_BIG5:
 602                 input_func = input_big5;
 603                 break;
 604         default:
 605                 input_func = input_8bit;
 606         }
 607 }
 608
 609 int term_gets(unichar *buffer, int size)
 610 {
 611         int ret, i, char_len;
 612
 613         if (term_detached)
 614                 return 0;
 615
 616         /* fread() doesn't work */
 617         if (size > sizeof(term_inbuf)-term_inbuf_pos)
 618                 size = sizeof(term_inbuf)-term_inbuf_pos;
 619
 620         ret = read(fileno(current_term->in),
 621                    term_inbuf + term_inbuf_pos, size);
 622         if (ret == 0) {
 623                 /* EOF - terminal got lost */
 624                 if (auto_detach)
 625                         term_detach();
 626                 ret = -1;
 627         } else if (ret == -1 && (errno == EINTR || errno == EAGAIN))
 628                 ret = 0;
 629
 630         if (ret > 0) {
 631                 /* convert input to unichars. */
 632                 term_inbuf_pos += ret;
 633                 ret = 0;
 634                 for (i = 0; i < term_inbuf_pos; ) {
 635                         char_len = input_func(term_inbuf+i, term_inbuf_pos-i,
 636                                               buffer);
 637                         if (char_len < 0)
 638                                 break;
 639
 640                         i += char_len;
 641                         buffer++;
 642                         ret++;
 643                 }
 644
 645                 if (i >= term_inbuf_pos)
 646                         term_inbuf_pos = 0;
 647                 else if (i > 0) {
 648                         memmove(term_inbuf+i, term_inbuf, term_inbuf_pos-i);
 649                         term_inbuf_pos -= i;
 650                 }
 651         }
 652
 653         return ret;
 654 }