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       // rely on wcwidth to tell us the character width, at least for non-latin1
 870       // do wcwidth before further replacements, as wcwidth says that line-drawing
 871       // characters have width -1 (DOH!) on gnu/linux sometimes.
 872       int width = c < 256 ? 1 : wcwidth (c);
 873
 874       if (charsets[screen.charset] == '0') // DEC SPECIAL
 875         switch (c)
 876           {
 877             // vt100 special graphics and line drawing
 878             case '`': c = 0x25c6; break; case '_': c = 0x0020; break;
 879             case 'a': c = 0x2592; break; case 'b': c = 0x2409; break; case 'c': c = 0x240c; break;
 880             case 'd': c = 0x240d; break; case 'e': c = 0x240a; break; case 'f': c = 0x00b0; break;
 881             case 'g': c = 0x00b1; break; case 'h': c = 0x2424; break; case 'i': c = 0x240b; break;
 882             case 'j': c = 0x2518; break; case 'k': c = 0x2510; break; case 'l': c = 0x250c; break;
 883             case 'm': c = 0x2514; break; case 'n': c = 0x253c; break; case 'o': c = 0x23ba; break;
 884             case 'p': c = 0x23bb; break; case 'q': c = 0x2500; break; case 'r': c = 0x23bc; break;
 885             case 's': c = 0x23bd; break; case 't': c = 0x251c; break; case 'u': c = 0x2524; break;
 886             case 'v': c = 0x2534; break; case 'w': c = 0x252c; break; case 'x': c = 0x2502; break;
 887             case 'y': c = 0x2264; break; case 'z': c = 0x2265; break; case '{': c = 0x03c0; break;
 888             case '|': c = 0x2260; break; case '}': c = 0x00a3; break; case '~': c = 0x00b7; break;
 889           }
 890
 891       if (width > 0)
 892         {
 893 #if !UNICODE_3 && ENABLE_COMBINING
 894           // trim characters we can't store directly :(
 895           if (c >= 0x10000)
 896             c = rxvt_composite.compose (c); // map to lower 16 bits
 897 #endif
 898           rend_t rend = SET_FONT (rstyle, TermWin.fontset->find_font (c));
 899
 900           do
 901             {
 902               stp[screen.cur.col] = c;
 903               srp[screen.cur.col] = rend;
 904
 905               if (screen.cur.col < last_col - 1)
 906                 screen.cur.col++;
 907               else
 908                 {
 909                   screen.tlen[row] = last_col;
 910                   if (screen.flags & Screen_Autowrap)
 911                     screen.flags |= Screen_WrapNext;
 912                   break;
 913                 }
 914
 915               c = NOCHAR;
 916             }
 917           while (--width > 0);
 918
 919           // pad with spaces when overwriting wide character with smaller one
 920           for (int c = screen.cur.col; c < last_col && stp[c] == NOCHAR; c++)
 921             {
 922               stp[c] = ' ';
 923               srp[c] = rend;
 924             }
 925         }
 926       else if (width == 0)
 927         {
 928 #if ENABLE_COMBINING
 929           // handle combining characters
 930           // we just tag the accent on the previous on-screen character.
 931           // this is arguably not correct, but also arguably not wrong.
 932           // we don't handle double-width characters nicely yet.
 933
 934           text_t *tp;
 935           rend_t *rp;
 936
 937           if (screen.cur.col > 0)
 938             {
 939               tp = stp + screen.cur.col - 1;
 940               rp = srp + screen.cur.col - 1;
 941             }
 942           else if (screen.cur.row > 0
 943                    && screen.tlen [screen.cur.row - 1 + TermWin.saveLines] == -1)
 944             {
 945               tp = screen.text[screen.cur.row - 1 + TermWin.saveLines] + last_col - 1;
 946               rp = screen.rend[screen.cur.row - 1 + TermWin.saveLines] + last_col - 1;
 947             }
 948           else
 949             continue;
 950
 951           // handle double-width-chars by making them look extremely ugly
 952           if (*tp == NOCHAR)
 953             *tp = ' '; // hack //D //TODO //--tp, --rp;
 954
 955           // first try to find a precomposed character
 956           uint32_t n = rxvt_compose (*tp, c);
 957           if (n == NOCHAR)
 958             n = rxvt_composite.compose (*tp, c);
 959
 960           *tp = n;
 961           *rp = SET_FONT (*rp, TermWin.fontset->find_font (*tp));
 962 #endif
 963         }
 964     }
 965
 966   if (screen.tlen[row] != -1)      /* XXX: think about this */
 967     MAX_IT (screen.tlen[row], screen.cur.col);
 968
 969   /*
 970    * If we wrote anywhere in the selected area, kill the selection
 971    * XXX: should we kill the mark too?  Possibly, but maybe that
 972    *      should be a similar check.
 973    */
 974   if (clearsel)
 975     CLEAR_SELECTION ();
 976
 977 #ifdef DEBUG_STRICT
 978   assert (screen.cur.row >= 0);
 979 #else                           /* drive with your eyes closed */
 980   MAX_IT (screen.cur.row, 0);
 981 #endif
 982 }
 983
 984 /* ------------------------------------------------------------------------- */
 985 /*
 986  * Process Backspace.  Move back the cursor back a position, wrap if have to
 987  * XTERM_SEQ: CTRL-H
 988  */
 989 void
 990 rxvt_term::scr_backspace ()
 991 {
 992   want_refresh = 1;
 993   if (screen.cur.col == 0)
 994     {
 995       if (screen.cur.row > 0)
 996         {
 997 #ifdef TERMCAP_HAS_BW
 998           screen.cur.col = TermWin.ncol - 1;
 999           screen.cur.row--;
1000           return;
1001 #endif
1002
1003         }
1004     }
1005   else if ((screen.flags & Screen_WrapNext) == 0)
1006     scr_gotorc (0, -1, RELATIVE);
1007   screen.flags &= ~Screen_WrapNext;
1008 }
1009
1010 /* ------------------------------------------------------------------------- */
1011 /*
1012  * Process Horizontal Tab
1013  * count: +ve = forward; -ve = backwards
1014  * XTERM_SEQ: CTRL-I
1015  */
1016 void
1017 rxvt_term::scr_tab (int count)
1018 {
1019   int             i, x;
1020
1021   D_SCREEN ((stderr, "rxvt_scr_tab (%d)", count));
1022   want_refresh = 1;
1023   i = x = screen.cur.col;
1024   if (count == 0)
1025     return;
1026   else if (count > 0)
1027     {
1028       for (; ++i < TermWin.ncol; )
1029         if (tabs[i])
1030           {
1031             x = i;
1032             if (!--count)
1033               break;
1034           }
1035       if (count)
1036         x = TermWin.ncol - 1;
1037     }
1038   else /* if (count < 0) */
1039     {
1040       for (; --i >= 0; )
1041         if (tabs[i])
1042           {
1043             x = i;
1044             if (!++count)
1045               break;
1046           }
1047       if (count)
1048         x = 0;
1049     }
1050   if (x != screen.cur.col)
1051     scr_gotorc (0, x, R_RELATIVE);
1052 }
1053
1054 /* ------------------------------------------------------------------------- */
1055 /*
1056  * Process DEC Back Index
1057  * XTERM_SEQ: ESC 6
1058  * Move cursor left in row.  If we're at the left boundary, shift everything
1059  * in that row right.  Clear left column.
1060  */
1061 #ifndef NO_FRILLS
1062 void
1063 rxvt_term::scr_backindex ()
1064 {
1065   if (screen.cur.col > 0)
1066     scr_gotorc (0, -1, R_RELATIVE | C_RELATIVE);
1067   else
1068     {
1069       if (screen.tlen[screen.cur.row + TermWin.saveLines] == 0)
1070         return;             /* um, yeah? */
1071       scr_insdel_chars (1, INSERT);
1072     }
1073 }
1074 #endif
1075 /* ------------------------------------------------------------------------- */
1076 /*
1077  * Process DEC Forward Index
1078  * XTERM_SEQ: ESC 9
1079  * Move cursor right in row.  If we're at the right boundary, shift everything
1080  * in that row left.  Clear right column.
1081  */
1082 #ifndef NO_FRILLS
1083 void
1084 rxvt_term::scr_forwardindex ()
1085 {
1086   int             row;
1087
1088   if (screen.cur.col < TermWin.ncol - 1)
1089     scr_gotorc (0, 1, R_RELATIVE | C_RELATIVE);
1090   else
1091     {
1092       row = screen.cur.row + TermWin.saveLines;
1093       if (screen.tlen[row] == 0)
1094         return;             /* um, yeah? */
1095       else if (screen.tlen[row] == -1)
1096         screen.tlen[row] = TermWin.ncol;
1097       scr_gotorc (0, 0, R_RELATIVE);
1098       scr_insdel_chars (1, DELETE);
1099       scr_gotorc (0, TermWin.ncol - 1, R_RELATIVE);
1100     }
1101 }
1102 #endif
1103
1104 /* ------------------------------------------------------------------------- */
1105 /*
1106  * Goto Row/Column
1107  */
1108 void
1109 rxvt_term::scr_gotorc (int row, int col, int relative)
1110 {
1111   want_refresh = 1;
1112   ZERO_SCROLLBACK ();
1113
1114   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));
1115
1116   screen.cur.col = ((relative & C_RELATIVE) ? (screen.cur.col + col)
1117                     : col);
1118   MAX_IT (screen.cur.col, 0);
1119   MIN_IT (screen.cur.col, (int32_t)TermWin.ncol - 1);
1120
1121   screen.flags &= ~Screen_WrapNext;
1122   if (relative & R_RELATIVE)
1123     {
1124       if (row > 0)
1125         {
1126           if (screen.cur.row <= screen.bscroll
1127               && (screen.cur.row + row) > screen.bscroll)
1128             screen.cur.row = screen.bscroll;
1129           else
1130             screen.cur.row += row;
1131         }
1132       else if (row < 0)
1133         {
1134           if (screen.cur.row >= screen.tscroll
1135               && (screen.cur.row + row) < screen.tscroll)
1136             screen.cur.row = screen.tscroll;
1137           else
1138             screen.cur.row += row;
1139         }
1140     }
1141   else
1142     {
1143       if (screen.flags & Screen_Relative)
1144         {        /* relative origin mode */
1145           screen.cur.row = row + screen.tscroll;
1146           MIN_IT (screen.cur.row, screen.bscroll);
1147         }
1148       else
1149         screen.cur.row = row;
1150     }
1151   MAX_IT (screen.cur.row, 0);
1152   MIN_IT (screen.cur.row, (int32_t)TermWin.nrow - 1);
1153
1154   while (screen.cur.col > 0
1155          && screen.text[screen.cur.row + TermWin.saveLines][screen.cur.col] == NOCHAR)
1156     screen.cur.col--;
1157 }
1158
1159 /* ------------------------------------------------------------------------- */
1160 /*
1161  * direction  should be UP or DN
1162  */
1163 void
1164 rxvt_term::scr_index (enum page_dirn direction)
1165 {
1166   int             dirn;
1167
1168   want_refresh = 1;
1169   dirn = ((direction == UP) ? 1 : -1);
1170   D_SCREEN ((stderr, "rxvt_scr_index (%d)", dirn));
1171
1172   ZERO_SCROLLBACK ();
1173
1174   screen.flags &= ~Screen_WrapNext;
1175   if ((screen.cur.row == screen.bscroll && direction == UP)
1176       || (screen.cur.row == screen.tscroll && direction == DN))
1177     scr_scroll_text (screen.tscroll, screen.bscroll, dirn, 0);
1178   else
1179     screen.cur.row += dirn;
1180   MAX_IT (screen.cur.row, 0);
1181   MIN_IT (screen.cur.row, (int32_t)TermWin.nrow - 1);
1182   selection_check (0);
1183 }
1184
1185 /* ------------------------------------------------------------------------- */
1186 /*
1187  * Erase part or whole of a line
1188  * XTERM_SEQ: Clear line to right: ESC [ 0 K
1189  * XTERM_SEQ: Clear line to left : ESC [ 1 K
1190  * XTERM_SEQ: Clear whole line   : ESC [ 2 K
1191  */
1192 void
1193 rxvt_term::scr_erase_line (int mode)
1194 {
1195   unsigned int row, col, num;
1196
1197   want_refresh = 1;
1198   D_SCREEN ((stderr, "rxvt_scr_erase_line (%d) at screen row: %d", mode, screen.cur.row));
1199   ZERO_SCROLLBACK ();
1200
1201   selection_check (1);
1202
1203   screen.flags &= ~Screen_WrapNext;
1204
1205   row = TermWin.saveLines + screen.cur.row;
1206   switch (mode)
1207     {
1208       case 0:                     /* erase to end of line */
1209         col = screen.cur.col;
1210         num = TermWin.ncol - col;
1211         MIN_IT (screen.tlen[row], (int16_t)col);
1212         if (ROWCOL_IN_ROW_AT_OR_AFTER (selection.beg, screen.cur)
1213             || ROWCOL_IN_ROW_AT_OR_AFTER (selection.end, screen.cur))
1214           CLEAR_SELECTION ();
1215         break;
1216       case 1:                     /* erase to beginning of line */
1217         col = 0;
1218         num = screen.cur.col + 1;
1219         if (ROWCOL_IN_ROW_AT_OR_BEFORE (selection.beg, screen.cur)
1220             || ROWCOL_IN_ROW_AT_OR_BEFORE (selection.end, screen.cur))
1221           CLEAR_SELECTION ();
1222         break;
1223       case 2:                     /* erase whole line */
1224         col = 0;
1225         num = TermWin.ncol;
1226         screen.tlen[row] = 0;
1227         if (selection.beg.row <= screen.cur.row
1228             && selection.end.row >= screen.cur.row)
1229           CLEAR_SELECTION ();
1230         break;
1231       default:
1232         return;
1233     }
1234
1235   if (screen.text[row])
1236     scr_blank_line (& (screen.text[row][col]),
1237                     & (screen.rend[row][col]), num, rstyle);
1238   else
1239     scr_blank_screen_mem (screen.text, screen.rend, row, rstyle);
1240 }
1241
1242 /* ------------------------------------------------------------------------- */
1243 /*
1244  * Erase part of whole of the screen
1245  * XTERM_SEQ: Clear screen after cursor : ESC [ 0 J
1246  * XTERM_SEQ: Clear screen before cursor: ESC [ 1 J
1247  * XTERM_SEQ: Clear whole screen        : ESC [ 2 J
1248  */
1249 void
1250 rxvt_term::scr_erase_screen (int mode)
1251 {
1252   int             num;
1253   int32_t         row, row_offset;
1254   rend_t          ren;
1255   XGCValues       gcvalue;
1256
1257   want_refresh = 1;
1258   D_SCREEN ((stderr, "rxvt_scr_erase_screen (%d) at screen row: %d", mode, screen.cur.row));
1259   ZERO_SCROLLBACK ();
1260   row_offset = (int32_t)TermWin.saveLines;
1261
1262   switch (mode)
1263     {
1264       case 0:                     /* erase to end of screen */
1265         selection_check (1);
1266         scr_erase_line (0);
1267         row = screen.cur.row + 1;    /* possible OOB */
1268         num = TermWin.nrow - row;
1269         break;
1270       case 1:                     /* erase to beginning of screen */
1271         selection_check (3);
1272         scr_erase_line (1);
1273         row = 0;
1274         num = screen.cur.row;
1275         break;
1276       case 2:                     /* erase whole screen */
1277         selection_check (3);
1278         row = 0;
1279         num = TermWin.nrow;
1280         break;
1281       default:
1282         return;
1283     }
1284   refresh_type |= REFRESH_BOUNDS;
1285   if (selection.op && current_screen == selection.screen
1286       && ((selection.beg.row >= row && selection.beg.row <= row + num)
1287           || (selection.end.row >= row
1288               && selection.end.row <= row + num)))
1289     CLEAR_SELECTION ();
1290   if (row >= TermWin.nrow) /* Out Of Bounds */
1291     return;
1292   MIN_IT (num, (TermWin.nrow - row));
1293   if (rstyle & (RS_RVid | RS_Uline))
1294     ren = (rend_t) ~RS_None;
1295   else if (GET_BASEBG (rstyle) == Color_bg)
1296     {
1297       ren = DEFAULT_RSTYLE;
1298       CLEAR_ROWS (row, num);
1299     }
1300   else
1301     {
1302       ren = (rstyle & (RS_fgMask | RS_bgMask));
1303       gcvalue.foreground = PixColors[GET_BGCOLOR (rstyle)];
1304       XChangeGC (display->display, TermWin.gc, GCForeground, &gcvalue);
1305       ERASE_ROWS (row, num);
1306       gcvalue.foreground = PixColors[Color_fg];
1307       XChangeGC (display->display, TermWin.gc, GCForeground, &gcvalue);
1308     }
1309   for (; num--; row++)
1310     {
1311       scr_blank_screen_mem (screen.text, screen.rend,
1312                             (unsigned int) (row + row_offset), rstyle);
1313       screen.tlen[row + row_offset] = 0;
1314       scr_blank_line (drawn_text[row], drawn_rend[row],
1315                       (unsigned int)TermWin.ncol, ren);
1316     }
1317 }
1318
1319 /* ------------------------------------------------------------------------- */
1320 /*
1321  * Fill the screen with `E's
1322  * XTERM_SEQ: Screen Alignment Test: ESC # 8
1323  */
1324 void
1325 rxvt_term::scr_E ()
1326 {
1327   int             i, j, k;
1328   rend_t         *r1, fs;
1329
1330   want_refresh = 1;
1331   num_scr_allow = 0;
1332   ZERO_SCROLLBACK ();
1333   selection_check (3);
1334
1335   fs = SET_FONT (rstyle, TermWin.fontset->find_font ('E'));
1336   for (k = TermWin.saveLines, i = TermWin.nrow; i--; k++)
1337     {
1338       screen.tlen[k] = TermWin.ncol;    /* make the `E's selectable */
1339       fill_text (screen.text[k], 'E', TermWin.ncol);
1340       for (r1 = screen.rend[k], j = TermWin.ncol; j--; )
1341         *r1++ = fs;
1342     }
1343 }
1344
1345 /* ------------------------------------------------------------------------- */
1346 /*
1347  * Insert/Delete <count> lines
1348  */
1349 void
1350 rxvt_term::scr_insdel_lines (int count, int insdel)
1351 {
1352   int             end;
1353
1354   ZERO_SCROLLBACK ();
1355
1356   selection_check (1);
1357
1358   if (screen.cur.row > screen.bscroll)
1359     return;
1360
1361   end = screen.bscroll - screen.cur.row + 1;
1362   if (count > end)
1363     {
1364       if (insdel == DELETE)
1365         return;
1366       else if (insdel == INSERT)
1367         count = end;
1368     }
1369   screen.flags &= ~Screen_WrapNext;
1370
1371   scr_scroll_text (screen.cur.row, screen.bscroll, insdel * count, 0);
1372 }
1373
1374 /* ------------------------------------------------------------------------- */
1375 /*
1376  * Insert/Delete <count> characters from the current position
1377  */
1378 void
1379 rxvt_term::scr_insdel_chars (int count, int insdel)
1380 {
1381   int             col, row;
1382   rend_t          tr;
1383   text_t         *stp;
1384   rend_t         *srp;
1385   int16_t        *slp;
1386
1387   want_refresh = 1;
1388   ZERO_SCROLLBACK ();
1389
1390   if (count <= 0)
1391     return;
1392
1393   selection_check (1);
1394   MIN_IT (count, (TermWin.ncol - screen.cur.col));
1395
1396   row = screen.cur.row + TermWin.saveLines;
1397   screen.flags &= ~Screen_WrapNext;
1398
1399   stp = screen.text[row];
1400   srp = screen.rend[row];
1401   slp = & (screen.tlen[row]);
1402   switch (insdel)
1403     {
1404       case INSERT:
1405         for (col = TermWin.ncol - 1; (col - count) >= screen.cur.col;
1406              col--)
1407           {
1408             stp[col] = stp[col - count];
1409             srp[col] = srp[col - count];
1410           }
1411         if (*slp != -1)
1412           {
1413             *slp += count;
1414             MIN_IT (*slp, TermWin.ncol);
1415           }
1416         if (selection.op && current_screen == selection.screen
1417             && ROWCOL_IN_ROW_AT_OR_AFTER (selection.beg, screen.cur))
1418           {
1419             if (selection.end.row != screen.cur.row
1420                 || (selection.end.col + count >= TermWin.ncol))
1421               CLEAR_SELECTION ();
1422             else
1423               {              /* shift selection */
1424                 selection.beg.col += count;
1425                 selection.mark.col += count; /* XXX: yes? */
1426                 selection.end.col += count;
1427               }
1428           }
1429         scr_blank_line (& (stp[screen.cur.col]), & (srp[screen.cur.col]),
1430                         (unsigned int)count, rstyle);
1431         break;
1432       case ERASE:
1433         screen.cur.col += count;     /* don't worry if > TermWin.ncol */
1434         selection_check (1);
1435         screen.cur.col -= count;
1436         scr_blank_line (& (stp[screen.cur.col]), & (srp[screen.cur.col]),
1437                         (unsigned int)count, rstyle);
1438         break;
1439       case DELETE:
1440         tr = srp[TermWin.ncol - 1]
1441              & (RS_fgMask | RS_bgMask | RS_baseattrMask);
1442         for (col = screen.cur.col; (col + count) < TermWin.ncol; col++)
1443           {
1444             stp[col] = stp[col + count];
1445             srp[col] = srp[col + count];
1446           }
1447         scr_blank_line (& (stp[TermWin.ncol - count]),
1448                         & (srp[TermWin.ncol - count]),
1449                         (unsigned int)count, tr);
1450         if (*slp == -1) /* break line continuation */
1451           *slp = TermWin.ncol;
1452         *slp -= count;
1453         MAX_IT (*slp, 0);
1454         if (selection.op && current_screen == selection.screen
1455             && ROWCOL_IN_ROW_AT_OR_AFTER (selection.beg, screen.cur))
1456           {
1457             if (selection.end.row != screen.cur.row
1458                 || (screen.cur.col >= selection.beg.col - count)
1459                 || selection.end.col >= TermWin.ncol)
1460               CLEAR_SELECTION ();
1461             else
1462               {
1463                 /* shift selection */
1464                 selection.beg.col -= count;
1465                 selection.mark.col -= count; /* XXX: yes? */
1466                 selection.end.col -= count;
1467               }
1468           }
1469         break;
1470     }
1471 }
1472
1473 /* ------------------------------------------------------------------------- */
1474 /*
1475  * Set the scrolling region
1476  * XTERM_SEQ: Set region <top> - <bot> inclusive: ESC [ <top> ; <bot> r
1477  */
1478 void
1479 rxvt_term::scr_scroll_region (int top, int bot)
1480 {
1481   MAX_IT (top, 0);
1482   MIN_IT (bot, (int)TermWin.nrow - 1);
1483   if (top > bot)
1484     return;
1485   screen.tscroll = top;
1486   screen.bscroll = bot;
1487   scr_gotorc (0, 0, 0);
1488 }
1489
1490 /* ------------------------------------------------------------------------- */
1491 /*
1492  * Make the cursor visible/invisible
1493  * XTERM_SEQ: Make cursor visible  : ESC [ ? 25 h
1494  * XTERM_SEQ: Make cursor invisible: ESC [ ? 25 l
1495  */
1496 void
1497 rxvt_term::scr_cursor_visible (int mode)
1498 {
1499   want_refresh = 1;
1500   if (mode)
1501     screen.flags |= Screen_VisibleCursor;
1502   else
1503     screen.flags &= ~Screen_VisibleCursor;
1504 }
1505
1506 /* ------------------------------------------------------------------------- */
1507 /*
1508  * Set/unset automatic wrapping
1509  * XTERM_SEQ: Set Wraparound  : ESC [ ? 7 h
1510  * XTERM_SEQ: Unset Wraparound: ESC [ ? 7 l
1511  */
1512 void
1513 rxvt_term::scr_autowrap (int mode)
1514 {
1515   if (mode)
1516     screen.flags |= Screen_Autowrap;
1517   else
1518     screen.flags &= ~ (Screen_Autowrap | Screen_WrapNext);
1519 }
1520
1521 /* ------------------------------------------------------------------------- */
1522 /*
1523  * Set/unset margin origin mode
1524  * Absolute mode: line numbers are counted relative to top margin of screen
1525  *      and the cursor can be moved outside the scrolling region.
1526  * Relative mode: line numbers are relative to top margin of scrolling region
1527  *      and the cursor cannot be moved outside.
1528  * XTERM_SEQ: Set Absolute: ESC [ ? 6 h
1529  * XTERM_SEQ: Set Relative: ESC [ ? 6 l
1530  */
1531 void
1532 rxvt_term::scr_relative_origin (int mode)
1533 {
1534   if (mode)
1535     screen.flags |= Screen_Relative;
1536   else
1537     screen.flags &= ~Screen_Relative;
1538   scr_gotorc (0, 0, 0);
1539 }
1540
1541 /* ------------------------------------------------------------------------- */
1542 /*
1543  * Set insert/replace mode
1544  * XTERM_SEQ: Set Insert mode : ESC [ ? 4 h
1545  * XTERM_SEQ: Set Replace mode: ESC [ ? 4 l
1546  */
1547 void
1548 rxvt_term::scr_insert_mode (int mode)
1549 {
1550   if (mode)
1551     screen.flags |= Screen_Insert;
1552   else
1553     screen.flags &= ~Screen_Insert;
1554 }
1555
1556 /* ------------------------------------------------------------------------- */
1557 /*
1558  * Set/Unset tabs
1559  * XTERM_SEQ: Set tab at current column  : ESC H
1560  * XTERM_SEQ: Clear tab at current column: ESC [ 0 g
1561  * XTERM_SEQ: Clear all tabs             : ESC [ 3 g
1562  */
1563 void
1564 rxvt_term::scr_set_tab (int mode)
1565 {
1566   if (mode < 0)
1567     MEMSET (tabs, 0, TermWin.ncol * sizeof (char));
1568   else if (screen.cur.col < TermWin.ncol)
1569     tabs[screen.cur.col] = (mode ? 1 : 0);
1570 }
1571
1572 /* ------------------------------------------------------------------------- */
1573 /*
1574  * Set reverse/normal video
1575  * XTERM_SEQ: Reverse video: ESC [ ? 5 h
1576  * XTERM_SEQ: Normal video : ESC [ ? 5 l
1577  */
1578 void
1579 rxvt_term::scr_rvideo_mode (int mode)
1580 {
1581   XGCValues       gcvalue;
1582
1583   if (rvideo != mode)
1584     {
1585       rvideo = mode;
1586       SWAP_IT (PixColors[Color_fg], PixColors[Color_bg], rxvt_color);
1587 #if defined(XPM_BACKGROUND)
1588       if (bgPixmap.pixmap == None)
1589 #endif
1590 #if defined(TRANSPARENT)
1591         if (! (Options & Opt_transparent) || am_transparent == 0)
1592 #endif
1593           XSetWindowBackground (display->display, TermWin.vt,
1594                                PixColors[Color_bg]);
1595
1596       gcvalue.foreground = PixColors[Color_fg];
1597       gcvalue.background = PixColors[Color_bg];
1598       XChangeGC (display->display, TermWin.gc, GCBackground | GCForeground,
1599                 &gcvalue);
1600       scr_clear ();
1601       scr_touch (true);
1602     }
1603 }
1604
1605 /* ------------------------------------------------------------------------- */
1606 /*
1607  * Report current cursor position
1608  * XTERM_SEQ: Report position: ESC [ 6 n
1609  */
1610 void
1611 rxvt_term::scr_report_position ()
1612 {
1613   tt_printf ("\033[%d;%dR", screen.cur.row + 1, screen.cur.col + 1);
1614 }
1615 \f
1616 /* ------------------------------------------------------------------------- *
1617  *                                  FONTS                                    *
1618  * ------------------------------------------------------------------------- */
1619
1620 /*
1621  * Set font style
1622  */
1623 void
1624 rxvt_term::set_font_style ()
1625 {
1626   switch (charsets[screen.charset])
1627     {
1628       case '0':                   /* DEC Special Character & Line Drawing Set */
1629         break;
1630       case 'A':                   /* United Kingdom (UK) */
1631         break;
1632       case 'B':                   /* United States (USASCII) */
1633         break;
1634       case '<':                   /* Multinational character set */
1635         break;
1636       case '5':                   /* Finnish character set */
1637         break;
1638       case 'C':                   /* Finnish character set */
1639         break;
1640       case 'K':                   /* German character set */
1641         break;
1642     }
1643 }
1644
1645 /* ------------------------------------------------------------------------- */
1646 /*
1647  * Choose a font
1648  * XTERM_SEQ: Invoke G0 character set: CTRL-O
1649  * XTERM_SEQ: Invoke G1 character set: CTRL-N
1650  * XTERM_SEQ: Invoke G2 character set: ESC N
1651  * XTERM_SEQ: Invoke G3 character set: ESC O
1652  */
1653 void
1654 rxvt_term::scr_charset_choose (int set)
1655   {
1656     screen.charset = set;
1657     set_font_style ();
1658   }
1659
1660 /* ------------------------------------------------------------------------- */
1661 /*
1662  * Set a font
1663  * XTERM_SEQ: Set G0 character set: ESC ( <C>
1664  * XTERM_SEQ: Set G1 character set: ESC ) <C>
1665  * XTERM_SEQ: Set G2 character set: ESC * <C>
1666  * XTERM_SEQ: Set G3 character set: ESC + <C>
1667  * See set_font_style for possible values for <C>
1668  */
1669 void
1670 rxvt_term::scr_charset_set (int set, unsigned int ch)
1671   {
1672     charsets[set] = (unsigned char)ch;
1673     set_font_style ();
1674   }
1675
1676 \f
1677 /* ------------------------------------------------------------------------- *
1678  *                        MAJOR SCREEN MANIPULATION                          *
1679  * ------------------------------------------------------------------------- */
1680
1681 /*
1682  * refresh matching text.
1683  */
1684 bool
1685 rxvt_term::scr_refresh_rend (rend_t mask, rend_t value)
1686 {
1687   bool found = false;
1688
1689   for (int i = 0; i < TermWin.nrow; i++)
1690     {
1691       int col = 0;
1692       rend_t *drp = drawn_rend [i];
1693
1694       for (; col < TermWin.ncol; col++, drp++)
1695         if ((*drp & mask) == value)
1696           {
1697             found = true;
1698             *drp = ~value;
1699           }
1700     }
1701
1702   return found;
1703 }
1704
1705 /*
1706  * Refresh an area
1707  */
1708 enum {
1709   PART_BEG = 0,
1710   PART_END,
1711   RC_COUNT
1712 };
1713
1714 void
1715 rxvt_term::scr_expose (int x, int y, int width, int height, bool refresh)
1716 {
1717   int i;
1718   row_col_t rc[RC_COUNT];
1719
1720   if (drawn_text == NULL)  /* sanity check */
1721     return;
1722
1723 #ifdef DEBUG_STRICT
1724   x = max (x, (int)TermWin.int_bwidth);
1725   x = min (x, (int)TermWin.width);
1726   y = max (y, (int)TermWin.int_bwidth);
1727   y = min (y, (int)TermWin.height);
1728 #endif
1729
1730   /* round down */
1731   rc[PART_BEG].col = Pixel2Col (x);
1732   rc[PART_BEG].row = Pixel2Row (y);
1733   /* round up */
1734   rc[PART_END].col = Pixel2Width (x + width + TermWin.fwidth - 1);
1735   rc[PART_END].row = Pixel2Row (y + height + TermWin.fheight - 1);
1736
1737   /* sanity checks */
1738   for (i = PART_BEG; i < RC_COUNT; i++)
1739     {
1740       MIN_IT (rc[i].col, TermWin.ncol - 1);
1741       MIN_IT (rc[i].row, TermWin.nrow - 1);
1742     }
1743
1744   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));
1745
1746   for (i = rc[PART_BEG].row; i <= rc[PART_END].row; i++)
1747     fill_text (& (drawn_text[i][rc[PART_BEG].col]), 0,
1748                (rc[PART_END].col - rc[PART_BEG].col + 1));
1749
1750   if (refresh)
1751     scr_refresh (SLOW_REFRESH | REFRESH_BOUNDS);
1752 }
1753
1754 /* ------------------------------------------------------------------------- */
1755 /*
1756  * Refresh the entire screen
1757  */
1758 void
1759 rxvt_term::scr_touch (bool refresh)
1760 {
1761   scr_expose (0, 0, TermWin.width, TermWin.height, refresh);
1762 }
1763
1764 /* ------------------------------------------------------------------------- */
1765 /*
1766  * Move the display so that the line represented by scrollbar value Y is at
1767  * the top of the screen
1768  */
1769 int
1770 rxvt_term::scr_move_to (int y, int len)
1771 {
1772   long p = 0;
1773   uint16_t oldviewstart;
1774
1775   oldviewstart = TermWin.view_start;
1776   if (y < len)
1777     {
1778       p = (TermWin.nrow + TermWin.nscrolled) * (len - y) / len;
1779       p -= (long) (TermWin.nrow - 1);
1780       p = max (p, 0);
1781     }
1782   TermWin.view_start = (uint16_t)min (p, TermWin.nscrolled);
1783   D_SCREEN ((stderr, "rxvt_scr_move_to (%d, %d) view_start:%d", y, len, TermWin.view_start));
1784
1785   return scr_changeview (oldviewstart);
1786 }
1787
1788 /* ------------------------------------------------------------------------- */
1789 /*
1790  * Page the screen up/down nlines
1791  * direction should be UP or DN
1792  */
1793 int
1794 rxvt_term::scr_page (enum page_dirn direction, int nlines)
1795 {
1796   int             n;
1797   uint16_t       oldviewstart;
1798
1799   D_SCREEN ((stderr, "rxvt_scr_page (%s, %d) view_start:%d", ((direction == UP) ? "UP" : "DN"), nlines, TermWin.view_start));
1800 #ifdef DEBUG_STRICT
1801   assert ((nlines >= 0) && (nlines <= TermWin.nrow));
1802 #endif
1803   oldviewstart = TermWin.view_start;
1804   if (direction == UP)
1805     {
1806       n = TermWin.view_start + nlines;
1807       TermWin.view_start = min (n, TermWin.nscrolled);
1808     }
1809   else
1810     {
1811       n = TermWin.view_start - nlines;
1812       TermWin.view_start = max (n, 0);
1813     }
1814   return scr_changeview (oldviewstart);
1815 }
1816
1817 int
1818 rxvt_term::scr_changeview (uint16_t oldviewstart)
1819 {
1820   if (TermWin.view_start != oldviewstart)
1821     {
1822       want_refresh = 1;
1823       num_scr -= (TermWin.view_start - oldviewstart);
1824     }
1825   return (int) (TermWin.view_start - oldviewstart);
1826 }
1827
1828 /* ------------------------------------------------------------------------- */
1829 void
1830 rxvt_term::scr_bell ()
1831 {
1832 #ifndef NO_BELL
1833 # ifndef NO_MAPALERT
1834 #  ifdef MAPALERT_OPTION
1835   if (Options & Opt_mapAlert)
1836 #  endif
1837     XMapWindow (display->display, TermWin.parent[0]);
1838 # endif
1839   if (Options & Opt_visualBell)
1840     {
1841       scr_rvideo_mode (!rvideo); /* refresh also done */
1842       scr_rvideo_mode (!rvideo); /* refresh also done */
1843     }
1844   else
1845     XBell (display->display, 0);
1846 #endif
1847 }
1848
1849 /* ------------------------------------------------------------------------- */
1850 /* ARGSUSED */
1851 void
1852 rxvt_term::scr_printscreen (int fullhist)
1853 {
1854 #ifdef PRINTPIPE
1855   int             i, r1, nrows, row_offset;
1856   text_t         *t;
1857   FILE           *fd;
1858
1859   if ((fd = popen_printer ()) == NULL)
1860     return;
1861   nrows = TermWin.nrow;
1862   row_offset = TermWin.saveLines;
1863   if (!fullhist)
1864     row_offset -= TermWin.view_start;
1865   else
1866     {
1867       nrows += TermWin.nscrolled;
1868       row_offset -= TermWin.nscrolled;
1869     }
1870
1871   for (r1 = 0; r1 < nrows; r1++)
1872     {
1873       t = screen.text[r1 + row_offset];
1874       for (i = TermWin.ncol - 1; i >= 0; i--)
1875         if (!isspace (t[i]))
1876           break;
1877       fprintf (fd, "%.*s\n", (i + 1), t);
1878     }
1879   pclose_printer (fd);
1880 #endif
1881 }
1882
1883 /* ------------------------------------------------------------------------- */
1884 /*
1885  * Refresh the screen
1886  * drawn_text/drawn_rend contain the screen information before the update.
1887  * screen.text/screen.rend contain what the screen will change to.
1888  */
1889
1890 #define FONT_WIDTH(X, Y)                                                \
1891     (X)->per_char[ (Y) - (X)->min_char_or_byte2].width
1892 #define FONT_RBEAR(X, Y)                                                \
1893     (X)->per_char[ (Y) - (X)->min_char_or_byte2].rbearing
1894 #define FONT_LBEAR(X, Y)                                                \
1895     (X)->per_char[ (Y) - (X)->min_char_or_byte2].lbearing
1896 #define IS_FONT_CHAR(X, Y)                                              \
1897     ((Y) >= (X)->min_char_or_byte2 && (Y) <= (X)->max_char_or_byte2)
1898
1899 void
1900 rxvt_term::scr_refresh (unsigned char refresh_type)
1901 {
1902   unsigned char clearfirst, /* first character writes before cell        */
1903                 clearlast,  /* last character writes beyond cell         */
1904                 must_clear, /* use draw_string not draw_image_string     */
1905                 rvid,       /* reverse video this position               */
1906                 showcursor; /* show the cursor                           */
1907   int16_t col, row,   /* column/row we're processing               */
1908           ocrow;      /* old cursor row                            */
1909   int i,              /* tmp                                       */
1910   row_offset;         /* basic offset in screen structure          */
1911 #ifndef NO_CURSORCOLOR
1912   rend_t cc1;         /* store colours at cursor position (s)      */
1913 #endif
1914   rend_t *drp, *srp;  /* drawn-rend-pointer, screen-rend-pointer   */
1915   text_t *dtp, *stp;  /* drawn-text-pointer, screen-text-pointer   */
1916
1917   if (refresh_type == NO_REFRESH || !TermWin.mapped)
1918     return;
1919
1920   /*
1921    * A: set up vars
1922    */
1923   clearfirst = clearlast = must_clear = 0;
1924
1925   refresh_count = 0;
1926
1927   row_offset = TermWin.saveLines - TermWin.view_start;
1928
1929   if ((refresh_type & REFRESH_BOUNDS))
1930     {
1931       clearfirst = clearlast = 1;
1932       refresh_type &= ~REFRESH_BOUNDS;
1933     }
1934
1935 #ifdef XPM_BACKGROUND
1936   must_clear |= (bgPixmap.pixmap != None);
1937 #endif
1938 #ifdef TRANSPARENT
1939   must_clear |= ((Options & Opt_transparent) && am_transparent);
1940 #endif
1941   ocrow = oldcursor.row; /* is there an old outline cursor on screen? */
1942
1943   /*
1944    * B: reverse any characters which are selected
1945    */
1946   scr_reverse_selection ();
1947
1948   /*
1949    * C: set the cursor character (s)
1950    */
1951   {
1952     unsigned char   setoldcursor;
1953     rend_t          ccol1,  /* Cursor colour       */
1954     ccol2;  /* Cursor colour2      */
1955
1956     showcursor = (screen.flags & Screen_VisibleCursor);
1957 #ifdef CURSOR_BLINK
1958     if (hidden_cursor)
1959       showcursor = 0;
1960 #endif
1961
1962     if (showcursor)
1963       {
1964         srp = & (screen.rend[screen.cur.row + TermWin.saveLines]
1965                 [screen.cur.col]);
1966
1967         if (showcursor && TermWin.focus)
1968           {
1969             *srp ^= RS_RVid;
1970 #ifndef NO_CURSORCOLOR
1971             cc1 = *srp & (RS_fgMask | RS_bgMask);
1972             if (ISSET_PIXCOLOR (Color_cursor))
1973               ccol1 = Color_cursor;
1974             else
1975 #ifdef CURSOR_COLOR_IS_RENDITION_COLOR
1976               ccol1 = GET_FGCOLOR (rstyle);
1977 #else
1978               ccol1 = Color_fg;
1979 #endif
1980             if (ISSET_PIXCOLOR (Color_cursor2))
1981               ccol2 = Color_cursor2;
1982             else
1983 #ifdef CURSOR_COLOR_IS_RENDITION_COLOR
1984               ccol2 = GET_BGCOLOR (rstyle);
1985 #else
1986               ccol2 = Color_bg;
1987 #endif
1988             *srp = SET_FGCOLOR (*srp, ccol1);
1989             *srp = SET_BGCOLOR (*srp, ccol2);
1990 #endif
1991           }
1992       }
1993
1994     /* make sure no outline cursor is left around */
1995     setoldcursor = 0;
1996     if (ocrow != -1)
1997       {
1998         if (screen.cur.row + TermWin.view_start != ocrow
1999             || screen.cur.col != oldcursor.col)
2000           {
2001             if (ocrow < TermWin.nrow
2002                 && oldcursor.col < TermWin.ncol)
2003               {
2004                 drawn_rend[ocrow][oldcursor.col] ^= (RS_RVid | RS_Uline);
2005               }
2006             if (TermWin.focus || !showcursor)
2007               oldcursor.row = -1;
2008             else
2009               setoldcursor = 1;
2010           }
2011       }
2012     else if (!TermWin.focus)
2013       setoldcursor = 1;
2014     if (setoldcursor)
2015       {
2016         if (screen.cur.row + TermWin.view_start >= TermWin.nrow)
2017           oldcursor.row = -1;
2018         else
2019           {
2020             oldcursor.row = screen.cur.row + TermWin.view_start;
2021             oldcursor.col = screen.cur.col;
2022           }
2023       }
2024   }
2025
2026 #ifndef NO_SLOW_LINK_SUPPORT
2027   /*
2028    * D: CopyArea pass - very useful for slower links
2029    *    This has been deliberately kept simple.
2030    */
2031   i = num_scr;
2032   if (refresh_type == FAST_REFRESH && num_scr_allow && i
2033       && abs (i) < TermWin.nrow && !must_clear)
2034     {
2035       int16_t         nits;
2036       int             j;
2037       rend_t         *drp2;
2038       text_t         *dtp2;
2039       int             len, wlen;
2040
2041       j = TermWin.nrow;
2042       wlen = len = -1;
2043       row = i > 0 ? 0 : j - 1;
2044       for (; j-- >= 0; row += (i > 0 ? 1 : -1))
2045         {
2046           if (row + i >= 0 && row + i < TermWin.nrow && row + i != ocrow)
2047             {
2048               stp = screen.text[row + row_offset];
2049               srp = screen.rend[row + row_offset];
2050               dtp = drawn_text[row];
2051               dtp2 = drawn_text[row + i];
2052               drp = drawn_rend[row];
2053               drp2 = drawn_rend[row + i];
2054
2055               for (nits = 0, col = TermWin.ncol; col--; )
2056                 if (stp[col] != dtp2[col] || srp[col] != drp2[col])
2057                   nits--;
2058                 else if (stp[col] != dtp[col] || srp[col] != drp[col])
2059                   nits++;
2060
2061               if (nits > 8) /* XXX: arbitrary choice */
2062                 {
2063                   for (col = TermWin.ncol; col--; )
2064                     {
2065                       *dtp++ = *dtp2++;
2066                       *drp++ = *drp2++;
2067                     }
2068
2069                   if (len == -1)
2070                     len = row;
2071
2072                   wlen = row;
2073                   continue;
2074                 }
2075             }
2076
2077           if (len != -1)
2078             {
2079               /* also comes here at end if needed because of >= above */
2080               if (wlen < len)
2081                 SWAP_IT (wlen, len, int);
2082
2083               D_SCREEN ((stderr, "rxvt_scr_refresh (): XCopyArea: %d -> %d (height: %d)", len + i, len, wlen - len + 1));
2084               XCopyArea (display->display, TermWin.vt, TermWin.vt,
2085                          TermWin.gc, 0, Row2Pixel (len + i),
2086                          (unsigned int)TermWin_TotalWidth (),
2087                          (unsigned int)Height2Pixel (wlen - len + 1),
2088                          0, Row2Pixel (len));
2089               len = -1;
2090             }
2091         }
2092     }
2093 #endif
2094
2095   /*
2096    * E: main pass across every character
2097    */
2098   for (row = 0; row < TermWin.nrow; row++)
2099     {
2100       stp = screen.text[row + row_offset];
2101       srp = screen.rend[row + row_offset];
2102       dtp = drawn_text[row];
2103       drp = drawn_rend[row];
2104
2105       /*
2106        * E2: OK, now the real pass
2107        */
2108       int ypixel = (int)Row2Pixel (row);
2109
2110       for (col = 0; col < TermWin.ncol; col++)
2111         {
2112           /* compare new text with old - if exactly the same then continue */
2113           if (stp[col] == dtp[col]    /* Must match characters to skip. */
2114               && (srp[col] == drp[col]    /* Either rendition the same or   */
2115                   || (stp[col] == ' ' /* space w/ no background change  */
2116                       && GET_BGATTR (srp[col]) == GET_BGATTR (drp[col]))))
2117             continue;
2118
2119           // redraw one or more characters
2120
2121           // seek to the beginning if wide characters
2122           while (stp[col] == NOCHAR && col > 0)
2123             --col;
2124
2125           rend_t rend = srp[col];     /* screen rendition (target rendtion) */
2126           text_t *text = stp + col;
2127           int count = 1;
2128
2129           dtp[col] = stp[col];
2130           drp[col] = rend;
2131
2132           int xpixel = Col2Pixel (col);
2133
2134           // this loop looks very messy, it can probably be optimized
2135           // and cleaned a bit by you?
2136           for (i = 0; ++col < TermWin.ncol; )
2137             {
2138               if (stp[col] == NOCHAR)
2139                 {
2140                   dtp[col] = stp[col];
2141                   drp[col] = rend;
2142                   count++;
2143
2144                   if (i) // only possible skip if char unchanged
2145                     i++;
2146
2147                   continue;
2148                 }
2149
2150               if (rend != srp[col])
2151                 break;
2152
2153               count++;
2154
2155               if (stp[col] != dtp[col]
2156                   || srp[col] != drp[col])
2157                 {
2158                   if (must_clear && (i++ > (count / 2)))
2159                     break;
2160
2161                   dtp[col] = stp[col];
2162                   drp[col] = rend;
2163                   i = 0;
2164                 }
2165               else if (must_clear || (stp[col] != ' ' && ++i >= 32))
2166                 break;
2167             }
2168
2169           col--;      /* went one too far.  move back */
2170           count -= i; /* dump any matching trailing chars */
2171
2172           /*
2173            * Determine the attributes for the string
2174            */
2175           int fid = GET_FONT (rend);
2176           int fore = GET_FGCOLOR (rend); // desired foreground
2177           int back = GET_BGCOLOR (rend); // desired background
2178
2179           rend = GET_ATTR (rend);
2180
2181           rvid = !!(rend & RS_RVid);
2182
2183 #ifndef NO_BOLD_UNDERLINE_REVERSE
2184           if (rend & RS_Bold && fore == Color_fg)
2185             {
2186               if (ISSET_PIXCOLOR (Color_BD))
2187                 fore = Color_BD;
2188               else
2189                 rvid = !rvid;
2190             }
2191
2192           if (rend & RS_Uline)
2193             if (ISSET_PIXCOLOR (Color_UL))
2194               fore = Color_UL;
2195 #endif
2196
2197           if (rvid)
2198             {
2199               SWAP_IT (fore, back, int);
2200
2201 #ifndef NO_BOLD_UNDERLINE_REVERSE
2202               if (ISSET_PIXCOLOR (Color_RV)
2203 # ifndef NO_CURSORCOLOR
2204                   && !ISSET_PIXCOLOR (Color_cursor)
2205 # endif
2206                  )
2207                 back = Color_RV;
2208 #endif
2209             }
2210
2211 #ifdef TEXT_BLINK
2212           if (rend & RS_Blink && back == Color_bg)
2213             {
2214               if (!text_blink_ev.active)
2215                 {
2216                   text_blink_ev.start (NOW + TEXT_BLINK_INTERVAL);
2217                   hidden_text = 0;
2218                 }
2219               else if (hidden_text)
2220                 fore = back;
2221             }
2222 #endif
2223
2224           /*
2225            * Actually do the drawing of the string here
2226            */
2227           rxvt_font *font = (*TermWin.fontset)[fid];
2228
2229           if (back == fore)
2230             font->clear_rect (*TermWin.drawable, xpixel, ypixel,
2231                               TermWin.fwidth * count, TermWin.fheight,
2232                               back);
2233           else if (back == Color_bg)
2234             {
2235               if (must_clear)
2236                 {
2237                   CLEAR_CHARS (xpixel, ypixel, count);
2238
2239                   for (i = 0; i < count; i++) /* don't draw empty strings */
2240                     if (text[i] != ' ')
2241                       {
2242                         font->draw (*TermWin.drawable, xpixel, ypixel, text, count, fore, -1);
2243                         break;
2244                       }
2245                 }
2246               else
2247                 font->draw (*TermWin.drawable, xpixel, ypixel, text, count, fore, Color_bg);
2248             }
2249           else
2250             font->draw (*TermWin.drawable, xpixel, ypixel, text, count, fore, back);
2251
2252           if ((rend & RS_Uline) && (font->descent > 1))
2253             XDrawLine (display->display, drawBuffer, TermWin.gc,
2254                        xpixel, ypixel + font->ascent + 1,
2255                        xpixel + Width2Pixel (count) - 1, ypixel + font->ascent + 1);
2256         }                     /* for (col....) */
2257     }                         /* for (row....) */
2258
2259   /*
2260    * G: cleanup cursor and display outline cursor if necessary
2261    */
2262   if (showcursor)
2263     {
2264       if (TermWin.focus)
2265         {
2266           srp = & (screen.rend[screen.cur.row + TermWin.saveLines]
2267                   [screen.cur.col]);
2268           *srp ^= RS_RVid;
2269 #ifndef NO_CURSORCOLOR
2270           *srp = (*srp & ~ (RS_fgMask | RS_bgMask)) | cc1;
2271 #endif
2272         }
2273       else if (oldcursor.row >= 0)
2274         {
2275 #ifndef NO_CURSORCOLOR
2276           if (ISSET_PIXCOLOR (Color_cursor))
2277             XSetForeground (display->display, TermWin.gc, PixColors[Color_cursor]);
2278 #endif
2279           int cursorwidth = 1;
2280           while (oldcursor.col + cursorwidth < TermWin.ncol
2281                  && drawn_text[oldcursor.row][oldcursor.col + cursorwidth] == NOCHAR)
2282             cursorwidth++;
2283
2284           XDrawRectangle (display->display, drawBuffer, TermWin.gc,
2285                           Col2Pixel (oldcursor.col),
2286                           Row2Pixel (oldcursor.row),
2287                           (unsigned int) (Width2Pixel (cursorwidth) - 1),
2288                           (unsigned int) (Height2Pixel (1) - TermWin.lineSpace - 1));
2289         }
2290     }
2291
2292   /*
2293    * H: cleanup selection
2294    */
2295   scr_reverse_selection ();
2296
2297   /*
2298    * I: other general cleanup
2299    */
2300   if (clearfirst && TermWin.int_bwidth)
2301     /*
2302      * clear the whole screen height, note that width == 0 is treated
2303      * specially by XClearArea
2304      */
2305     XClearArea (display->display, TermWin.vt, 0, 0,
2306                 (unsigned int)TermWin.int_bwidth,
2307                 (unsigned int)TermWin_TotalHeight (), False);
2308
2309   if (clearlast && TermWin.int_bwidth)
2310     /*
2311      * clear the whole screen height, note that width == 0 is treated
2312      * specially by XClearArea
2313      */
2314     XClearArea (display->display, TermWin.vt,
2315                 TermWin.width + TermWin.int_bwidth, 0,
2316                 (unsigned int)TermWin.int_bwidth,
2317                 (unsigned int)TermWin_TotalHeight (), False);
2318
2319   if (refresh_type & SMOOTH_REFRESH)
2320     XSync (display->display, False);
2321
2322   num_scr = 0;
2323   num_scr_allow = 1;
2324   want_refresh = 0;        /* screen is current */
2325 }
2326
2327 void
2328 rxvt_term::scr_remap_chars (text_t *tp, rend_t *rp)
2329 {
2330   if (!rp || !tp)
2331     return;
2332
2333   for (int i = TermWin.ncol; i; i--, rp++, tp++)
2334     *rp = SET_FONT (*rp, TermWin.fontset->find_font (*tp));
2335 }
2336
2337 void
2338 rxvt_term::scr_remap_chars ()
2339 {
2340   for (int i = TermWin.nrow + TermWin.saveLines; i--; )
2341     scr_remap_chars (screen.text[i], screen.rend[i]);
2342
2343   for (int i = TermWin.nrow; i--; )
2344     {
2345       scr_remap_chars (drawn_text[i], drawn_rend[i]);
2346       scr_remap_chars (swap.text[i], swap.rend[i]);
2347     }
2348 }
2349
2350 /* ------------------------------------------------------------------------- */
2351 void
2352 rxvt_term::scr_clear (bool really)
2353 {
2354   if (!TermWin.mapped)
2355     return;
2356
2357   num_scr_allow = 0;
2358   want_refresh = 1;
2359
2360 #ifdef TRANSPARENT
2361   if ((Options & Opt_transparent) && (am_pixmap_trans == 0))
2362     {
2363       int i;
2364
2365       if (! (Options & Opt_transparent_all))
2366         i = 0;
2367       else
2368         i = (int) (sizeof (TermWin.parent) / sizeof (Window));
2369
2370       while (i--)
2371         if (TermWin.parent[i] != None)
2372           XClearWindow (display->display, TermWin.parent[i]);
2373     }
2374 #endif
2375
2376   if (really)
2377     XClearWindow (display->display, TermWin.vt);
2378 }
2379
2380 /* ------------------------------------------------------------------------- */
2381 void
2382 rxvt_term::scr_reverse_selection ()
2383 {
2384   if (selection.op && current_screen == selection.screen)
2385     {
2386       int end_row = TermWin.saveLines - TermWin.view_start;
2387       int i = selection.beg.row + TermWin.saveLines;
2388       int col, row = selection.end.row + TermWin.saveLines;
2389       rend_t *srp;
2390
2391       if (i >= end_row)
2392         col = selection.beg.col;
2393       else
2394         {
2395           col = 0;
2396           i = end_row;
2397         }
2398
2399       end_row += TermWin.nrow;
2400       for (; i < row && i < end_row; i++, col = 0)
2401         for (srp = screen.rend[i]; col < TermWin.ncol; col++)
2402           srp[col] ^= RS_RVid;
2403
2404       if (i == row && i < end_row)
2405         for (srp = screen.rend[i]; col < selection.end.col; col++)
2406           srp[col] ^= RS_RVid;
2407     }
2408 }
2409
2410 /* ------------------------------------------------------------------------- */
2411 /*
2412  * Dump the whole scrollback and screen to the passed filedescriptor.  The
2413  * invoking routine must close the fd.
2414  */
2415 #if 0
2416 void
2417 rxvt_term::scr_dump (int fd)
2418 {
2419   int             row, wrote;
2420   unsigned int    width, towrite;
2421   char            r1[] = "\n";
2422
2423   for (row = TermWin.saveLines - TermWin.nscrolled;
2424        row < TermWin.saveLines + TermWin.nrow - 1; row++)
2425     {
2426       width = screen.tlen[row] >= 0 ? screen.tlen[row]
2427               : TermWin.ncol;
2428       for (towrite = width; towrite; towrite -= wrote)
2429         {
2430           wrote = write (fd, & (screen.text[row][width - towrite]),
2431                         towrite);
2432           if (wrote < 0)
2433             return;         /* XXX: death, no report */
2434         }
2435       if (screen.tlen[row] >= 0)
2436         if (write (fd, r1, 1) <= 0)
2437           return; /* XXX: death, no report */
2438     }
2439 }
2440 #endif
2441 \f
2442 /* ------------------------------------------------------------------------- *
2443  *                           CHARACTER SELECTION                             *
2444  * ------------------------------------------------------------------------- */
2445
2446 /*
2447  * -TermWin.nscrolled <= (selection row) <= TermWin.nrow - 1
2448  */
2449 void
2450 rxvt_term::selection_check (int check_more)
2451 {
2452   row_col_t       pos;
2453
2454   if (!selection.op)
2455     return;
2456
2457   pos.row = pos.col = 0;
2458   if ((selection.beg.row < - (int32_t)TermWin.nscrolled)
2459       || (selection.beg.row >= TermWin.nrow)
2460       || (selection.mark.row < - (int32_t)TermWin.nscrolled)
2461       || (selection.mark.row >= TermWin.nrow)
2462       || (selection.end.row < - (int32_t)TermWin.nscrolled)
2463       || (selection.end.row >= TermWin.nrow)
2464       || (check_more == 1
2465           && current_screen == selection.screen
2466           && !ROWCOL_IS_BEFORE (screen.cur, selection.beg)
2467           && ROWCOL_IS_BEFORE (screen.cur, selection.end))
2468       || (check_more == 2
2469           && ROWCOL_IS_BEFORE (selection.beg, pos)
2470           && ROWCOL_IS_AFTER (selection.end, pos))
2471       || (check_more == 3
2472           && ROWCOL_IS_AFTER (selection.end, pos))
2473       || (check_more == 4     /* screen width change */
2474           && (selection.beg.row != selection.end.row
2475               || selection.end.col > TermWin.ncol)))
2476     CLEAR_SELECTION ();
2477 }
2478
2479 /* ------------------------------------------------------------------------- */
2480 /*
2481  * Paste a selection direct to the command fd
2482  */
2483 void
2484 rxvt_term::paste (const unsigned char *data, unsigned int len)
2485 {
2486   unsigned int i, j, n;
2487   unsigned char *ds = (unsigned char *)rxvt_malloc (PROP_SIZE);
2488
2489 #if 0
2490   /* a paste should act like the user is typing, so check scrollTtyKeypress */
2491   ZERO_SCROLLBACK (r);
2492 #endif
2493
2494   /* convert normal newline chars into common keyboard Return key sequence */
2495   for (i = 0; i < len; i += PROP_SIZE)
2496     {
2497       n = min (len - i, PROP_SIZE);
2498       MEMCPY (ds, data + i, n);
2499
2500       for (j = 0; j < n; j++)
2501         if (ds[j] == '\n')
2502           ds[j] = '\r';
2503
2504       tt_write (ds, (int)n);
2505     }
2506
2507   free (ds);
2508 }
2509
2510 /* ------------------------------------------------------------------------- */
2511 /*
2512  * Respond to a notification that a primary selection has been sent
2513  * EXT: SelectionNotify
2514  */
2515 int
2516 rxvt_term::selection_paste (Window win, Atom prop, bool delete_prop)
2517 {
2518   long nread = 0;
2519   unsigned long bytes_after;
2520   XTextProperty ct;
2521
2522   D_SELECT ((stderr, "rxvt_selection_paste (%08lx, %lu, %d), wait=%2x", win, (unsigned long)prop, (int)delete_prop, selection_wait));
2523
2524   if (prop == None)         /* check for failed XConvertSelection */
2525     {
2526       if ((selection_type & Sel_CompoundText))
2527         {
2528           int selnum = selection_type & Sel_whereMask;
2529
2530           selection_type = 0;
2531           if (selnum != Sel_direct)
2532             selection_request_other (XA_STRING, selnum);
2533         }
2534
2535       if ((selection_type & Sel_UTF8String))
2536         {
2537           int selnum = selection_type & Sel_whereMask;
2538
2539           selection_type = Sel_CompoundText;
2540           if (selnum != Sel_direct)
2541             selection_request_other (xa[XA_COMPOUND_TEXT], selnum);
2542           else
2543             selection_type = 0;
2544         }
2545
2546       return 0;
2547     }
2548
2549   for (;;)
2550     {
2551       if (XGetWindowProperty (display->display, win, prop, (long) (nread / 4),
2552                               (long) (PROP_SIZE / 4), delete_prop,
2553                               AnyPropertyType, &ct.encoding, &ct.format,
2554                               &ct.nitems, &bytes_after,
2555                               &ct.value) != Success)
2556         break;
2557
2558       if (ct.encoding == 0)
2559         {
2560           D_SELECT ((stderr, "rxvt_selection_paste: property didn't exist!"));
2561           break;
2562         }
2563
2564       if (ct.value == NULL)
2565         {
2566           D_SELECT ((stderr, "rxvt_selection_paste: property shooting blanks!"));
2567           continue;
2568         }
2569
2570       if (ct.nitems == 0)
2571         {
2572           D_SELECT ((stderr, "rxvt_selection_paste: property empty - also INCR end"));
2573
2574           if (selection_wait == Sel_normal && nread == 0
2575               && (win != display->root || prop != XA_CUT_BUFFER0)) // avoid recursion
2576             {
2577               /*
2578                * pass through again trying CUT_BUFFER0 if we've come from
2579                * XConvertSelection () but nothing was presented
2580                */
2581               D_SELECT ((stderr, "rxvt_selection_request: pasting CUT_BUFFER0"));
2582               selection_paste (display->root, XA_CUT_BUFFER0, False);
2583             }
2584
2585           nread = -1;         /* discount any previous stuff */
2586           break;
2587         }
2588
2589       nread += ct.nitems;
2590
2591       char **cl;
2592       int cr;
2593       if (XmbTextPropertyToTextList (display->display, &ct, &cl,
2594                                      &cr) >= 0 && cl)
2595         {
2596           for (int i = 0; i < cr; i++)
2597             paste ((unsigned char *)cl[i], STRLEN (cl[i]));
2598
2599           XFreeStringList (cl);
2600         }
2601       else
2602         paste (ct.value, ct.nitems);
2603
2604       if (bytes_after == 0)
2605         break;
2606
2607       XFree (ct.value);
2608     }
2609
2610   if (ct.value)
2611     XFree (ct.value);
2612
2613   if (selection_wait == Sel_normal)
2614     selection_wait = Sel_none;
2615
2616   D_SELECT ((stderr, "rxvt_selection_paste: bytes written: %ld", nread));
2617   return (int)nread;
2618 }
2619
2620 void
2621 rxvt_term::incr_cb (time_watcher &w)
2622 {
2623   selection_wait = Sel_none;
2624
2625   rxvt_print_error ("data loss: timeout on INCR selection paste");
2626 }
2627
2628 /*
2629  * INCR support originally provided by Paul Sheer <psheer@obsidian.co.za>
2630  */
2631 void
2632 rxvt_term::selection_property (Window win, Atom prop)
2633 {
2634   int             reget_time = 0;
2635
2636   if (prop == None)
2637     return;
2638
2639   D_SELECT ((stderr, "rxvt_selection_property (%08lx, %lu)", win, (unsigned long)prop));
2640   if (selection_wait == Sel_normal)
2641     {
2642       int a, afmt;
2643       Atom atype;
2644       unsigned long bytes_after, nitems;
2645       unsigned char *s = NULL;
2646
2647       a = XGetWindowProperty (display->display, win, prop, 0L, 1L, False,
2648                              xa[XA_INCR], &atype, &afmt, &nitems,
2649                              &bytes_after, &s);
2650       if (s)
2651         XFree (s);
2652       if (a != Success)
2653         return;
2654
2655 #ifndef __CYGWIN32__
2656       if (atype == xa[XA_INCR])
2657         {  /* start an INCR transfer */
2658           D_SELECT ((stderr, "rxvt_selection_property: INCR: starting transfer"));
2659           XDeleteProperty (display->display, win, prop);
2660           XFlush (display->display);
2661           reget_time = 1;
2662           selection_wait = Sel_incr;
2663         }
2664 #endif
2665
2666     }
2667   else if (selection_wait == Sel_incr)
2668     {
2669       reget_time = 1;
2670
2671       if (selection_paste (win, prop, True) == -1)
2672         {
2673           D_SELECT ((stderr, "rxvt_selection_property: INCR: clean end"));
2674           selection_wait = Sel_none;
2675           incr_ev.stop ();
2676         }
2677     }
2678   if (reget_time) /* received more data so reget time */
2679     incr_ev.start (NOW + 10);
2680 }
2681
2682 /* ------------------------------------------------------------------------- */
2683 /*
2684  * Request the current selection:
2685  * Order: > internal selection if available
2686  *        > PRIMARY, SECONDARY, CLIPBOARD if ownership is claimed (+)
2687  *        > CUT_BUFFER0
2688  * (+) if ownership is claimed but property is empty, rxvt_selection_paste ()
2689  *     will auto fallback to CUT_BUFFER0
2690  * EXT: button 2 release
2691  */
2692 void
2693 rxvt_term::selection_request (Time tm, int x, int y)
2694 {
2695   D_SELECT ((stderr, "rxvt_selection_request (%lu, %d, %d)", tm, x, y));
2696
2697   if (x < 0 || x >= TermWin.width || y < 0 || y >= TermWin.height)
2698     return;                 /* outside window */
2699
2700   if (selection.text)
2701     { /* internal selection */
2702       D_SELECT ((stderr, "rxvt_selection_request: pasting internal"));
2703       char *str = rxvt_wcstombs (selection.text, selection.len);
2704       paste ((unsigned char *)str, strlen (str));
2705       free (str);
2706       return;
2707     }
2708   else
2709     {
2710       int i;
2711
2712       selection_request_time = tm;
2713       selection_wait = Sel_normal;
2714       for (i = Sel_Primary; i <= Sel_Clipboard; i++)
2715         {
2716 #if X_HAVE_UTF8_STRING
2717           selection_type = Sel_UTF8String;
2718           if (selection_request_other (xa[XA_UTF8_STRING], i))
2719             return;
2720 #else
2721           selection_type = Sel_CompoundText;
2722           if (selection_request_other (xa[XA_COMPOUND_TEXT], i))
2723             return;
2724 #endif
2725
2726         }
2727     }
2728
2729   selection_wait = Sel_none;       /* don't loop in rxvt_selection_paste () */
2730   D_SELECT ((stderr, "rxvt_selection_request: pasting CUT_BUFFER0"));
2731   selection_paste (display->root, XA_CUT_BUFFER0, False);
2732 }
2733
2734 int
2735 rxvt_term::selection_request_other (Atom target, int selnum)
2736 {
2737   Atom sel;
2738 #ifdef DEBUG_SELECT
2739   char *debug_xa_names[] = { "PRIMARY", "SECONDARY", "CLIPBOARD" };
2740 #endif
2741
2742   selection_type |= selnum;
2743
2744   if (selnum == Sel_Primary)
2745     sel = XA_PRIMARY;
2746   else if (selnum == Sel_Secondary)
2747     sel = XA_SECONDARY;
2748   else
2749     sel = xa[XA_CLIPBOARD];
2750
2751   if (XGetSelectionOwner (display->display, sel) != None)
2752     {
2753       D_SELECT ((stderr, "rxvt_selection_request_other: pasting %s", debug_xa_names[selnum]));
2754       XConvertSelection (display->display, sel, target, xa[XA_VT_SELECTION],
2755                          TermWin.vt, selection_request_time);
2756       return 1;
2757     }
2758
2759   return 0;
2760 }
2761
2762 /* ------------------------------------------------------------------------- */
2763 /*
2764  * Clear all selected text
2765  * EXT: SelectionClear
2766  */
2767 void
2768 rxvt_term::selection_clear ()
2769 {
2770   D_SELECT ((stderr, "rxvt_selection_clear ()"));
2771
2772   want_refresh = 1;
2773   free (selection.text);
2774   selection.text = NULL;
2775   selection.len = 0;
2776   CLEAR_SELECTION ();
2777 }
2778
2779 /* ------------------------------------------------------------------------- */
2780 /*
2781  * Copy a selection into the cut buffer
2782  * EXT: button 1 or 3 release
2783  */
2784 void
2785 rxvt_term::selection_make (Time tm)
2786 {
2787   int i, col, end_col, row, end_row;
2788   wchar_t *new_selection_text;
2789   text_t *t;
2790
2791   D_SELECT ((stderr, "rxvt_selection_make (): selection.op=%d, selection.clicks=%d", selection.op, selection.clicks));
2792   switch (selection.op)
2793     {
2794       case SELECTION_CONT:
2795         break;
2796       case SELECTION_INIT:
2797         CLEAR_SELECTION ();
2798         /* FALLTHROUGH */
2799       case SELECTION_BEGIN:
2800         selection.op = SELECTION_DONE;
2801         /* FALLTHROUGH */
2802       default:
2803         return;
2804     }
2805
2806   selection.op = SELECTION_DONE;
2807
2808   if (selection.clicks == 4)
2809     return;                 /* nothing selected, go away */
2810
2811   i = (selection.end.row - selection.beg.row + 1) * (TermWin.ncol + 1);
2812   new_selection_text = (wchar_t *)rxvt_malloc ((i + 4) * sizeof (wchar_t));
2813
2814   col = selection.beg.col;
2815   MAX_IT (col, 0);
2816   row = selection.beg.row + TermWin.saveLines;
2817   end_row = selection.end.row + TermWin.saveLines;
2818   int ofs = 0;
2819   int extra = 0;
2820
2821   for (; row <= end_row; row++, col = 0)
2822     {
2823       t = &(screen.text[row][col]);
2824
2825       end_col = screen.tlen[row];
2826
2827       if (end_col == -1)
2828         end_col = TermWin.ncol;
2829
2830       if (row == end_row)
2831         MIN_IT (end_col, selection.end.col);
2832
2833       for (; col < end_col; col++)
2834         {
2835           if (*t == NOCHAR)
2836             t++;
2837 #if ENABLE_COMBINING
2838           else if (IS_COMPOSE (*t))
2839             {
2840               int len = rxvt_composite.expand (*t, 0);
2841
2842               extra -= (len - 1);
2843
2844               if (extra < 0)
2845                 {
2846                   extra += i;
2847                   i += i;
2848                   new_selection_text = (wchar_t *)rxvt_realloc (new_selection_text, (i + 4) * sizeof (wchar_t));
2849                 }
2850
2851               ofs += rxvt_composite.expand (*t++, new_selection_text + ofs);
2852             }
2853 #endif
2854           else
2855             new_selection_text[ofs++] = *t++;
2856         }
2857
2858       if (screen.tlen[row] != -1 && row != end_row)
2859         new_selection_text[ofs++] = L'\n';
2860     }
2861
2862 #ifndef NO_OLD_SELECTION
2863   if (selection_style == OLD_SELECT)
2864     if (end_col == TermWin.ncol)
2865       new_selection_text[ofs++] = L'\n';
2866 #endif
2867 #ifndef NO_NEW_SELECTION
2868   if (selection_style != OLD_SELECT)
2869     if (end_col != selection.end.col)
2870       new_selection_text[ofs++] = L'\n';
2871 #endif
2872   new_selection_text[ofs] = 0;
2873
2874   if (ofs == 0)
2875     {
2876       free (new_selection_text);
2877       return;
2878     }
2879
2880   free (selection.text);
2881
2882   // we usually allocate much more than necessary, so realloc it smaller again
2883   selection.len = ofs;
2884   selection.text = (wchar_t *)rxvt_realloc (new_selection_text, (ofs + 1) * sizeof (wchar_t));
2885
2886   XSetSelectionOwner (display->display, XA_PRIMARY, TermWin.vt, tm);
2887   if (XGetSelectionOwner (display->display, XA_PRIMARY) == TermWin.vt)
2888     display->set_selection_owner (this);
2889   else
2890     rxvt_print_error ("can't get primary selection");
2891
2892 #if 0
2893   XTextProperty ct;
2894
2895   if (XwcTextListToTextProperty (display->display, &selection.text, 1, XStringStyle, &ct) >= 0)
2896     {
2897       XChangeProperty (display->display, display->root, XA_CUT_BUFFER0, XA_STRING, 8,
2898                        PropModeReplace, ct.value, ct.nitems);
2899       XFree (ct.value);
2900     }
2901 #endif
2902
2903   selection_time = tm;
2904   D_SELECT ((stderr, "rxvt_selection_make (): selection.len=%d", selection.len));
2905 }
2906
2907 /* ------------------------------------------------------------------------- */
2908 /*
2909  * Mark or select text based upon number of clicks: 1, 2, or 3
2910  * EXT: button 1 press
2911  */
2912 void
2913 rxvt_term::selection_click (int clicks, int x, int y)
2914 {
2915   D_SELECT ((stderr, "rxvt_selection_click (%d, %d, %d)", clicks, x, y));
2916
2917   clicks = ((clicks - 1) % 3) + 1;
2918   selection.clicks = clicks;       /* save clicks so extend will work */
2919
2920   selection_start_colrow (Pixel2Col (x), Pixel2Row (y));
2921
2922   if (clicks == 2 || clicks == 3)
2923     selection_extend_colrow (selection.mark.col,
2924                              selection.mark.row + TermWin.view_start,
2925                              0, /* button 3     */
2926                              1, /* button press */
2927                              0);        /* click change */
2928 }
2929
2930 /* ------------------------------------------------------------------------- */
2931 /*
2932  * Mark a selection at the specified col/row
2933  */
2934 void
2935 rxvt_term::selection_start_colrow (int col, int row)
2936 {
2937   want_refresh = 1;
2938   selection.mark.col = col;
2939   selection.mark.row = row - TermWin.view_start;
2940   MAX_IT (selection.mark.row, - (int32_t)TermWin.nscrolled);
2941   MIN_IT (selection.mark.row, (int32_t)TermWin.nrow - 1);
2942   MAX_IT (selection.mark.col, 0);
2943   MIN_IT (selection.mark.col, (int32_t)TermWin.ncol - 1);
2944
2945   if (selection.op)
2946     {      /* clear the old selection */
2947       selection.beg.row = selection.end.row = selection.mark.row;
2948       selection.beg.col = selection.end.col = selection.mark.col;
2949     }
2950   selection.op = SELECTION_INIT;
2951   selection.screen = current_screen;
2952 }
2953
2954 /* ------------------------------------------------------------------------- */
2955 /*
2956  * Word select: select text for 2 clicks
2957  * We now only find out the boundary in one direction
2958  */
2959
2960 /* what do we want: spaces/tabs are delimiters or cutchars or non-cutchars */
2961 #define DELIMIT_TEXT(x) \
2962     (((x) == ' ' || (x) == '\t') ? 2 : (STRCHR (rs[Rs_cutchars], (x)) != NULL))
2963 #define DELIMIT_REND(x)        1
2964
2965 void
2966 rxvt_term::selection_delimit_word (enum page_dirn dirn, const row_col_t *mark, row_col_t *ret)
2967 {
2968   int             col, row, dirnadd, tcol, trow, w1, w2;
2969   row_col_t       bound;
2970   text_t         *stp;
2971   rend_t         *srp;
2972
2973   if (dirn == UP)
2974     {
2975       bound.row = TermWin.saveLines - TermWin.nscrolled - 1;
2976       bound.col = 0;
2977       dirnadd = -1;
2978     }
2979   else
2980     {
2981       bound.row = TermWin.saveLines + TermWin.nrow;
2982       bound.col = TermWin.ncol - 1;
2983       dirnadd = 1;
2984     }
2985   row = mark->row + TermWin.saveLines;
2986   col = mark->col;
2987   MAX_IT (col, 0);
2988   /* find the edge of a word */
2989   stp = & (screen.text[row][col]);
2990   w1 = DELIMIT_TEXT (*stp);
2991
2992   if (selection_style != NEW_SELECT)
2993     {
2994       if (w1 == 1)
2995         {
2996           stp += dirnadd;
2997           if (DELIMIT_TEXT (*stp) == 1)
2998             goto Old_Word_Selection_You_Die;
2999           col += dirnadd;
3000         }
3001       w1 = 0;
3002     }
3003   srp = (&screen.rend[row][col]);
3004   w2 = DELIMIT_REND (*srp);
3005
3006   for (;;)
3007     {
3008       for (; col != bound.col; col += dirnadd)
3009         {
3010           stp += dirnadd;
3011           if (DELIMIT_TEXT (*stp) != w1)
3012             break;
3013           srp += dirnadd;
3014           if (DELIMIT_REND (*srp) != w2)
3015             break;
3016         }
3017       if ((col == bound.col) && (row != bound.row))
3018         {
3019           if (screen.tlen[ (row - (dirn == UP ? 1 : 0))] == -1)
3020             {
3021               trow = row + dirnadd;
3022               tcol = dirn == UP ? TermWin.ncol - 1 : 0;
3023               if (screen.text[trow] == NULL)
3024                 break;
3025               stp = & (screen.text[trow][tcol]);
3026               srp = & (screen.rend[trow][tcol]);
3027               if (DELIMIT_TEXT (*stp) != w1 || DELIMIT_REND (*srp) != w2)
3028                 break;
3029               row = trow;
3030               col = tcol;
3031               continue;
3032             }
3033         }
3034       break;
3035     }
3036 Old_Word_Selection_You_Die:
3037   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));
3038
3039   if (dirn == DN)
3040     col++;                  /* put us on one past the end */
3041
3042   /* Poke the values back in */
3043   ret->row = row - TermWin.saveLines;
3044   ret->col = col;
3045 }
3046
3047 /* ------------------------------------------------------------------------- */
3048 /*
3049  * Extend the selection to the specified x/y pixel location
3050  * EXT: button 3 press; button 1 or 3 drag
3051  * flag == 0 ==> button 1
3052  * flag == 1 ==> button 3 press
3053  * flag == 2 ==> button 3 motion
3054  */
3055 void
3056 rxvt_term::selection_extend (int x, int y, int flag)
3057 {
3058   int col, row;
3059
3060   col = Pixel2Col (x);
3061   row = Pixel2Row (y);
3062   MAX_IT (row, 0);
3063   MIN_IT (row, (int)TermWin.nrow - 1);
3064   MAX_IT (col, 0);
3065   MIN_IT (col, (int)TermWin.ncol);
3066
3067 #ifndef NO_NEW_SELECTION
3068   /*
3069   * If we're selecting characters (single click) then we must check first
3070   * if we are at the same place as the original mark.  If we are then
3071   * select nothing.  Otherwise, if we're to the right of the mark, you have to
3072   * be _past_ a character for it to be selected.
3073   */
3074   if (selection_style != OLD_SELECT)
3075     {
3076       if (((selection.clicks % 3) == 1) && !flag
3077           && (col == selection.mark.col
3078               && (row == selection.mark.row + TermWin.view_start)))
3079         {
3080           /* select nothing */
3081           selection.beg.row = selection.end.row = 0;
3082           selection.beg.col = selection.end.col = 0;
3083           selection.clicks = 4;
3084           want_refresh = 1;
3085           D_SELECT ((stderr, "rxvt_selection_extend () selection.clicks = 4"));
3086           return;
3087         }
3088     }
3089 #endif
3090   if (selection.clicks == 4)
3091     selection.clicks = 1;
3092
3093   selection_extend_colrow (col, row, !!flag,  /* ? button 3      */
3094                            flag == 1 ? 1 : 0,     /* ? button press  */
3095                            0);    /* no click change */
3096 }
3097
3098 /* ------------------------------------------------------------------------- */
3099 /*
3100  * Extend the selection to the specified col/row
3101  */
3102 void
3103 rxvt_term::selection_extend_colrow (int32_t col, int32_t row, int button3, int buttonpress, int clickchange)
3104 {
3105   int16_t         ncol = TermWin.ncol;
3106   int             end_col;
3107   row_col_t       pos;
3108   enum {
3109     LEFT, RIGHT
3110   } closeto = RIGHT;
3111
3112   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));
3113   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));
3114
3115   want_refresh = 1;
3116   switch (selection.op)
3117     {
3118       case SELECTION_INIT:
3119         CLEAR_SELECTION ();
3120         selection.op = SELECTION_BEGIN;
3121         /* FALLTHROUGH */
3122       case SELECTION_BEGIN:
3123         if (row != selection.mark.row || col != selection.mark.col
3124             || (!button3 && buttonpress))
3125           selection.op = SELECTION_CONT;
3126         break;
3127       case SELECTION_DONE:
3128         selection.op = SELECTION_CONT;
3129         /* FALLTHROUGH */
3130       case SELECTION_CONT:
3131         break;
3132       case SELECTION_CLEAR:
3133         selection_start_colrow (col, row);
3134         /* FALLTHROUGH */
3135       default:
3136         return;
3137     }
3138   if (selection.beg.col == selection.end.col
3139       && selection.beg.col != selection.mark.col
3140       && selection.beg.row == selection.end.row
3141       && selection.beg.row != selection.mark.row)
3142     {
3143       selection.beg.col = selection.end.col = selection.mark.col;
3144       selection.beg.row = selection.end.row = selection.mark.row;
3145       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));
3146     }
3147
3148   pos.col = col;
3149   pos.row = row;
3150
3151   pos.row -= TermWin.view_start;   /* adjust for scroll */
3152
3153 #ifndef NO_OLD_SELECTION
3154   /*
3155    * This mimics some of the selection behaviour of version 2.20 and before.
3156    * There are no ``selection modes'', button3 is always character extension.
3157    * Note: button3 drag is always available, c.f. v2.20
3158    * Selection always terminates (left or right as appropriate) at the mark.
3159    */
3160   if (selection_style == OLD_SELECT)
3161     {
3162       if (selection.clicks == 1 || button3)
3163         {
3164           if (hate_those_clicks)
3165             {
3166               hate_those_clicks = 0;
3167               if (selection.clicks == 1)
3168                 {
3169                   selection.beg.row = selection.mark.row;
3170                   selection.beg.col = selection.mark.col;
3171                 }
3172               else
3173                 {
3174                   selection.mark.row = selection.beg.row;
3175                   selection.mark.col = selection.beg.col;
3176                 }
3177             }
3178           if (ROWCOL_IS_BEFORE (pos, selection.mark))
3179             {
3180               selection.end.row = selection.mark.row;
3181               selection.end.col = selection.mark.col + 1;
3182               selection.beg.row = pos.row;
3183               selection.beg.col = pos.col;
3184             }
3185           else
3186             {
3187               selection.beg.row = selection.mark.row;
3188               selection.beg.col = selection.mark.col;
3189               selection.end.row = pos.row;
3190               selection.end.col = pos.col + 1;
3191             }
3192         }
3193       else if (selection.clicks == 2)
3194         {
3195           selection_delimit_word (UP, & (selection.mark),
3196                                   & (selection.beg));
3197           selection_delimit_word (DN, & (selection.mark),
3198                                   & (selection.end));
3199           hate_those_clicks = 1;
3200         }
3201       else if (selection.clicks == 3)
3202         {
3203           selection.beg.row = selection.end.row = selection.mark.row;
3204           selection.beg.col = 0;
3205           selection.end.col = ncol;
3206           hate_those_clicks = 1;
3207         }
3208       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));
3209       return;
3210     }
3211 #endif                          /* ! NO_OLD_SELECTION */
3212 #ifndef NO_NEW_SELECTION
3213   /* selection_style must not be OLD_SELECT to get here */
3214   /*
3215    * This is mainly xterm style selection with a couple of differences, mainly
3216    * in the way button3 drag extension works.
3217    * We're either doing: button1 drag; button3 press; or button3 drag
3218    *  a) button1 drag : select around a midpoint/word/line - that point/word/line
3219    *     is always at the left/right edge of the selection.
3220    *  b) button3 press: extend/contract character/word/line at whichever edge of
3221    *     the selection we are closest to.
3222    *  c) button3 drag : extend/contract character/word/line - we select around
3223    *     a point/word/line which is either the start or end of the selection
3224    *     and it was decided by whichever point/word/line was `fixed' at the
3225    *     time of the most recent button3 press
3226    */
3227   if (button3 && buttonpress)
3228     {       /* button3 press */
3229       /*
3230        * first determine which edge of the selection we are closest to
3231        */
3232       if (ROWCOL_IS_BEFORE (pos, selection.beg)
3233           || (!ROWCOL_IS_AFTER (pos, selection.end)
3234               && (((pos.col - selection.beg.col)
3235                    + ((pos.row - selection.beg.row) * ncol))
3236                   < ((selection.end.col - pos.col)
3237                      + ((selection.end.row - pos.row) * ncol)))))
3238         closeto = LEFT;
3239       if (closeto == LEFT)
3240         {
3241           selection.beg.row = pos.row;
3242           selection.beg.col = pos.col;
3243           selection.mark.row = selection.end.row;
3244           selection.mark.col = selection.end.col
3245                                - (selection.clicks == 2);
3246         }
3247       else
3248         {
3249           selection.end.row = pos.row;
3250           selection.end.col = pos.col;
3251           selection.mark.row = selection.beg.row;
3252           selection.mark.col = selection.beg.col;
3253         }
3254     }
3255   else
3256     {                    /* button1 drag or button3 drag */
3257       if (ROWCOL_IS_AFTER (selection.mark, pos))
3258         {
3259           if ((selection.mark.row == selection.end.row)
3260               && (selection.mark.col == selection.end.col)
3261               && clickchange && selection.clicks == 2)
3262             selection.mark.col--;
3263           selection.beg.row = pos.row;
3264           selection.beg.col = pos.col;
3265           selection.end.row = selection.mark.row;
3266           selection.end.col = selection.mark.col
3267                               + (selection.clicks == 2);
3268         }
3269       else
3270         {
3271           selection.beg.row = selection.mark.row;
3272           selection.beg.col = selection.mark.col;
3273           selection.end.row = pos.row;
3274           selection.end.col = pos.col;
3275         }
3276     }
3277
3278   if (selection.clicks == 1)
3279     {
3280       end_col = screen.tlen[selection.beg.row + TermWin.saveLines];
3281       if (end_col != -1 && selection.beg.col > end_col)
3282         {
3283 #if 1
3284           selection.beg.col = ncol;
3285 #else
3286           if (selection.beg.row != selection.end.row)
3287             selection.beg.col = ncol;
3288           else
3289             selection.beg.col = selection.mark.col;
3290 #endif
3291
3292         }
3293       end_col = screen.tlen[selection.end.row + TermWin.saveLines];
3294       if (end_col != -1 && selection.end.col > end_col)
3295         selection.end.col = ncol;
3296
3297     }
3298   else if (selection.clicks == 2)
3299     {
3300       if (ROWCOL_IS_AFTER (selection.end, selection.beg))
3301         selection.end.col--;
3302       selection_delimit_word (UP, & (selection.beg),
3303                               & (selection.beg));
3304       selection_delimit_word (DN, & (selection.end),
3305                               & (selection.end));
3306     }
3307   else if (selection.clicks == 3)
3308     {
3309 #ifndef NO_FRILLS
3310       if ((Options & Opt_tripleclickwords))
3311         {
3312           int             end_row;
3313
3314           selection_delimit_word (UP, & (selection.beg),
3315                                   & (selection.beg));
3316           end_row = screen.tlen[selection.mark.row
3317                                 + TermWin.saveLines];
3318           for (end_row = selection.mark.row; end_row < TermWin.nrow;
3319                end_row++)
3320             {
3321               end_col = screen.tlen[end_row + TermWin.saveLines];
3322               if (end_col != -1)
3323                 {
3324                   selection.end.row = end_row;
3325                   selection.end.col = end_col;
3326                   selection_remove_trailing_spaces ();
3327                   break;
3328                 }
3329             }
3330         }
3331       else
3332 #endif
3333
3334         {
3335           if (ROWCOL_IS_AFTER (selection.mark, selection.beg))
3336             selection.mark.col++;
3337           selection.beg.col = 0;
3338           selection.end.col = ncol;
3339         }
3340     }
3341   if (button3 && buttonpress)
3342     {       /* mark may need to be changed */
3343       if (closeto == LEFT)
3344         {
3345           selection.mark.row = selection.end.row;
3346           selection.mark.col = selection.end.col
3347                                - (selection.clicks == 2);
3348         }
3349       else
3350         {
3351           selection.mark.row = selection.beg.row;
3352           selection.mark.col = selection.beg.col;
3353         }
3354     }
3355   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));
3356 #endif                          /* ! NO_NEW_SELECTION */
3357 }
3358
3359 #ifndef NO_FRILLS
3360 void
3361 rxvt_term::selection_remove_trailing_spaces ()
3362 {
3363   int32_t         end_col, end_row;
3364   text_t         *stp;
3365
3366   end_col = selection.end.col;
3367   end_row = selection.end.row;
3368   for ( ; end_row >= selection.beg.row; )
3369     {
3370       stp = screen.text[end_row + TermWin.saveLines];
3371       while (--end_col >= 0)
3372         {
3373           if (stp[end_col] != ' ' && stp[end_col] != '\t')
3374             break;
3375         }
3376       if (end_col >= 0
3377           || screen.tlen[end_row - 1 + TermWin.saveLines] != -1)
3378         {
3379           selection.end.col = end_col + 1;
3380           selection.end.row = end_row;
3381           break;
3382         }
3383       end_row--;
3384       end_col = TermWin.ncol;
3385     }
3386   if (selection.mark.row > selection.end.row)
3387     {
3388       selection.mark.row = selection.end.row;
3389       selection.mark.col = selection.end.col;
3390     }
3391   else if (selection.mark.row == selection.end.row
3392            && selection.mark.col > selection.end.col)
3393     selection.mark.col = selection.end.col;
3394 }
3395 #endif
3396
3397 /* ------------------------------------------------------------------------- */
3398 /*
3399  * Double click on button 3 when already selected
3400  * EXT: button 3 double click
3401  */
3402 void
3403 rxvt_term::selection_rotate (int x, int y)
3404 {
3405   selection.clicks = selection.clicks % 3 + 1;
3406   selection_extend_colrow (Pixel2Col (x), Pixel2Row (y), 1, 0, 1);
3407 }
3408
3409 /* ------------------------------------------------------------------------- */
3410 /*
3411  * On some systems, the Atom typedef is 64 bits wide.  We need to have a type
3412  * that is exactly 32 bits wide, because a format of 64 is not allowed by
3413  * the X11 protocol.
3414  */
3415 typedef CARD32 Atom32;
3416
3417 /* ------------------------------------------------------------------------- */
3418 /*
3419  * Respond to a request for our current selection
3420  * EXT: SelectionRequest
3421  */
3422 void
3423 rxvt_term::selection_send (const XSelectionRequestEvent &rq)
3424 {
3425   XSelectionEvent ev;
3426   XTextProperty ct;
3427   XICCEncodingStyle style;
3428   Atom target;
3429
3430   ev.type = SelectionNotify;
3431   ev.property = None;
3432   ev.display = rq.display;
3433   ev.requestor = rq.requestor;
3434   ev.selection = rq.selection;
3435   ev.target = rq.target;
3436   ev.time = rq.time;
3437
3438   if (rq.target == xa[XA_TARGETS])
3439     {
3440       Atom32 target_list[6];
3441       Atom32 *target = target_list;
3442
3443       *target++ = (Atom32) xa[XA_TARGETS];
3444       *target++ = (Atom32) xa[XA_TIMESTAMP];
3445       *target++ = (Atom32) XA_STRING;
3446       *target++ = (Atom32) xa[XA_TEXT];
3447       *target++ = (Atom32) xa[XA_COMPOUND_TEXT];
3448 #if X_HAVE_UTF8_STRING
3449       *target++ = (Atom32) xa[XA_UTF8_STRING];
3450 #endif
3451
3452       XChangeProperty (display->display, rq.requestor, rq.property, XA_ATOM,
3453                        (8 * sizeof (target_list[0])), PropModeReplace,
3454                        (unsigned char *)target_list,
3455                        target - target_list);
3456       ev.property = rq.property;
3457     }
3458   else if (rq.target == xa[XA_MULTIPLE])
3459     {
3460       /* TODO: Handle MULTIPLE */
3461     }
3462   else if (rq.target == xa[XA_TIMESTAMP] && selection.text)
3463     {
3464       XChangeProperty (display->display, rq.requestor, rq.property, XA_INTEGER,
3465                       (8 * sizeof (Time)), PropModeReplace,
3466                       (unsigned char *)&selection_time, 1);
3467       ev.property = rq.property;
3468     }
3469   else if (rq.target == XA_STRING
3470            || rq.target == xa[XA_TEXT]
3471            || rq.target == xa[XA_COMPOUND_TEXT]
3472            || rq.target == xa[XA_UTF8_STRING]
3473           )
3474     {
3475       short freect = 0;
3476       int selectlen;
3477       wchar_t *cl;
3478
3479       target = rq.target;
3480
3481       if (target == XA_STRING)
3482         // we actually don't do XA_STRING, but who cares, as i18n clients
3483         // will ask for another format anyways.
3484         style = XStringStyle;
3485       else if (target == xa[XA_TEXT])
3486         style = XStdICCTextStyle;
3487       else if (target == xa[XA_COMPOUND_TEXT])
3488         style = XCompoundTextStyle;
3489 #if X_HAVE_UTF8_STRING
3490       else if (target == xa[XA_UTF8_STRING])
3491         style = XUTF8StringStyle;
3492 #endif
3493       else
3494         {
3495           target = xa[XA_COMPOUND_TEXT];
3496           style = XCompoundTextStyle;
3497         }
3498
3499       if (selection.text)
3500         {
3501           cl = selection.text;
3502           selectlen = selection.len;
3503         }
3504       else
3505         {
3506           cl = L"";
3507           selectlen = 0;
3508         }
3509
3510       // Xwc doesn't handle iso-10646 in wchar_t gracefully, so maybe recode it
3511       // manually for XUTF8StringStyle.
3512       if (XwcTextListToTextProperty (display->display, &cl, 1, style, &ct) >= 0)
3513         freect = 1;
3514       else
3515         {
3516           /* if we failed to convert then send it raw */
3517           ct.value = (unsigned char *)cl;
3518           ct.nitems = selectlen;
3519         }
3520
3521       XChangeProperty (display->display, rq.requestor, rq.property,
3522                        target, 8, PropModeReplace,
3523                        ct.value, (int)ct.nitems);
3524       ev.property = rq.property;
3525
3526       if (freect)
3527         XFree (ct.value);
3528     }
3529
3530   XSendEvent (display->display, rq.requestor, False, 0L, (XEvent *)&ev);
3531 }
3532 \f
3533 /* ------------------------------------------------------------------------- *
3534  *                              MOUSE ROUTINES                               *
3535  * ------------------------------------------------------------------------- */
3536
3537 /*
3538  * return col/row values corresponding to x/y pixel values
3539  */
3540 void
3541 rxvt_term::pixel_position (int *x, int *y)
3542 {
3543   *x = Pixel2Col (*x);
3544   /* MAX_IT (*x, 0); MIN_IT (*x, (int)TermWin.ncol - 1); */
3545   *y = Pixel2Row (*y);
3546   /* MAX_IT (*y, 0); MIN_IT (*y, (int)TermWin.nrow - 1); */
3547 }
3548
3549 /* ------------------------------------------------------------------------- */
3550 #ifdef USE_XIM
3551 void
3552 rxvt_term::im_set_position (XPoint *pos)
3553 {
3554   XWindowAttributes xwa;
3555
3556   XGetWindowAttributes (display->display, TermWin.vt, &xwa);
3557   pos->x = Col2Pixel (screen.cur.col) + xwa.x;
3558   pos->y = Height2Pixel ((screen.cur.row + 1)) + xwa.y - TermWin.lineSpace;
3559 }
3560
3561 #endif
3562 /* ------------------------------------------------------------------------- */
3563 \f
3564 /* ------------------------------------------------------------------------- *
3565  *                              DEBUG ROUTINES                               *
3566  * ------------------------------------------------------------------------- */
3567 #if 0
3568 void
3569 rxvt_debug_colors (void)
3570 {
3571   int             color;
3572   const char     *name[] =
3573     {
3574       "fg", "bg",
3575       "black", "red", "green", "yellow", "blue", "magenta", "cyan", "white"
3576     };
3577
3578   fprintf (stderr, "Color ( ");
3579   if (rstyle & RS_RVid)
3580     fprintf (stderr, "rvid ");
3581   if (rstyle & RS_Bold)
3582     fprintf (stderr, "bold ");
3583   if (rstyle & RS_Blink)
3584     fprintf (stderr, "blink ");
3585   if (rstyle & RS_Uline)
3586     fprintf (stderr, "uline ");
3587   fprintf (stderr, "): ");
3588
3589   color = GET_FGCOLOR (rstyle);
3590 #ifndef NO_BRIGHTCOLOR
3591   if (color >= minBrightCOLOR && color <= maxBrightCOLOR)
3592     {
3593       color -= (minBrightCOLOR - minCOLOR);
3594       fprintf (stderr, "bright ");
3595     }
3596 #endif
3597   fprintf (stderr, "%s on ", name[color]);
3598
3599   color = GET_BGCOLOR (rstyle);
3600 #ifndef NO_BRIGHTCOLOR
3601   if (color >= minBrightCOLOR && color <= maxBrightCOLOR)
3602     {
3603       color -= (minBrightCOLOR - minCOLOR);
3604       fprintf (stderr, "bright ");
3605     }
3606 #endif
3607   fprintf (stderr, "%s\n", name[color]);
3608 }
3609 #endif