ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/screen.C
Revision: 1.191
Committed: Thu Dec 22 18:36:55 2005 UTC (18 years, 5 months ago) by root
Content type: text/plain
Branch: MAIN
Changes since 1.190: +5 -3 lines
Log Message:
*** empty log message ***

File Contents

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