src/screen.C

   1 /*--------------------------------*-C-*--------------------------------------*
   2  * File:        screen.c
   3  *---------------------------------------------------------------------------*
   4  *
   5  * Copyright (c) 1997-2001 Geoff Wing <gcw@pobox.com>
   6  *
   7  * This program is free software; you can redistribute it and/or modify
   8  * it under the terms of the GNU General Public License as published by
   9  * the Free Software Foundation; either version 2 of the License, or
  10  * (at your option) any later version.
  11  *
  12  * This program is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  * GNU General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU General Public License
  18  * along with this program; if not, write to the Free Software
  19  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  20  *--------------------------------------------------------------------------*/
  21 /*
  22  * We handle _all_ screen updates and selections
  23  */
  24
  25 #include "../config.h"          /* NECESSARY */
  26 #define INTERN_SCREEN
  27 #include "rxvt.h"               /* NECESSARY */
  28 #include "screen.intpro"        /* PROTOS for internal routines */
  29
  30 #include <X11/Xmd.h>            /* get the typedef for CARD32 */
  31
  32 #include <stdint.h>
  33 #include <wchar.h>
  34
  35 #include "salloc.C" // HACK!!
  36
  37 inline void fill_text (text_t *start, text_t value, int len)
  38 {
  39   while (len--)
  40     *start++ = value;
  41 }
  42
  43 /* ------------------------------------------------------------------------- */
  44 #define PROP_SIZE               16384
  45 #define TABSIZE                 8       /* default tab size */
  46
  47 /* ------------------------------------------------------------------------- *
  48  *             GENERAL SCREEN AND SELECTION UPDATE ROUTINES                  *
  49  * ------------------------------------------------------------------------- */
  50 #define ZERO_SCROLLBACK()                                              \
  51     if ((Options & Opt_scrollTtyOutput) == Opt_scrollTtyOutput)    \
  52         TermWin.view_start = 0
  53 #define CLEAR_SELECTION()                                              \
  54     selection.beg.row = selection.beg.col                     \
  55         = selection.end.row = selection.end.col = 0
  56 #define CLEAR_ALL_SELECTION()                                          \
  57     selection.beg.row = selection.beg.col                     \
  58         = selection.mark.row = selection.mark.col             \
  59         = selection.end.row = selection.end.col = 0
  60
  61 #define ROW_AND_COL_IS_AFTER(A, B, C, D)                                \
  62     (((A) > (C)) || (((A) == (C)) && ((B) > (D))))
  63 #define ROW_AND_COL_IS_BEFORE(A, B, C, D)                               \
  64     (((A) < (C)) || (((A) == (C)) && ((B) < (D))))
  65 #define ROW_AND_COL_IN_ROW_AFTER(A, B, C, D)                            \
  66     (((A) == (C)) && ((B) > (D)))
  67 #define ROW_AND_COL_IN_ROW_AT_OR_AFTER(A, B, C, D)                      \
  68     (((A) == (C)) && ((B) >= (D)))
  69 #define ROW_AND_COL_IN_ROW_BEFORE(A, B, C, D)                           \
  70     (((A) == (C)) && ((B) < (D)))
  71 #define ROW_AND_COL_IN_ROW_AT_OR_BEFORE(A, B, C, D)                     \
  72     (((A) == (C)) && ((B) <= (D)))
  73
  74 /* these must be row_col_t */
  75 #define ROWCOL_IS_AFTER(X, Y)                                           \
  76     ROW_AND_COL_IS_AFTER ((X).row, (X).col, (Y).row, (Y).col)
  77 #define ROWCOL_IS_BEFORE(X, Y)                                          \
  78     ROW_AND_COL_IS_BEFORE ((X).row, (X).col, (Y).row, (Y).col)
  79 #define ROWCOL_IN_ROW_AFTER(X, Y)                                       \
  80     ROW_AND_COL_IN_ROW_AFTER ((X).row, (X).col, (Y).row, (Y).col)
  81 #define ROWCOL_IN_ROW_BEFORE(X, Y)                                      \
  82     ROW_AND_COL_IN_ROW_BEFORE ((X).row, (X).col, (Y).row, (Y).col)
  83 #define ROWCOL_IN_ROW_AT_OR_AFTER(X, Y)                                 \
  84     ROW_AND_COL_IN_ROW_AT_OR_AFTER ((X).row, (X).col, (Y).row, (Y).col)
  85 #define ROWCOL_IN_ROW_AT_OR_BEFORE(X, Y)                                \
  86     ROW_AND_COL_IN_ROW_AT_OR_BEFORE ((X).row, (X).col, (Y).row, (Y).col)
  87
  88 /*
  89  * CLEAR_ROWS : clear <num> rows starting from row <row>
  90  * CLEAR_CHARS: clear <num> chars starting from pixel position <x,y>
  91  * ERASE_ROWS : set <num> rows starting from row <row> to the foreground colour
  92  */
  93 #define drawBuffer      TermWin.vt
  94
  95 #define CLEAR_ROWS(row, num)                                            \
  96     if (TermWin.mapped)                                              \
  97         XClearArea (display->display, drawBuffer, TermWin.int_bwidth,      \
  98                     Row2Pixel (row), (unsigned int)TermWin.width,      \
  99                     (unsigned int)Height2Pixel (num), False)
 100
 101 #define CLEAR_CHARS(x, y, num)                                          \
 102     if (TermWin.mapped)                                              \
 103         XClearArea (display->display, drawBuffer, x, y,                       \
 104                     (unsigned int)Width2Pixel (num),                      \
 105                     (unsigned int)Height2Pixel (1), False)
 106
 107 #define ERASE_ROWS(row, num)                                            \
 108     XFillRectangle (display->display, drawBuffer, TermWin.gc,              \
 109                     TermWin.int_bwidth, Row2Pixel (row),               \
 110                     (unsigned int)TermWin.width,                      \
 111                     (unsigned int)Height2Pixel (num))
 112
 113 /* ------------------------------------------------------------------------- *
 114  *                        SCREEN `COMMON' ROUTINES                           *
 115  * ------------------------------------------------------------------------- */
 116 /* Fill part/all of a line with blanks. */
 117 void
 118 rxvt_term::scr_blank_line (text_t *et, rend_t *er, unsigned int width, rend_t efs)
 119 {
 120   efs &= ~RS_baseattrMask;
 121   efs = SET_FONT (efs, TermWin.fontset->find_font (' '));
 122
 123   while (width--)
 124     {
 125       *et++ = ' ';
 126       *er++ = efs;
 127     }
 128 }
 129
 130 /* ------------------------------------------------------------------------- */
 131 /* Fill a full line with blanks - make sure it is allocated first */
 132 void
 133 rxvt_term::scr_blank_screen_mem (text_t **tp, rend_t **rp, unsigned int row, rend_t efs)
 134 {
 135 #ifdef DEBUG_STRICT
 136   assert ((tp[row] && rp[row]) || (tp[row] == NULL && rp[row] == NULL));
 137 #endif
 138   if (tp[row] == NULL)
 139     {
 140       tp[row] = (text_t *)talloc->alloc ();
 141       rp[row] = (rend_t *)ralloc->alloc ();
 142     }
 143
 144   scr_blank_line (tp[row], rp[row], TermWin.ncol, efs);
 145 }
 146
 147 /* ------------------------------------------------------------------------- *
 148  *                          SCREEN INITIALISATION                            *
 149  * ------------------------------------------------------------------------- */
 150 void
 151 rxvt_term::scr_reset ()
 152 {
 153   unsigned int ncol, nrow, total_rows, prev_total_rows;
 154   unsigned int p, q;
 155   int k;
 156   rend_t setrstyle;
 157
 158   D_SCREEN ((stderr, "rxvt_scr_reset ()"));
 159
 160   TermWin.view_start = 0;
 161   num_scr = 0;
 162
 163   if (TermWin.ncol == 0)
 164     TermWin.ncol = 80;
 165
 166   if (TermWin.nrow == 0)
 167     TermWin.nrow = 24;
 168
 169   ncol = TermWin.ncol;
 170   nrow = TermWin.nrow;
 171
 172   if (ncol == prev_ncol && nrow == prev_nrow)
 173     return;
 174
 175   want_refresh = 1;
 176
 177   total_rows = nrow + TermWin.saveLines;
 178   prev_total_rows = prev_nrow + TermWin.saveLines;
 179
 180   screen.tscroll = 0;
 181   screen.bscroll = nrow - 1;
 182
 183   if (!talloc)
 184     {
 185       talloc = new rxvt_salloc (ncol * sizeof (text_t));
 186       ralloc = new rxvt_salloc (ncol * sizeof (rend_t));
 187     }
 188
 189   if (prev_nrow == 0)
 190     {
 191       /*
 192        * first time called so just malloc everything : don't rely on realloc
 193        * Note: this is still needed so that all the scrollback lines are NULL
 194        */
 195       screen.text = (text_t **)rxvt_calloc (total_rows, sizeof (text_t *));
 196       buf_text = (text_t **)rxvt_calloc (total_rows, sizeof (text_t *));
 197       drawn_text = (text_t **)rxvt_calloc (nrow, sizeof (text_t *));
 198       swap.text = (text_t **)rxvt_calloc (nrow, sizeof (text_t *));
 199
 200       screen.tlen = (int16_t *)rxvt_calloc (total_rows, sizeof (int16_t));
 201       swap.tlen = (int16_t *)rxvt_calloc (nrow, sizeof (int16_t));
 202
 203       screen.rend = (rend_t **)rxvt_calloc (total_rows, sizeof (rend_t *));
 204       buf_rend = (rend_t **)rxvt_calloc (total_rows, sizeof (rend_t *));
 205       drawn_rend = (rend_t **)rxvt_calloc (nrow, sizeof (rend_t *));
 206       swap.rend = (rend_t **)rxvt_calloc (nrow, sizeof (rend_t *));
 207
 208       for (p = 0; p < nrow; p++)
 209         {
 210           q = p + TermWin.saveLines;
 211           scr_blank_screen_mem (screen.text, screen.rend, q, DEFAULT_RSTYLE);
 212           scr_blank_screen_mem (swap.text, swap.rend, p, DEFAULT_RSTYLE);
 213           screen.tlen[q] = swap.tlen[p] = 0;
 214           scr_blank_screen_mem (drawn_text, drawn_rend, p, DEFAULT_RSTYLE);
 215         }
 216
 217       MEMSET (charsets, 'B', sizeof (charsets));
 218       TermWin.nscrolled = 0;       /* no saved lines */
 219       rstyle = DEFAULT_RSTYLE;
 220       screen.flags = Screen_DefaultFlags;
 221       screen.cur.row = screen.cur.col = 0;
 222       screen.charset = 0;
 223       current_screen = PRIMARY;
 224       scr_cursor (SAVE);
 225
 226 #if NSCREENS
 227       swap.flags = Screen_DefaultFlags;
 228       swap.cur.row = swap.cur.col = 0;
 229       swap.charset = 0;
 230       current_screen = SECONDARY;
 231       scr_cursor (SAVE);
 232       current_screen = PRIMARY;
 233 #endif
 234
 235       selection.text = NULL;
 236       selection.len = 0;
 237       selection.op = SELECTION_CLEAR;
 238       selection.screen = PRIMARY;
 239       selection.clicks = 0;
 240       CLEAR_ALL_SELECTION ();
 241       rvideo = 0;
 242     }
 243   else
 244     {
 245       /*
 246        * add or delete rows as appropriate
 247        */
 248       setrstyle = DEFAULT_RSTYLE;
 249
 250       if (nrow < prev_nrow)
 251         {
 252           /* delete rows */
 253           k = min (TermWin.nscrolled, prev_nrow - nrow);
 254           scr_scroll_text (0, (int)prev_nrow - 1, k, 1);
 255
 256           for (p = nrow; p < prev_nrow; p++)
 257             {
 258               q = p + TermWin.saveLines;
 259               if (screen.text[q])
 260                 {
 261 #ifdef DEBUG_STRICT
 262                   assert (screen.rend[q]);
 263 #endif
 264                   talloc->free (screen.text[q]);
 265                   ralloc->free (screen.rend[q]);
 266                 }
 267               if (swap.text[p])
 268                 {
 269 #ifdef DEBUG_STRICT
 270                   assert (swap.rend[p]);
 271 #endif
 272                   talloc->free (swap.text[p]);
 273                   ralloc->free (swap.rend[p]);
 274                 }
 275 #ifdef DEBUG_STRICT
 276               assert (drawn_text[p] && drawn_rend[p]);
 277 #endif
 278               talloc->free (drawn_text[p]);
 279               ralloc->free (drawn_rend[p]);
 280             }
 281
 282           /* we have fewer rows so fix up cursor position */
 283           MIN_IT (screen.cur.row, (int32_t)nrow - 1);
 284           MIN_IT (swap.cur.row, (int32_t)nrow - 1);
 285
 286           scr_reset_realloc (); /* realloc _last_ */
 287         }
 288       else if (nrow > prev_nrow)
 289         {
 290           /* add rows */
 291           scr_reset_realloc (); /* realloc _first_ */
 292
 293           TermWin.ncol = prev_ncol; // save b/c scr_blank_screen_mem uses this
 294
 295           k = min (TermWin.nscrolled, nrow - prev_nrow);
 296
 297           for (p = prev_total_rows; p < total_rows; p++)
 298             {
 299               screen.tlen[p] = 0;
 300               screen.text[p] = NULL;
 301               screen.rend[p] = NULL;
 302             }
 303
 304           for (p = prev_total_rows; p < total_rows - k; p++)
 305             scr_blank_screen_mem (screen.text, screen.rend, p, setrstyle);
 306
 307           for (p = prev_nrow; p < nrow; p++)
 308             {
 309               swap.tlen[p] = 0;
 310               swap.text[p] = NULL;
 311               swap.rend[p] = NULL;
 312               drawn_text[p] = NULL;
 313               drawn_rend[p] = NULL;
 314               scr_blank_screen_mem (swap.text, swap.rend, p, setrstyle);
 315               scr_blank_screen_mem (drawn_text, drawn_rend, p, setrstyle);
 316             }
 317
 318           if (k > 0)
 319             {
 320               scr_scroll_text (0, (int)nrow - 1, -k, 1);
 321               screen.cur.row += k;
 322               screen.s_cur.row += k;
 323               TermWin.nscrolled -= k;
 324             }
 325 #ifdef DEBUG_STRICT
 326           assert (screen.cur.row < TermWin.nrow);
 327           assert (swap.cur.row < TermWin.nrow);
 328 #else                           /* drive with your eyes closed */
 329
 330           MIN_IT (screen.cur.row, nrow - 1);
 331           MIN_IT (swap.cur.row, nrow - 1);
 332 #endif
 333           TermWin.ncol =  ncol; // save b/c scr_blank_screen_mem uses this
 334         }
 335
 336       /* resize columns */
 337       if (ncol != prev_ncol)
 338         {
 339           int common = min (prev_ncol, ncol);
 340           rxvt_salloc *ta = new rxvt_salloc (ncol * sizeof (text_t));
 341           rxvt_salloc *ra = new rxvt_salloc (ncol * sizeof (rend_t));
 342
 343           for (p = 0; p < total_rows; p++)
 344             {
 345               if (screen.text[p])
 346                 {
 347                   text_t *t = (text_t *)ta->alloc (); memcpy (t, screen.text[p], common * sizeof (text_t)); screen.text[p] = t;
 348                   rend_t *r = (rend_t *)ra->alloc (); memcpy (r, screen.rend[p], common * sizeof (rend_t)); screen.rend[p] = r;
 349
 350                   MIN_IT (screen.tlen[p], (int16_t)ncol);
 351
 352                   if (ncol > prev_ncol)
 353                     scr_blank_line (& (screen.text[p][prev_ncol]),
 354                                     & (screen.rend[p][prev_ncol]),
 355                                     ncol - prev_ncol,
 356                                     setrstyle);
 357                 }
 358             }
 359
 360           for (p = 0; p < nrow; p++)
 361             {
 362               text_t *t = (text_t *)ta->alloc (); memcpy (t, drawn_text[p], common * sizeof (text_t)); drawn_text[p] = t;
 363               rend_t *r = (rend_t *)ra->alloc (); memcpy (r, drawn_rend[p], common * sizeof (rend_t)); drawn_rend[p] = r;
 364
 365               if (ncol > prev_ncol)
 366                 scr_blank_line (& (drawn_text[p][prev_ncol]),
 367                                 & (drawn_rend[p][prev_ncol]),
 368                                 ncol - prev_ncol, setrstyle);
 369
 370               if (swap.text[p])
 371                 {
 372                   text_t *t = (text_t *)ta->alloc (); memcpy (t, swap.text[p], common * sizeof (text_t)); swap.text[p] = t;
 373                   rend_t *r = (rend_t *)ra->alloc (); memcpy (r, swap.rend[p], common * sizeof (rend_t)); swap.rend[p] = r;
 374
 375                   MIN_IT (swap.tlen[p], (int16_t)ncol);
 376
 377                   if (ncol > prev_ncol)
 378                     scr_blank_line (& (swap.text[p][prev_ncol]),
 379                                     & (swap.rend[p][prev_ncol]),
 380                                     ncol - prev_ncol, setrstyle);
 381                 }
 382
 383             }
 384
 385           MIN_IT (screen.cur.col, (int16_t)ncol - 1);
 386           MIN_IT (swap.cur.col, (int16_t)ncol - 1);
 387
 388           delete talloc; talloc = ta;
 389           delete ralloc; ralloc = ra;
 390         }
 391
 392       if (tabs)
 393         free (tabs);
 394     }
 395
 396   prev_nrow = nrow;
 397   prev_ncol = ncol;
 398
 399   tabs = (char *)rxvt_malloc (ncol * sizeof (char));
 400
 401   for (p = 0; p < ncol; p++)
 402     tabs[p] = (p % TABSIZE == 0) ? 1 : 0;
 403
 404   tt_winch ();
 405 }
 406
 407 void
 408 rxvt_term::scr_reset_realloc ()
 409 {
 410   uint16_t total_rows, nrow;
 411
 412   nrow = TermWin.nrow;
 413   total_rows = nrow + TermWin.saveLines;
 414   /* *INDENT-OFF* */
 415   screen.text = (text_t **)rxvt_realloc (screen.text, total_rows * sizeof (text_t *));
 416   buf_text    = (text_t **)rxvt_realloc (buf_text   , total_rows * sizeof (text_t *));
 417   drawn_text  = (text_t **)rxvt_realloc (drawn_text , nrow       * sizeof (text_t *));
 418   swap.text   = (text_t **)rxvt_realloc (swap.text  , nrow       * sizeof (text_t *));
 419
 420   screen.tlen = (int16_t *)rxvt_realloc (screen.tlen, total_rows * sizeof (int16_t));
 421   swap.tlen   = (int16_t *)rxvt_realloc (swap.tlen  , total_rows * sizeof (int16_t));
 422
 423   screen.rend = (rend_t **)rxvt_realloc (screen.rend, total_rows * sizeof (rend_t *));
 424   buf_rend    = (rend_t **)rxvt_realloc (buf_rend   , total_rows * sizeof (rend_t *));
 425   drawn_rend  = (rend_t **)rxvt_realloc (drawn_rend , nrow       * sizeof (rend_t *));
 426   swap.rend   = (rend_t **)rxvt_realloc (swap.rend  , nrow       * sizeof (rend_t *));
 427   /* *INDENT-ON* */
 428 }
 429
 430 /* ------------------------------------------------------------------------- */
 431 /*
 432  * Free everything.  That way malloc debugging can find leakage.
 433  */
 434 void
 435 rxvt_term::scr_release ()
 436 {
 437   uint16_t total_rows;
 438   int i;
 439
 440   total_rows = TermWin.nrow + TermWin.saveLines;
 441
 442 #ifdef DEBUG_STRICT
 443   for (i = 0; i < total_rows; i++)
 444     {
 445       if (screen.text[i])
 446         /* then so is screen.rend[i] */
 447         assert (screen.rend[i]);
 448     }
 449 #endif
 450
 451   delete talloc; talloc = 0;
 452   delete ralloc; ralloc = 0;
 453
 454   free (screen.text);
 455   free (screen.tlen);
 456   free (screen.rend);
 457   free (drawn_text);
 458   free (drawn_rend);
 459   free (swap.text);
 460   free (swap.tlen);
 461   free (swap.rend);
 462   free (buf_text);
 463   free (buf_rend);
 464   free (tabs);
 465
 466   /* NULL these so if anything tries to use them, we'll know about it */
 467   screen.text = drawn_text = swap.text = NULL;
 468   screen.rend = drawn_rend = swap.rend = NULL;
 469   screen.tlen = swap.tlen = NULL;
 470   buf_text = NULL;
 471   buf_rend = NULL;
 472   tabs = NULL;
 473 }
 474
 475 /* ------------------------------------------------------------------------- */
 476 /*
 477  * Hard reset
 478  */
 479 void
 480 rxvt_term::scr_poweron ()
 481 {
 482   D_SCREEN ((stderr, "rxvt_scr_poweron ()"));
 483
 484   scr_release ();
 485   prev_nrow = prev_ncol = 0;
 486   scr_reset ();
 487
 488   scr_clear ();
 489   scr_refresh (SLOW_REFRESH);
 490 }
 491
 492 /* ------------------------------------------------------------------------- *
 493  *                         PROCESS SCREEN COMMANDS                           *
 494  * ------------------------------------------------------------------------- */
 495 /*
 496  * Save and Restore cursor
 497  * XTERM_SEQ: Save cursor   : ESC 7
 498  * XTERM_SEQ: Restore cursor: ESC 8
 499  */
 500 void
 501 rxvt_term::scr_cursor (int mode)
 502 {
 503   screen_t       *s;
 504
 505   D_SCREEN ((stderr, "rxvt_scr_cursor (%c)", mode));
 506
 507 #if NSCREENS && !defined(NO_SECONDARY_SCREEN_CURSOR)
 508   if (current_screen == SECONDARY)
 509     s = & (swap);
 510   else
 511 #endif
 512     s = & (screen);
 513   switch (mode)
 514     {
 515       case SAVE:
 516         s->s_cur.row = s->cur.row;
 517         s->s_cur.col = s->cur.col;
 518         s->s_rstyle = rstyle;
 519         s->s_charset = s->charset;
 520         s->s_charset_char = charsets[s->charset];
 521         break;
 522       case RESTORE:
 523         want_refresh = 1;
 524         s->cur.row = s->s_cur.row;
 525         s->cur.col = s->s_cur.col;
 526         s->flags &= ~Screen_WrapNext;
 527         rstyle = s->s_rstyle;
 528         s->charset = s->s_charset;
 529         charsets[s->charset] = s->s_charset_char;
 530         set_font_style ();
 531         break;
 532     }
 533   /* boundary check in case screen size changed between SAVE and RESTORE */
 534   MIN_IT (s->cur.row, TermWin.nrow - 1);
 535   MIN_IT (s->cur.col, TermWin.ncol - 1);
 536 #ifdef DEBUG_STRICT
 537   assert (s->cur.row >= 0);
 538   assert (s->cur.col >= 0);
 539 #else                           /* drive with your eyes closed */
 540   MAX_IT (s->cur.row, 0);
 541   MAX_IT (s->cur.col, 0);
 542 #endif
 543 }
 544
 545 /* ------------------------------------------------------------------------- */
 546 /*
 547  * Swap between primary and secondary screens
 548  * XTERM_SEQ: Primary screen  : ESC [ ? 4 7 h
 549  * XTERM_SEQ: Secondary screen: ESC [ ? 4 7 l
 550  */
 551 int
 552 rxvt_term::scr_change_screen (int scrn)
 553 {
 554   int             i;
 555 #if NSCREENS
 556   int             offset;
 557 #endif
 558
 559   want_refresh = 1;
 560
 561   D_SCREEN ((stderr, "rxvt_scr_change_screen (%d)", scrn));
 562
 563   TermWin.view_start = 0;
 564
 565   if (current_screen == scrn)
 566     return current_screen;
 567
 568   selection_check (2);        /* check for boundary cross */
 569
 570   SWAP_IT (current_screen, scrn, int);
 571 #if NSCREENS
 572   num_scr = 0;
 573   offset = TermWin.saveLines;
 574   for (i = prev_nrow; i--;)
 575     {
 576       SWAP_IT (screen.text[i + offset], swap.text[i], text_t *);
 577       SWAP_IT (screen.tlen[i + offset], swap.tlen[i], int16_t);
 578       SWAP_IT (screen.rend[i + offset], swap.rend[i], rend_t *);
 579     }
 580   SWAP_IT (screen.cur.row, swap.cur.row, int16_t);
 581   SWAP_IT (screen.cur.col, swap.cur.col, int16_t);
 582 # ifdef DEBUG_STRICT
 583   assert ((screen.cur.row >= 0) && (screen.cur.row < prev_nrow));
 584   assert ((screen.cur.col >= 0) && (screen.cur.col < prev_ncol));
 585 # else                          /* drive with your eyes closed */
 586   MAX_IT (screen.cur.row, 0);
 587   MIN_IT (screen.cur.row, (int32_t)prev_nrow - 1);
 588   MAX_IT (screen.cur.col, 0);
 589   MIN_IT (screen.cur.col, (int32_t)prev_ncol - 1);
 590 # endif
 591   SWAP_IT (screen.charset, swap.charset, int16_t);
 592   SWAP_IT (screen.flags, swap.flags, int);
 593   screen.flags |= Screen_VisibleCursor;
 594   swap.flags |= Screen_VisibleCursor;
 595 #else
 596 # ifdef SCROLL_ON_NO_SECONDARY
 597   if (current_screen == PRIMARY)
 598     scr_scroll_text (0, (prev_nrow - 1), prev_nrow, 0);
 599 # endif
 600 #endif
 601   return scrn;
 602 }
 603
 604 /* ------------------------------------------------------------------------- */
 605 /*
 606  * Change the colour for following text
 607  */
 608 void
 609 rxvt_term::scr_color (unsigned int color, int fgbg)
 610 {
 611   color &= RS_fgMask;
 612   if (fgbg == Color_fg)
 613     rstyle = SET_FGCOLOR (rstyle, color);
 614   else
 615     rstyle = SET_BGCOLOR (rstyle, color);
 616 }
 617
 618 /* ------------------------------------------------------------------------- */
 619 /*
 620  * Change the rendition style for following text
 621  */
 622 void
 623 rxvt_term::scr_rendition (int set, int style)
 624   {
 625     if (set)
 626       rstyle |= style;
 627     else if (style == ~RS_None)
 628       rstyle = DEFAULT_RSTYLE;
 629     else
 630       rstyle &= ~style;
 631   }
 632
 633 /* ------------------------------------------------------------------------- */
 634 /*
 635  * Scroll text between <row1> and <row2> inclusive, by <count> lines
 636  * count positive ==> scroll up
 637  * count negative ==> scroll down
 638  * spec == 0 for normal routines
 639  */
 640 int
 641 rxvt_term::scr_scroll_text (int row1, int row2, int count, int spec)
 642 {
 643   int i, j;
 644   long nscrolled;
 645
 646   if (count == 0 || (row1 > row2))
 647     return 0;
 648
 649   want_refresh = 1;
 650   D_SCREEN ((stderr, "rxvt_scroll_text (%d,%d,%d,%d): %s", row1, row2, count, spec, (current_screen == PRIMARY) ? "Primary" : "Secondary"));
 651
 652   if ((count > 0) && (row1 == 0) && (current_screen == PRIMARY))
 653     {
 654       nscrolled = (long)TermWin.nscrolled + (long)count;
 655
 656       if (nscrolled > (long)TermWin.saveLines)
 657         TermWin.nscrolled = TermWin.saveLines;
 658       else
 659         TermWin.nscrolled = (uint16_t)nscrolled;
 660
 661       if ((Options & Opt_scrollWithBuffer)
 662           && TermWin.view_start != 0
 663           && TermWin.view_start != TermWin.saveLines)
 664         scr_page (UP, count);
 665     }
 666   else if (!spec)
 667     row1 += TermWin.saveLines;
 668
 669   row2 += TermWin.saveLines;
 670
 671   if (selection.op && current_screen == selection.screen)
 672     {
 673       i = selection.beg.row + TermWin.saveLines;
 674       j = selection.end.row + TermWin.saveLines;
 675       if ((i < row1 && j > row1)
 676           || (i < row2 && j > row2)
 677           || (i - count < row1 && i >= row1)
 678           || (i - count > row2 && i <= row2)
 679           || (j - count < row1 && j >= row1)
 680           || (j - count > row2 && j <= row2))
 681         {
 682           CLEAR_ALL_SELECTION ();
 683           selection.op = SELECTION_CLEAR;  /* XXX: too aggressive? */
 684         }
 685       else if (j >= row1 && j <= row2)
 686         {
 687           /* move selected region too */
 688           selection.beg.row -= count;
 689           selection.end.row -= count;
 690           selection.mark.row -= count;
 691         }
 692     }
 693
 694   selection_check (0);        /* _after_ TermWin.nscrolled update */
 695
 696   num_scr += count;
 697   j = count;
 698
 699   if (count < 0)
 700     count = -count;
 701
 702   i = row2 - row1 + 1;
 703   MIN_IT (count, i);
 704
 705   if (j > 0)
 706     {
 707       /* A: scroll up */
 708
 709       /* A1: Copy lines that will get clobbered by the rotation */
 710       for (i = 0, j = row1; i < count; i++, j++)
 711         {
 712           buf_text[i] = screen.text[j];
 713           buf_rend[i] = screen.rend[j];
 714         }
 715       /* A2: Rotate lines */
 716       for (j = row1, i = j + count; i <= row2; i++, j++)
 717         {
 718           screen.tlen[j] = screen.tlen[i];
 719           screen.text[j] = screen.text[i];
 720           screen.rend[j] = screen.rend[i];
 721         }
 722       j = row2 - count + 1, i = count;
 723     }
 724   else /* if (j < 0) */
 725     {
 726       /* B: scroll down */
 727
 728       /* B1: Copy lines that will get clobbered by the rotation */
 729       for (i = 0, j = row2; i < count; i++, j--)
 730         {
 731           buf_text[i] = screen.text[j];
 732           buf_rend[i] = screen.rend[j];
 733         }
 734       /* B2: Rotate lines */
 735       for (j = row2, i = j - count; i >= row1; i--, j--)
 736         {
 737           screen.tlen[j] = screen.tlen[i];
 738           screen.text[j] = screen.text[i];
 739           screen.rend[j] = screen.rend[i];
 740         }
 741       j = row1, i = count;
 742       count = -count;
 743     }
 744
 745   /* C: Resurrect lines */
 746   for (; i--; j++)
 747     {
 748       screen.tlen[j] = 0;
 749       screen.text[j] = buf_text[i];
 750       screen.rend[j] = buf_rend[i];
 751
 752       if (!spec)              /* line length may not equal TermWin.ncol */
 753         scr_blank_screen_mem (screen.text, screen.rend,
 754                               (unsigned int)j, rstyle);
 755     }
 756
 757   return count;
 758 }
 759
 760 /* ------------------------------------------------------------------------- */
 761 /*
 762  * Add text given in <str> of length <len> to screen struct
 763  */
 764 void
 765 rxvt_term::scr_add_lines (const uint32_t *str, int nlines, int len)
 766 {
 767   unsigned char   checksel, clearsel;
 768   uint32_t        c;
 769   int             i, row, last_col;
 770   text_t         *stp;
 771   rend_t         *srp;
 772
 773   if (len <= 0)               /* sanity */
 774     return;
 775
 776   want_refresh = 1;
 777   last_col = TermWin.ncol;
 778
 779   D_SCREEN ((stderr, "rxvt_scr_add_lines (%d,%d)", nlines, len));
 780   ZERO_SCROLLBACK ();
 781   if (nlines > 0)
 782     {
 783       nlines += (screen.cur.row - screen.bscroll);
 784       if ((nlines > 0)
 785           && (screen.tscroll == 0)
 786           && (screen.bscroll == (TermWin.nrow - 1)))
 787         {
 788           /* _at least_ this many lines need to be scrolled */
 789           scr_scroll_text (screen.tscroll, screen.bscroll, nlines, 0);
 790           screen.cur.row -= nlines;
 791         }
 792     }
 793 #ifdef DEBUG_STRICT
 794   assert (screen.cur.col < last_col);
 795   assert ((screen.cur.row < TermWin.nrow)
 796          && (screen.cur.row >= - (int32_t)TermWin.nscrolled));
 797 #else                           /* drive with your eyes closed */
 798   MIN_IT (screen.cur.col, last_col - 1);
 799   MIN_IT (screen.cur.row, (int32_t)TermWin.nrow - 1);
 800   MAX_IT (screen.cur.row, - (int32_t)TermWin.nscrolled);
 801 #endif
 802   row = screen.cur.row + TermWin.saveLines;
 803
 804   checksel = (selection.op
 805               && current_screen == selection.screen) ? 1 : 0;
 806   clearsel = 0;
 807
 808   stp = screen.text[row];
 809   srp = screen.rend[row];
 810
 811   for (i = 0; i < len;)
 812     {
 813       c = str[i++];
 814       switch (c)
 815         {
 816           case '\t':
 817             scr_tab (1);
 818             continue;
 819           case '\n':
 820             if (screen.tlen[row] != -1)      /* XXX: think about this */
 821               MAX_IT (screen.tlen[row], screen.cur.col);
 822             screen.flags &= ~Screen_WrapNext;
 823             if (screen.cur.row == screen.bscroll)
 824               scr_scroll_text (screen.tscroll, screen.bscroll, 1, 0);
 825             else if (screen.cur.row < (TermWin.nrow - 1))
 826               row = (++screen.cur.row) + TermWin.saveLines;
 827             stp = screen.text[row];  /* _must_ refresh */
 828             srp = screen.rend[row];  /* _must_ refresh */
 829             continue;
 830           case '\r':
 831             if (screen.tlen[row] != -1)      /* XXX: think about this */
 832               MAX_IT (screen.tlen[row], screen.cur.col);
 833             screen.flags &= ~Screen_WrapNext;
 834             screen.cur.col = 0;
 835             continue;
 836           default:
 837             if (c == 127)
 838               continue;       /* yummmm..... */
 839             break;
 840         }
 841
 842       if (checksel            /* see if we're writing within selection */
 843           && !ROWCOL_IS_BEFORE (screen.cur, selection.beg)
 844           && ROWCOL_IS_BEFORE (screen.cur, selection.end))
 845         {
 846           checksel = 0;
 847           clearsel = 1;
 848         }
 849       if (screen.flags & Screen_WrapNext)
 850         {
 851           screen.tlen[row] = -1;
 852           if (screen.cur.row == screen.bscroll)
 853             scr_scroll_text (screen.tscroll, screen.bscroll, 1, 0);
 854           else if (screen.cur.row < (TermWin.nrow - 1))
 855             row = (++screen.cur.row) + TermWin.saveLines;
 856           stp = screen.text[row];  /* _must_ refresh */
 857           srp = screen.rend[row];  /* _must_ refresh */
 858           screen.cur.col = 0;
 859           screen.flags &= ~Screen_WrapNext;
 860         }
 861       if (screen.flags & Screen_Insert)
 862         scr_insdel_chars (1, INSERT);
 863
 864       if (charsets[screen.charset] == '0') // DEC SPECIAL
 865         switch (c)
 866           {
 867             case '+': c = 0x2192; break; case ',': c = 0x2190; break; case '-': c = 0x2191; break;
 868             case '.': c = 0x2193; break; case '0': c = 0x25ae; break; case '`': c = 0x25c6; break;
 869             case 'a': c = 0x2592; break; case 'f': c = 0x00b0; break; case 'g': c = 0x00b1; break;
 870             case 'h': c = 0x2592; break; case 'i': c = 0x2603; break; case 'j': c = 0x2518; break;
 871             case 'k': c = 0x2510; break; case 'l': c = 0x250c; break; case 'm': c = 0x2514; break;
 872             case 'n': c = 0x253c; break; case 'o': c = 0x23ba; break; case 'p': c = 0x23bb; break;
 873             case 'q': c = 0x2500; break; case 'r': c = 0x23bc; break; case 's': c = 0x23bd; break;
 874             case 't': c = 0x251c; break; case 'u': c = 0x2524; break; case 'v': c = 0x2534; break;
 875             case 'w': c = 0x252c; break; case 'x': c = 0x2502; break; case 'y': c = 0x2264; break;
 876             case 'z': c = 0x2265; break; case '{': c = 0x03c0; break; case '|': c = 0x2260; break;
 877             case '}': c = 0x00a3; break; case '~': c = 0x00b7; break;
 878           }
 879
 880       rend_t rend = SET_FONT (rstyle, TermWin.fontset->find_font (c));
 881       // rely on wcwidth to tell us the character width, at least for non-ascii
 882       int width = c <= 128 ? 1 : wcwidth (c);
 883
 884       // width -1 characters (e.g. combining chars) are ignored currently.
 885       if (width > 0)
 886         do
 887           {
 888             stp[screen.cur.col] = c;
 889             srp[screen.cur.col] = rend;
 890
 891             if (screen.cur.col < last_col - 1)
 892               screen.cur.col++;
 893             else
 894               {
 895                 screen.tlen[row] = last_col;
 896                 if (screen.flags & Screen_Autowrap)
 897                   screen.flags |= Screen_WrapNext;
 898                 break;
 899               }
 900
 901             c = NOCHAR;
 902           }
 903         while (--width > 0);
 904       else
 905         (void)0; /* handle combining character etc. here. */
 906     }
 907
 908   if (screen.tlen[row] != -1)      /* XXX: think about this */
 909     MAX_IT (screen.tlen[row], screen.cur.col);
 910
 911   /*
 912    * If we wrote anywhere in the selected area, kill the selection
 913    * XXX: should we kill the mark too?  Possibly, but maybe that
 914    *      should be a similar check.
 915    */
 916   if (clearsel)
 917     CLEAR_SELECTION ();
 918
 919 #ifdef DEBUG_STRICT
 920   assert (screen.cur.row >= 0);
 921 #else                           /* drive with your eyes closed */
 922   MAX_IT (screen.cur.row, 0);
 923 #endif
 924 }
 925
 926 /* ------------------------------------------------------------------------- */
 927 /*
 928  * Process Backspace.  Move back the cursor back a position, wrap if have to
 929  * XTERM_SEQ: CTRL-H
 930  */
 931 void
 932 rxvt_term::scr_backspace ()
 933 {
 934   want_refresh = 1;
 935   if (screen.cur.col == 0)
 936     {
 937       if (screen.cur.row > 0)
 938         {
 939 #ifdef TERMCAP_HAS_BW
 940           screen.cur.col = TermWin.ncol - 1;
 941           screen.cur.row--;
 942           return;
 943 #endif
 944
 945         }
 946     }
 947   else if ((screen.flags & Screen_WrapNext) == 0)
 948     scr_gotorc (0, -1, RELATIVE);
 949   screen.flags &= ~Screen_WrapNext;
 950 }
 951
 952 /* ------------------------------------------------------------------------- */
 953 /*
 954  * Process Horizontal Tab
 955  * count: +ve = forward; -ve = backwards
 956  * XTERM_SEQ: CTRL-I
 957  */
 958 void
 959 rxvt_term::scr_tab (int count)
 960 {
 961   int             i, x;
 962
 963   D_SCREEN ((stderr, "rxvt_scr_tab (%d)", count));
 964   want_refresh = 1;
 965   i = x = screen.cur.col;
 966   if (count == 0)
 967     return;
 968   else if (count > 0)
 969     {
 970       for (; ++i < TermWin.ncol; )
 971         if (tabs[i])
 972           {
 973             x = i;
 974             if (!--count)
 975               break;
 976           }
 977       if (count)
 978         x = TermWin.ncol - 1;
 979     }
 980   else /* if (count < 0) */
 981     {
 982       for (; --i >= 0; )
 983         if (tabs[i])
 984           {
 985             x = i;
 986             if (!++count)
 987               break;
 988           }
 989       if (count)
 990         x = 0;
 991     }
 992   if (x != screen.cur.col)
 993     scr_gotorc (0, x, R_RELATIVE);
 994 }
 995
 996 /* ------------------------------------------------------------------------- */
 997 /*
 998  * Process DEC Back Index
 999  * XTERM_SEQ: ESC 6
1000  * Move cursor left in row.  If we're at the left boundary, shift everything
1001  * in that row right.  Clear left column.
1002  */
1003 #ifndef NO_FRILLS
1004 void
1005 rxvt_term::scr_backindex ()
1006 {
1007   if (screen.cur.col > 0)
1008     scr_gotorc (0, -1, R_RELATIVE | C_RELATIVE);
1009   else
1010     {
1011       if (screen.tlen[screen.cur.row + TermWin.saveLines] == 0)
1012         return;             /* um, yeah? */
1013       scr_insdel_chars (1, INSERT);
1014     }
1015 }
1016 #endif
1017 /* ------------------------------------------------------------------------- */
1018 /*
1019  * Process DEC Forward Index
1020  * XTERM_SEQ: ESC 9
1021  * Move cursor right in row.  If we're at the right boundary, shift everything
1022  * in that row left.  Clear right column.
1023  */
1024 #ifndef NO_FRILLS
1025 void
1026 rxvt_term::scr_forwardindex ()
1027 {
1028   int             row;
1029
1030   if (screen.cur.col < TermWin.ncol - 1)
1031     scr_gotorc (0, 1, R_RELATIVE | C_RELATIVE);
1032   else
1033     {
1034       row = screen.cur.row + TermWin.saveLines;
1035       if (screen.tlen[row] == 0)
1036         return;             /* um, yeah? */
1037       else if (screen.tlen[row] == -1)
1038         screen.tlen[row] = TermWin.ncol;
1039       scr_gotorc (0, 0, R_RELATIVE);
1040       scr_insdel_chars (1, DELETE);
1041       scr_gotorc (0, TermWin.ncol - 1, R_RELATIVE);
1042     }
1043 }
1044 #endif
1045
1046 /* ------------------------------------------------------------------------- */
1047 /*
1048  * Goto Row/Column
1049  */
1050 void
1051 rxvt_term::scr_gotorc (int row, int col, int relative)
1052 {
1053   want_refresh = 1;
1054   ZERO_SCROLLBACK ();
1055
1056   D_SCREEN ((stderr, "rxvt_scr_gotorc (r:%s%d,c:%s%d): from (r:%d,c:%d)", (relative & R_RELATIVE ? "+" : ""), row, (relative & C_RELATIVE ? "+" : ""), col, screen.cur.row, screen.cur.col));
1057
1058   screen.cur.col = ((relative & C_RELATIVE) ? (screen.cur.col + col)
1059                     : col);
1060   MAX_IT (screen.cur.col, 0);
1061   MIN_IT (screen.cur.col, (int32_t)TermWin.ncol - 1);
1062
1063   screen.flags &= ~Screen_WrapNext;
1064   if (relative & R_RELATIVE)
1065     {
1066       if (row > 0)
1067         {
1068           if (screen.cur.row <= screen.bscroll
1069               && (screen.cur.row + row) > screen.bscroll)
1070             screen.cur.row = screen.bscroll;
1071           else
1072             screen.cur.row += row;
1073         }
1074       else if (row < 0)
1075         {
1076           if (screen.cur.row >= screen.tscroll
1077               && (screen.cur.row + row) < screen.tscroll)
1078             screen.cur.row = screen.tscroll;
1079           else
1080             screen.cur.row += row;
1081         }
1082     }
1083   else
1084     {
1085       if (screen.flags & Screen_Relative)
1086         {        /* relative origin mode */
1087           screen.cur.row = row + screen.tscroll;
1088           MIN_IT (screen.cur.row, screen.bscroll);
1089         }
1090       else
1091         screen.cur.row = row;
1092     }
1093   MAX_IT (screen.cur.row, 0);
1094   MIN_IT (screen.cur.row, (int32_t)TermWin.nrow - 1);
1095 }
1096
1097 /* ------------------------------------------------------------------------- */
1098 /*
1099  * direction  should be UP or DN
1100  */
1101 void
1102 rxvt_term::scr_index (enum page_dirn direction)
1103 {
1104   int             dirn;
1105
1106   want_refresh = 1;
1107   dirn = ((direction == UP) ? 1 : -1);
1108   D_SCREEN ((stderr, "rxvt_scr_index (%d)", dirn));
1109
1110   ZERO_SCROLLBACK ();
1111
1112   screen.flags &= ~Screen_WrapNext;
1113   if ((screen.cur.row == screen.bscroll && direction == UP)
1114       || (screen.cur.row == screen.tscroll && direction == DN))
1115     scr_scroll_text (screen.tscroll, screen.bscroll, dirn, 0);
1116   else
1117     screen.cur.row += dirn;
1118   MAX_IT (screen.cur.row, 0);
1119   MIN_IT (screen.cur.row, (int32_t)TermWin.nrow - 1);
1120   selection_check (0);
1121 }
1122
1123 /* ------------------------------------------------------------------------- */
1124 /*
1125  * Erase part or whole of a line
1126  * XTERM_SEQ: Clear line to right: ESC [ 0 K
1127  * XTERM_SEQ: Clear line to left : ESC [ 1 K
1128  * XTERM_SEQ: Clear whole line   : ESC [ 2 K
1129  */
1130 void
1131 rxvt_term::scr_erase_line (int mode)
1132 {
1133   unsigned int row, col, num;
1134
1135   want_refresh = 1;
1136   D_SCREEN ((stderr, "rxvt_scr_erase_line (%d) at screen row: %d", mode, screen.cur.row));
1137   ZERO_SCROLLBACK ();
1138
1139   selection_check (1);
1140
1141   screen.flags &= ~Screen_WrapNext;
1142
1143   row = TermWin.saveLines + screen.cur.row;
1144   switch (mode)
1145     {
1146       case 0:                     /* erase to end of line */
1147         col = screen.cur.col;
1148         num = TermWin.ncol - col;
1149         MIN_IT (screen.tlen[row], (int16_t)col);
1150         if (ROWCOL_IN_ROW_AT_OR_AFTER (selection.beg, screen.cur)
1151             || ROWCOL_IN_ROW_AT_OR_AFTER (selection.end, screen.cur))
1152           CLEAR_SELECTION ();
1153         break;
1154       case 1:                     /* erase to beginning of line */
1155         col = 0;
1156         num = screen.cur.col + 1;
1157         if (ROWCOL_IN_ROW_AT_OR_BEFORE (selection.beg, screen.cur)
1158             || ROWCOL_IN_ROW_AT_OR_BEFORE (selection.end, screen.cur))
1159           CLEAR_SELECTION ();
1160         break;
1161       case 2:                     /* erase whole line */
1162         col = 0;
1163         num = TermWin.ncol;
1164         screen.tlen[row] = 0;
1165         if (selection.beg.row <= screen.cur.row
1166             && selection.end.row >= screen.cur.row)
1167           CLEAR_SELECTION ();
1168         break;
1169       default:
1170         return;
1171     }
1172
1173   if (screen.text[row])
1174     scr_blank_line (& (screen.text[row][col]),
1175                     & (screen.rend[row][col]), num, rstyle);
1176   else
1177     scr_blank_screen_mem (screen.text, screen.rend, row, rstyle);
1178 }
1179
1180 /* ------------------------------------------------------------------------- */
1181 /*
1182  * Erase part of whole of the screen
1183  * XTERM_SEQ: Clear screen after cursor : ESC [ 0 J
1184  * XTERM_SEQ: Clear screen before cursor: ESC [ 1 J
1185  * XTERM_SEQ: Clear whole screen        : ESC [ 2 J
1186  */
1187 void
1188 rxvt_term::scr_erase_screen (int mode)
1189 {
1190   int             num;
1191   int32_t         row, row_offset;
1192   rend_t          ren;
1193   XGCValues       gcvalue;
1194
1195   want_refresh = 1;
1196   D_SCREEN ((stderr, "rxvt_scr_erase_screen (%d) at screen row: %d", mode, screen.cur.row));
1197   ZERO_SCROLLBACK ();
1198   row_offset = (int32_t)TermWin.saveLines;
1199
1200   switch (mode)
1201     {
1202       case 0:                     /* erase to end of screen */
1203         selection_check (1);
1204         scr_erase_line (0);
1205         row = screen.cur.row + 1;    /* possible OOB */
1206         num = TermWin.nrow - row;
1207         break;
1208       case 1:                     /* erase to beginning of screen */
1209         selection_check (3);
1210         scr_erase_line (1);
1211         row = 0;
1212         num = screen.cur.row;
1213         break;
1214       case 2:                     /* erase whole screen */
1215         selection_check (3);
1216         row = 0;
1217         num = TermWin.nrow;
1218         break;
1219       default:
1220         return;
1221     }
1222   refresh_type |= REFRESH_BOUNDS;
1223   if (selection.op && current_screen == selection.screen
1224       && ((selection.beg.row >= row && selection.beg.row <= row + num)
1225           || (selection.end.row >= row
1226               && selection.end.row <= row + num)))
1227     CLEAR_SELECTION ();
1228   if (row >= TermWin.nrow) /* Out Of Bounds */
1229     return;
1230   MIN_IT (num, (TermWin.nrow - row));
1231   if (rstyle & (RS_RVid | RS_Uline))
1232     ren = (rend_t) ~RS_None;
1233   else if (GET_BASEBG (rstyle) == Color_bg)
1234     {
1235       ren = DEFAULT_RSTYLE;
1236       CLEAR_ROWS (row, num);
1237     }
1238   else
1239     {
1240       ren = (rstyle & (RS_fgMask | RS_bgMask));
1241       gcvalue.foreground = PixColors[GET_BGCOLOR (rstyle)];
1242       XChangeGC (display->display, TermWin.gc, GCForeground, &gcvalue);
1243       ERASE_ROWS (row, num);
1244       gcvalue.foreground = PixColors[Color_fg];
1245       XChangeGC (display->display, TermWin.gc, GCForeground, &gcvalue);
1246     }
1247   for (; num--; row++)
1248     {
1249       scr_blank_screen_mem (screen.text, screen.rend,
1250                             (unsigned int) (row + row_offset), rstyle);
1251       screen.tlen[row + row_offset] = 0;
1252       scr_blank_line (drawn_text[row], drawn_rend[row],
1253                       (unsigned int)TermWin.ncol, ren);
1254     }
1255 }
1256
1257 /* ------------------------------------------------------------------------- */
1258 /*
1259  * Fill the screen with `E's
1260  * XTERM_SEQ: Screen Alignment Test: ESC # 8
1261  */
1262 void
1263 rxvt_term::scr_E ()
1264 {
1265   int             i, j, k;
1266   rend_t         *r1, fs;
1267
1268   want_refresh = 1;
1269   num_scr_allow = 0;
1270   ZERO_SCROLLBACK ();
1271   selection_check (3);
1272
1273   fs = SET_FONT (rstyle, TermWin.fontset->find_font ('E'));
1274   for (k = TermWin.saveLines, i = TermWin.nrow; i--; k++)
1275     {
1276       screen.tlen[k] = TermWin.ncol;    /* make the `E's selectable */
1277       fill_text (screen.text[k], 'E', TermWin.ncol);
1278       for (r1 = screen.rend[k], j = TermWin.ncol; j--; )
1279         *r1++ = fs;
1280     }
1281 }
1282
1283 /* ------------------------------------------------------------------------- */
1284 /*
1285  * Insert/Delete <count> lines
1286  */
1287 void
1288 rxvt_term::scr_insdel_lines (int count, int insdel)
1289 {
1290   int             end;
1291
1292   ZERO_SCROLLBACK ();
1293
1294   selection_check (1);
1295
1296   if (screen.cur.row > screen.bscroll)
1297     return;
1298
1299   end = screen.bscroll - screen.cur.row + 1;
1300   if (count > end)
1301     {
1302       if (insdel == DELETE)
1303         return;
1304       else if (insdel == INSERT)
1305         count = end;
1306     }
1307   screen.flags &= ~Screen_WrapNext;
1308
1309   scr_scroll_text (screen.cur.row, screen.bscroll, insdel * count, 0);
1310 }
1311
1312 /* ------------------------------------------------------------------------- */
1313 /*
1314  * Insert/Delete <count> characters from the current position
1315  */
1316 void
1317 rxvt_term::scr_insdel_chars (int count, int insdel)
1318 {
1319   int             col, row;
1320   rend_t          tr;
1321   text_t         *stp;
1322   rend_t         *srp;
1323   int16_t        *slp;
1324
1325   want_refresh = 1;
1326   ZERO_SCROLLBACK ();
1327
1328   if (count <= 0)
1329     return;
1330
1331   selection_check (1);
1332   MIN_IT (count, (TermWin.ncol - screen.cur.col));
1333
1334   row = screen.cur.row + TermWin.saveLines;
1335   screen.flags &= ~Screen_WrapNext;
1336
1337   stp = screen.text[row];
1338   srp = screen.rend[row];
1339   slp = & (screen.tlen[row]);
1340   switch (insdel)
1341     {
1342       case INSERT:
1343         for (col = TermWin.ncol - 1; (col - count) >= screen.cur.col;
1344              col--)
1345           {
1346             stp[col] = stp[col - count];
1347             srp[col] = srp[col - count];
1348           }
1349         if (*slp != -1)
1350           {
1351             *slp += count;
1352             MIN_IT (*slp, TermWin.ncol);
1353           }
1354         if (selection.op && current_screen == selection.screen
1355             && ROWCOL_IN_ROW_AT_OR_AFTER (selection.beg, screen.cur))
1356           {
1357             if (selection.end.row != screen.cur.row
1358                 || (selection.end.col + count >= TermWin.ncol))
1359               CLEAR_SELECTION ();
1360             else
1361               {              /* shift selection */
1362                 selection.beg.col += count;
1363                 selection.mark.col += count; /* XXX: yes? */
1364                 selection.end.col += count;
1365               }
1366           }
1367         scr_blank_line (& (stp[screen.cur.col]), & (srp[screen.cur.col]),
1368                         (unsigned int)count, rstyle);
1369         break;
1370       case ERASE:
1371         screen.cur.col += count;     /* don't worry if > TermWin.ncol */
1372         selection_check (1);
1373         screen.cur.col -= count;
1374         scr_blank_line (& (stp[screen.cur.col]), & (srp[screen.cur.col]),
1375                         (unsigned int)count, rstyle);
1376         break;
1377       case DELETE:
1378         tr = srp[TermWin.ncol - 1]
1379              & (RS_fgMask | RS_bgMask | RS_baseattrMask);
1380         for (col = screen.cur.col; (col + count) < TermWin.ncol; col++)
1381           {
1382             stp[col] = stp[col + count];
1383             srp[col] = srp[col + count];
1384           }
1385         scr_blank_line (& (stp[TermWin.ncol - count]),
1386                         & (srp[TermWin.ncol - count]),
1387                         (unsigned int)count, tr);
1388         if (*slp == -1) /* break line continuation */
1389           *slp = TermWin.ncol;
1390         *slp -= count;
1391         MAX_IT (*slp, 0);
1392         if (selection.op && current_screen == selection.screen
1393             && ROWCOL_IN_ROW_AT_OR_AFTER (selection.beg, screen.cur))
1394           {
1395             if (selection.end.row != screen.cur.row
1396                 || (screen.cur.col >= selection.beg.col - count)
1397                 || selection.end.col >= TermWin.ncol)
1398               CLEAR_SELECTION ();
1399             else
1400               {
1401                 /* shift selection */
1402                 selection.beg.col -= count;
1403                 selection.mark.col -= count; /* XXX: yes? */
1404                 selection.end.col -= count;
1405               }
1406           }
1407         break;
1408     }
1409 }
1410
1411 /* ------------------------------------------------------------------------- */
1412 /*
1413  * Set the scrolling region
1414  * XTERM_SEQ: Set region <top> - <bot> inclusive: ESC [ <top> ; <bot> r
1415  */
1416 void
1417 rxvt_term::scr_scroll_region (int top, int bot)
1418 {
1419   MAX_IT (top, 0);
1420   MIN_IT (bot, (int)TermWin.nrow - 1);
1421   if (top > bot)
1422     return;
1423   screen.tscroll = top;
1424   screen.bscroll = bot;
1425   scr_gotorc (0, 0, 0);
1426 }
1427
1428 /* ------------------------------------------------------------------------- */
1429 /*
1430  * Make the cursor visible/invisible
1431  * XTERM_SEQ: Make cursor visible  : ESC [ ? 25 h
1432  * XTERM_SEQ: Make cursor invisible: ESC [ ? 25 l
1433  */
1434 void
1435 rxvt_term::scr_cursor_visible (int mode)
1436 {
1437   want_refresh = 1;
1438   if (mode)
1439     screen.flags |= Screen_VisibleCursor;
1440   else
1441     screen.flags &= ~Screen_VisibleCursor;
1442 }
1443
1444 /* ------------------------------------------------------------------------- */
1445 /*
1446  * Set/unset automatic wrapping
1447  * XTERM_SEQ: Set Wraparound  : ESC [ ? 7 h
1448  * XTERM_SEQ: Unset Wraparound: ESC [ ? 7 l
1449  */
1450 void
1451 rxvt_term::scr_autowrap (int mode)
1452 {
1453   if (mode)
1454     screen.flags |= Screen_Autowrap;
1455   else
1456     screen.flags &= ~ (Screen_Autowrap | Screen_WrapNext);
1457 }
1458
1459 /* ------------------------------------------------------------------------- */
1460 /*
1461  * Set/unset margin origin mode
1462  * Absolute mode: line numbers are counted relative to top margin of screen
1463  *      and the cursor can be moved outside the scrolling region.
1464  * Relative mode: line numbers are relative to top margin of scrolling region
1465  *      and the cursor cannot be moved outside.
1466  * XTERM_SEQ: Set Absolute: ESC [ ? 6 h
1467  * XTERM_SEQ: Set Relative: ESC [ ? 6 l
1468  */
1469 void
1470 rxvt_term::scr_relative_origin (int mode)
1471 {
1472   if (mode)
1473     screen.flags |= Screen_Relative;
1474   else
1475     screen.flags &= ~Screen_Relative;
1476   scr_gotorc (0, 0, 0);
1477 }
1478
1479 /* ------------------------------------------------------------------------- */
1480 /*
1481  * Set insert/replace mode
1482  * XTERM_SEQ: Set Insert mode : ESC [ ? 4 h
1483  * XTERM_SEQ: Set Replace mode: ESC [ ? 4 l
1484  */
1485 void
1486 rxvt_term::scr_insert_mode (int mode)
1487 {
1488   if (mode)
1489     screen.flags |= Screen_Insert;
1490   else
1491     screen.flags &= ~Screen_Insert;
1492 }
1493
1494 /* ------------------------------------------------------------------------- */
1495 /*
1496  * Set/Unset tabs
1497  * XTERM_SEQ: Set tab at current column  : ESC H
1498  * XTERM_SEQ: Clear tab at current column: ESC [ 0 g
1499  * XTERM_SEQ: Clear all tabs             : ESC [ 3 g
1500  */
1501 void
1502 rxvt_term::scr_set_tab (int mode)
1503 {
1504   if (mode < 0)
1505     MEMSET (tabs, 0, TermWin.ncol * sizeof (char));
1506   else if (screen.cur.col < TermWin.ncol)
1507     tabs[screen.cur.col] = (mode ? 1 : 0);
1508 }
1509
1510 /* ------------------------------------------------------------------------- */
1511 /*
1512  * Set reverse/normal video
1513  * XTERM_SEQ: Reverse video: ESC [ ? 5 h
1514  * XTERM_SEQ: Normal video : ESC [ ? 5 l
1515  */
1516 void
1517 rxvt_term::scr_rvideo_mode (int mode)
1518 {
1519   XGCValues       gcvalue;
1520
1521   if (rvideo != mode)
1522     {
1523       rvideo = mode;
1524       SWAP_IT (PixColors[Color_fg], PixColors[Color_bg], rxvt_color);
1525 #if defined(XPM_BACKGROUND)
1526       if (bgPixmap.pixmap == None)
1527 #endif
1528 #if defined(TRANSPARENT)
1529         if (! (Options & Opt_transparent) || am_transparent == 0)
1530 #endif
1531           XSetWindowBackground (display->display, TermWin.vt,
1532                                PixColors[Color_bg]);
1533
1534       gcvalue.foreground = PixColors[Color_fg];
1535       gcvalue.background = PixColors[Color_bg];
1536       XChangeGC (display->display, TermWin.gc, GCBackground | GCForeground,
1537                 &gcvalue);
1538       scr_clear ();
1539       scr_touch (true);
1540     }
1541 }
1542
1543 /* ------------------------------------------------------------------------- */
1544 /*
1545  * Report current cursor position
1546  * XTERM_SEQ: Report position: ESC [ 6 n
1547  */
1548 void
1549 rxvt_term::scr_report_position ()
1550 {
1551   tt_printf ("\033[%d;%dR", screen.cur.row + 1, screen.cur.col + 1);
1552 }
1553 \f
1554 /* ------------------------------------------------------------------------- *
1555  *                                  FONTS                                    *
1556  * ------------------------------------------------------------------------- */
1557
1558 /*
1559  * Set font style
1560  */
1561 void
1562 rxvt_term::set_font_style ()
1563 {
1564   switch (charsets[screen.charset])
1565     {
1566       case '0':                   /* DEC Special Character & Line Drawing Set */
1567         break;
1568       case 'A':                   /* United Kingdom (UK) */
1569         break;
1570       case 'B':                   /* United States (USASCII) */
1571         break;
1572       case '<':                   /* Multinational character set */
1573         break;
1574       case '5':                   /* Finnish character set */
1575         break;
1576       case 'C':                   /* Finnish character set */
1577         break;
1578       case 'K':                   /* German character set */
1579         break;
1580     }
1581 }
1582
1583 /* ------------------------------------------------------------------------- */
1584 /*
1585  * Choose a font
1586  * XTERM_SEQ: Invoke G0 character set: CTRL-O
1587  * XTERM_SEQ: Invoke G1 character set: CTRL-N
1588  * XTERM_SEQ: Invoke G2 character set: ESC N
1589  * XTERM_SEQ: Invoke G3 character set: ESC O
1590  */
1591 void
1592 rxvt_term::scr_charset_choose (int set)
1593   {
1594     screen.charset = set;
1595     set_font_style ();
1596   }
1597
1598 /* ------------------------------------------------------------------------- */
1599 /*
1600  * Set a font
1601  * XTERM_SEQ: Set G0 character set: ESC ( <C>
1602  * XTERM_SEQ: Set G1 character set: ESC ) <C>
1603  * XTERM_SEQ: Set G2 character set: ESC * <C>
1604  * XTERM_SEQ: Set G3 character set: ESC + <C>
1605  * See set_font_style for possible values for <C>
1606  */
1607 void
1608 rxvt_term::scr_charset_set (int set, unsigned int ch)
1609   {
1610     charsets[set] = (unsigned char)ch;
1611     set_font_style ();
1612   }
1613
1614 \f
1615 /* ------------------------------------------------------------------------- *
1616  *                        MAJOR SCREEN MANIPULATION                          *
1617  * ------------------------------------------------------------------------- */
1618
1619 /*
1620  * refresh matching text.
1621  */
1622 bool
1623 rxvt_term::scr_refresh_rend (rend_t mask, rend_t value)
1624 {
1625   bool found = false;
1626
1627   for (int i = 0; i < TermWin.nrow; i++)
1628     {
1629       int col = 0;
1630       rend_t *drp = drawn_rend [i];
1631
1632       for (; col < TermWin.ncol; col++, drp++)
1633         if ((*drp & mask) == value)
1634           {
1635             found = true;
1636             *drp = ~value;
1637           }
1638     }
1639
1640   return found;
1641 }
1642
1643 /*
1644  * Refresh an area
1645  */
1646 enum {
1647   PART_BEG = 0,
1648   PART_END,
1649   RC_COUNT
1650 };
1651
1652 void
1653 rxvt_term::scr_expose (int x, int y, int width, int height, bool refresh)
1654 {
1655   int i;
1656   row_col_t rc[RC_COUNT];
1657
1658   if (drawn_text == NULL)  /* sanity check */
1659     return;
1660
1661 #ifdef DEBUG_STRICT
1662   x = max (x, (int)TermWin.int_bwidth);
1663   x = min (x, (int)TermWin.width);
1664   y = max (y, (int)TermWin.int_bwidth);
1665   y = min (y, (int)TermWin.height);
1666 #endif
1667
1668   /* round down */
1669   rc[PART_BEG].col = Pixel2Col (x);
1670   rc[PART_BEG].row = Pixel2Row (y);
1671   /* round up */
1672   rc[PART_END].col = Pixel2Width (x + width + TermWin.fwidth - 1);
1673   rc[PART_END].row = Pixel2Row (y + height + TermWin.fheight - 1);
1674
1675   /* sanity checks */
1676   for (i = PART_BEG; i < RC_COUNT; i++)
1677     {
1678       MIN_IT (rc[i].col, TermWin.ncol - 1);
1679       MIN_IT (rc[i].row, TermWin.nrow - 1);
1680     }
1681
1682   D_SCREEN ((stderr, "rxvt_scr_expose (x:%d, y:%d, w:%d, h:%d) area (c:%d,r:%d)- (c:%d,r:%d)", x, y, width, height, rc[PART_BEG].col, rc[PART_BEG].row, rc[PART_END].col, rc[PART_END].row));
1683
1684   for (i = rc[PART_BEG].row; i <= rc[PART_END].row; i++)
1685     fill_text (& (drawn_text[i][rc[PART_BEG].col]), 0,
1686                (rc[PART_END].col - rc[PART_BEG].col + 1));
1687
1688   if (refresh)
1689     scr_refresh (SLOW_REFRESH | REFRESH_BOUNDS);
1690 }
1691
1692 /* ------------------------------------------------------------------------- */
1693 /*
1694  * Refresh the entire screen
1695  */
1696 void
1697 rxvt_term::scr_touch (bool refresh)
1698 {
1699   scr_expose (0, 0, TermWin.width, TermWin.height, refresh);
1700 }
1701
1702 /* ------------------------------------------------------------------------- */
1703 /*
1704  * Move the display so that the line represented by scrollbar value Y is at
1705  * the top of the screen
1706  */
1707 int
1708 rxvt_term::scr_move_to (int y, int len)
1709 {
1710   long p = 0;
1711   uint16_t oldviewstart;
1712
1713   oldviewstart = TermWin.view_start;
1714   if (y < len)
1715     {
1716       p = (TermWin.nrow + TermWin.nscrolled) * (len - y) / len;
1717       p -= (long) (TermWin.nrow - 1);
1718       p = max (p, 0);
1719     }
1720   TermWin.view_start = (uint16_t)min (p, TermWin.nscrolled);
1721   D_SCREEN ((stderr, "rxvt_scr_move_to (%d, %d) view_start:%d", y, len, TermWin.view_start));
1722
1723   return scr_changeview (oldviewstart);
1724 }
1725
1726 /* ------------------------------------------------------------------------- */
1727 /*
1728  * Page the screen up/down nlines
1729  * direction should be UP or DN
1730  */
1731 int
1732 rxvt_term::scr_page (enum page_dirn direction, int nlines)
1733 {
1734   int             n;
1735   uint16_t       oldviewstart;
1736
1737   D_SCREEN ((stderr, "rxvt_scr_page (%s, %d) view_start:%d", ((direction == UP) ? "UP" : "DN"), nlines, TermWin.view_start));
1738 #ifdef DEBUG_STRICT
1739   assert ((nlines >= 0) && (nlines <= TermWin.nrow));
1740 #endif
1741   oldviewstart = TermWin.view_start;
1742   if (direction == UP)
1743     {
1744       n = TermWin.view_start + nlines;
1745       TermWin.view_start = min (n, TermWin.nscrolled);
1746     }
1747   else
1748     {
1749       n = TermWin.view_start - nlines;
1750       TermWin.view_start = max (n, 0);
1751     }
1752   return scr_changeview (oldviewstart);
1753 }
1754
1755 int
1756 rxvt_term::scr_changeview (uint16_t oldviewstart)
1757 {
1758   if (TermWin.view_start != oldviewstart)
1759     {
1760       want_refresh = 1;
1761       num_scr -= (TermWin.view_start - oldviewstart);
1762     }
1763   return (int) (TermWin.view_start - oldviewstart);
1764 }
1765
1766 /* ------------------------------------------------------------------------- */
1767 void
1768 rxvt_term::scr_bell ()
1769 {
1770 #ifndef NO_BELL
1771 # ifndef NO_MAPALERT
1772 #  ifdef MAPALERT_OPTION
1773   if (Options & Opt_mapAlert)
1774 #  endif
1775     XMapWindow (display->display, TermWin.parent[0]);
1776 # endif
1777   if (Options & Opt_visualBell)
1778     {
1779       scr_rvideo_mode (!rvideo); /* refresh also done */
1780       scr_rvideo_mode (!rvideo); /* refresh also done */
1781     }
1782   else
1783     XBell (display->display, 0);
1784 #endif
1785 }
1786
1787 /* ------------------------------------------------------------------------- */
1788 /* ARGSUSED */
1789 void
1790 rxvt_term::scr_printscreen (int fullhist)
1791 {
1792 #ifdef PRINTPIPE
1793   int             i, r1, nrows, row_offset;
1794   text_t         *t;
1795   FILE           *fd;
1796
1797   if ((fd = popen_printer ()) == NULL)
1798     return;
1799   nrows = TermWin.nrow;
1800   row_offset = TermWin.saveLines;
1801   if (!fullhist)
1802     row_offset -= TermWin.view_start;
1803   else
1804     {
1805       nrows += TermWin.nscrolled;
1806       row_offset -= TermWin.nscrolled;
1807     }
1808
1809   for (r1 = 0; r1 < nrows; r1++)
1810     {
1811       t = screen.text[r1 + row_offset];
1812       for (i = TermWin.ncol - 1; i >= 0; i--)
1813         if (!isspace (t[i]))
1814           break;
1815       fprintf (fd, "%.*s\n", (i + 1), t);
1816     }
1817   pclose_printer (fd);
1818 #endif
1819 }
1820
1821 /* ------------------------------------------------------------------------- */
1822 /*
1823  * Refresh the screen
1824  * drawn_text/drawn_rend contain the screen information before the update.
1825  * screen.text/screen.rend contain what the screen will change to.
1826  */
1827
1828 #define FONT_WIDTH(X, Y)                                                \
1829     (X)->per_char[ (Y) - (X)->min_char_or_byte2].width
1830 #define FONT_RBEAR(X, Y)                                                \
1831     (X)->per_char[ (Y) - (X)->min_char_or_byte2].rbearing
1832 #define FONT_LBEAR(X, Y)                                                \
1833     (X)->per_char[ (Y) - (X)->min_char_or_byte2].lbearing
1834 #define IS_FONT_CHAR(X, Y)                                              \
1835     ((Y) >= (X)->min_char_or_byte2 && (Y) <= (X)->max_char_or_byte2)
1836
1837 void
1838 rxvt_term::scr_refresh (unsigned char refresh_type)
1839 {
1840   unsigned char clearfirst, /* first character writes before cell        */
1841                 clearlast,  /* last character writes beyond cell         */
1842                 must_clear, /* use draw_string not draw_image_string     */
1843                 rvid,       /* reverse video this position               */
1844                 showcursor; /* show the cursor                           */
1845   int16_t col, row,   /* column/row we're processing               */
1846           ocrow;      /* old cursor row                            */
1847   int i,              /* tmp                                       */
1848   row_offset;         /* basic offset in screen structure          */
1849 #ifndef NO_CURSORCOLOR
1850   rend_t cc1;         /* store colours at cursor position (s)      */
1851 #endif
1852   rend_t *drp, *srp;  /* drawn-rend-pointer, screen-rend-pointer   */
1853   text_t *dtp, *stp;  /* drawn-text-pointer, screen-text-pointer   */
1854
1855   if (refresh_type == NO_REFRESH || !TermWin.mapped)
1856     return;
1857
1858   /*
1859    * A: set up vars
1860    */
1861   clearfirst = clearlast = must_clear = 0;
1862
1863   refresh_count = 0;
1864
1865   row_offset = TermWin.saveLines - TermWin.view_start;
1866
1867   if ((refresh_type & REFRESH_BOUNDS))
1868     {
1869       clearfirst = clearlast = 1;
1870       refresh_type &= ~REFRESH_BOUNDS;
1871     }
1872
1873 #ifdef XPM_BACKGROUND
1874   must_clear |= (bgPixmap.pixmap != None);
1875 #endif
1876 #ifdef TRANSPARENT
1877   must_clear |= ((Options & Opt_transparent) && am_transparent);
1878 #endif
1879   ocrow = oldcursor.row; /* is there an old outline cursor on screen? */
1880
1881   /*
1882    * B: reverse any characters which are selected
1883    */
1884   scr_reverse_selection ();
1885
1886   /*
1887    * C: set the cursor character (s)
1888    */
1889   {
1890     unsigned char   setoldcursor;
1891     rend_t          ccol1,  /* Cursor colour       */
1892     ccol2;  /* Cursor colour2      */
1893
1894     showcursor = (screen.flags & Screen_VisibleCursor);
1895 #ifdef CURSOR_BLINK
1896     if (hidden_cursor)
1897       showcursor = 0;
1898 #endif
1899
1900     if (showcursor)
1901       {
1902         srp = & (screen.rend[screen.cur.row + TermWin.saveLines]
1903                 [screen.cur.col]);
1904
1905         if (showcursor && TermWin.focus)
1906           {
1907             *srp ^= RS_RVid;
1908 #ifndef NO_CURSORCOLOR
1909             cc1 = *srp & (RS_fgMask | RS_bgMask);
1910             if (ISSET_PIXCOLOR (Color_cursor))
1911               ccol1 = Color_cursor;
1912             else
1913 #ifdef CURSOR_COLOR_IS_RENDITION_COLOR
1914               ccol1 = GET_FGCOLOR (rstyle);
1915 #else
1916               ccol1 = Color_fg;
1917 #endif
1918             if (ISSET_PIXCOLOR (Color_cursor2))
1919               ccol2 = Color_cursor2;
1920             else
1921 #ifdef CURSOR_COLOR_IS_RENDITION_COLOR
1922               ccol2 = GET_BGCOLOR (rstyle);
1923 #else
1924               ccol2 = Color_bg;
1925 #endif
1926             *srp = SET_FGCOLOR (*srp, ccol1);
1927             *srp = SET_BGCOLOR (*srp, ccol2);
1928 #endif
1929           }
1930       }
1931
1932     /* make sure no outline cursor is left around */
1933     setoldcursor = 0;
1934     if (ocrow != -1)
1935       {
1936         if (screen.cur.row + TermWin.view_start != ocrow
1937             || screen.cur.col != oldcursor.col)
1938           {
1939             if (ocrow < TermWin.nrow
1940                 && oldcursor.col < TermWin.ncol)
1941               {
1942                 drawn_rend[ocrow][oldcursor.col] ^= (RS_RVid | RS_Uline);
1943               }
1944             if (TermWin.focus || !showcursor)
1945               oldcursor.row = -1;
1946             else
1947               setoldcursor = 1;
1948           }
1949       }
1950     else if (!TermWin.focus)
1951       setoldcursor = 1;
1952     if (setoldcursor)
1953       {
1954         if (screen.cur.row + TermWin.view_start >= TermWin.nrow)
1955           oldcursor.row = -1;
1956         else
1957           {
1958             oldcursor.row = screen.cur.row + TermWin.view_start;
1959             oldcursor.col = screen.cur.col;
1960           }
1961       }
1962   }
1963
1964 #ifndef NO_SLOW_LINK_SUPPORT
1965   /*
1966    * D: CopyArea pass - very useful for slower links
1967    *    This has been deliberately kept simple.
1968    */
1969   i = num_scr;
1970   if (refresh_type == FAST_REFRESH && num_scr_allow && i
1971       && abs (i) < TermWin.nrow && !must_clear)
1972     {
1973       int16_t         nits;
1974       int             j;
1975       rend_t         *drp2;
1976       text_t         *dtp2;
1977       int             len, wlen;
1978
1979       j = TermWin.nrow;
1980       wlen = len = -1;
1981       row = i > 0 ? 0 : j - 1;
1982       for (; j-- >= 0; row += (i > 0 ? 1 : -1))
1983         {
1984           if (row + i >= 0 && row + i < TermWin.nrow && row + i != ocrow)
1985             {
1986               stp = screen.text[row + row_offset];
1987               srp = screen.rend[row + row_offset];
1988               dtp = drawn_text[row];
1989               dtp2 = drawn_text[row + i];
1990               drp = drawn_rend[row];
1991               drp2 = drawn_rend[row + i];
1992
1993               for (nits = 0, col = TermWin.ncol; col--; )
1994                 if (stp[col] != dtp2[col] || srp[col] != drp2[col])
1995                   nits--;
1996                 else if (stp[col] != dtp[col] || srp[col] != drp[col])
1997                   nits++;
1998
1999               if (nits > 8) /* XXX: arbitrary choice */
2000                 {
2001                   for (col = TermWin.ncol; col--; )
2002                     {
2003                       *dtp++ = *dtp2++;
2004                       *drp++ = *drp2++;
2005                     }
2006
2007                   if (len == -1)
2008                     len = row;
2009
2010                   wlen = row;
2011                   continue;
2012                 }
2013             }
2014
2015           if (len != -1)
2016             {
2017               /* also comes here at end if needed because of >= above */
2018               if (wlen < len)
2019                 SWAP_IT (wlen, len, int);
2020
2021               D_SCREEN ((stderr, "rxvt_scr_refresh (): XCopyArea: %d -> %d (height: %d)", len + i, len, wlen - len + 1));
2022               XCopyArea (display->display, TermWin.vt, TermWin.vt,
2023                          TermWin.gc, 0, Row2Pixel (len + i),
2024                          (unsigned int)TermWin_TotalWidth (),
2025                          (unsigned int)Height2Pixel (wlen - len + 1),
2026                          0, Row2Pixel (len));
2027               len = -1;
2028             }
2029         }
2030     }
2031 #endif
2032
2033   /*
2034    * E: main pass across every character
2035    */
2036   for (row = 0; row < TermWin.nrow; row++)
2037     {
2038       stp = screen.text[row + row_offset];
2039       srp = screen.rend[row + row_offset];
2040       dtp = drawn_text[row];
2041       drp = drawn_rend[row];
2042
2043       /*
2044        * E2: OK, now the real pass
2045        */
2046       int ypixel = (int)Row2Pixel (row);
2047
2048       for (col = 0; col < TermWin.ncol; col++)
2049         {
2050           /* compare new text with old - if exactly the same then continue */
2051           rend_t rend = srp[col];     /* screen rendition (target rendtion) */
2052
2053           if (stp[col] == dtp[col]    /* Must match characters to skip. */
2054               && (rend == drp[col]    /* Either rendition the same or   */
2055                   || (stp[col] == ' ' /* space w/ no background change  */
2056                       && GET_BGATTR (rend) == GET_BGATTR (drp[col]))))
2057             continue;
2058
2059           text_t *text = stp + col;
2060           int count = 1;
2061
2062           /* redraw one or more characters */
2063
2064           dtp[col] = stp[col];
2065           drp[col] = rend;
2066
2067           if (*text == NOCHAR) // never start redrawing at invisible characters. */
2068             continue;
2069
2070           int xpixel = Col2Pixel (col);
2071
2072           // this loop looks very messy, it can probably be optimized
2073           // and cleaned a bit by you?
2074           for (i = 0; ++col < TermWin.ncol; )
2075             {
2076               if (stp[col] == NOCHAR)
2077                 {
2078                   dtp[col] = stp[col];
2079                   drp[col] = rend;
2080                   count++;
2081
2082                   if (i) // only possible skip if char unchanged
2083                     i++;
2084
2085                   continue;
2086                 }
2087
2088               if (rend != srp[col])
2089                 break;
2090
2091               count++;
2092
2093               if (stp[col] != dtp[col]
2094                   || srp[col] != drp[col])
2095                 {
2096                   if (must_clear && (i++ > (count / 2)))
2097                     break;
2098
2099                   dtp[col] = stp[col];
2100                   drp[col] = rend;
2101                   i = 0;
2102                 }
2103               else if (must_clear || (stp[col] != ' ' && ++i >= 32))
2104                 break;
2105             }
2106
2107           col--;      /* went one too far.  move back */
2108           count -= i; /* dump any matching trailing chars */
2109
2110           /*
2111            * Determine the attributes for the string
2112            */
2113           int fid = GET_FONT (rend);
2114           int fore = GET_FGCOLOR (rend); // desired foreground
2115           int back = GET_BGCOLOR (rend); // desired background
2116
2117           rend = GET_ATTR (rend);
2118
2119           rvid = !! (rend & RS_RVid);
2120           if (rvid)
2121             {
2122               SWAP_IT (fore, back, int);
2123
2124 #ifndef NO_BOLD_UNDERLINE_REVERSE
2125               if (ISSET_PIXCOLOR (Color_RV)
2126 # ifndef NO_CURSORCOLOR
2127                   && !ISSET_PIXCOLOR (Color_cursor)
2128 # endif
2129                  )
2130                 back = Color_RV;
2131 #endif
2132
2133             }
2134 #ifdef TEXT_BLINK
2135           if (rend & RS_Blink)
2136             {
2137               if (!text_blink_ev.active)
2138                 {
2139                   text_blink_ev.start (NOW + TEXT_BLINK_INTERVAL);
2140                   hidden_text = 0;
2141                 }
2142               else if (hidden_text)
2143                 fore = back;
2144             }
2145 #endif
2146 #ifndef NO_BOLD_UNDERLINE_REVERSE
2147           else if (rend & RS_Bold)
2148             {
2149               if (ISSET_PIXCOLOR (Color_BD))
2150                 fore = Color_BD;
2151               else if (fore == Color_fg)
2152                 fore = Color_White;
2153             }
2154           else if (rend & RS_Uline)
2155             {
2156               if (ISSET_PIXCOLOR (Color_UL))
2157                 fore = Color_UL;
2158             }
2159 #endif
2160
2161           /*
2162            * Actually do the drawing of the string here
2163            */
2164           rxvt_font *font = (*TermWin.fontset)[fid];
2165
2166           if (back == fore)
2167             font->clear_rect (*TermWin.drawable, xpixel, ypixel,
2168                               TermWin.fwidth * count, TermWin.fheight,
2169                               back);
2170           else if (back == Color_bg)
2171             {
2172               if (must_clear)
2173                 {
2174                   CLEAR_CHARS (xpixel, ypixel, count);
2175
2176                   for (i = 0; i < count; i++) /* don't draw empty strings */
2177                     if (text[i] != ' ')
2178                       {
2179                         font->draw (*TermWin.drawable, xpixel, ypixel, text, count, fore, -1);
2180                         break;
2181                       }
2182                 }
2183               else
2184                 font->draw (*TermWin.drawable, xpixel, ypixel, text, count, fore, Color_bg);
2185             }
2186           else
2187             font->draw (*TermWin.drawable, xpixel, ypixel, text, count, fore, back);
2188
2189           if ((rend & RS_Uline) && (font->descent > 1))
2190             XDrawLine (display->display, drawBuffer, TermWin.gc,
2191                       xpixel, ypixel + font->ascent + 1,
2192                       xpixel + Width2Pixel (count) - 1, ypixel + font->ascent + 1);
2193         }                     /* for (col....) */
2194     }                         /* for (row....) */
2195
2196   /*
2197    * G: cleanup cursor and display outline cursor if necessary
2198    */
2199   if (showcursor)
2200     {
2201       if (TermWin.focus)
2202         {
2203           srp = & (screen.rend[screen.cur.row + TermWin.saveLines]
2204                   [screen.cur.col]);
2205           *srp ^= RS_RVid;
2206 #ifndef NO_CURSORCOLOR
2207           *srp = (*srp & ~ (RS_fgMask | RS_bgMask)) | cc1;
2208 #endif
2209         }
2210       else if (oldcursor.row >= 0)
2211         {
2212 #ifndef NO_CURSORCOLOR
2213           if (ISSET_PIXCOLOR (Color_cursor))
2214             XSetForeground (display->display, TermWin.gc, PixColors[Color_cursor]);
2215 #endif
2216           int cursorwidth = 1;
2217           while (oldcursor.col + cursorwidth < TermWin.ncol
2218                  && drawn_text[oldcursor.row][oldcursor.col + cursorwidth] == NOCHAR)
2219             cursorwidth++;
2220
2221           XDrawRectangle (display->display, drawBuffer, TermWin.gc,
2222                          Col2Pixel (oldcursor.col),
2223                          Row2Pixel (oldcursor.row),
2224                          (unsigned int) (Width2Pixel (cursorwidth) - 1),
2225                          (unsigned int) (Height2Pixel (1) - TermWin.lineSpace - 1));
2226         }
2227     }
2228
2229   /*
2230    * H: cleanup selection
2231    */
2232   scr_reverse_selection ();
2233
2234   /*
2235    * I: other general cleanup
2236    */
2237   if (clearfirst && TermWin.int_bwidth)
2238     /*
2239      * clear the whole screen height, note that width == 0 is treated
2240      * specially by XClearArea
2241      */
2242     XClearArea (display->display, TermWin.vt, 0, 0,
2243                (unsigned int)TermWin.int_bwidth,
2244                (unsigned int)TermWin_TotalHeight (), False);
2245   if (clearlast && TermWin.int_bwidth)
2246     /*
2247      * clear the whole screen height, note that width == 0 is treated
2248      * specially by XClearArea
2249      */
2250     XClearArea (display->display, TermWin.vt,
2251                TermWin.width + TermWin.int_bwidth, 0,
2252                (unsigned int)TermWin.int_bwidth,
2253                (unsigned int)TermWin_TotalHeight (), False);
2254   if (refresh_type & SMOOTH_REFRESH)
2255     XSync (display->display, False);
2256
2257   num_scr = 0;
2258   num_scr_allow = 1;
2259   want_refresh = 0;        /* screen is current */
2260 }
2261
2262 void
2263 rxvt_term::scr_remap_chars (text_t *tp, rend_t *rp)
2264 {
2265   if (!rp || !tp)
2266     return;
2267
2268   for (int i = TermWin.ncol; i; i--, rp++, tp++)
2269     *rp = SET_FONT (*rp, TermWin.fontset->find_font (*tp));
2270 }
2271
2272 void
2273 rxvt_term::scr_remap_chars ()
2274 {
2275   for (int i = TermWin.nrow + TermWin.saveLines; i--; )
2276     scr_remap_chars (screen.text[i], screen.rend[i]);
2277
2278   for (int i = TermWin.nrow; i--; )
2279     {
2280       scr_remap_chars (drawn_text[i], drawn_rend[i]);
2281       scr_remap_chars (swap.text[i], swap.rend[i]);
2282     }
2283 }
2284
2285 /* ------------------------------------------------------------------------- */
2286 void
2287 rxvt_term::scr_clear ()
2288 {
2289   if (!TermWin.mapped)
2290     return;
2291
2292   num_scr_allow = 0;
2293   want_refresh = 1;
2294 #ifdef TRANSPARENT
2295   if ((Options & Opt_transparent) && (am_pixmap_trans == 0))
2296     {
2297       int i;
2298
2299       if (! (Options & Opt_transparent_all))
2300         i = 0;
2301       else
2302         i = (int) (sizeof (TermWin.parent) / sizeof (Window));
2303
2304       while (i--)
2305         if (TermWin.parent[i] != None)
2306           XClearWindow (display->display, TermWin.parent[i]);
2307     }
2308 #endif
2309
2310   XClearWindow (display->display, TermWin.vt);
2311 }
2312
2313 /* ------------------------------------------------------------------------- */
2314 void
2315 rxvt_term::scr_reverse_selection ()
2316 {
2317   int             i, col, row, end_row;
2318   rend_t         *srp;
2319
2320   if (selection.op && current_screen == selection.screen)
2321     {
2322       end_row = TermWin.saveLines - TermWin.view_start;
2323       i = selection.beg.row + TermWin.saveLines;
2324       row = selection.end.row + TermWin.saveLines;
2325       if (i >= end_row)
2326         col = selection.beg.col;
2327       else
2328         {
2329           col = 0;
2330           i = end_row;
2331         }
2332       end_row += TermWin.nrow;
2333       for (; i < row && i < end_row; i++, col = 0)
2334         for (srp = screen.rend[i]; col < TermWin.ncol; col++)
2335           srp[col] ^= RS_RVid;
2336       if (i == row && i < end_row)
2337         for (srp = screen.rend[i]; col < selection.end.col; col++)
2338           srp[col] ^= RS_RVid;
2339     }
2340 }
2341
2342 /* ------------------------------------------------------------------------- */
2343 /*
2344  * Dump the whole scrollback and screen to the passed filedescriptor.  The
2345  * invoking routine must close the fd.
2346  */
2347 #if 0
2348 void
2349 rxvt_term::scr_dump (int fd)
2350 {
2351   int             row, wrote;
2352   unsigned int    width, towrite;
2353   char            r1[] = "\n";
2354
2355   for (row = TermWin.saveLines - TermWin.nscrolled;
2356        row < TermWin.saveLines + TermWin.nrow - 1; row++)
2357     {
2358       width = screen.tlen[row] >= 0 ? screen.tlen[row]
2359               : TermWin.ncol;
2360       for (towrite = width; towrite; towrite -= wrote)
2361         {
2362           wrote = write (fd, & (screen.text[row][width - towrite]),
2363                         towrite);
2364           if (wrote < 0)
2365             return;         /* XXX: death, no report */
2366         }
2367       if (screen.tlen[row] >= 0)
2368         if (write (fd, r1, 1) <= 0)
2369           return; /* XXX: death, no report */
2370     }
2371 }
2372 #endif
2373 \f
2374 /* ------------------------------------------------------------------------- *
2375  *                           CHARACTER SELECTION                             *
2376  * ------------------------------------------------------------------------- */
2377
2378 /*
2379  * -TermWin.nscrolled <= (selection row) <= TermWin.nrow - 1
2380  */
2381 void
2382 rxvt_term::selection_check (int check_more)
2383 {
2384   row_col_t       pos;
2385
2386   if (!selection.op)
2387     return;
2388
2389   pos.row = pos.col = 0;
2390   if ((selection.beg.row < - (int32_t)TermWin.nscrolled)
2391       || (selection.beg.row >= TermWin.nrow)
2392       || (selection.mark.row < - (int32_t)TermWin.nscrolled)
2393       || (selection.mark.row >= TermWin.nrow)
2394       || (selection.end.row < - (int32_t)TermWin.nscrolled)
2395       || (selection.end.row >= TermWin.nrow)
2396       || (check_more == 1
2397           && current_screen == selection.screen
2398           && !ROWCOL_IS_BEFORE (screen.cur, selection.beg)
2399           && ROWCOL_IS_BEFORE (screen.cur, selection.end))
2400       || (check_more == 2
2401           && ROWCOL_IS_BEFORE (selection.beg, pos)
2402           && ROWCOL_IS_AFTER (selection.end, pos))
2403       || (check_more == 3
2404           && ROWCOL_IS_AFTER (selection.end, pos))
2405       || (check_more == 4     /* screen width change */
2406           && (selection.beg.row != selection.end.row
2407               || selection.end.col > TermWin.ncol)))
2408     CLEAR_SELECTION ();
2409 }
2410
2411 /* ------------------------------------------------------------------------- */
2412 /*
2413  * Paste a selection direct to the command fd
2414  */
2415 void
2416 rxvt_term::paste (const unsigned char *data, unsigned int len)
2417 {
2418   unsigned int i, j, n;
2419   unsigned char *ds = (unsigned char *)rxvt_malloc (PROP_SIZE);
2420
2421 #if 0
2422   /* a paste should act like the user is typing, so check scrollTtyKeypress */
2423   ZERO_SCROLLBACK (r);
2424 #endif
2425
2426   /* convert normal newline chars into common keyboard Return key sequence */
2427   for (i = 0; i < len; i += PROP_SIZE)
2428     {
2429       n = min (len - i, PROP_SIZE);
2430       MEMCPY (ds, data + i, n);
2431
2432       for (j = 0; j < n; j++)
2433         if (ds[j] == '\n')
2434           ds[j] = '\r';
2435
2436       tt_write (ds, (int)n);
2437     }
2438
2439   free (ds);
2440 }
2441
2442 /* ------------------------------------------------------------------------- */
2443 /*
2444  * Respond to a notification that a primary selection has been sent
2445  * EXT: SelectionNotify
2446  */
2447 int
2448 rxvt_term::selection_paste (Window win, Atom prop, bool delete_prop)
2449 {
2450   long nread = 0;
2451   unsigned long bytes_after;
2452   XTextProperty ct;
2453
2454   D_SELECT ((stderr, "rxvt_selection_paste (%08lx, %lu, %d), wait=%2x", win, (unsigned long)prop, (int)delete_prop, selection_wait));
2455
2456   if (prop == None)         /* check for failed XConvertSelection */
2457     {
2458       if ((selection_type & Sel_CompoundText))
2459         {
2460           int selnum = selection_type & Sel_whereMask;
2461
2462           selection_type = 0;
2463           if (selnum != Sel_direct)
2464             selection_request_other (XA_STRING, selnum);
2465         }
2466
2467       if ((selection_type & Sel_UTF8String))
2468         {
2469           int selnum = selection_type & Sel_whereMask;
2470
2471           selection_type = Sel_CompoundText;
2472           if (selnum != Sel_direct)
2473             selection_request_other (xa[XA_COMPOUND_TEXT], selnum);
2474           else
2475             selection_type = 0;
2476         }
2477
2478       return 0;
2479     }
2480
2481   for (;;)
2482     {
2483       if (XGetWindowProperty (display->display, win, prop, (long) (nread / 4),
2484                              (long) (PROP_SIZE / 4), delete_prop,
2485                              AnyPropertyType, &ct.encoding, &ct.format,
2486                              &ct.nitems, &bytes_after,
2487                              &ct.value) != Success)
2488         break;
2489
2490       if (ct.encoding == 0)
2491         {
2492           D_SELECT ((stderr, "rxvt_selection_paste: property didn't exist!"));
2493           break;
2494         }
2495
2496       if (ct.value == NULL)
2497         {
2498           D_SELECT ((stderr, "rxvt_selection_paste: property shooting blanks!"));
2499           continue;
2500         }
2501
2502       if (ct.nitems == 0)
2503         {
2504           D_SELECT ((stderr, "rxvt_selection_paste: property empty - also INCR end"));
2505           if (selection_wait == Sel_normal && nread == 0)
2506             {
2507               /*
2508                * pass through again trying CUT_BUFFER0 if we've come from
2509                * XConvertSelection () but nothing was presented
2510                */
2511               D_SELECT ((stderr, "rxvt_selection_request: pasting CUT_BUFFER0"));
2512               selection_paste (display->root, XA_CUT_BUFFER0, False);
2513             }
2514
2515           nread = -1;         /* discount any previous stuff */
2516           break;
2517         }
2518
2519       nread += ct.nitems;
2520
2521       char **cl;
2522       int cr;
2523       if (XmbTextPropertyToTextList (display->display, &ct, &cl,
2524                                      &cr) >= 0 && cl)
2525         {
2526           for (int i = 0; i < cr; i++)
2527             paste ((unsigned char *)cl[i], STRLEN (cl[i]));
2528
2529           XFreeStringList (cl);
2530         }
2531       else
2532         paste (ct.value, ct.nitems);
2533
2534       if (bytes_after == 0)
2535         break;
2536
2537       XFree (ct.value);
2538     }
2539
2540   if (ct.value)
2541     XFree (ct.value);
2542
2543   if (selection_wait == Sel_normal)
2544     selection_wait = Sel_none;
2545
2546   D_SELECT ((stderr, "rxvt_selection_paste: bytes written: %ld", nread));
2547   return (int)nread;
2548 }
2549
2550 void
2551 rxvt_term::incr_cb (time_watcher &w)
2552 {
2553   selection_wait = Sel_none;
2554
2555   rxvt_print_error ("data loss: timeout on INCR selection paste");
2556 }
2557
2558 /*
2559  * INCR support originally provided by Paul Sheer <psheer@obsidian.co.za>
2560  */
2561 void
2562 rxvt_term::selection_property (Window win, Atom prop)
2563 {
2564   int             reget_time = 0;
2565
2566   if (prop == None)
2567     return;
2568   D_SELECT ((stderr, "rxvt_selection_property (%08lx, %lu)", win, (unsigned long)prop));
2569   if (selection_wait == Sel_normal)
2570     {
2571       int             a, afmt;
2572       Atom            atype;
2573       unsigned long   bytes_after, nitems;
2574       unsigned char  *s = NULL;
2575
2576       a = XGetWindowProperty (display->display, win, prop, 0L, 1L, False,
2577                              xa[XA_INCR], &atype, &afmt, &nitems,
2578                              &bytes_after, &s);
2579       if (s)
2580         XFree (s);
2581       if (a != Success)
2582         return;
2583 #ifndef __CYGWIN32__
2584       if (atype == xa[XA_INCR])
2585         {  /* start an INCR transfer */
2586           D_SELECT ((stderr, "rxvt_selection_property: INCR: starting transfer"));
2587           XDeleteProperty (display->display, win, prop);
2588           XFlush (display->display);
2589           reget_time = 1;
2590           selection_wait = Sel_incr;
2591         }
2592 #endif
2593
2594     }
2595   else if (selection_wait == Sel_incr)
2596     {
2597       reget_time = 1;
2598       if (selection_paste (win, prop, True) == -1)
2599         {
2600           D_SELECT ((stderr, "rxvt_selection_property: INCR: clean end"));
2601           selection_wait = Sel_none;
2602           incr_ev.stop ();
2603         }
2604     }
2605   if (reget_time) /* received more data so reget time */
2606     incr_ev.start (NOW + 10);
2607 }
2608 /* ------------------------------------------------------------------------- */
2609 /*
2610  * Request the current selection:
2611  * Order: > internal selection if available
2612  *        > PRIMARY, SECONDARY, CLIPBOARD if ownership is claimed (+)
2613  *        > CUT_BUFFER0
2614  * (+) if ownership is claimed but property is empty, rxvt_selection_paste ()
2615  *     will auto fallback to CUT_BUFFER0
2616  * EXT: button 2 release
2617  */
2618 void
2619 rxvt_term::selection_request (Time tm, int x, int y)
2620 {
2621   D_SELECT ((stderr, "rxvt_selection_request (%lu, %d, %d)", tm, x, y));
2622   if (x < 0 || x >= TermWin.width || y < 0 || y >= TermWin.height)
2623     return;                 /* outside window */
2624
2625   if (selection.text != NULL)
2626     {    /* internal selection */
2627       D_SELECT ((stderr, "rxvt_selection_request: pasting internal"));
2628       paste (selection.text, selection.len);
2629       return;
2630     }
2631   else
2632     {
2633       int             i;
2634
2635       selection_request_time = tm;
2636       selection_wait = Sel_normal;
2637       for (i = Sel_Primary; i <= Sel_Clipboard; i++)
2638         {
2639 #if X_HAVE_UTF8_STRING
2640           selection_type = Sel_UTF8String;
2641           if (selection_request_other (xa[XA_UTF8_STRING], i))
2642             return;
2643 #else
2644           selection_type = Sel_CompoundText;
2645           if (selection_request_other (xa[XA_COMPOUND_TEXT], i))
2646             return;
2647 #endif
2648
2649         }
2650     }
2651   selection_wait = Sel_none;       /* don't loop in rxvt_selection_paste () */
2652   D_SELECT ((stderr, "rxvt_selection_request: pasting CUT_BUFFER0"));
2653   selection_paste (display->root, XA_CUT_BUFFER0, False);
2654 }
2655
2656 int
2657 rxvt_term::selection_request_other (Atom target, int selnum)
2658 {
2659   Atom            sel;
2660 #ifdef DEBUG_SELECT
2661   char           *debug_xa_names[] = { "PRIMARY", "SECONDARY", "CLIPBOARD" };
2662 #endif
2663
2664   selection_type |= selnum;
2665   if (selnum == Sel_Primary)
2666     sel = XA_PRIMARY;
2667   else if (selnum == Sel_Secondary)
2668     sel = XA_SECONDARY;
2669   else
2670     sel = xa[XA_CLIPBOARD];
2671   if (XGetSelectionOwner (display->display, sel) != None)
2672     {
2673       D_SELECT ((stderr, "rxvt_selection_request_other: pasting %s", debug_xa_names[selnum]));
2674       XConvertSelection (display->display, sel, target, xa[XA_VT_SELECTION],
2675                         TermWin.vt, selection_request_time);
2676       return 1;
2677     }
2678   return 0;
2679 }
2680
2681 /* ------------------------------------------------------------------------- */
2682 /*
2683  * Clear all selected text
2684  * EXT: SelectionClear
2685  */
2686 void
2687 rxvt_term::selection_clear ()
2688 {
2689   D_SELECT ((stderr, "rxvt_selection_clear ()"));
2690
2691   want_refresh = 1;
2692   free (selection.text);
2693   selection.text = NULL;
2694   selection.len = 0;
2695   CLEAR_SELECTION ();
2696 }
2697
2698 /* ------------------------------------------------------------------------- */
2699 /*
2700  * Copy a selection into the cut buffer
2701  * EXT: button 1 or 3 release
2702  */
2703 void
2704 rxvt_term::selection_make (Time tm)
2705 {
2706   int             i, col, end_col, row, end_row;
2707   unsigned char  *new_selection_text;
2708   char           *str;
2709   text_t         *t;
2710 #ifdef ACS_ASCII
2711   rend_t         *re;
2712 #endif
2713
2714   D_SELECT ((stderr, "rxvt_selection_make (): selection.op=%d, selection.clicks=%d", selection.op, selection.clicks));
2715   switch (selection.op)
2716     {
2717       case SELECTION_CONT:
2718         break;
2719       case SELECTION_INIT:
2720         CLEAR_SELECTION ();
2721         /* FALLTHROUGH */
2722       case SELECTION_BEGIN:
2723         selection.op = SELECTION_DONE;
2724         /* FALLTHROUGH */
2725       default:
2726         return;
2727     }
2728   selection.op = SELECTION_DONE;
2729
2730   if (selection.clicks == 4)
2731     return;                 /* nothing selected, go away */
2732
2733   i = (selection.end.row - selection.beg.row + 1) * (TermWin.ncol + 1) + 1;
2734   str = (char *)rxvt_malloc (i * MB_CUR_MAX + 1);
2735
2736   new_selection_text = (unsigned char *)str;
2737
2738   col = selection.beg.col;
2739   MAX_IT (col, 0);
2740   row = selection.beg.row + TermWin.saveLines;
2741   end_row = selection.end.row + TermWin.saveLines;
2742
2743   for (; row <= end_row; row++, col = 0)
2744     {
2745       t = & (screen.text[row][col]);
2746
2747       end_col = screen.tlen[row];
2748
2749       if (end_col == -1)
2750         end_col = TermWin.ncol;
2751
2752       if (row == end_row)
2753         MIN_IT (end_col, selection.end.col);
2754
2755       for (; col < end_col; col++)
2756         if (*t == NOCHAR)
2757           t++;
2758         else
2759           {
2760             int len = wctomb (str, *t++);
2761             if (len > 0)
2762               str += len;
2763           }
2764
2765       if (screen.tlen[row] != -1 && row != end_row)
2766         *str++ = '\n';
2767     }
2768
2769 #ifndef NO_OLD_SELECTION
2770   if (selection_style == OLD_SELECT)
2771     if (end_col == TermWin.ncol)
2772       *str++ = '\n';
2773 #endif
2774 #ifndef NO_NEW_SELECTION
2775   if (selection_style != OLD_SELECT)
2776     if (end_col != selection.end.col)
2777       *str++ = '\n';
2778 #endif
2779   *str = '\0';
2780
2781   i = str - (char *)new_selection_text;
2782   if (i == 0)
2783     {
2784       free (new_selection_text);
2785       return;
2786     }
2787
2788   // due to MB_MAX_CUR, selection wastage is usually high, so realloc
2789   if (str - (char *)new_selection_text > 1024)
2790     new_selection_text = (unsigned char *)rxvt_realloc (new_selection_text, i + 1);
2791
2792   selection.len = i;
2793
2794   if (selection.text)
2795     free (selection.text);
2796
2797   selection.text = new_selection_text;
2798
2799   XSetSelectionOwner (display->display, XA_PRIMARY, TermWin.vt, tm);
2800   if (XGetSelectionOwner (display->display, XA_PRIMARY) == TermWin.vt)
2801     display->set_selection_owner (this);
2802   else
2803     rxvt_print_error ("can't get primary selection");
2804
2805   {
2806     XTextProperty ct;
2807     char *cl = (char *)selection.text;
2808
2809     if (XmbTextListToTextProperty (display->display, &cl, 1, XStringStyle, &ct) >= 0)
2810       {
2811         XChangeProperty (display->display, display->root, XA_CUT_BUFFER0, XA_STRING, 8,
2812                         PropModeReplace, ct.value, ct.nitems);
2813         XFree (ct.value);
2814       }
2815     else
2816       XChangeProperty (display->display, display->root, XA_CUT_BUFFER0, XA_STRING, 8,
2817                       PropModeReplace, selection.text, (int)selection.len);
2818   }
2819
2820   selection_time = tm;
2821   D_SELECT ((stderr, "rxvt_selection_make (): selection.len=%d", selection.len));
2822 }
2823
2824 /* ------------------------------------------------------------------------- */
2825 /*
2826  * Mark or select text based upon number of clicks: 1, 2, or 3
2827  * EXT: button 1 press
2828  */
2829 void
2830 rxvt_term::selection_click (int clicks, int x, int y)
2831 {
2832   D_SELECT ((stderr, "rxvt_selection_click (%d, %d, %d)", clicks, x, y));
2833
2834   clicks = ((clicks - 1) % 3) + 1;
2835   selection.clicks = clicks;       /* save clicks so extend will work */
2836
2837   selection_start_colrow (Pixel2Col (x), Pixel2Row (y));
2838
2839   if (clicks == 2 || clicks == 3)
2840     selection_extend_colrow (selection.mark.col,
2841                              selection.mark.row + TermWin.view_start,
2842                              0, /* button 3     */
2843                              1, /* button press */
2844                              0);        /* click change */
2845 }
2846
2847 /* ------------------------------------------------------------------------- */
2848 /*
2849  * Mark a selection at the specified col/row
2850  */
2851 void
2852 rxvt_term::selection_start_colrow (int col, int row)
2853 {
2854   want_refresh = 1;
2855   selection.mark.col = col;
2856   selection.mark.row = row - TermWin.view_start;
2857   MAX_IT (selection.mark.row, - (int32_t)TermWin.nscrolled);
2858   MIN_IT (selection.mark.row, (int32_t)TermWin.nrow - 1);
2859   MAX_IT (selection.mark.col, 0);
2860   MIN_IT (selection.mark.col, (int32_t)TermWin.ncol - 1);
2861
2862   if (selection.op)
2863     {      /* clear the old selection */
2864       selection.beg.row = selection.end.row = selection.mark.row;
2865       selection.beg.col = selection.end.col = selection.mark.col;
2866     }
2867   selection.op = SELECTION_INIT;
2868   selection.screen = current_screen;
2869 }
2870
2871 /* ------------------------------------------------------------------------- */
2872 /*
2873  * Word select: select text for 2 clicks
2874  * We now only find out the boundary in one direction
2875  */
2876
2877 /* what do we want: spaces/tabs are delimiters or cutchars or non-cutchars */
2878 #define DELIMIT_TEXT(x) \
2879     (((x) == ' ' || (x) == '\t') ? 2 : (STRCHR (rs[Rs_cutchars], (x)) != NULL))
2880 #define DELIMIT_REND(x)        1
2881
2882 void
2883 rxvt_term::selection_delimit_word (enum page_dirn dirn, const row_col_t *mark, row_col_t *ret)
2884 {
2885   int             col, row, dirnadd, tcol, trow, w1, w2;
2886   row_col_t       bound;
2887   text_t         *stp;
2888   rend_t         *srp;
2889
2890   if (dirn == UP)
2891     {
2892       bound.row = TermWin.saveLines - TermWin.nscrolled - 1;
2893       bound.col = 0;
2894       dirnadd = -1;
2895     }
2896   else
2897     {
2898       bound.row = TermWin.saveLines + TermWin.nrow;
2899       bound.col = TermWin.ncol - 1;
2900       dirnadd = 1;
2901     }
2902   row = mark->row + TermWin.saveLines;
2903   col = mark->col;
2904   MAX_IT (col, 0);
2905   /* find the edge of a word */
2906   stp = & (screen.text[row][col]);
2907   w1 = DELIMIT_TEXT (*stp);
2908
2909   if (selection_style != NEW_SELECT)
2910     {
2911       if (w1 == 1)
2912         {
2913           stp += dirnadd;
2914           if (DELIMIT_TEXT (*stp) == 1)
2915             goto Old_Word_Selection_You_Die;
2916           col += dirnadd;
2917         }
2918       w1 = 0;
2919     }
2920   srp = (&screen.rend[row][col]);
2921   w2 = DELIMIT_REND (*srp);
2922
2923   for (;;)
2924     {
2925       for (; col != bound.col; col += dirnadd)
2926         {
2927           stp += dirnadd;
2928           if (DELIMIT_TEXT (*stp) != w1)
2929             break;
2930           srp += dirnadd;
2931           if (DELIMIT_REND (*srp) != w2)
2932             break;
2933         }
2934       if ((col == bound.col) && (row != bound.row))
2935         {
2936           if (screen.tlen[ (row - (dirn == UP ? 1 : 0))] == -1)
2937             {
2938               trow = row + dirnadd;
2939               tcol = dirn == UP ? TermWin.ncol - 1 : 0;
2940               if (screen.text[trow] == NULL)
2941                 break;
2942               stp = & (screen.text[trow][tcol]);
2943               srp = & (screen.rend[trow][tcol]);
2944               if (DELIMIT_TEXT (*stp) != w1 || DELIMIT_REND (*srp) != w2)
2945                 break;
2946               row = trow;
2947               col = tcol;
2948               continue;
2949             }
2950         }
2951       break;
2952     }
2953 Old_Word_Selection_You_Die:
2954   D_SELECT ((stderr, "rxvt_selection_delimit_word (%s,...) @ (r:%3d, c:%3d) has boundary (r:%3d, c:%3d)", (dirn == UP ? "up     " : "down"), mark->row, mark->col, row - TermWin.saveLines, col));
2955
2956   if (dirn == DN)
2957     col++;                  /* put us on one past the end */
2958
2959   /* Poke the values back in */
2960   ret->row = row - TermWin.saveLines;
2961   ret->col = col;
2962 }
2963
2964 /* ------------------------------------------------------------------------- */
2965 /*
2966  * Extend the selection to the specified x/y pixel location
2967  * EXT: button 3 press; button 1 or 3 drag
2968  * flag == 0 ==> button 1
2969  * flag == 1 ==> button 3 press
2970  * flag == 2 ==> button 3 motion
2971  */
2972 void
2973 rxvt_term::selection_extend (int x, int y, int flag)
2974 {
2975   int col, row;
2976
2977   col = Pixel2Col (x);
2978   row = Pixel2Row (y);
2979   MAX_IT (row, 0);
2980   MIN_IT (row, (int)TermWin.nrow - 1);
2981   MAX_IT (col, 0);
2982   MIN_IT (col, (int)TermWin.ncol);
2983
2984 #ifndef NO_NEW_SELECTION
2985   /*
2986   * If we're selecting characters (single click) then we must check first
2987   * if we are at the same place as the original mark.  If we are then
2988   * select nothing.  Otherwise, if we're to the right of the mark, you have to
2989   * be _past_ a character for it to be selected.
2990   */
2991   if (selection_style != OLD_SELECT)
2992     {
2993       if (((selection.clicks % 3) == 1) && !flag
2994           && (col == selection.mark.col
2995               && (row == selection.mark.row + TermWin.view_start)))
2996         {
2997           /* select nothing */
2998           selection.beg.row = selection.end.row = 0;
2999           selection.beg.col = selection.end.col = 0;
3000           selection.clicks = 4;
3001           want_refresh = 1;
3002           D_SELECT ((stderr, "rxvt_selection_extend () selection.clicks = 4"));
3003           return;
3004         }
3005     }
3006 #endif
3007   if (selection.clicks == 4)
3008     selection.clicks = 1;
3009
3010   selection_extend_colrow (col, row, !!flag,  /* ? button 3      */
3011                            flag == 1 ? 1 : 0,     /* ? button press  */
3012                            0);    /* no click change */
3013 }
3014
3015 /* ------------------------------------------------------------------------- */
3016 /*
3017  * Extend the selection to the specified col/row
3018  */
3019 void
3020 rxvt_term::selection_extend_colrow (int32_t col, int32_t row, int button3, int buttonpress, int clickchange)
3021 {
3022   int16_t         ncol = TermWin.ncol;
3023   int             end_col;
3024   row_col_t       pos;
3025   enum {
3026     LEFT, RIGHT
3027   } closeto = RIGHT;
3028
3029   D_SELECT ((stderr, "rxvt_selection_extend_colrow (c:%d, r:%d, %d, %d) clicks:%d, op:%d", col, row, button3, buttonpress, selection.clicks, selection.op));
3030   D_SELECT ((stderr, "rxvt_selection_extend_colrow () ENT  b: (r:%d,c:%d) m: (r:%d,c:%d), e: (r:%d,c:%d)", selection.beg.row, selection.beg.col, selection.mark.row, selection.mark.col, selection.end.row, selection.end.col));
3031
3032   want_refresh = 1;
3033   switch (selection.op)
3034     {
3035       case SELECTION_INIT:
3036         CLEAR_SELECTION ();
3037         selection.op = SELECTION_BEGIN;
3038         /* FALLTHROUGH */
3039       case SELECTION_BEGIN:
3040         if (row != selection.mark.row || col != selection.mark.col
3041             || (!button3 && buttonpress))
3042           selection.op = SELECTION_CONT;
3043         break;
3044       case SELECTION_DONE:
3045         selection.op = SELECTION_CONT;
3046         /* FALLTHROUGH */
3047       case SELECTION_CONT:
3048         break;
3049       case SELECTION_CLEAR:
3050         selection_start_colrow (col, row);
3051         /* FALLTHROUGH */
3052       default:
3053         return;
3054     }
3055   if (selection.beg.col == selection.end.col
3056       && selection.beg.col != selection.mark.col
3057       && selection.beg.row == selection.end.row
3058       && selection.beg.row != selection.mark.row)
3059     {
3060       selection.beg.col = selection.end.col = selection.mark.col;
3061       selection.beg.row = selection.end.row = selection.mark.row;
3062       D_SELECT ((stderr, "rxvt_selection_extend_colrow () ENT2 b: (r:%d,c:%d) m: (r:%d,c:%d), e: (r:%d,c:%d)", selection.beg.row, selection.beg.col, selection.mark.row, selection.mark.col, selection.end.row, selection.end.col));
3063     }
3064
3065   pos.col = col;
3066   pos.row = row;
3067
3068   pos.row -= TermWin.view_start;   /* adjust for scroll */
3069
3070 #ifndef NO_OLD_SELECTION
3071   /*
3072    * This mimics some of the selection behaviour of version 2.20 and before.
3073    * There are no ``selection modes'', button3 is always character extension.
3074    * Note: button3 drag is always available, c.f. v2.20
3075    * Selection always terminates (left or right as appropriate) at the mark.
3076    */
3077   if (selection_style == OLD_SELECT)
3078     {
3079       if (selection.clicks == 1 || button3)
3080         {
3081           if (hate_those_clicks)
3082             {
3083               hate_those_clicks = 0;
3084               if (selection.clicks == 1)
3085                 {
3086                   selection.beg.row = selection.mark.row;
3087                   selection.beg.col = selection.mark.col;
3088                 }
3089               else
3090                 {
3091                   selection.mark.row = selection.beg.row;
3092                   selection.mark.col = selection.beg.col;
3093                 }
3094             }
3095           if (ROWCOL_IS_BEFORE (pos, selection.mark))
3096             {
3097               selection.end.row = selection.mark.row;
3098               selection.end.col = selection.mark.col + 1;
3099               selection.beg.row = pos.row;
3100               selection.beg.col = pos.col;
3101             }
3102           else
3103             {
3104               selection.beg.row = selection.mark.row;
3105               selection.beg.col = selection.mark.col;
3106               selection.end.row = pos.row;
3107               selection.end.col = pos.col + 1;
3108             }
3109         }
3110       else if (selection.clicks == 2)
3111         {
3112           selection_delimit_word (UP, & (selection.mark),
3113                                   & (selection.beg));
3114           selection_delimit_word (DN, & (selection.mark),
3115                                   & (selection.end));
3116           hate_those_clicks = 1;
3117         }
3118       else if (selection.clicks == 3)
3119         {
3120           selection.beg.row = selection.end.row = selection.mark.row;
3121           selection.beg.col = 0;
3122           selection.end.col = ncol;
3123           hate_those_clicks = 1;
3124         }
3125       D_SELECT ((stderr, "rxvt_selection_extend_colrow () EXIT b: (r:%d,c:%d) m: (r:%d,c:%d), e: (r:%d,c:%d)", selection.beg.row, selection.beg.col, selection.mark.row, selection.mark.col, selection.end.row, selection.end.col));
3126       return;
3127     }
3128 #endif                          /* ! NO_OLD_SELECTION */
3129 #ifndef NO_NEW_SELECTION
3130   /* selection_style must not be OLD_SELECT to get here */
3131   /*
3132    * This is mainly xterm style selection with a couple of differences, mainly
3133    * in the way button3 drag extension works.
3134    * We're either doing: button1 drag; button3 press; or button3 drag
3135    *  a) button1 drag : select around a midpoint/word/line - that point/word/line
3136    *     is always at the left/right edge of the selection.
3137    *  b) button3 press: extend/contract character/word/line at whichever edge of
3138    *     the selection we are closest to.
3139    *  c) button3 drag : extend/contract character/word/line - we select around
3140    *     a point/word/line which is either the start or end of the selection
3141    *     and it was decided by whichever point/word/line was `fixed' at the
3142    *     time of the most recent button3 press
3143    */
3144   if (button3 && buttonpress)
3145     {       /* button3 press */
3146       /*
3147        * first determine which edge of the selection we are closest to
3148        */
3149       if (ROWCOL_IS_BEFORE (pos, selection.beg)
3150           || (!ROWCOL_IS_AFTER (pos, selection.end)
3151               && (((pos.col - selection.beg.col)
3152                    + ((pos.row - selection.beg.row) * ncol))
3153                   < ((selection.end.col - pos.col)
3154                      + ((selection.end.row - pos.row) * ncol)))))
3155         closeto = LEFT;
3156       if (closeto == LEFT)
3157         {
3158           selection.beg.row = pos.row;
3159           selection.beg.col = pos.col;
3160           selection.mark.row = selection.end.row;
3161           selection.mark.col = selection.end.col
3162                                - (selection.clicks == 2);
3163         }
3164       else
3165         {
3166           selection.end.row = pos.row;
3167           selection.end.col = pos.col;
3168           selection.mark.row = selection.beg.row;
3169           selection.mark.col = selection.beg.col;
3170         }
3171     }
3172   else
3173     {                    /* button1 drag or button3 drag */
3174       if (ROWCOL_IS_AFTER (selection.mark, pos))
3175         {
3176           if ((selection.mark.row == selection.end.row)
3177               && (selection.mark.col == selection.end.col)
3178               && clickchange && selection.clicks == 2)
3179             selection.mark.col--;
3180           selection.beg.row = pos.row;
3181           selection.beg.col = pos.col;
3182           selection.end.row = selection.mark.row;
3183           selection.end.col = selection.mark.col
3184                               + (selection.clicks == 2);
3185         }
3186       else
3187         {
3188           selection.beg.row = selection.mark.row;
3189           selection.beg.col = selection.mark.col;
3190           selection.end.row = pos.row;
3191           selection.end.col = pos.col;
3192         }
3193     }
3194
3195   if (selection.clicks == 1)
3196     {
3197       end_col = screen.tlen[selection.beg.row + TermWin.saveLines];
3198       if (end_col != -1 && selection.beg.col > end_col)
3199         {
3200 #if 1
3201           selection.beg.col = ncol;
3202 #else
3203           if (selection.beg.row != selection.end.row)
3204             selection.beg.col = ncol;
3205           else
3206             selection.beg.col = selection.mark.col;
3207 #endif
3208
3209         }
3210       end_col = screen.tlen[selection.end.row + TermWin.saveLines];
3211       if (end_col != -1 && selection.end.col > end_col)
3212         selection.end.col = ncol;
3213
3214     }
3215   else if (selection.clicks == 2)
3216     {
3217       if (ROWCOL_IS_AFTER (selection.end, selection.beg))
3218         selection.end.col--;
3219       selection_delimit_word (UP, & (selection.beg),
3220                               & (selection.beg));
3221       selection_delimit_word (DN, & (selection.end),
3222                               & (selection.end));
3223     }
3224   else if (selection.clicks == 3)
3225     {
3226 #ifndef NO_FRILLS
3227       if ((Options & Opt_tripleclickwords))
3228         {
3229           int             end_row;
3230
3231           selection_delimit_word (UP, & (selection.beg),
3232                                   & (selection.beg));
3233           end_row = screen.tlen[selection.mark.row
3234                                 + TermWin.saveLines];
3235           for (end_row = selection.mark.row; end_row < TermWin.nrow;
3236                end_row++)
3237             {
3238               end_col = screen.tlen[end_row + TermWin.saveLines];
3239               if (end_col != -1)
3240                 {
3241                   selection.end.row = end_row;
3242                   selection.end.col = end_col;
3243                   selection_remove_trailing_spaces ();
3244                   break;
3245                 }
3246             }
3247         }
3248       else
3249 #endif
3250
3251         {
3252           if (ROWCOL_IS_AFTER (selection.mark, selection.beg))
3253             selection.mark.col++;
3254           selection.beg.col = 0;
3255           selection.end.col = ncol;
3256         }
3257     }
3258   if (button3 && buttonpress)
3259     {       /* mark may need to be changed */
3260       if (closeto == LEFT)
3261         {
3262           selection.mark.row = selection.end.row;
3263           selection.mark.col = selection.end.col
3264                                - (selection.clicks == 2);
3265         }
3266       else
3267         {
3268           selection.mark.row = selection.beg.row;
3269           selection.mark.col = selection.beg.col;
3270         }
3271     }
3272   D_SELECT ((stderr, "rxvt_selection_extend_colrow () EXIT b: (r:%d,c:%d) m: (r:%d,c:%d), e: (r:%d,c:%d)", selection.beg.row, selection.beg.col, selection.mark.row, selection.mark.col, selection.end.row, selection.end.col));
3273 #endif                          /* ! NO_NEW_SELECTION */
3274 }
3275
3276 #ifndef NO_FRILLS
3277 void
3278 rxvt_term::selection_remove_trailing_spaces ()
3279 {
3280   int32_t         end_col, end_row;
3281   text_t         *stp;
3282
3283   end_col = selection.end.col;
3284   end_row = selection.end.row;
3285   for ( ; end_row >= selection.beg.row; )
3286     {
3287       stp = screen.text[end_row + TermWin.saveLines];
3288       while (--end_col >= 0)
3289         {
3290           if (stp[end_col] != ' ' && stp[end_col] != '\t')
3291             break;
3292         }
3293       if (end_col >= 0
3294           || screen.tlen[end_row - 1 + TermWin.saveLines] != -1)
3295         {
3296           selection.end.col = end_col + 1;
3297           selection.end.row = end_row;
3298           break;
3299         }
3300       end_row--;
3301       end_col = TermWin.ncol;
3302     }
3303   if (selection.mark.row > selection.end.row)
3304     {
3305       selection.mark.row = selection.end.row;
3306       selection.mark.col = selection.end.col;
3307     }
3308   else if (selection.mark.row == selection.end.row
3309            && selection.mark.col > selection.end.col)
3310     selection.mark.col = selection.end.col;
3311 }
3312 #endif
3313
3314 /* ------------------------------------------------------------------------- */
3315 /*
3316  * Double click on button 3 when already selected
3317  * EXT: button 3 double click
3318  */
3319 void
3320 rxvt_term::selection_rotate (int x, int y)
3321 {
3322   selection.clicks = selection.clicks % 3 + 1;
3323   selection_extend_colrow (Pixel2Col (x), Pixel2Row (y), 1, 0, 1);
3324 }
3325
3326 /* ------------------------------------------------------------------------- */
3327 /*
3328  * On some systems, the Atom typedef is 64 bits wide.  We need to have a type
3329  * that is exactly 32 bits wide, because a format of 64 is not allowed by
3330  * the X11 protocol.
3331  */
3332 typedef CARD32 Atom32;
3333
3334 /* ------------------------------------------------------------------------- */
3335 /*
3336  * Respond to a request for our current selection
3337  * EXT: SelectionRequest
3338  */
3339 void
3340 rxvt_term::selection_send (const XSelectionRequestEvent &rq)
3341 {
3342   XSelectionEvent ev;
3343   XTextProperty ct;
3344   XICCEncodingStyle style;
3345   Atom target;
3346
3347   ev.type = SelectionNotify;
3348   ev.property = None;
3349   ev.display = rq.display;
3350   ev.requestor = rq.requestor;
3351   ev.selection = rq.selection;
3352   ev.target = rq.target;
3353   ev.time = rq.time;
3354
3355   if (rq.target == xa[XA_TARGETS])
3356     {
3357       Atom32 target_list[5];
3358       Atom32 *target = target_list;
3359
3360       *target++ = (Atom32) xa[XA_TARGETS];
3361       *target++ = (Atom32) XA_STRING;
3362       *target++ = (Atom32) xa[XA_TEXT];
3363       *target++ = (Atom32) xa[XA_COMPOUND_TEXT];
3364 #if X_HAVE_UTF8_STRING
3365       *target++ = (Atom32) xa[XA_UTF8_STRING];
3366 #endif
3367       XChangeProperty (display->display, rq.requestor, rq.property, XA_ATOM,
3368                       (8 * sizeof (target_list[0])), PropModeReplace,
3369                       (unsigned char *)target_list,
3370                       target - target_list);
3371       ev.property = rq.property;
3372     }
3373   else if (rq.target == xa[XA_MULTIPLE])
3374     {
3375       /* TODO: Handle MULTIPLE */
3376     }
3377   else if (rq.target == xa[XA_TIMESTAMP] && selection.text)
3378     {
3379       XChangeProperty (display->display, rq.requestor, rq.property, XA_INTEGER,
3380                       (8 * sizeof (Time)), PropModeReplace,
3381                       (unsigned char *)&selection_time, 1);
3382       ev.property = rq.property;
3383     }
3384   else if (rq.target == XA_STRING
3385            || rq.target == xa[XA_TEXT]
3386            || rq.target == xa[XA_COMPOUND_TEXT]
3387            || rq.target == xa[XA_UTF8_STRING]
3388           )
3389     {
3390       short freect = 0;
3391       int selectlen;
3392       char *cl;
3393
3394       target = rq.target;
3395
3396       if (target == XA_STRING)
3397         // we actually don't do XA_STRING, but who cares, as i18n clients
3398         // will ask for another format anyways.
3399         style = XStringStyle;
3400       else if (target == xa[XA_TEXT])
3401         style = XTextStyle;
3402       else if (target == xa[XA_COMPOUND_TEXT])
3403         style = XCompoundTextStyle;
3404 #if X_HAVE_UTF8_STRING
3405       else if (target == xa[XA_UTF8_STRING])
3406         style = XUTF8StringStyle;
3407 #endif
3408       else
3409         {
3410           target = xa[XA_COMPOUND_TEXT];
3411           style = XCompoundTextStyle;
3412         }
3413
3414       if (selection.text)
3415         {
3416           cl = (char *)selection.text;
3417           selectlen = selection.len;
3418         }
3419       else
3420         {
3421           cl = "";
3422           selectlen = 0;
3423         }
3424
3425       if (XmbTextListToTextProperty (display->display, &cl, 1, style, &ct) >= 0)
3426         freect = 1;
3427       else
3428         {
3429           /* if we failed to convert then send it raw */
3430           ct.value = (unsigned char *)cl;
3431           ct.nitems = selectlen;
3432         }
3433
3434       XChangeProperty (display->display, rq.requestor, rq.property,
3435                        target, 8, PropModeReplace,
3436                        ct.value, (int)ct.nitems);
3437       ev.property = rq.property;
3438
3439       if (freect)
3440         XFree (ct.value);
3441     }
3442   XSendEvent (display->display, rq.requestor, False, 0L, (XEvent *)&ev);
3443 }
3444 \f
3445 /* ------------------------------------------------------------------------- *
3446  *                              MOUSE ROUTINES                               *
3447  * ------------------------------------------------------------------------- */
3448
3449 /*
3450  * return col/row values corresponding to x/y pixel values
3451  */
3452 void
3453 rxvt_term::pixel_position (int *x, int *y)
3454 {
3455   *x = Pixel2Col (*x);
3456   /* MAX_IT (*x, 0); MIN_IT (*x, (int)TermWin.ncol - 1); */
3457   *y = Pixel2Row (*y);
3458   /* MAX_IT (*y, 0); MIN_IT (*y, (int)TermWin.nrow - 1); */
3459 }
3460
3461 /* ------------------------------------------------------------------------- */
3462 #ifdef USE_XIM
3463 void
3464 rxvt_term::im_set_position (XPoint *pos)
3465 {
3466   XWindowAttributes xwa;
3467
3468   XGetWindowAttributes (display->display, TermWin.vt, &xwa);
3469   pos->x = Col2Pixel (screen.cur.col) + xwa.x;
3470   pos->y = Height2Pixel ((screen.cur.row + 1)) + xwa.y - TermWin.lineSpace;
3471 }
3472
3473 #endif
3474 /* ------------------------------------------------------------------------- */
3475 \f
3476 /* ------------------------------------------------------------------------- *
3477  *                              DEBUG ROUTINES                               *
3478  * ------------------------------------------------------------------------- */
3479 #if 0
3480 void
3481 rxvt_debug_colors (void)
3482 {
3483   int             color;
3484   const char     *name[] =
3485     {
3486       "fg", "bg",
3487       "black", "red", "green", "yellow", "blue", "magenta", "cyan", "white"
3488     };
3489
3490   fprintf (stderr, "Color ( ");
3491   if (rstyle & RS_RVid)
3492     fprintf (stderr, "rvid ");
3493   if (rstyle & RS_Bold)
3494     fprintf (stderr, "bold ");
3495   if (rstyle & RS_Blink)
3496     fprintf (stderr, "blink ");
3497   if (rstyle & RS_Uline)
3498     fprintf (stderr, "uline ");
3499   fprintf (stderr, "): ");
3500
3501   color = GET_FGCOLOR (rstyle);
3502 #ifndef NO_BRIGHTCOLOR
3503   if (color >= minBrightCOLOR && color <= maxBrightCOLOR)
3504     {
3505       color -= (minBrightCOLOR - minCOLOR);
3506       fprintf (stderr, "bright ");
3507     }
3508 #endif
3509   fprintf (stderr, "%s on ", name[color]);
3510
3511   color = GET_BGCOLOR (rstyle);
3512 #ifndef NO_BRIGHTCOLOR
3513   if (color >= minBrightCOLOR && color <= maxBrightCOLOR)
3514     {
3515       color -= (minBrightCOLOR - minCOLOR);
3516       fprintf (stderr, "bright ");
3517     }
3518 #endif
3519   fprintf (stderr, "%s\n", name[color]);
3520 }
3521 #endif