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