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