src/screen.C

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