ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/command.C
Revision: 1.298
Committed: Tue Jan 31 18:36:35 2006 UTC (18 years, 3 months ago) by root
Content type: text/plain
Branch: MAIN
Changes since 1.297: +15 -17 lines
Log Message:
*** empty log message ***

File Contents

# Content
1 /*--------------------------------*-C-*---------------------------------*
2 * File: command.C
3 *----------------------------------------------------------------------*
4 *
5 * All portions of code are copyright by their respective author/s.
6 * Copyright (c) 1992 John Bovey, University of Kent at Canterbury <jdb@ukc.ac.uk>
7 * - original version
8 * Copyright (c) 1994 Robert Nation <nation@rocket.sanders.lockheed.com>
9 * - extensive modifications
10 * Copyright (c) 1995 Garrett D'Amore <garrett@netcom.com>
11 * - vt100 printing
12 * Copyright (c) 1995 Steven Hirsch <hirsch@emba.uvm.edu>
13 * - X11 mouse report mode and support for
14 * DEC "private mode" save/restore functions.
15 * Copyright (c) 1995 Jakub Jelinek <jj@gnu.ai.mit.edu>
16 * - key-related changes to handle Shift+function
17 * keys properly.
18 * Copyright (c) 1997 MJ Olesen <olesen@me.queensu.ca>
19 * - extensive modifications
20 * Copyright (c) 1997 Raul Garcia Garcia <rgg@tid.es>
21 * - modification and cleanups for Solaris 2.x
22 * and Linux 1.2.x
23 * Copyright (c) 1997,1998 Oezguer Kesim <kesim@math.fu-berlin.de>
24 * Copyright (c) 1998-2001 Geoff Wing <gcw@pobox.com>
25 * - extensive modifications
26 * Copyright (c) 1998 Alfredo K. Kojima <kojima@windowmaker.org>
27 * Copyright (c) 2001 Marius Gedminas
28 * - Ctrl/Mod4+Tab works like Meta+Tab (options)
29 * Copyright (c) 2003 Rob McMullen <robm@flipturn.org>
30 * Copyright (c) 2003-2006 Marc Lehmann <pcg@goof.com>
31 *
32 * This program is free software; you can redistribute it and/or modify
33 * it under the terms of the GNU General Public License as published by
34 * the Free Software Foundation; either version 2 of the License, or
35 * (at your option) any later version.
36 *
37 * This program is distributed in the hope that it will be useful,
38 * but WITHOUT ANY WARRANTY; without even the implied warranty of
39 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
40 * GNU General Public License for more details.
41 *
42 * You should have received a copy of the GNU General Public License
43 * along with this program; if not, write to the Free Software
44 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
45 *----------------------------------------------------------------------*/
46
47 /*{{{ includes: */
48 #include "../config.h"
49 #include "rxvt.h"
50 #include "rxvtperl.h"
51 #include "version.h"
52 #include "command.h"
53
54 #if HAVE_SCHED_YIELD
55 #undef HAVE_SCHED_YIELD // disabled for the time being
56 //# include <sched.h>
57 #endif
58
59 #ifdef KEYSYM_RESOURCE
60 # include "keyboard.h"
61 #endif
62
63 #include <csignal>
64
65 /*----------------------------------------------------------------------*/
66
67 #define IS_CONTROL(ch) !((ch) & 0xffffff60UL)
68
69 #if ENABLE_FRILLS || ISO_14755
70
71 #define ISO_14755_STARTED 0x80000000UL
72 #define ISO_14755_51 0x40000000UL // basic (section 5.1)
73 #define ISO_14755_52 0x20000000UL // keycap (section 5.2)
74 #define ISO_14755_54 0x10000000UL // code feedback (section 5.4)
75 #define ISO_14755_MASK 0x0fffffffUL
76
77 #if ISO_14755
78 static unsigned short iso14755_symtab[] = {
79 // keysym, unicode
80 XK_Left, 0x2190,
81 XK_KP_Left, 0x2190,
82 XK_Up, 0x2191,
83 XK_KP_Up, 0x2191,
84 XK_Right, 0x2192,
85 XK_KP_Right, 0x2192,
86 XK_Down, 0x2193,
87 XK_KP_Down, 0x2193,
88 XK_Linefeed, 0x21b4,
89 XK_Return, 0x21b5,
90 XK_KP_Enter, 0x21b5,
91
92 XK_Prior, 0x21de,
93 XK_Next, 0x21df,
94 XK_Tab, 0x21e5,
95 XK_ISO_Left_Tab, 0x21e6,
96 XK_Shift_L, 0x21e7,
97 XK_Shift_R, 0x21e7,
98
99 XK_Shift_Lock, 0x21eb,
100 XK_ISO_Lock, 0x21eb,
101 XK_ISO_Lock, 0x21eb,
102 XK_Caps_Lock, 0x21ec,
103 XK_Num_Lock, 0x21ed,
104 XK_ISO_Level3_Shift, 0x21ee,
105 XK_ISO_Level3_Lock, 0x21ef,
106 XK_ISO_Group_Lock, 0x21f0,
107 XK_Home, 0x21f1,
108 XK_End, 0x21f2,
109
110 XK_Execute, 0x2318,
111 XK_Begin, 0x2320,
112 XK_Delete, 0x2326,
113 XK_Clear, 0x2327,
114 XK_BackSpace, 0x232b,
115 XK_Insert, 0x2380,
116 XK_Control_L, 0x2388,
117 XK_Control_R, 0x2388,
118 XK_Pause, 0x2389,
119 XK_Break, 0x238a,
120 XK_Escape, 0x238b,
121 XK_Undo, 0x238c,
122 XK_Print, 0x2399,
123
124 XK_space, 0x2423,
125
126 #ifdef XK_KP_Begin
127 XK_KP_Prior, 0x21de,
128 XK_KP_Next, 0x21df,
129 XK_KP_Begin, 0x2320,
130 XK_KP_Insert, 0x2380,
131 XK_KP_Delete, 0x2326,
132 XK_KP_Space, 0x2422,
133 #endif
134 0,
135 };
136
137 void
138 rxvt_term::iso14755_54 (int x, int y)
139 {
140 x = Pixel2Col (x);
141 y = Pixel2Row (y);
142
143 if (!IN_RANGE_EXC (x, 0, ncol)
144 || !IN_RANGE_EXC (y, 0, nrow))
145 return;
146
147 for (;;)
148 {
149 const line_t &l = ROW(y + view_start);
150
151 text_t t = l.t[x];
152
153 if (t != NOCHAR || !x)
154 {
155 iso14755_51 (l.t[x], l.r[x], x, y);
156 iso14755buf = ISO_14755_54;
157 break;
158 }
159
160 x--;
161 }
162 }
163
164 void
165 rxvt_term::iso14755_51 (unicode_t ch, rend_t r, int x, int y)
166 {
167 rxvt_fontset *fs = FONTSET (r);
168 rxvt_font *f = (*fs)[fs->find_font (ch)];
169 wchar_t *chr, *alloc, ch2, *fname;
170 int len;
171
172 fname = rxvt_utf8towcs (f->name);
173
174 # if ENABLE_COMBINING
175 if (IS_COMPOSE (ch))
176 {
177 len = rxvt_composite.expand (ch, 0);
178 alloc = chr = new wchar_t[len];
179 rxvt_composite.expand (ch, chr);
180 }
181 else
182 # endif
183 {
184 ch2 = ch;
185
186 alloc = 0;
187 chr = &ch2;
188 len = 1;
189 }
190
191 char attr[80]; // plenty
192
193 sprintf (attr, "%08x = fg %d bg %d%s%s%s%s%s%s",
194 (int)r,
195 fgcolor_of (r), bgcolor_of (r),
196 r & RS_Bold ? " bold" : "",
197 r & RS_Italic ? " italic" : "",
198 r & RS_Blink ? " blink" : "",
199 r & RS_RVid ? " rvid" : "",
200 r & RS_Uline ? " uline" : "",
201 r & RS_Careful ? " careful" : "");
202
203 int width = wcswidth (fname, wcslen (fname));
204
205 max_it (width, 8+5); // for char + hey
206 max_it (width, strlen (attr));
207
208 if (y >= 0)
209 {
210 y = (y >= nrow - len - 4 && x < width + 2) ? 0 : -1;
211 x = 0;
212 }
213
214 scr_overlay_new (x, y, width, len + 2);
215
216 r = SET_STYLE (OVERLAY_RSTYLE, GET_STYLE (r));
217
218 for (int y = 0; y < len; y++)
219 {
220 char buf[9];
221
222 ch = *chr++;
223
224 sprintf (buf, "%8x", ch);
225 scr_overlay_set (0, y, buf);
226 scr_overlay_set (9, y, '=');
227 # if !UNICODE3
228 if (ch >= 0x10000)
229 ch = 0xfffd;
230 # endif
231 scr_overlay_set (11, y, ch, r);
232
233 if (WCWIDTH (ch) >= 2)
234 scr_overlay_set (12, y, NOCHAR, r);
235 }
236
237 // {
238 // char buf[4+4+3+1];
239 // snprintf (buf, sizeof (buf), "(%.4d|%.4d)", x, y);
240 // scr_overlay_set (0, 0, buf);
241 // }
242 scr_overlay_set (0, len , attr);
243 scr_overlay_set (0, len + 1, fname);
244
245 free (fname);
246
247 # if ENABLE_COMBINING
248 if (alloc)
249 delete [] alloc;
250 # endif
251 }
252 #endif
253
254 void
255 rxvt_term::commit_iso14755 ()
256 {
257 wchar_t ch[2];
258
259 ch[0] = iso14755buf & ISO_14755_MASK;
260 ch[1] = 0;
261
262 if (iso14755buf & ISO_14755_51)
263 {
264 char mb[16];
265 int len;
266
267 // allow verbatim 0-bytes and control-bytes to be entered
268 if (ch[0] >= 0x20)
269 len = wcstombs (mb, ch, 16);
270 else
271 {
272 mb[0] = ch[0];
273 len = 1;
274 }
275
276 if (len > 0)
277 tt_write (mb, len);
278 else
279 scr_bell ();
280 }
281
282 iso14755buf = 0;
283 }
284
285 int
286 rxvt_term::hex_keyval (XKeyEvent &ev)
287 {
288 // check wether this event corresponds to a hex digit
289 // if the modifiers had not been pressed.
290 for (int index = 0; index < 8; index++)
291 {
292 KeySym k = XLookupKeysym (&ev, index);
293
294 if (k >= XK_KP_0 && k <= XK_KP_9) return k - XK_KP_0;
295 else if (k >= XK_0 && k <= XK_9) return k - XK_0;
296 else if (k >= XK_a && k <= XK_f) return k - XK_a + 10;
297 else if (k >= XK_A && k <= XK_F) return k - XK_A + 10;
298 }
299
300 return -1;
301 }
302 #endif
303
304 /*{{{ Convert the keypress event into a string */
305 void
306 rxvt_term::lookup_key (XKeyEvent &ev)
307 {
308 int ctrl, meta, shft, len;
309 unsigned int newlen;
310 KeySym keysym;
311 int valid_keysym;
312 char kbuf[KBUFSZ];
313
314 /*
315 * use Num_Lock to toggle Keypad on/off. If Num_Lock is off, allow an
316 * escape sequence to toggle the Keypad.
317 *
318 * Always permit `shift' to override the current setting
319 */
320 shft = ev.state & ShiftMask;
321 ctrl = ev.state & ControlMask;
322 meta = ev.state & ModMetaMask;
323
324 if (numlock_state || (ev.state & ModNumLockMask))
325 {
326 numlock_state = (ev.state & ModNumLockMask);
327 PrivMode ((!numlock_state), PrivMode_aplKP);
328 }
329
330 kbuf[0] = 0;
331
332 #ifdef USE_XIM
333 if (Input_Context)
334 {
335 Status status_return;
336
337 #if 0
338 #ifdef X_HAVE_UTF8_STRING
339 if (enc_utf8 && 0) // currently disabled, doesn't seem to work, nor is useful
340 len = Xutf8LookupString (Input_Context, &ev, kbuf,
341 KBUFSZ, &keysym, &status_return);
342 else
343 #endif
344 #endif
345 {
346 wchar_t wkbuf[KBUFSZ + 1];
347
348 // the XOpenIM manpage lies about hardcoding the locale
349 // at the point of XOpenIM, so temporarily switch locales
350 if (rs[Rs_imLocale])
351 SET_LOCALE (rs[Rs_imLocale]);
352
353 // assume wchar_t == unicode or better
354 len = XwcLookupString (Input_Context, &ev, wkbuf,
355 KBUFSZ, &keysym, &status_return);
356
357 if (rs[Rs_imLocale])
358 SET_LOCALE (locale);
359
360 if (status_return == XLookupChars
361 || status_return == XLookupBoth)
362 {
363 /* make sure the user can type ctrl-@, i.e. NUL */
364 if (len == 1 && *wkbuf == 0)
365 {
366 kbuf[0] = 0;
367 len = 1;
368 }
369 else
370 {
371 wkbuf[len] = 0;
372 len = wcstombs ((char *)kbuf, wkbuf, KBUFSZ);
373 if (len < 0)
374 len = 0;
375 }
376 }
377 else
378 len = 0;
379 }
380
381 valid_keysym = status_return == XLookupKeySym
382 || status_return == XLookupBoth;
383 }
384 else
385 #endif
386 {
387 len = XLookupString (&ev, kbuf, KBUFSZ, &keysym, &compose);
388 valid_keysym = keysym != NoSymbol;
389 }
390
391 if (valid_keysym)
392 {
393 #ifdef KEYSYM_RESOURCE
394 if (keyboard->dispatch (this, keysym, ev.state))
395 return;
396 #endif
397
398 if (saveLines)
399 {
400 #ifdef UNSHIFTED_SCROLLKEYS
401 if (!ctrl && !meta)
402 #else
403 if (IS_SCROLL_MOD)
404 #endif
405 {
406 int lnsppg;
407
408 #ifdef PAGING_CONTEXT_LINES
409 lnsppg = nrow - PAGING_CONTEXT_LINES;
410 #else
411 lnsppg = nrow * 4 / 5;
412 #endif
413 if (keysym == XK_Prior)
414 {
415 scr_page (UP, lnsppg);
416 return;
417 }
418 else if (keysym == XK_Next)
419 {
420 scr_page (DN, lnsppg);
421 return;
422 }
423 }
424 #ifdef SCROLL_ON_UPDOWN_KEYS
425 if (IS_SCROLL_MOD)
426 {
427 if (keysym == XK_Up)
428 {
429 scr_page (UP, 1);
430 return;
431 }
432 else if (keysym == XK_Down)
433 {
434 scr_page (DN, 1);
435 return;
436 }
437 }
438 #endif
439 #ifdef SCROLL_ON_HOMEEND_KEYS
440 if (IS_SCROLL_MOD)
441 {
442 if (keysym == XK_Home)
443 {
444 scr_move_to (0, 1);
445 return;
446 }
447 else if (keysym == XK_End)
448 {
449 scr_move_to (1, 1);
450 return;
451 }
452 }
453 #endif
454 }
455
456 if (shft)
457 {
458 /* Shift + F1 - F10 generates F11 - F20 */
459 if (keysym >= XK_F1 && keysym <= XK_F10)
460 {
461 keysym += (XK_F11 - XK_F1);
462 shft = 0; /* turn off Shift */
463 }
464 else if (!ctrl && !meta && (priv_modes & PrivMode_ShiftKeys))
465 {
466 switch (keysym)
467 {
468 /* normal XTerm key bindings */
469 case XK_Insert: /* Shift+Insert = paste mouse selection */
470 selection_request (ev.time);
471 return;
472 #if TODO
473 /* rxvt extras */
474 case XK_KP_Add: /* Shift+KP_Add = bigger font */
475 change_font (FONT_UP);
476 return;
477 case XK_KP_Subtract: /* Shift+KP_Subtract = smaller font */
478 change_font (FONT_DN);
479 return;
480 #endif
481 }
482 }
483 }
484
485 #if ENABLE_FRILLS || ISO_14755
486 // ISO 14755 support
487 if (shft && ctrl)
488 {
489 int hv;
490
491 if (iso14755buf & ISO_14755_51
492 && (keysym == XK_space || keysym == XK_KP_Space
493 || keysym == XK_Return || keysym == XK_KP_Enter))
494 {
495 commit_iso14755 ();
496 iso14755buf = ISO_14755_51;
497 # if ISO_14755
498 iso14755_51 (0);
499 # endif
500 return;
501 }
502 else if ((hv = hex_keyval (ev)) >= 0)
503 {
504 iso14755buf = ((iso14755buf << 4) & ISO_14755_MASK)
505 | hv | ISO_14755_51;
506 # if ISO_14755
507 iso14755_51 (iso14755buf & ISO_14755_MASK);
508 # endif
509 return;
510 }
511 else
512 {
513 # if ENABLE_OVERLAY
514 scr_overlay_off ();
515 # endif
516 iso14755buf = 0;
517 }
518 }
519 else if ((ctrl && (keysym == XK_Shift_L || keysym == XK_Shift_R))
520 || (shft && (keysym == XK_Control_L || keysym == XK_Control_R)))
521 if (!(iso14755buf & ISO_14755_STARTED))
522 {
523 iso14755buf |= ISO_14755_STARTED;
524 # if ENABLE_OVERLAY
525 scr_overlay_new (0, -1, sizeof ("ISO 14755 mode") - 1, 1);
526 scr_overlay_set (0, 0, "ISO 14755 mode");
527 # endif
528 }
529 #endif
530
531 #ifdef PRINTPIPE
532 if (keysym == XK_Print)
533 {
534 scr_printscreen (ctrl | shft);
535 return;
536 }
537 #endif
538
539 if (keysym >= 0xFF00 && keysym <= 0xFFFF)
540 {
541 {
542 newlen = 1;
543 switch (keysym)
544 {
545 #ifndef NO_BACKSPACE_KEY
546 case XK_BackSpace:
547 if (priv_modes & PrivMode_HaveBackSpace)
548 {
549 kbuf[0] = (!! (priv_modes & PrivMode_BackSpace)
550 ^ !!ctrl) ? '\b' : '\177';
551 kbuf[1] = '\0';
552 }
553 else
554 strcpy (kbuf, key_backspace);
555 break;
556 #endif
557 #ifndef NO_DELETE_KEY
558 # ifdef XK_KP_Prior
559 case XK_KP_Delete:
560 /* allow shift to override */
561 if ((priv_modes & PrivMode_aplKP) ? !shft : shft)
562 {
563 strcpy (kbuf, "\033On");
564 break;
565 }
566 /* FALLTHROUGH */
567 # endif
568 case XK_Delete:
569 strcpy (kbuf, key_delete);
570 break;
571 #endif
572 case XK_Tab:
573 if (shft)
574 strcpy (kbuf, "\033[Z");
575 else
576 {
577 #ifdef CTRL_TAB_MAKES_META
578 if (ctrl)
579 meta = 1;
580 #endif
581 #ifdef MOD4_TAB_MAKES_META
582 if (ev.state & Mod4Mask)
583 meta = 1;
584 #endif
585 newlen = 0;
586 }
587 break;
588
589 #ifdef XK_KP_Left
590 case XK_KP_Up: /* \033Ox or standard */
591 case XK_KP_Down: /* \033Or or standard */
592 case XK_KP_Right: /* \033Ov or standard */
593 case XK_KP_Left: /* \033Ot or standard */
594 if ((priv_modes & PrivMode_aplKP) ? !shft : shft)
595 {
596 strcpy (kbuf, "\033OZ");
597 kbuf[2] = "txvr"[keysym - XK_KP_Left];
598 break;
599 }
600 else
601 /* translate to std. cursor key */
602 keysym = XK_Left + (keysym - XK_KP_Left);
603 /* FALLTHROUGH */
604 #endif
605 case XK_Up: /* "\033[A" */
606 case XK_Down: /* "\033[B" */
607 case XK_Right: /* "\033[C" */
608 case XK_Left: /* "\033[D" */
609 strcpy (kbuf, "\033[Z");
610 kbuf[2] = "DACB"[keysym - XK_Left];
611 /* do Shift first */
612 if (shft)
613 kbuf[2] = "dacb"[keysym - XK_Left];
614 else if (ctrl)
615 {
616 kbuf[1] = 'O';
617 kbuf[2] = "dacb"[keysym - XK_Left];
618 }
619 else if (priv_modes & PrivMode_aplCUR)
620 kbuf[1] = 'O';
621 break;
622
623 #ifndef UNSHIFTED_SCROLLKEYS
624 # ifdef XK_KP_Prior
625 case XK_KP_Prior:
626 /* allow shift to override */
627 if ((priv_modes & PrivMode_aplKP) ? !shft : shft)
628 {
629 strcpy (kbuf, "\033Oy");
630 break;
631 }
632 /* FALLTHROUGH */
633 # endif
634 case XK_Prior:
635 strcpy (kbuf, "\033[5~");
636 break;
637 # ifdef XK_KP_Next
638 case XK_KP_Next:
639 /* allow shift to override */
640 if ((priv_modes & PrivMode_aplKP) ? !shft : shft)
641 {
642 strcpy (kbuf, "\033Os");
643 break;
644 }
645 /* FALLTHROUGH */
646 # endif
647 case XK_Next:
648 strcpy (kbuf, "\033[6~");
649 break;
650 #endif
651 case XK_KP_Enter:
652 /* allow shift to override */
653 if ((priv_modes & PrivMode_aplKP) ? !shft : shft)
654 {
655 strcpy (kbuf, "\033OM");
656 break;
657 }
658
659 /* FALLTHROUGH */
660
661 case XK_Return:
662 if (priv_modes & PrivMode_LFNL)
663 {
664 kbuf[0] = '\015';
665 kbuf[1] = '\012';
666 kbuf[2] = '\0';
667 }
668 else
669 {
670 kbuf[0] = '\015';
671 kbuf[1] = '\0';
672 }
673 break;
674
675 #ifdef XK_KP_Begin
676 case XK_KP_Begin:
677 strcpy (kbuf, "\033Ou");
678 break;
679
680 #endif
681 case XK_KP_F1: /* "\033OP" */
682 case XK_KP_F2: /* "\033OQ" */
683 case XK_KP_F3: /* "\033OR" */
684 case XK_KP_F4: /* "\033OS" */
685 strcpy (kbuf, "\033OP");
686 kbuf[2] += (keysym - XK_KP_F1);
687 break;
688
689 case XK_KP_Multiply: /* "\033Oj" : "*" */
690 case XK_KP_Add: /* "\033Ok" : "+" */
691 case XK_KP_Separator: /* "\033Ol" : "," */
692 case XK_KP_Subtract: /* "\033Om" : "-" */
693 case XK_KP_Decimal: /* "\033On" : "." */
694 case XK_KP_Divide: /* "\033Oo" : "/" */
695 case XK_KP_0: /* "\033Op" : "0" */
696 case XK_KP_1: /* "\033Oq" : "1" */
697 case XK_KP_2: /* "\033Or" : "2" */
698 case XK_KP_3: /* "\033Os" : "3" */
699 case XK_KP_4: /* "\033Ot" : "4" */
700 case XK_KP_5: /* "\033Ou" : "5" */
701 case XK_KP_6: /* "\033Ov" : "6" */
702 case XK_KP_7: /* "\033Ow" : "7" */
703 case XK_KP_8: /* "\033Ox" : "8" */
704 case XK_KP_9: /* "\033Oy" : "9" */
705 /* allow shift to override */
706 if ((priv_modes & PrivMode_aplKP) ? !shft : shft)
707 {
708 strcpy (kbuf, "\033Oj");
709 kbuf[2] += (keysym - XK_KP_Multiply);
710 }
711 else
712 {
713 kbuf[0] = ('*' + (keysym - XK_KP_Multiply));
714 kbuf[1] = '\0';
715 }
716 break;
717
718 case XK_Find:
719 strcpy (kbuf, "\033[1~");
720 break;
721
722 #ifdef XK_KP_End
723 case XK_KP_Insert:
724 /* allow shift to override */
725 if ((priv_modes & PrivMode_aplKP) ? !shft : shft)
726 {
727 strcpy (kbuf, "\033Op");
728 break;
729 }
730 /* FALLTHROUGH */
731 #endif
732 case XK_Insert:
733 strcpy (kbuf, "\033[2~");
734 break;
735 #ifdef DXK_Remove /* support for DEC remove like key */
736 case DXK_Remove:
737 /* FALLTHROUGH */
738 #endif
739 case XK_Execute:
740 strcpy (kbuf, "\033[3~");
741 break;
742 case XK_Select:
743 strcpy (kbuf, "\033[4~");
744 break;
745 #ifdef XK_KP_End
746 case XK_KP_End:
747 /* allow shift to override */
748 if ((priv_modes & PrivMode_aplKP) ? !shft : shft)
749 {
750 strcpy (kbuf, "\033Oq");
751 break;
752 }
753 /* FALLTHROUGH */
754 #endif
755 case XK_End:
756 strcpy (kbuf, KS_END);
757 break;
758 #ifdef XK_KP_Home
759 case XK_KP_Home:
760 /* allow shift to override */
761 if ((priv_modes & PrivMode_aplKP) ? !shft : shft)
762 {
763 strcpy (kbuf, "\033Ow");
764 break;
765 }
766 /* FALLTHROUGH */
767 #endif
768 case XK_Home:
769 strcpy (kbuf, KS_HOME);
770 break;
771
772 #define FKEY(n, fkey) \
773 sprintf ((char *)kbuf,"\033[%2d~", (int) ((n) + (keysym - fkey)))
774
775 case XK_F1: /* "\033[11~" */
776 case XK_F2: /* "\033[12~" */
777 case XK_F3: /* "\033[13~" */
778 case XK_F4: /* "\033[14~" */
779 case XK_F5: /* "\033[15~" */
780 FKEY (11, XK_F1);
781 break;
782 case XK_F6: /* "\033[17~" */
783 case XK_F7: /* "\033[18~" */
784 case XK_F8: /* "\033[19~" */
785 case XK_F9: /* "\033[20~" */
786 case XK_F10: /* "\033[21~" */
787 FKEY (17, XK_F6);
788 break;
789 case XK_F11: /* "\033[23~" */
790 case XK_F12: /* "\033[24~" */
791 case XK_F13: /* "\033[25~" */
792 case XK_F14: /* "\033[26~" */
793 FKEY (23, XK_F11);
794 break;
795 case XK_F15: /* "\033[28~" */
796 case XK_F16: /* "\033[29~" */
797 FKEY (28, XK_F15);
798 break;
799 case XK_Help: /* "\033[28~" */
800 FKEY (28, XK_Help);
801 break;
802 case XK_Menu: /* "\033[29~" */
803 FKEY (29, XK_Menu);
804 break;
805 case XK_F17: /* "\033[31~" */
806 case XK_F18: /* "\033[32~" */
807 case XK_F19: /* "\033[33~" */
808 case XK_F20: /* "\033[34~" */
809 case XK_F21: /* "\033[35~" */
810 case XK_F22: /* "\033[36~" */
811 case XK_F23: /* "\033[37~" */
812 case XK_F24: /* "\033[38~" */
813 case XK_F25: /* "\033[39~" */
814 case XK_F26: /* "\033[40~" */
815 case XK_F27: /* "\033[41~" */
816 case XK_F28: /* "\033[42~" */
817 case XK_F29: /* "\033[43~" */
818 case XK_F30: /* "\033[44~" */
819 case XK_F31: /* "\033[45~" */
820 case XK_F32: /* "\033[46~" */
821 case XK_F33: /* "\033[47~" */
822 case XK_F34: /* "\033[48~" */
823 case XK_F35: /* "\033[49~" */
824 FKEY (31, XK_F17);
825 break;
826 #undef FKEY
827 default:
828 newlen = 0;
829 break;
830 }
831
832 if (newlen)
833 len = strlen (kbuf);
834 }
835
836 /*
837 * Pass meta for all function keys, if 'meta' option set
838 */
839 #ifdef META8_OPTION
840 if (meta && (meta_char == 0x80) && len > 0)
841 kbuf[len - 1] |= 0x80;
842 #endif
843
844 }
845 else if (ctrl && keysym == XK_minus)
846 {
847 len = 1;
848 kbuf[0] = '\037'; /* Ctrl-Minus generates ^_ (31) */
849 }
850 else if (keysym == XK_ISO_Left_Tab)
851 {
852 strcpy (kbuf, "\033[Z");
853 len = 3;
854 }
855 else
856 {
857 #ifdef META8_OPTION
858 /* set 8-bit on */
859 if (meta && (meta_char == 0x80))
860 {
861 char *ch;
862
863 for (ch = kbuf; ch < kbuf + len; ch++)
864 *ch |= 0x80;
865
866 meta = 0;
867 }
868 #endif
869 /* nil */ ;
870 }
871 }
872
873 if (HOOK_INVOKE ((this, HOOK_KEY_PRESS, DT_XEVENT, &ev, DT_INT, keysym, DT_STR_LEN, kbuf, len, DT_END)))
874 return;
875
876 if (len <= 0)
877 return; /* not mapped */
878
879 if (OPTION (Opt_scrollTtyKeypress))
880 if (view_start)
881 {
882 view_start = 0;
883 want_refresh = 1;
884 }
885
886 /*
887 * these modifications only affect the static keybuffer
888 * pass Shift/Control indicators for function keys ending with `~'
889 *
890 * eg,
891 * Prior = "ESC[5~"
892 * Shift+Prior = "ESC[5$"
893 * Ctrl+Prior = "ESC[5^"
894 * Ctrl+Shift+Prior = "ESC[5@"
895 * Meta adds an Escape prefix (with META8_OPTION, if meta == <escape>).
896 */
897 if (kbuf[0] == C0_ESC && kbuf[1] == '[' && kbuf[len - 1] == '~')
898 kbuf[len - 1] = (shft ? (ctrl ? '@' : '$') : (ctrl ? '^' : '~'));
899
900 /* escape prefix */
901 if (meta
902 #ifdef META8_OPTION
903 && meta_char == C0_ESC
904 #endif
905 )
906 {
907 const char ch = C0_ESC;
908 tt_write (&ch, 1);
909 }
910
911 tt_write (kbuf, (unsigned int)len);
912 }
913 /*}}} */
914
915 #if defined (KEYSYM_RESOURCE)
916 unsigned int
917 rxvt_term::cmd_write (const char *str, unsigned int count)
918 {
919 unsigned int n, s;
920
921 n = cmdbuf_ptr - cmdbuf_base;
922 s = cmdbuf_base + CBUFSIZ - 1 - cmdbuf_endp;
923
924 if (n > 0 && s < count)
925 {
926 memmove (cmdbuf_base, cmdbuf_ptr,
927 (unsigned int) (cmdbuf_endp - cmdbuf_ptr));
928 cmdbuf_ptr = cmdbuf_base;
929 cmdbuf_endp -= n;
930 s += n;
931 }
932
933 if (count > s)
934 {
935 rxvt_warn ("data loss: cmd_write too large, continuing.\n");
936 count = s;
937 }
938
939 for (; count--;)
940 *cmdbuf_endp++ = *str++;
941
942 cmd_parse ();
943
944 return 0;
945 }
946 #endif
947
948 void
949 rxvt_term::flush ()
950 {
951 flush_ev.stop ();
952
953 #ifdef TRANSPARENT
954 if (want_full_refresh)
955 {
956 want_full_refresh = 0;
957 scr_clear ();
958 scr_touch (false);
959 }
960 #endif
961
962 if (want_refresh)
963 {
964 if (SHOULD_INVOKE (HOOK_LINE_UPDATE))
965 {
966 int row = view_start;
967 int end_row = row + nrow;
968
969 while (row > top_row && ROW (row - 1).is_longer ())
970 --row;
971
972 do
973 {
974 int start_row = row;
975 line_t *l;
976
977 do
978 {
979 l = &ROW (row++);
980
981 if (!(l->f & LINE_FILTERED))
982 {
983 // line not filtered, mark it as filtered
984 l->f |= LINE_FILTERED;
985 while (l->is_longer ())
986 {
987 l = &ROW (row++);
988 l->f |= LINE_FILTERED;
989 }
990
991 // and filter it
992 HOOK_INVOKE ((this, HOOK_LINE_UPDATE, DT_INT, start_row, DT_END));
993
994 break;
995 }
996 }
997 while (l->is_longer () && row < end_row);
998 }
999 while (row < end_row);
1000 }
1001
1002 scr_refresh ();
1003 scrollbar_show (1);
1004 #ifdef USE_XIM
1005 IMSendSpot ();
1006 #endif
1007 }
1008
1009 display->flush ();
1010 }
1011
1012 void
1013 rxvt_term::check_cb (check_watcher &w)
1014 {
1015 make_current ();
1016
1017 display->flush ();
1018
1019 if (want_refresh && !flush_ev.active)
1020 flush_ev.start (NOW + 1. / 60.); // refresh at max. 60 hz normally
1021 }
1022
1023 void
1024 rxvt_term::flush_cb (time_watcher &w)
1025 {
1026 make_current ();
1027
1028 refresh_limit = 1;
1029 refresh_count = 0;
1030 flush ();
1031 }
1032
1033 #ifdef CURSOR_BLINK
1034 void
1035 rxvt_term::cursor_blink_cb (time_watcher &w)
1036 {
1037 hidden_cursor = !hidden_cursor;
1038 want_refresh = 1;
1039
1040 w.start (w.at + CURSOR_BLINK_INTERVAL);
1041 }
1042 #endif
1043
1044 #ifdef TEXT_BLINK
1045 void
1046 rxvt_term::text_blink_cb (time_watcher &w)
1047 {
1048 if (scr_refresh_rend (RS_Blink, RS_Blink))
1049 {
1050 hidden_text = !hidden_text;
1051 want_refresh = 1;
1052 w.start (w.at + TEXT_BLINK_INTERVAL);
1053 }
1054 }
1055 #endif
1056
1057 #ifndef NO_SCROLLBAR_BUTTON_CONTINUAL_SCROLLING
1058 void
1059 rxvt_term::cont_scroll_cb (time_watcher &w)
1060 {
1061 if ((scrollbar_isUp() || scrollbar_isDn()) &&
1062 scr_page (scrollbar_isUp() ? UP : DN, 1))
1063 {
1064 want_refresh = 1;
1065 w.start (w.at + SCROLLBAR_CONTINUOUS_DELAY);
1066 }
1067 }
1068 #endif
1069
1070 #ifdef SELECTION_SCROLLING
1071 void
1072 rxvt_term::sel_scroll_cb (time_watcher &w)
1073 {
1074 if (scr_page (scroll_selection_dir, scroll_selection_lines))
1075 {
1076 selection_extend (selection_save_x, selection_save_y, selection_save_state);
1077 want_refresh = 1;
1078 w.start (w.at + SCROLLBAR_CONTINUOUS_DELAY);
1079 }
1080 }
1081 #endif
1082
1083 #if defined(MOUSE_WHEEL) && defined(MOUSE_SLIP_WHEELING)
1084 void
1085 rxvt_term::slip_wheel_cb (time_watcher &w)
1086 {
1087 if (mouse_slip_wheel_speed == 0
1088 || mouse_slip_wheel_speed < 0 ? scr_page (DN, -mouse_slip_wheel_speed)
1089 : scr_page (UP, mouse_slip_wheel_speed))
1090 {
1091 if (view_start == top_row || view_start == 0)
1092 mouse_slip_wheel_speed = 0;
1093
1094 want_refresh = 1;
1095 w.start (w.at + SCROLLBAR_CONTINUOUS_DELAY);
1096 }
1097 }
1098 #endif
1099
1100 #if HAVE_SCHED_YIELD
1101 static struct event_handler
1102 {
1103 check_watcher cw_yield;
1104
1105 void yield (check_watcher &w)
1106 {
1107 sched_yield ();
1108 w.stop ();
1109 }
1110
1111 event_handler ()
1112 : cw_yield (this, &event_handler::yield)
1113 {
1114 }
1115 } event_handler;
1116 #endif
1117
1118 bool
1119 rxvt_term::pty_fill ()
1120 {
1121 ssize_t n = cmdbuf_endp - cmdbuf_ptr;
1122
1123 if (CBUFSIZ == n)
1124 {
1125 rxvt_warn ("PLEASE REPORT: pty_fill on full buffer, draining input, continuing.\n");
1126 n = 0;
1127 }
1128
1129 memmove (cmdbuf_base, cmdbuf_ptr, n);
1130 cmdbuf_ptr = cmdbuf_base;
1131 cmdbuf_endp = cmdbuf_ptr + n;
1132
1133 ssize_t r = read (pty->pty, cmdbuf_endp, CBUFSIZ - n);
1134
1135 if (r > 0)
1136 {
1137 cmdbuf_endp += r;
1138 return true;
1139 }
1140 else if (r < 0 && (errno == EAGAIN || errno == EINTR))
1141 {
1142 #if HAVE_SCHED_YIELD
1143 if (display->is_local)
1144 event_handler.cw_yield.start ();
1145 #endif
1146 }
1147 else
1148 {
1149 pty_ev.stop ();
1150
1151 if (!OPTION (Opt_hold))
1152 destroy ();
1153 }
1154
1155 return false;
1156 }
1157
1158 void
1159 rxvt_term::pty_cb (io_watcher &w, short revents)
1160 {
1161 make_current ();
1162
1163 if (revents & EVENT_READ)
1164 // loop, but don't allow a single term to monopolize us
1165 while (pty_fill ())
1166 if (cmd_parse ())
1167 break;
1168
1169 if (revents & EVENT_WRITE)
1170 pty_write ();
1171 }
1172
1173 void
1174 rxvt_term::pointer_unblank ()
1175 {
1176 XDefineCursor (xdisp, vt, TermWin_cursor);
1177 recolour_cursor ();
1178
1179 #ifdef POINTER_BLANK
1180 hidden_pointer = 0;
1181
1182 if (OPTION (Opt_pointerBlank))
1183 pointer_ev.start (NOW + pointerBlankDelay);
1184 #endif
1185 }
1186
1187 #ifdef POINTER_BLANK
1188 void
1189 rxvt_term::pointer_blank ()
1190 {
1191 if (!OPTION (Opt_pointerBlank))
1192 return;
1193
1194 XDefineCursor (xdisp, vt, display->blank_cursor);
1195 XFlush (xdisp);
1196
1197 hidden_pointer = 1;
1198 }
1199
1200 void
1201 rxvt_term::pointer_cb (time_watcher &w)
1202 {
1203 make_current ();
1204
1205 pointer_blank ();
1206 }
1207 #endif
1208
1209 void
1210 rxvt_term::mouse_report (XButtonEvent &ev)
1211 {
1212 int button_number, key_state = 0;
1213 int x, y;
1214
1215 x = ev.x;
1216 y = ev.y;
1217 pixel_position (&x, &y);
1218
1219 if (MEvent.button == AnyButton)
1220 button_number = 3;
1221 else
1222 {
1223 button_number = MEvent.button - Button1;
1224 /* add 0x3D for wheel events, like xterm does */
1225 if (button_number >= 3)
1226 button_number += (64 - 3);
1227 }
1228
1229 if (priv_modes & PrivMode_MouseX10)
1230 {
1231 /*
1232 * do not report ButtonRelease
1233 * no state info allowed
1234 */
1235 key_state = 0;
1236 if (button_number == 3)
1237 return;
1238 }
1239 else
1240 {
1241 /* XTerm mouse reporting needs these values:
1242 * 4 = Shift
1243 * 8 = Meta
1244 * 16 = Control
1245 * plus will add in our own Double-Click reporting
1246 * 32 = Double Click
1247 */
1248 key_state = ((MEvent.state & ShiftMask) ? 4 : 0)
1249 + ((MEvent.state & ModMetaMask) ? 8 : 0)
1250 + ((MEvent.state & ControlMask) ? 16 : 0);
1251 #ifdef MOUSE_REPORT_DOUBLECLICK
1252 key_state += ((MEvent.clicks > 1) ? 32 : 0);
1253 #endif
1254 }
1255
1256 #if DEBUG_MOUSEREPORT
1257 fprintf (stderr, "Mouse [");
1258 if (key_state & 16)
1259 fputc ('C', stderr);
1260 if (key_state & 4)
1261 fputc ('S', stderr);
1262 if (key_state & 8)
1263 fputc ('A', stderr);
1264 if (key_state & 32)
1265 fputc ('2', stderr);
1266 fprintf (stderr, "]: <%d>, %d/%d\n",
1267 button_number,
1268 x + 1,
1269 y + 1);
1270 #endif
1271
1272 tt_printf ("\033[M%c%c%c",
1273 (32 + button_number + key_state),
1274 (32 + x + 1),
1275 (32 + y + 1));
1276 }
1277
1278 /*{{{ process an X event */
1279 void
1280 rxvt_term::x_cb (XEvent &ev)
1281 {
1282 make_current ();
1283
1284 dLocal (Display *, xdisp);
1285
1286 if (ev.xany.window == vt
1287 && SHOULD_INVOKE (HOOK_X_EVENT)
1288 && HOOK_INVOKE ((this, HOOK_X_EVENT, DT_XEVENT, &ev, DT_END)))
1289 return;
1290
1291 // for XQueryPointer
1292 Window unused_root, unused_child;
1293 int unused_root_x, unused_root_y;
1294 unsigned int unused_mask;
1295
1296 switch (ev.type)
1297 {
1298 case KeyPress:
1299 #if ISO_14755
1300 if (!(iso14755buf & ISO_14755_52))
1301 #endif
1302 lookup_key (ev.xkey);
1303
1304 break;
1305
1306 case KeyRelease:
1307 {
1308 #if (MOUSE_WHEEL && MOUSE_SLIP_WHEELING) || ISO_14755 || ENABLE_PERL
1309 KeySym keysym;
1310
1311 keysym = XLookupKeysym (&ev.xkey, ev.xkey.state & ShiftMask ? 1 : 0); // sorry, only shift supported :/
1312 #endif
1313
1314 #if ENABLE_FRILLS || ISO_14755
1315 // ISO 14755 support
1316 if (iso14755buf)
1317 if (iso14755buf & ISO_14755_52)
1318 {
1319 # if ENABLE_OVERLAY
1320 scr_overlay_off ();
1321 # endif
1322 # if ISO_14755
1323 // iso14755 part 5.2 handling: release time
1324 // first: controls
1325 if ((ev.xkey.state & ControlMask)
1326 && ((keysym >= 0x40 && keysym <= 0x5f)
1327 || (keysym >= 0x61 && keysym <= 0x7f)))
1328 {
1329 iso14755buf = ISO_14755_51 | 0x2400 | (keysym & 0x1f);
1330 commit_iso14755 ();
1331 goto skip_switch;
1332 }
1333
1334 for (unsigned short *i = iso14755_symtab; i[0]; i+= 2)
1335 if (i[0] == keysym)
1336 {
1337 iso14755buf = ISO_14755_51 | i[1];
1338 commit_iso14755 ();
1339 goto skip_switch;
1340 }
1341
1342 scr_bell ();
1343 # endif
1344 iso14755buf = 0;
1345 break;
1346 }
1347 else if ((ev.xkey.state & (ShiftMask | ControlMask)) != (ShiftMask | ControlMask))
1348 {
1349 # if ENABLE_OVERLAY
1350 scr_overlay_off ();
1351 # endif
1352 if (iso14755buf & ISO_14755_51)
1353 commit_iso14755 ();
1354 #if ISO_14755
1355 else if (iso14755buf & ISO_14755_STARTED)
1356 {
1357 iso14755buf = ISO_14755_52; // iso14755 part 5.2: remember empty begin/end pair
1358
1359 scr_overlay_new (0, -1, sizeof ("KEYCAP PICTURE INSERT MODE") - 1, 1);
1360 scr_overlay_set (0, 0, "KEYCAP PICTURE INSERT MODE");
1361 }
1362 # endif
1363 else
1364 iso14755buf = 0;
1365 }
1366 #endif
1367
1368 if (ev.xany.window == vt
1369 && HOOK_INVOKE ((this, HOOK_KEY_RELEASE, DT_XEVENT, &ev, DT_INT, keysym, DT_END)))
1370 break;
1371
1372 #if defined(MOUSE_WHEEL) && defined(MOUSE_SLIP_WHEELING)
1373 if (!(ev.xkey.state & ControlMask))
1374 slip_wheel_ev.stop ();
1375 else if (keysym == XK_Control_L || keysym == XK_Control_R)
1376 mouse_slip_wheel_speed = 0;
1377 #endif
1378 break;
1379 }
1380
1381 case ButtonPress:
1382 button_press (ev.xbutton);
1383 break;
1384
1385 case ButtonRelease:
1386 button_release (ev.xbutton);
1387 break;
1388
1389 case ClientMessage:
1390 if (ev.xclient.format == 32
1391 && !HOOK_INVOKE ((this, HOOK_CLIENT_MESSAGE, DT_XEVENT, &ev, DT_END)))
1392 {
1393 if (ev.xclient.message_type == xa[XA_WM_PROTOCOLS])
1394 {
1395 if (!HOOK_INVOKE ((this, HOOK_WM_PROTOCOLS, DT_XEVENT, &ev, DT_END)))
1396 {
1397 if (ev.xclient.data.l[0] == xa[XA_WM_DELETE_WINDOW])
1398 {
1399 if (!HOOK_INVOKE ((this, HOOK_WM_DELETE_WINDOW, DT_XEVENT, &ev, DT_END)))
1400 destroy ();
1401 }
1402 #if ENABLE_EWMH
1403 else if (ev.xclient.data.l[0] == xa[XA_NET_WM_PING])
1404 XSendEvent (xdisp, ev.xclient.window = display->root,
1405 False, SubstructureRedirectMask | SubstructureNotifyMask,
1406 &ev);
1407 #endif
1408 }
1409 }
1410 #if ENABLE_XEMBED
1411 else if (ev.xclient.format == 32 && ev.xclient.message_type == xa[XA_XEMBED])
1412 {
1413 if (ev.xclient.data.l[1] == XEMBED_FOCUS_IN)
1414 focus_in ();
1415 else if (ev.xclient.data.l[1] == XEMBED_FOCUS_OUT)
1416 focus_out ();
1417 }
1418 #endif
1419 }
1420 break;
1421
1422 case MappingNotify:
1423 XRefreshKeyboardMapping (&ev.xmapping);
1424 break;
1425
1426 /*
1427 * XXX: this is not the _current_ arrangement
1428 * Here's my conclusion:
1429 * If the window is completely unobscured, use bitblt's
1430 * to scroll. Even then, they're only used when doing partial
1431 * screen scrolling. When partially obscured, we have to fill
1432 * in the GraphicsExpose parts, which means that after each refresh,
1433 * we need to wait for the graphics expose or Noexpose events,
1434 * which ought to make things real slow!
1435 */
1436 case VisibilityNotify:
1437 switch (ev.xvisibility.state)
1438 {
1439 case VisibilityUnobscured:
1440 refresh_type = FAST_REFRESH;
1441 break;
1442 case VisibilityPartiallyObscured:
1443 refresh_type = SLOW_REFRESH;
1444 break;
1445 default:
1446 refresh_type = NO_REFRESH;
1447 break;
1448 }
1449 break;
1450
1451 case FocusIn:
1452 focus_in ();
1453 break;
1454
1455 case FocusOut:
1456 focus_out ();
1457 break;
1458
1459 case ConfigureNotify:
1460 if (ev.xconfigure.window == parent[0])
1461 {
1462 while (XCheckTypedWindowEvent (xdisp, ev.xconfigure.window, ConfigureNotify, &ev))
1463 ;
1464
1465 if (szHint.width != ev.xconfigure.width || szHint.height != ev.xconfigure.height)
1466 {
1467 seen_resize = 1;
1468 resize_all_windows (ev.xconfigure.width, ev.xconfigure.height, 1);
1469 }
1470
1471 HOOK_INVOKE ((this, HOOK_CONFIGURE_NOTIFY, DT_XEVENT, &ev, DT_END));
1472
1473 #ifdef TRANSPARENT /* XXX: maybe not needed - leave in for now */
1474 if (OPTION (Opt_transparent))
1475 check_our_parents ();
1476 #endif
1477 }
1478 break;
1479
1480 case PropertyNotify:
1481 if (!HOOK_INVOKE ((this, HOOK_PROPERTY_NOTIFY, DT_XEVENT, &ev, DT_END)))
1482 if (ev.xproperty.atom == xa[XA_VT_SELECTION]
1483 && ev.xproperty.state == PropertyNewValue)
1484 selection_property (ev.xproperty.window, ev.xproperty.atom);
1485
1486 break;
1487
1488 case SelectionClear:
1489 selection_clear ();
1490 break;
1491
1492 case SelectionNotify:
1493 if (selection_wait == Sel_normal)
1494 selection_paste (ev.xselection.requestor, ev.xselection.property, true);
1495 break;
1496
1497 case SelectionRequest:
1498 selection_send (ev.xselectionrequest);
1499 break;
1500
1501 case MapNotify:
1502 mapped = 1;
1503 #ifdef TEXT_BLINK
1504 text_blink_ev.start (NOW + TEXT_BLINK_INTERVAL);
1505 #endif
1506 HOOK_INVOKE ((this, HOOK_MAP_NOTIFY, DT_XEVENT, &ev, DT_END));
1507 break;
1508
1509 case UnmapNotify:
1510 mapped = 0;
1511 #ifdef TEXT_BLINK
1512 text_blink_ev.stop ();
1513 #endif
1514 HOOK_INVOKE ((this, HOOK_UNMAP_NOTIFY, DT_XEVENT, &ev, DT_END));
1515 break;
1516
1517 #ifdef TRANSPARENT
1518 case ReparentNotify:
1519 rootwin_cb (ev);
1520 break;
1521 #endif /* TRANSPARENT */
1522
1523 case GraphicsExpose:
1524 case Expose:
1525 if (ev.xany.window == vt)
1526 {
1527 do
1528 scr_expose (ev.xexpose.x, ev.xexpose.y,
1529 ev.xexpose.width, ev.xexpose.height, False);
1530 while (XCheckTypedWindowEvent (xdisp, vt, ev.xany.type, &ev));
1531
1532 ev.xany.type = ev.xany.type == Expose ? GraphicsExpose : Expose;
1533
1534 while (XCheckTypedWindowEvent (xdisp, vt, ev.xany.type, &ev))
1535 scr_expose (ev.xexpose.x, ev.xexpose.y,
1536 ev.xexpose.width, ev.xexpose.height, False);
1537
1538 want_refresh = 1;
1539 }
1540 else
1541 {
1542 XEvent unused_event;
1543
1544 while (XCheckTypedWindowEvent (xdisp, ev.xany.window, Expose, &unused_event))
1545 ;
1546 while (XCheckTypedWindowEvent (xdisp, ev.xany.window, GraphicsExpose, &unused_event))
1547 ;
1548
1549 if (isScrollbarWindow (ev.xany.window))
1550 {
1551 scrollBar.setIdle ();
1552 scrollbar_show (0);
1553 }
1554
1555 #ifdef TRANSPARENT
1556 if (am_transparent && ev.xany.window == parent[0])
1557 XClearWindow (xdisp, ev.xany.window);
1558 #endif
1559 }
1560 break;
1561
1562 case MotionNotify:
1563 #ifdef POINTER_BLANK
1564 if (hidden_pointer)
1565 pointer_unblank ();
1566 #endif
1567 if ((priv_modes & PrivMode_mouse_report) && !bypass_keystate)
1568 break;
1569
1570 if (ev.xany.window == vt)
1571 {
1572 if (SHOULD_INVOKE (HOOK_MOTION_NOTIFY)
1573 && HOOK_INVOKE ((this, HOOK_MOTION_NOTIFY, DT_XEVENT, &ev, DT_END)))
1574 ; // nop
1575 else if (ev.xbutton.state & (Button1Mask | Button3Mask))
1576 {
1577 while (XCheckTypedWindowEvent (xdisp, vt, MotionNotify, &ev))
1578 ;
1579
1580 XQueryPointer (xdisp, vt,
1581 &unused_root, &unused_child,
1582 &unused_root_x, &unused_root_y,
1583 &ev.xbutton.x, &ev.xbutton.y,
1584 &ev.xbutton.state);
1585 #ifdef MOUSE_THRESHOLD
1586 /* deal with a `jumpy' mouse */
1587 if ((ev.xmotion.time - MEvent.time) > MOUSE_THRESHOLD)
1588 {
1589 #endif
1590 #if ISO_14755
1591 // 5.4
1592 if (iso14755buf & (ISO_14755_STARTED | ISO_14755_54))
1593 {
1594 iso14755_54 (ev.xbutton.x, ev.xbutton.y);
1595 break;
1596 }
1597 #endif
1598 selection_extend (ev.xbutton.x, ev.xbutton.y,
1599 ev.xbutton.state & Button3Mask ? 2 : 0);
1600
1601 #ifdef SELECTION_SCROLLING
1602 if (ev.xbutton.y < int_bwidth
1603 || Pixel2Row (ev.xbutton.y) > (nrow-1))
1604 {
1605 int dist;
1606
1607 /* don't clobber the current delay if we are
1608 * already in the middle of scrolling.
1609 */
1610 if (!sel_scroll_ev.active)
1611 sel_scroll_ev.start (NOW + SCROLLBAR_INITIAL_DELAY);
1612
1613 /* save the event params so we can highlight
1614 * the selection in the pending-scroll loop
1615 */
1616 selection_save_x = ev.xbutton.x;
1617 selection_save_y = ev.xbutton.y;
1618 selection_save_state = (ev.xbutton.state & Button3Mask) ? 2 : 0;
1619
1620 /* calc number of lines to scroll */
1621 if (ev.xbutton.y < int_bwidth)
1622 {
1623 scroll_selection_dir = UP;
1624 dist = int_bwidth - ev.xbutton.y;
1625 }
1626 else
1627 {
1628 scroll_selection_dir = DN;
1629 dist = ev.xbutton.y - (int_bwidth + height);
1630 }
1631
1632 scroll_selection_lines = Pixel2Height (dist)
1633 / SELECTION_SCROLL_LINE_SPEEDUP
1634 + 1;
1635 min_it (scroll_selection_lines,
1636 SELECTION_SCROLL_MAX_LINES);
1637 }
1638 else
1639 {
1640 /* we are within the text window, so we
1641 * shouldn't be scrolling
1642 */
1643 if (sel_scroll_ev.active)
1644 sel_scroll_ev.stop();
1645 }
1646 #endif
1647 #ifdef MOUSE_THRESHOLD
1648 }
1649 #endif
1650 }
1651 }
1652 else if (isScrollbarWindow (ev.xany.window) && scrollbar_isMotion ())
1653 {
1654 while (XCheckTypedWindowEvent (xdisp, scrollBar.win,
1655 MotionNotify, &ev))
1656 ;
1657
1658 XQueryPointer (xdisp, scrollBar.win,
1659 &unused_root, &unused_child,
1660 &unused_root_x, &unused_root_y,
1661 &ev.xbutton.x, &ev.xbutton.y,
1662 &unused_mask);
1663 scr_move_to (scrollbar_position (ev.xbutton.y) - csrO,
1664 scrollbar_size ());
1665 want_refresh = 1;
1666 refresh_limit = 0;
1667 scrollbar_show (1);
1668 }
1669 break;
1670 }
1671
1672 skip_switch: ;
1673
1674 #if defined(CURSOR_BLINK)
1675 if (OPTION (Opt_cursorBlink) && ev.type == KeyPress)
1676 {
1677 if (hidden_cursor)
1678 {
1679 hidden_cursor = 0;
1680 want_refresh = 1;
1681 }
1682
1683 cursor_blink_ev.start (NOW + CURSOR_BLINK_INTERVAL);
1684 }
1685 #endif
1686
1687 #if defined(POINTER_BLANK)
1688 if (OPTION (Opt_pointerBlank) && pointerBlankDelay > 0)
1689 {
1690 if (ev.type == MotionNotify
1691 || ev.type == ButtonPress
1692 || ev.type == ButtonRelease)
1693 if (hidden_pointer)
1694 pointer_unblank ();
1695
1696 if (ev.type == KeyPress && hidden_pointer == 0)
1697 pointer_blank ();
1698 }
1699 #endif
1700 }
1701
1702 void
1703 rxvt_term::focus_in ()
1704 {
1705 if (!focus)
1706 {
1707 focus = 1;
1708 want_refresh = 1;
1709
1710 HOOK_INVOKE ((this, HOOK_FOCUS_OUT, DT_END));
1711
1712 #if USE_XIM
1713 if (Input_Context != NULL)
1714 {
1715 IMSetStatusPosition ();
1716 XSetICFocus (Input_Context);
1717 }
1718 #endif
1719 #if CURSOR_BLINK
1720 if (OPTION (Opt_cursorBlink))
1721 cursor_blink_ev.start (NOW + CURSOR_BLINK_INTERVAL);
1722 #endif
1723 #if OFF_FOCUS_FADING
1724 if (rs[Rs_fade])
1725 {
1726 pix_colors = pix_colors_focused;
1727 scr_recolour ();
1728 }
1729 #endif
1730 }
1731 }
1732
1733 void
1734 rxvt_term::focus_out ()
1735 {
1736 if (focus)
1737 {
1738 focus = 0;
1739 want_refresh = 1;
1740
1741 HOOK_INVOKE ((this, HOOK_FOCUS_OUT, DT_END));
1742
1743 #if ENABLE_FRILLS || ISO_14755
1744 if (iso14755buf)
1745 {
1746 iso14755buf = 0;
1747 # if ENABLE_OVERLAY
1748 scr_overlay_off ();
1749 # endif
1750 }
1751 #endif
1752 #if USE_XIM
1753 if (Input_Context != NULL)
1754 XUnsetICFocus (Input_Context);
1755 #endif
1756 #if CURSOR_BLINK
1757 if (OPTION (Opt_cursorBlink))
1758 cursor_blink_ev.stop ();
1759 hidden_cursor = 0;
1760 #endif
1761 #if OFF_FOCUS_FADING
1762 if (rs[Rs_fade])
1763 {
1764 pix_colors = pix_colors_unfocused;
1765 scr_recolour ();
1766 }
1767 #endif
1768 }
1769 }
1770
1771 #if TRANSPARENT
1772 void
1773 rxvt_term::rootwin_cb (XEvent &ev)
1774 {
1775 make_current ();
1776
1777 switch (ev.type)
1778 {
1779 case PropertyNotify:
1780 /*
1781 * if user used some Esetroot compatible prog to set the root bg,
1782 * use the property to determine the pixmap. We use it later on.
1783 */
1784 if (ev.xproperty.atom != xa[XA_XROOTPMAP_ID]
1785 && ev.xproperty.atom != xa[XA_ESETROOT_PMAP_ID])
1786 return;
1787
1788 /* FALLTHROUGH */
1789 case ReparentNotify:
1790 if (OPTION (Opt_transparent) && check_our_parents () && am_transparent)
1791 want_refresh = want_full_refresh = 1;
1792 break;
1793 }
1794 }
1795 #endif
1796
1797 void
1798 rxvt_term::button_press (XButtonEvent &ev)
1799 {
1800 int reportmode = 0, clickintime;
1801
1802 bypass_keystate = ev.state & (ModMetaMask | ShiftMask);
1803
1804 if (!bypass_keystate)
1805 reportmode = !! (priv_modes & PrivMode_mouse_report);
1806
1807 /*
1808 * VT window processing of button press
1809 */
1810 if (ev.window == vt)
1811 {
1812 if (HOOK_INVOKE ((this, HOOK_BUTTON_PRESS, DT_XEVENT, &ev, DT_END)))
1813 return;
1814
1815 #if ISO_14755
1816 // 5.4
1817 if (iso14755buf & (ISO_14755_STARTED | ISO_14755_54))
1818 {
1819 iso14755_54 (ev.x, ev.y);
1820 return;
1821 }
1822 #endif
1823
1824 clickintime = ev.time - MEvent.time < MULTICLICK_TIME;
1825
1826 if (reportmode)
1827 {
1828 /* mouse report from vt window */
1829 /* save the xbutton state (for ButtonRelease) */
1830 MEvent.state = ev.state;
1831 #ifdef MOUSE_REPORT_DOUBLECLICK
1832 if (ev.button == MEvent.button && clickintime)
1833 {
1834 /* same button, within alloted time */
1835 MEvent.clicks++;
1836
1837 if (MEvent.clicks > 1)
1838 {
1839 /* only report double clicks */
1840 MEvent.clicks = 2;
1841 mouse_report (ev);
1842
1843 /* don't report the release */
1844 MEvent.clicks = 0;
1845 MEvent.button = AnyButton;
1846 }
1847 }
1848 else
1849 {
1850 /* different button, or time expired */
1851 MEvent.clicks = 1;
1852 MEvent.button = ev.button;
1853 mouse_report (ev);
1854 }
1855 #else
1856 MEvent.button = ev.button;
1857 mouse_report (ev);
1858 #endif /* MOUSE_REPORT_DOUBLECLICK */
1859
1860 }
1861 else
1862 {
1863 if (ev.button != MEvent.button)
1864 MEvent.clicks = 0;
1865
1866 switch (ev.button)
1867 {
1868 case Button1:
1869 /* allow meta + click to select rectangular areas */
1870 /* should be done in screen.C */
1871 #if ENABLE_FRILLS
1872 selection.rect = !!(ev.state & ModMetaMask);
1873 #else
1874 selection.rect = false;
1875 #endif
1876
1877 /* allow shift+left click to extend selection */
1878 if (ev.state & ShiftMask && !(priv_modes & PrivMode_mouse_report))
1879 {
1880 if (MEvent.button == Button1 && clickintime)
1881 selection_rotate (ev.x, ev.y);
1882 else
1883 selection_extend (ev.x, ev.y, 1);
1884 }
1885 else
1886 {
1887 if (MEvent.button == Button1 && clickintime)
1888 MEvent.clicks++;
1889 else
1890 MEvent.clicks = 1;
1891
1892 selection_click (MEvent.clicks, ev.x, ev.y);
1893 }
1894
1895 MEvent.button = Button1;
1896 break;
1897
1898 case Button3:
1899 if (MEvent.button == Button3 && clickintime)
1900 selection_rotate (ev.x, ev.y);
1901 else
1902 selection_extend (ev.x, ev.y, 1);
1903
1904 MEvent.button = Button3;
1905 break;
1906 }
1907 }
1908
1909 MEvent.time = ev.time;
1910 return;
1911 }
1912
1913 /*
1914 * Scrollbar window processing of button press
1915 */
1916 if (isScrollbarWindow (ev.window))
1917 {
1918 scrollBar.setIdle ();
1919 /*
1920 * Rxvt-style scrollbar:
1921 * move up if mouse is above slider
1922 * move dn if mouse is below slider
1923 *
1924 * XTerm-style scrollbar:
1925 * Move display proportional to pointer location
1926 * pointer near top -> scroll one line
1927 * pointer near bot -> scroll full page
1928 */
1929 #ifndef NO_SCROLLBAR_REPORT
1930 if (reportmode)
1931 {
1932 /*
1933 * Mouse report disabled scrollbar:
1934 * arrow buttons - send up/down
1935 * click on scrollbar - send pageup/down
1936 */
1937 if ((scrollBar.style == R_SB_NEXT
1938 && scrollbarnext_upButton (ev.y))
1939 || (scrollBar.style == R_SB_RXVT
1940 && scrollbarrxvt_upButton (ev.y)))
1941 tt_printf ("\033[A");
1942 else if ((scrollBar.style == R_SB_NEXT
1943 && scrollbarnext_dnButton (ev.y))
1944 || (scrollBar.style == R_SB_RXVT
1945 && scrollbarrxvt_dnButton (ev.y)))
1946 tt_printf ("\033[B");
1947 else
1948 switch (ev.button)
1949 {
1950 case Button2:
1951 tt_printf ("\014");
1952 break;
1953 case Button1:
1954 tt_printf ("\033[6~");
1955 break;
1956 case Button3:
1957 tt_printf ("\033[5~");
1958 break;
1959 }
1960 }
1961 else
1962 #endif /* NO_SCROLLBAR_REPORT */
1963
1964 {
1965 char upordown = 0;
1966
1967 if (scrollBar.style == R_SB_NEXT)
1968 {
1969 if (scrollbarnext_upButton (ev.y))
1970 upordown = -1; /* up */
1971 else if (scrollbarnext_dnButton (ev.y))
1972 upordown = 1; /* down */
1973 }
1974 else if (scrollBar.style == R_SB_RXVT)
1975 {
1976 if (scrollbarrxvt_upButton (ev.y))
1977 upordown = -1; /* up */
1978 else if (scrollbarrxvt_dnButton (ev.y))
1979 upordown = 1; /* down */
1980 }
1981 if (upordown)
1982 {
1983 #ifndef NO_SCROLLBAR_BUTTON_CONTINUAL_SCROLLING
1984 cont_scroll_ev.start (NOW + SCROLLBAR_INITIAL_DELAY);
1985 #endif
1986 if (scr_page (upordown < 0 ? UP : DN, 1))
1987 {
1988 if (upordown < 0)
1989 scrollBar.setUp ();
1990 else
1991 scrollBar.setDn ();
1992 }
1993 }
1994 else
1995 switch (ev.button)
1996 {
1997 case Button2:
1998 switch (scrollbar_align)
1999 {
2000 case R_SB_ALIGN_TOP:
2001 csrO = 0;
2002 break;
2003 case R_SB_ALIGN_CENTRE:
2004 csrO = (scrollBar.bot - scrollBar.top) / 2;
2005 break;
2006 case R_SB_ALIGN_BOTTOM:
2007 csrO = scrollBar.bot - scrollBar.top;
2008 break;
2009 }
2010
2011 if (scrollBar.style == R_SB_XTERM
2012 || scrollbar_above_slider (ev.y)
2013 || scrollbar_below_slider (ev.y))
2014 scr_move_to (scrollbar_position (ev.y) - csrO, scrollbar_size ());
2015
2016 scrollBar.setMotion ();
2017 break;
2018
2019 case Button1:
2020 if (scrollbar_align == R_SB_ALIGN_CENTRE)
2021 csrO = ev.y - scrollBar.top;
2022 /* FALLTHROUGH */
2023
2024 case Button3:
2025 if (scrollBar.style != R_SB_XTERM)
2026 {
2027 if (scrollbar_above_slider (ev.y))
2028 # ifdef RXVT_SCROLL_FULL
2029 scr_page (UP, nrow - 1);
2030 # else
2031 scr_page (UP, nrow / 4);
2032 # endif
2033 else if (scrollbar_below_slider (ev.y))
2034 # ifdef RXVT_SCROLL_FULL
2035 scr_page (DN, nrow - 1);
2036 # else
2037 scr_page (DN, nrow / 4);
2038 # endif
2039 else
2040 scrollBar.setMotion ();
2041 }
2042 else
2043 {
2044 scr_page ((ev.button == Button1 ? DN : UP),
2045 (nrow
2046 * scrollbar_position (ev.y)
2047 / scrollbar_size ()));
2048 }
2049
2050 break;
2051 }
2052 }
2053
2054 return;
2055 }
2056 }
2057
2058 void
2059 rxvt_term::button_release (XButtonEvent &ev)
2060 {
2061 int reportmode = 0;
2062
2063 csrO = 0; /* reset csr Offset */
2064 if (!bypass_keystate)
2065 reportmode = !! (priv_modes & PrivMode_mouse_report);
2066
2067 if (scrollbar_isUpDn ())
2068 {
2069 scrollBar.setIdle ();
2070 scrollbar_show (0);
2071 }
2072
2073 #ifdef SELECTION_SCROLLING
2074 if (sel_scroll_ev.active)
2075 sel_scroll_ev.stop();
2076 #endif
2077
2078 if (ev.window == vt)
2079 {
2080 if (HOOK_INVOKE ((this, HOOK_BUTTON_RELEASE, DT_XEVENT, &ev, DT_END)))
2081 return;
2082
2083 #if ISO_14755
2084 // 5.4
2085 if (iso14755buf & (ISO_14755_STARTED | ISO_14755_54))
2086 return;
2087 #endif
2088
2089 if (reportmode)
2090 {
2091 /* mouse report from vt window */
2092 /* don't report release of wheel "buttons" */
2093 if (ev.button >= 4)
2094 return;
2095 #ifdef MOUSE_REPORT_DOUBLECLICK
2096 /* only report the release of 'slow' single clicks */
2097 if (MEvent.button != AnyButton
2098 && (ev.button != MEvent.button
2099 || (ev.time - MEvent.time
2100 > MULTICLICK_TIME / 2)))
2101 {
2102 MEvent.clicks = 0;
2103 MEvent.button = AnyButton;
2104 mouse_report (ev);
2105 }
2106 #else /* MOUSE_REPORT_DOUBLECLICK */
2107 MEvent.button = AnyButton;
2108 mouse_report (ev);
2109 #endif /* MOUSE_REPORT_DOUBLECLICK */
2110 return;
2111 }
2112
2113 /*
2114 * dumb hack to compensate for the failure of click-and-drag
2115 * when overriding mouse reporting
2116 */
2117 if (priv_modes & PrivMode_mouse_report
2118 && bypass_keystate
2119 && ev.button == Button1 && MEvent.clicks <= 1)
2120 selection_extend (ev.x, ev.y, 0);
2121
2122 switch (ev.button)
2123 {
2124 case Button1:
2125 case Button3:
2126 selection_make (ev.time);
2127 break;
2128
2129 case Button2:
2130 if (IN_RANGE_EXC (ev.x, 0, width) && IN_RANGE_EXC (ev.y, 0, height)) // inside window?
2131 selection_request (ev.time, ev.state & ModMetaMask ? Sel_Primary : Sel_Primary);
2132 break;
2133
2134 #ifdef MOUSE_WHEEL
2135 case Button4:
2136 case Button5:
2137 {
2138 int i;
2139 page_dirn v;
2140
2141 v = ev.button == Button4 ? UP : DN;
2142
2143 if (ev.state & ShiftMask)
2144 i = 1;
2145 else if (OPTION (Opt_mouseWheelScrollPage))
2146 i = nrow - 1;
2147 else
2148 i = 5;
2149
2150 # ifdef MOUSE_SLIP_WHEELING
2151 if (ev.state & ControlMask)
2152 {
2153 mouse_slip_wheel_speed += v ? -1 : 1;
2154 if (mouse_slip_wheel_speed < -nrow) mouse_slip_wheel_speed = -nrow;
2155 if (mouse_slip_wheel_speed > +nrow) mouse_slip_wheel_speed = +nrow;
2156
2157 if (slip_wheel_ev.at < NOW)
2158 slip_wheel_ev.at = NOW + SCROLLBAR_CONTINUOUS_DELAY;
2159
2160 slip_wheel_ev.start ();
2161 }
2162 else
2163 {
2164 # endif
2165 scr_page (v, i);
2166 scrollbar_show (1);
2167 # ifdef MOUSE_SLIP_WHEELING
2168 }
2169 # endif
2170 }
2171 break;
2172 #endif
2173 }
2174 }
2175 }
2176
2177 #ifdef TRANSPARENT
2178 #if TINTING
2179 /* taken from aterm-0.4.2 */
2180
2181 typedef uint32_t RUINT32T;
2182
2183 void ShadeXImage(rxvt_term *term, XImage* srcImage, int shade, int rm, int gm, int bm)
2184 {
2185 int sh_r, sh_g, sh_b;
2186 RUINT32T mask_r, mask_g, mask_b;
2187 RUINT32T *lookup, *lookup_r, *lookup_g, *lookup_b;
2188 unsigned int lower_lim_r, lower_lim_g, lower_lim_b;
2189 unsigned int upper_lim_r, upper_lim_g, upper_lim_b;
2190 int i;
2191
2192 Visual *visual = term->visual;
2193
2194 if( visual->c_class != TrueColor || srcImage->format != ZPixmap ) return ;
2195
2196 /* for convenience */
2197 mask_r = visual->red_mask;
2198 mask_g = visual->green_mask;
2199 mask_b = visual->blue_mask;
2200
2201 /* boring lookup table pre-initialization */
2202 switch (srcImage->bits_per_pixel) {
2203 case 15:
2204 if ((mask_r != 0x7c00) ||
2205 (mask_g != 0x03e0) ||
2206 (mask_b != 0x001f))
2207 return;
2208 lookup = (RUINT32T *) malloc (sizeof (RUINT32T)*(32+32+32));
2209 lookup_r = lookup;
2210 lookup_g = lookup+32;
2211 lookup_b = lookup+32+32;
2212 sh_r = 10;
2213 sh_g = 5;
2214 sh_b = 0;
2215 break;
2216 case 16:
2217 if ((mask_r != 0xf800) ||
2218 (mask_g != 0x07e0) ||
2219 (mask_b != 0x001f))
2220 return;
2221 lookup = (RUINT32T *) malloc (sizeof (RUINT32T)*(32+64+32));
2222 lookup_r = lookup;
2223 lookup_g = lookup+32;
2224 lookup_b = lookup+32+64;
2225 sh_r = 11;
2226 sh_g = 5;
2227 sh_b = 0;
2228 break;
2229 case 24:
2230 if ((mask_r != 0xff0000) ||
2231 (mask_g != 0x00ff00) ||
2232 (mask_b != 0x0000ff))
2233 return;
2234 lookup = (RUINT32T *) malloc (sizeof (RUINT32T)*(256+256+256));
2235 lookup_r = lookup;
2236 lookup_g = lookup+256;
2237 lookup_b = lookup+256+256;
2238 sh_r = 16;
2239 sh_g = 8;
2240 sh_b = 0;
2241 break;
2242 case 32:
2243 if ((mask_r != 0xff0000) ||
2244 (mask_g != 0x00ff00) ||
2245 (mask_b != 0x0000ff))
2246 return;
2247 lookup = (RUINT32T *) malloc (sizeof (RUINT32T)*(256+256+256));
2248 lookup_r = lookup;
2249 lookup_g = lookup+256;
2250 lookup_b = lookup+256+256;
2251 sh_r = 16;
2252 sh_g = 8;
2253 sh_b = 0;
2254 break;
2255 default:
2256 return; /* we do not support this color depth */
2257 }
2258
2259 /* prepare limits for color transformation (each channel is handled separately) */
2260 if (shade < 0) {
2261 shade = -shade;
2262 if (shade < 0) shade = 0;
2263 if (shade > 100) shade = 100;
2264
2265 lower_lim_r = 65535-rm;
2266 lower_lim_g = 65535-gm;
2267 lower_lim_b = 65535-bm;
2268
2269 lower_lim_r = 65535-(unsigned int)(((RUINT32T)lower_lim_r)*((RUINT32T)shade)/100);
2270 lower_lim_g = 65535-(unsigned int)(((RUINT32T)lower_lim_g)*((RUINT32T)shade)/100);
2271 lower_lim_b = 65535-(unsigned int)(((RUINT32T)lower_lim_b)*((RUINT32T)shade)/100);
2272
2273 upper_lim_r = upper_lim_g = upper_lim_b = 65535;
2274 } else {
2275 if (shade < 0) shade = 0;
2276 if (shade > 100) shade = 100;
2277
2278 lower_lim_r = lower_lim_g = lower_lim_b = 0;
2279
2280 upper_lim_r = (unsigned int)((((RUINT32T)rm)*((RUINT32T)shade))/100);
2281 upper_lim_g = (unsigned int)((((RUINT32T)gm)*((RUINT32T)shade))/100);
2282 upper_lim_b = (unsigned int)((((RUINT32T)bm)*((RUINT32T)shade))/100);
2283 }
2284
2285 /* switch red and blue bytes if necessary, we need it for some weird XServers like XFree86 3.3.3.1 */
2286 if ((srcImage->bits_per_pixel == 24) && (mask_r >= 0xFF0000 ))
2287 {
2288 unsigned int tmp;
2289
2290 tmp = lower_lim_r;
2291 lower_lim_r = lower_lim_b;
2292 lower_lim_b = tmp;
2293
2294 tmp = upper_lim_r;
2295 upper_lim_r = upper_lim_b;
2296 upper_lim_b = tmp;
2297 }
2298
2299 /* fill our lookup tables */
2300 for (i = 0; i <= mask_r>>sh_r; i++)
2301 {
2302 RUINT32T tmp;
2303 tmp = ((RUINT32T)i)*((RUINT32T)(upper_lim_r-lower_lim_r));
2304 tmp += ((RUINT32T)(mask_r>>sh_r))*((RUINT32T)lower_lim_r);
2305 lookup_r[i] = (tmp/65535)<<sh_r;
2306 }
2307 for (i = 0; i <= mask_g>>sh_g; i++)
2308 {
2309 RUINT32T tmp;
2310 tmp = ((RUINT32T)i)*((RUINT32T)(upper_lim_g-lower_lim_g));
2311 tmp += ((RUINT32T)(mask_g>>sh_g))*((RUINT32T)lower_lim_g);
2312 lookup_g[i] = (tmp/65535)<<sh_g;
2313 }
2314 for (i = 0; i <= mask_b>>sh_b; i++)
2315 {
2316 RUINT32T tmp;
2317 tmp = ((RUINT32T)i)*((RUINT32T)(upper_lim_b-lower_lim_b));
2318 tmp += ((RUINT32T)(mask_b>>sh_b))*((RUINT32T)lower_lim_b);
2319 lookup_b[i] = (tmp/65535)<<sh_b;
2320 }
2321
2322 /* apply table to input image (replacing colors by newly calculated ones) */
2323 switch (srcImage->bits_per_pixel)
2324 {
2325 case 15:
2326 {
2327 unsigned short *p1, *pf, *p, *pl;
2328 p1 = (unsigned short *) srcImage->data;
2329 pf = (unsigned short *) (srcImage->data + srcImage->height * srcImage->bytes_per_line);
2330 while (p1 < pf)
2331 {
2332 p = p1;
2333 pl = p1 + srcImage->width;
2334 for (; p < pl; p++)
2335 {
2336 *p = lookup_r[(*p & 0x7c00)>>10] |
2337 lookup_g[(*p & 0x03e0)>> 5] |
2338 lookup_b[(*p & 0x001f)];
2339 }
2340 p1 = (unsigned short *) ((char *) p1 + srcImage->bytes_per_line);
2341 }
2342 break;
2343 }
2344 case 16:
2345 {
2346 unsigned short *p1, *pf, *p, *pl;
2347 p1 = (unsigned short *) srcImage->data;
2348 pf = (unsigned short *) (srcImage->data + srcImage->height * srcImage->bytes_per_line);
2349 while (p1 < pf)
2350 {
2351 p = p1;
2352 pl = p1 + srcImage->width;
2353 for (; p < pl; p++)
2354 {
2355 *p = lookup_r[(*p & 0xf800)>>11] |
2356 lookup_g[(*p & 0x07e0)>> 5] |
2357 lookup_b[(*p & 0x001f)];
2358 }
2359 p1 = (unsigned short *) ((char *) p1 + srcImage->bytes_per_line);
2360 }
2361 break;
2362 }
2363 case 24:
2364 {
2365 unsigned char *p1, *pf, *p, *pl;
2366 p1 = (unsigned char *) srcImage->data;
2367 pf = (unsigned char *) (srcImage->data + srcImage->height * srcImage->bytes_per_line);
2368 while (p1 < pf)
2369 {
2370 p = p1;
2371 pl = p1 + srcImage->width * 3;
2372 for (; p < pl; p += 3)
2373 {
2374 p[0] = lookup_r[(p[0] & 0xff0000)>>16];
2375 p[1] = lookup_r[(p[1] & 0x00ff00)>> 8];
2376 p[2] = lookup_r[(p[2] & 0x0000ff)];
2377 }
2378 p1 = (unsigned char *) ((char *) p1 + srcImage->bytes_per_line);
2379 }
2380 break;
2381 }
2382 case 32:
2383 {
2384 RUINT32T *p1, *pf, *p, *pl;
2385 p1 = (RUINT32T *) srcImage->data;
2386 pf = (RUINT32T *) (srcImage->data + srcImage->height * srcImage->bytes_per_line);
2387
2388 while (p1 < pf)
2389 {
2390 p = p1;
2391 pl = p1 + srcImage->width;
2392 for (; p < pl; p++)
2393 {
2394 *p = lookup_r[(*p & 0xff0000)>>16] |
2395 lookup_g[(*p & 0x00ff00)>> 8] |
2396 lookup_b[(*p & 0x0000ff)] |
2397 (*p & ~0xffffff);
2398 }
2399 p1 = (RUINT32T *) ((char *) p1 + srcImage->bytes_per_line);
2400 }
2401 break;
2402 }
2403 }
2404
2405 free (lookup);
2406 }
2407 #endif
2408
2409 /*
2410 * Check our parents are still who we think they are.
2411 * Do transparency updates if required
2412 */
2413 int
2414 rxvt_term::check_our_parents ()
2415 {
2416 int i, pchanged, aformat, have_pixmap, rootdepth;
2417 unsigned long nitems, bytes_after;
2418 Atom atype;
2419 unsigned char *prop = NULL;
2420 Window root, oldp, *list;
2421 Pixmap rootpixmap = None;
2422 XWindowAttributes wattr, wrootattr;
2423
2424 pchanged = 0;
2425
2426 if (!OPTION (Opt_transparent))
2427 return pchanged; /* Don't try any more */
2428
2429 XGetWindowAttributes (xdisp, display->root, &wrootattr);
2430 rootdepth = wrootattr.depth;
2431
2432 XGetWindowAttributes (xdisp, parent[0], &wattr);
2433
2434 if (rootdepth != wattr.depth)
2435 {
2436 if (am_transparent)
2437 {
2438 pchanged = 1;
2439 XSetWindowBackground (xdisp, vt, pix_colors_focused[Color_bg]);
2440 am_transparent = am_pixmap_trans = 0;
2441 }
2442
2443 return pchanged; /* Don't try any more */
2444 }
2445
2446 /* Get all X ops out of the queue so that our information is up-to-date. */
2447 XSync (xdisp, False);
2448
2449 /*
2450 * Make the frame window set by the window manager have
2451 * the root background. Some window managers put multiple nested frame
2452 * windows for each client, so we have to take care about that.
2453 */
2454 i = (xa[XA_XROOTPMAP_ID]
2455 && XGetWindowProperty (xdisp, display->root, xa[XA_XROOTPMAP_ID],
2456 0L, 1L, False, XA_PIXMAP, &atype, &aformat,
2457 &nitems, &bytes_after, &prop) == Success);
2458
2459 if (!i || prop == NULL)
2460 i = (xa[XA_ESETROOT_PMAP_ID]
2461 && XGetWindowProperty (xdisp, display->root, xa[XA_ESETROOT_PMAP_ID],
2462 0L, 1L, False, XA_PIXMAP, &atype, &aformat,
2463 &nitems, &bytes_after, &prop) == Success);
2464
2465 if (!i || prop == NULL
2466 #if TINTING
2467 || !ISSET_PIXCOLOR (Color_tint)
2468 #endif
2469 )
2470 have_pixmap = 0;
2471 else
2472 {
2473 have_pixmap = 1;
2474 rootpixmap = *(Pixmap *)prop;
2475 XFree (prop);
2476 }
2477
2478 if (have_pixmap)
2479 {
2480 /*
2481 * Copy display->root pixmap transparency
2482 */
2483 int sx, sy, nx, ny;
2484 unsigned int nw, nh;
2485 Window cr;
2486 XImage *image;
2487 GC gc;
2488 XGCValues gcvalue;
2489
2490 XTranslateCoordinates (xdisp, parent[0], display->root,
2491 0, 0, &sx, &sy, &cr);
2492 nw = (unsigned int)szHint.width;
2493 nh = (unsigned int)szHint.height;
2494 nx = ny = 0;
2495
2496 if (sx < 0)
2497 {
2498 nw += sx;
2499 nx = -sx;
2500 sx = 0;
2501 }
2502
2503 if (sy < 0)
2504 {
2505 nh += sy;
2506 ny = -sy;
2507 sy = 0;
2508 }
2509
2510 min_it (nw, (unsigned int) (wrootattr.width - sx));
2511 min_it (nh, (unsigned int) (wrootattr.height - sy));
2512
2513 XSync (xdisp, False);
2514 allowedxerror = -1;
2515 image = XGetImage (xdisp, rootpixmap, sx, sy, nw, nh, AllPlanes, ZPixmap);
2516
2517 /* XXX: handle BadMatch - usually because we're outside the pixmap */
2518 /* XXX: may need a delay here? */
2519 allowedxerror = 0;
2520
2521 if (image == NULL)
2522 {
2523 if (am_transparent && am_pixmap_trans)
2524 {
2525 pchanged = 1;
2526 if (pixmap != None)
2527 {
2528 XFreePixmap (xdisp, pixmap);
2529 pixmap = None;
2530 }
2531 }
2532
2533 am_pixmap_trans = 0;
2534 }
2535 else
2536 {
2537 if (pixmap != None)
2538 XFreePixmap (xdisp, pixmap);
2539
2540 #if TINTING
2541 if (ISSET_PIXCOLOR (Color_tint))
2542 {
2543 int shade = rs[Rs_shade] ? atoi (rs[Rs_shade]) : 100;
2544
2545 rgba c;
2546 pix_colors_focused [Color_tint].get (this, c);
2547
2548 ShadeXImage (this, image, shade, c.r, c.g, c.b);
2549 }
2550 #endif
2551
2552 pixmap = XCreatePixmap (xdisp, vt, szHint.width, szHint.height, image->depth);
2553 gc = XCreateGC (xdisp, vt, 0UL, &gcvalue);
2554 XPutImage (xdisp, pixmap, gc, image, 0, 0,
2555 nx, ny, image->width, image->height);
2556 XFreeGC (xdisp, gc);
2557 XDestroyImage (image);
2558 XSetWindowBackgroundPixmap (xdisp, parent[0], pixmap);
2559 XClearWindow (xdisp, parent[0]);
2560
2561 if (!am_transparent || !am_pixmap_trans)
2562 pchanged = 1;
2563
2564 am_transparent = am_pixmap_trans = 1;
2565 }
2566 }
2567
2568 if (am_pixmap_trans)
2569 XSetWindowBackgroundPixmap (xdisp, vt, ParentRelative);
2570 else
2571 {
2572 unsigned int n;
2573 /*
2574 * InheritPixmap transparency
2575 */
2576 for (i = 1; i < (int) (sizeof (parent) / sizeof (Window)); i++)
2577 {
2578 oldp = parent[i];
2579 XQueryTree (xdisp, parent[i - 1], &root, &parent[i], &list, &n);
2580 XFree (list);
2581
2582 if (parent[i] == display->root)
2583 {
2584 if (oldp != None)
2585 pchanged = 1;
2586
2587 break;
2588 }
2589
2590 if (oldp != parent[i])
2591 pchanged = 1;
2592 }
2593
2594 n = 0;
2595
2596 if (pchanged)
2597 for (; n < (unsigned int)i; n++)
2598 {
2599 XGetWindowAttributes (xdisp, parent[n], &wattr);
2600
2601 if (wattr.depth != rootdepth || wattr.c_class == InputOnly)
2602 {
2603 n = (int) (sizeof (parent) / sizeof (Window)) + 1;
2604 break;
2605 }
2606 }
2607
2608 if (n > (sizeof (parent) / sizeof (parent[0])))
2609 {
2610 XSetWindowBackground (xdisp, parent[0], pix_colors_focused[Color_border]);
2611 XSetWindowBackground (xdisp, vt, pix_colors_focused[Color_bg]);
2612 am_transparent = 0;
2613 /* XXX: also turn off Opt_transparent? */
2614 }
2615 else
2616 {
2617 for (n = 0; n < (unsigned int)i; n++)
2618 {
2619 XSetWindowBackgroundPixmap (xdisp, parent[n], ParentRelative);
2620 XClearWindow (xdisp, parent[n]);
2621 }
2622
2623 XSetWindowBackgroundPixmap (xdisp, vt, ParentRelative);
2624 am_transparent = 1;
2625 }
2626
2627 for (; i < (int) (sizeof (parent) / sizeof (Window)); i++)
2628 parent[i] = None;
2629 }
2630
2631 if (scrollBar.win)
2632 {
2633 XSetWindowBackgroundPixmap (xdisp, scrollBar.win, ParentRelative);
2634 scrollBar.setIdle ();
2635 scrollbar_show (0);
2636 }
2637
2638 if (am_transparent)
2639 {
2640 want_refresh = want_full_refresh = 1;
2641 if (am_pixmap_trans)
2642 flush ();
2643 }
2644
2645 return pchanged;
2646 }
2647 #endif
2648
2649 /*}}} */
2650
2651 bool
2652 rxvt_term::cmd_parse ()
2653 {
2654 bool flag = false;
2655 wchar_t ch = NOCHAR;
2656 char *seq_begin; // remember start of esc-sequence here
2657
2658 for (;;)
2659 {
2660 if (ch == NOCHAR)
2661 {
2662 seq_begin = cmdbuf_ptr;
2663 ch = next_char ();
2664
2665 if (ch == NOCHAR)
2666 break;
2667 }
2668
2669 if (!IS_CONTROL (ch) || ch == C0_LF || ch == C0_CR || ch == C0_HT)
2670 {
2671 if (!seen_input)
2672 {
2673 seen_input = 1;
2674 // many badly-written programs (e.g. jed) contain a race condition:
2675 // they first read the screensize and then install a SIGWINCH handler.
2676 // some window managers resize the window early, and these programs
2677 // then sometimes get the size wrong.
2678 // unfortunately other programs are even more buggy and dislike
2679 // being sent SIGWINCH, so only do it when we were in fact being
2680 // resized.
2681 if (seen_resize && cmd_pid)
2682 kill (-cmd_pid, SIGWINCH);
2683 }
2684
2685 /* Read a text string from the input buffer */
2686 wchar_t buf[UBUFSIZ];
2687 bool refreshnow = false;
2688 int nlines = 0;
2689 wchar_t *str = buf;
2690 wchar_t *eol = str + min (ncol, UBUFSIZ);
2691
2692 for (;;)
2693 {
2694 if (ch == NOCHAR || (IS_CONTROL (ch) && ch != C0_LF && ch != C0_CR && ch != C0_HT))
2695 break;
2696
2697 *str++ = ch;
2698
2699 if (ch == C0_LF || str >= eol)
2700 {
2701 if (ch == C0_LF)
2702 nlines++;
2703
2704 refresh_count++;
2705
2706 if (!OPTION (Opt_jumpScroll)
2707 || (refresh_count >= refresh_limit * (nrow - 1)))
2708 {
2709 refreshnow = true;
2710 refresh_count = 0;
2711 ch = NOCHAR;
2712 break;
2713 }
2714
2715 // scr_add_lines only works for nlines <= nrow - 1.
2716 if (nlines >= nrow - 1)
2717 {
2718 if (!(SHOULD_INVOKE (HOOK_ADD_LINES)
2719 && HOOK_INVOKE ((this, HOOK_ADD_LINES, DT_WCS_LEN, buf, str - buf, DT_END))))
2720 scr_add_lines (buf, str - buf, nlines);
2721
2722 nlines = 0;
2723 str = buf;
2724 eol = str + min (ncol, UBUFSIZ);
2725 }
2726
2727 if (str >= eol)
2728 {
2729 if (eol >= buf + UBUFSIZ)
2730 {
2731 ch = NOCHAR;
2732 break;
2733 }
2734 else
2735 eol = min (eol + ncol, buf + UBUFSIZ);
2736 }
2737
2738 }
2739
2740 seq_begin = cmdbuf_ptr;
2741 ch = next_char ();
2742 }
2743
2744 if (!(SHOULD_INVOKE (HOOK_ADD_LINES)
2745 && HOOK_INVOKE ((this, HOOK_ADD_LINES, DT_WCS_LEN, buf, str - buf, DT_END))))
2746 scr_add_lines (buf, str - buf, nlines);
2747
2748 /*
2749 * If there have been a lot of new lines, then update the screen
2750 * What the heck I'll cheat and only refresh less than every page-full.
2751 * the number of pages between refreshes is refresh_limit, which
2752 * is incremented here because we must be doing flat-out scrolling.
2753 */
2754 if (refreshnow)
2755 {
2756 if (OPTION (Opt_jumpScroll) && refresh_limit < REFRESH_PERIOD)
2757 refresh_limit++;
2758 else
2759 {
2760 flag = true;
2761 scr_refresh ();
2762 want_refresh = 1;
2763 }
2764 }
2765
2766 }
2767 else
2768 {
2769 try
2770 {
2771 process_nonprinting (ch);
2772 }
2773 catch (const class out_of_input &o)
2774 {
2775 // we ran out of input, retry later
2776 cmdbuf_ptr = seq_begin;
2777 break;
2778 }
2779
2780 ch = NOCHAR;
2781 }
2782 }
2783
2784 return flag;
2785 }
2786
2787 // read the next character
2788 wchar_t
2789 rxvt_term::next_char () NOTHROW
2790 {
2791 while (cmdbuf_ptr < cmdbuf_endp)
2792 {
2793 // assume 7-bit to be ascii ALWAYS
2794 if ((unsigned char)*cmdbuf_ptr <= 0x7f && *cmdbuf_ptr != 0x1b)
2795 return *cmdbuf_ptr++;
2796
2797 wchar_t wc;
2798 size_t len = mbrtowc (&wc, cmdbuf_ptr, cmdbuf_endp - cmdbuf_ptr, mbstate);
2799
2800 if (len == (size_t)-2)
2801 {
2802 // the mbstate stores incomplete sequences. didn't know this :/
2803 cmdbuf_ptr = cmdbuf_endp;
2804 break;
2805 }
2806
2807 if (len == (size_t)-1)
2808 return (unsigned char)*cmdbuf_ptr++; // the _occasional_ latin1 character is allowed to slip through
2809
2810 // assume wchar == unicode
2811 cmdbuf_ptr += len;
2812 return wc & UNICODE_MASK;
2813 }
2814
2815 return NOCHAR;
2816 }
2817
2818 // read the next octet
2819 uint32_t
2820 rxvt_term::next_octet () NOTHROW
2821 {
2822 return cmdbuf_ptr < cmdbuf_endp
2823 ? (unsigned char)*cmdbuf_ptr++
2824 : NOCHAR;
2825 }
2826
2827 static class out_of_input out_of_input;
2828
2829 /* rxvt_cmd_getc () - Return next input character */
2830 /*
2831 * Return the next input character after first passing any keyboard input
2832 * to the command.
2833 */
2834 wchar_t
2835 rxvt_term::cmd_getc () THROW ((class out_of_input))
2836 {
2837 wchar_t c = next_char ();
2838
2839 if (c == NOCHAR)
2840 throw out_of_input;
2841
2842 return c;
2843 }
2844
2845 uint32_t
2846 rxvt_term::cmd_get8 () THROW ((class out_of_input))
2847 {
2848 uint32_t c = next_octet ();
2849
2850 if (c == NOCHAR)
2851 throw out_of_input;
2852
2853 return c;
2854 }
2855
2856 /*{{{ print pipe */
2857 /*----------------------------------------------------------------------*/
2858 #ifdef PRINTPIPE
2859 FILE *
2860 rxvt_term::popen_printer ()
2861 {
2862 FILE *stream = popen (rs[Rs_print_pipe], "w");
2863
2864 if (stream == NULL)
2865 rxvt_warn ("can't open printer pipe, not printing.\n");
2866
2867 return stream;
2868 }
2869
2870 int
2871 rxvt_term::pclose_printer (FILE *stream)
2872 {
2873 fflush (stream);
2874 return pclose (stream);
2875 }
2876
2877 /*
2878 * simulate attached vt100 printer
2879 */
2880 void
2881 rxvt_term::process_print_pipe ()
2882 {
2883 int done;
2884 FILE *fd;
2885
2886 if ((fd = popen_printer ()) == NULL)
2887 return;
2888
2889 /*
2890 * Send all input to the printer until either ESC[4i or ESC[?4i
2891 * is received.
2892 */
2893 for (done = 0; !done;)
2894 {
2895 unsigned char buf[8];
2896 unicode_t ch;
2897 unsigned int i, len;
2898
2899 if ((ch = cmd_getc ()) != C0_ESC)
2900 {
2901 if (putc (ch, fd) == EOF)
2902 break; /* done = 1 */
2903 }
2904 else
2905 {
2906 len = 0;
2907 buf[len++] = ch;
2908
2909 if ((buf[len++] = cmd_getc ()) == '[')
2910 {
2911 if ((ch = cmd_getc ()) == '?')
2912 {
2913 buf[len++] = '?';
2914 ch = cmd_getc ();
2915 }
2916 if ((buf[len++] = ch) == '4')
2917 {
2918 if ((buf[len++] = cmd_getc ()) == 'i')
2919 break; /* done = 1 */
2920 }
2921 }
2922
2923 for (i = 0; i < len; i++)
2924 if (putc (buf[i], fd) == EOF)
2925 {
2926 done = 1;
2927 break;
2928 }
2929 }
2930 }
2931
2932 pclose_printer (fd);
2933 }
2934 #endif /* PRINTPIPE */
2935 /*}}} */
2936
2937 /* *INDENT-OFF* */
2938 enum {
2939 C1_40 = 0x40,
2940 C1_41 , C1_BPH, C1_NBH, C1_44 , C1_NEL, C1_SSA, C1_ESA,
2941 C1_HTS, C1_HTJ, C1_VTS, C1_PLD, C1_PLU, C1_RI , C1_SS2, C1_SS3,
2942 C1_DCS, C1_PU1, C1_PU2, C1_STS, C1_CCH, C1_MW , C1_SPA, C1_EPA,
2943 C1_SOS, C1_59 , C1_SCI, C1_CSI, CS_ST , C1_OSC, C1_PM , C1_APC,
2944 };
2945 /* *INDENT-ON* */
2946
2947 /*{{{ process non-printing single characters */
2948 void
2949 rxvt_term::process_nonprinting (unicode_t ch)
2950 {
2951 switch (ch)
2952 {
2953 case C0_ESC:
2954 process_escape_seq ();
2955 break;
2956 case C0_ENQ: /* terminal Status */
2957 if (rs[Rs_answerbackstring])
2958 tt_write (rs [Rs_answerbackstring], strlen (rs [Rs_answerbackstring]));
2959 else
2960 tt_write (VT100_ANS, strlen (VT100_ANS));
2961 break;
2962 case C0_BEL: /* bell */
2963 scr_bell ();
2964 break;
2965 case C0_BS: /* backspace */
2966 scr_backspace ();
2967 break;
2968 case C0_HT: /* tab */
2969 scr_tab (1);
2970 break;
2971 case C0_CR: /* carriage return */
2972 scr_gotorc (0, 0, R_RELATIVE);
2973 break;
2974 case C0_VT: /* vertical tab, form feed */
2975 case C0_FF:
2976 case C0_LF: /* line feed */
2977 scr_index (UP);
2978 break;
2979 case C0_SO: /* shift out - acs */
2980 scr_charset_choose (1);
2981 break;
2982 case C0_SI: /* shift in - acs */
2983 scr_charset_choose (0);
2984 break;
2985
2986 #ifdef EIGHT_BIT_CONTROLS
2987 // 8-bit controls
2988 case 0x90: /* DCS */
2989 process_dcs_seq ();
2990 break;
2991 case 0x9b: /* CSI */
2992 process_csi_seq ();
2993 break;
2994 case 0x9d: /* CSI */
2995 process_osc_seq ();
2996 break;
2997 #endif
2998 }
2999 }
3000 /*}}} */
3001
3002
3003 /*{{{ process VT52 escape sequences */
3004 void
3005 rxvt_term::process_escape_vt52 (unicode_t ch)
3006 {
3007 int row, col;
3008
3009 switch (ch)
3010 {
3011 case 'A': /* cursor up */
3012 scr_gotorc (-1, 0, R_RELATIVE | C_RELATIVE);
3013 break;
3014 case 'B': /* cursor down */
3015 scr_gotorc (1, 0, R_RELATIVE | C_RELATIVE);
3016 break;
3017 case 'C': /* cursor right */
3018 scr_gotorc (0, 1, R_RELATIVE | C_RELATIVE);
3019 break;
3020 case 'D': /* cursor left */
3021 scr_gotorc (0, -1, R_RELATIVE | C_RELATIVE);
3022 break;
3023 case 'H': /* cursor home */
3024 scr_gotorc (0, 0, 0);
3025 break;
3026 case 'I': /* cursor up and scroll down if needed */
3027 scr_index (DN);
3028 break;
3029 case 'J': /* erase to end of screen */
3030 scr_erase_screen (0);
3031 break;
3032 case 'K': /* erase to end of line */
3033 scr_erase_line (0);
3034 break;
3035 case 'Y': /* move to specified row and col */
3036 /* full command is 'ESC Y row col' where row and col
3037 * are encoded by adding 32 and sending the ascii
3038 * character. eg. SPACE = 0, '+' = 13, '0' = 18,
3039 * etc. */
3040 row = cmd_getc () - ' ';
3041 col = cmd_getc () - ' ';
3042 scr_gotorc (row, col, 0);
3043 break;
3044 case 'Z': /* identify the terminal type */
3045 tt_printf ("\033/Z"); /* I am a VT100 emulating a VT52 */
3046 break;
3047 case '<': /* turn off VT52 mode */
3048 PrivMode (0, PrivMode_vt52);
3049 break;
3050 case 'F': /* use special graphics character set */
3051 case 'G': /* use regular character set */
3052 /* unimplemented */
3053 break;
3054 case '=': /* use alternate keypad mode */
3055 case '>': /* use regular keypad mode */
3056 /* unimplemented */
3057 break;
3058 }
3059 }
3060 /*}}} */
3061
3062
3063 /*{{{ process escape sequences */
3064 void
3065 rxvt_term::process_escape_seq ()
3066 {
3067 unicode_t ch = cmd_getc ();
3068
3069 if (priv_modes & PrivMode_vt52)
3070 {
3071 process_escape_vt52 (ch);
3072 return;
3073 }
3074
3075 switch (ch)
3076 {
3077 /* case 1: do_tek_mode (); break; */
3078 case '#':
3079 if (cmd_getc () == '8')
3080 scr_E ();
3081 break;
3082 case '(':
3083 scr_charset_set (0, (unsigned int)cmd_getc ());
3084 break;
3085 case ')':
3086 scr_charset_set (1, (unsigned int)cmd_getc ());
3087 break;
3088 case '*':
3089 scr_charset_set (2, (unsigned int)cmd_getc ());
3090 break;
3091 case '+':
3092 scr_charset_set (3, (unsigned int)cmd_getc ());
3093 break;
3094 #if !ENABLE_MINIMAL
3095 case '6':
3096 scr_backindex ();
3097 break;
3098 #endif
3099 case '7':
3100 scr_cursor (SAVE);
3101 break;
3102 case '8':
3103 scr_cursor (RESTORE);
3104 break;
3105 #if !ENABLE_MINIMAL
3106 case '9':
3107 scr_forwardindex ();
3108 break;
3109 #endif
3110 case '=':
3111 case '>':
3112 PrivMode ((ch == '='), PrivMode_aplKP);
3113 break;
3114
3115 case C1_40:
3116 cmd_getc ();
3117 break;
3118 case C1_44:
3119 scr_index (UP);
3120 break;
3121
3122 /* 8.3.87: NEXT LINE */
3123 case C1_NEL: /* ESC E */
3124 {
3125 wchar_t nlcr[] = { C0_LF, C0_CR };
3126 scr_add_lines (nlcr, sizeof (nlcr) / sizeof (nlcr [0]), 1);
3127 }
3128 break;
3129
3130 /* kidnapped escape sequence: Should be 8.3.48 */
3131 case C1_ESA: /* ESC G */
3132 process_graphics ();
3133 break;
3134
3135 /* 8.3.63: CHARACTER TABULATION SET */
3136 case C1_HTS: /* ESC H */
3137 scr_set_tab (1);
3138 break;
3139
3140 /* 8.3.105: REVERSE LINE FEED */
3141 case C1_RI: /* ESC M */
3142 scr_index (DN);
3143 break;
3144
3145 /* 8.3.142: SINGLE-SHIFT TWO */
3146 /*case C1_SS2: scr_single_shift (2); break; */
3147
3148 /* 8.3.143: SINGLE-SHIFT THREE */
3149 /*case C1_SS3: scr_single_shift (3); break; */
3150
3151 /* 8.3.27: DEVICE CONTROL STRING */
3152 case C1_DCS: /* ESC P */
3153 process_dcs_seq ();
3154 break;
3155
3156 /* 8.3.110: SINGLE CHARACTER INTRODUCER */
3157 case C1_SCI: /* ESC Z */
3158 tt_write (ESCZ_ANSWER, sizeof (ESCZ_ANSWER) - 1);
3159 break; /* steal obsolete ESC [ c */
3160
3161 /* 8.3.16: CONTROL SEQUENCE INTRODUCER */
3162 case C1_CSI: /* ESC [ */
3163 process_csi_seq ();
3164 break;
3165
3166 /* 8.3.90: OPERATING SYSTEM COMMAND */
3167 case C1_OSC: /* ESC ] */
3168 process_osc_seq ();
3169 break;
3170
3171 /* 8.3.106: RESET TO INITIAL STATE */
3172 case 'c':
3173 mbstate.reset ();
3174 scr_poweron ();
3175 scrollbar_show (1);
3176 break;
3177
3178 /* 8.3.79: LOCKING-SHIFT TWO (see ISO2022) */
3179 case 'n':
3180 scr_charset_choose (2);
3181 break;
3182
3183 /* 8.3.81: LOCKING-SHIFT THREE (see ISO2022) */
3184 case 'o':
3185 scr_charset_choose (3);
3186 break;
3187 }
3188 }
3189 /*}}} */
3190
3191 /*{{{ process CONTROL SEQUENCE INTRODUCER (CSI) sequences `ESC[' */
3192 /* *INDENT-OFF* */
3193 enum {
3194 CSI_ICH = 0x40,
3195 CSI_CUU, CSI_CUD, CSI_CUF, CSI_CUB, CSI_CNL, CSI_CPL, CSI_CHA,
3196 CSI_CUP, CSI_CHT, CSI_ED , CSI_EL , CSI_IL , CSI_DL , CSI_EF , CSI_EA ,
3197 CSI_DCH, CSI_SEE, CSI_CPR, CSI_SU , CSI_SD , CSI_NP , CSI_PP , CSI_CTC,
3198 CSI_ECH, CSI_CVT, CSI_CBT, CSI_SRS, CSI_PTX, CSI_SDS, CSI_SIMD, CSI_5F,
3199 CSI_HPA, CSI_HPR, CSI_REP, CSI_DA , CSI_VPA, CSI_VPR, CSI_HVP, CSI_TBC,
3200 CSI_SM , CSI_MC , CSI_HPB, CSI_VPB, CSI_RM , CSI_SGR, CSI_DSR, CSI_DAQ,
3201 CSI_70 , CSI_71 , CSI_72 , CSI_73 , CSI_74 , CSI_75 , CSI_76 , CSI_77 ,
3202 CSI_78 , CSI_79 , CSI_7A , CSI_7B , CSI_7C , CSI_7D , CSI_7E , CSI_7F
3203 };
3204
3205 #define make_byte(b7,b6,b5,b4,b3,b2,b1,b0) \
3206 (((b7) << 7) | ((b6) << 6) | ((b5) << 5) | ((b4) << 4) \
3207 | ((b3) << 3) | ((b2) << 2) | ((b1) << 1) | (b0))
3208 #define get_byte_array_bit(array, bit) \
3209 (!! ((array)[ (bit) / 8] & (128 >> ((bit) & 7))))
3210
3211 const unsigned char csi_defaults[] =
3212 {
3213 make_byte (1,1,1,1,1,1,1,1), /* @, A, B, C, D, E, F, G, */
3214 make_byte (1,1,0,0,1,1,0,0), /* H, I, J, K, L, M, N, O, */
3215 make_byte (1,0,1,1,1,1,1,0), /* P, Q, R, S, T, U, V, W, */
3216 make_byte (1,1,1,0,0,0,1,0), /* X, Y, Z, [, \, ], ^, _, */
3217 make_byte (1,1,1,0,1,1,1,0), /* `, a, b, c, d, e, f, g, */
3218 make_byte (0,0,1,1,0,0,0,0), /* h, i, j, k, l, m, n, o, */
3219 make_byte (0,0,0,0,0,0,0,0), /* p, q, r, s, t, u, v, w, */
3220 make_byte (0,0,0,0,0,0,0,0), /* x, y, z, {, |, }, ~, */
3221 };
3222 /* *INDENT-ON* */
3223
3224 void
3225 rxvt_term::process_csi_seq ()
3226 {
3227 unicode_t ch, priv, i;
3228 unsigned int nargs, p;
3229 int n, ndef;
3230 int arg[ESC_ARGS];
3231
3232 for (nargs = ESC_ARGS; nargs > 0;)
3233 arg[--nargs] = 0;
3234
3235 priv = 0;
3236 ch = cmd_getc ();
3237 if (ch >= '<' && ch <= '?')
3238 { /* '<' '=' '>' '?' */
3239 priv = ch;
3240 ch = cmd_getc ();
3241 }
3242
3243 /* read any numerical arguments */
3244 for (n = -1; ch < CSI_ICH; )
3245 {
3246 if (isdigit (ch))
3247 {
3248 if (n < 0)
3249 n = ch - '0';
3250 else
3251 n = n * 10 + ch - '0';
3252 }
3253 else if (ch == ';')
3254 {
3255 if (nargs < ESC_ARGS)
3256 arg[nargs++] = n;
3257 n = -1;
3258 }
3259 else if (IS_CONTROL (ch))
3260 process_nonprinting (ch);
3261
3262 ch = cmd_getc ();
3263 }
3264
3265 if (ch > CSI_7F)
3266 return;
3267
3268 if (nargs < ESC_ARGS)
3269 arg[nargs++] = n;
3270
3271 i = ch - CSI_ICH;
3272 ndef = get_byte_array_bit (csi_defaults, i);
3273 for (p = 0; p < nargs; p++)
3274 if (arg[p] == -1)
3275 arg[p] = ndef;
3276
3277 /*
3278 * private mode handling
3279 */
3280 if (priv)
3281 {
3282 switch (priv)
3283 {
3284 case '>':
3285 if (ch == CSI_DA) /* secondary device attributes */
3286 {
3287 // first parameter is normally 0 for vt100, 1 for some newer vtxxx, 'R' for rxvt,
3288 // 'U' for rxvt-unicode != 7.[34] (where it was broken).
3289 //
3290 // second parameter is xterm patch level for xterm, MMmmpp (e.g. 20703) for rxvt
3291 // and Mm (e.g. 72 for 7.2) for urxvt <= 7.2, and 94 for later versions, to signify
3292 // that we do not support xterm mouse reporting (should be 95 when we do).
3293 //
3294 tt_printf ("\033[>%d;94;0c", 'U');
3295 }
3296 break;
3297 case '?':
3298 if (ch == 'h' || ch == 'l' || ch == 'r' || ch == 's' || ch == 't')
3299 process_terminal_mode (ch, priv, nargs, arg);
3300 break;
3301 }
3302 return;
3303 }
3304
3305 switch (ch)
3306 {
3307 /*
3308 * ISO/IEC 6429:1992 (E) CSI sequences (defaults in parentheses)
3309 */
3310 #ifdef PRINTPIPE
3311 case CSI_MC: /* 8.3.83: (0) MEDIA COPY */
3312 switch (arg[0])
3313 {
3314 case 0: /* initiate transfer to primary aux device */
3315 scr_printscreen (0);
3316 break;
3317 case 5: /* start relay to primary aux device */
3318 process_print_pipe ();
3319 break;
3320 }
3321 break;
3322 #endif
3323
3324 case CSI_CUU: /* 8.3.22: (1) CURSOR UP */
3325 case CSI_VPR: /* 8.3.161: (1) LINE POSITION FORWARD */
3326 arg[0] = -arg[0];
3327 /* FALLTHROUGH */
3328 case CSI_CUD: /* 8.3.19: (1) CURSOR DOWN */
3329 case CSI_VPB: /* 8.3.160: (1) LINE POSITION BACKWARD */
3330 scr_gotorc (arg[0], 0, RELATIVE);
3331 break;
3332
3333 case CSI_CUB: /* 8.3.18: (1) CURSOR LEFT */
3334 case CSI_HPB: /* 8.3.59: (1) CHARACTER POSITION BACKWARD */
3335 #ifdef ISO6429
3336 arg[0] = -arg[0];
3337 #else /* emulate common DEC VTs */
3338 arg[0] = arg[0] ? -arg[0] : -1;
3339 #endif
3340 /* FALLTHROUGH */
3341 case CSI_CUF: /* 8.3.20: (1) CURSOR RIGHT */
3342 case CSI_HPR: /* 8.3.60: (1) CHARACTER POSITION FORWARD */
3343 #ifdef ISO6429
3344 scr_gotorc (0, arg[0], RELATIVE);
3345 #else /* emulate common DEC VTs */
3346 scr_gotorc (0, arg[0] ? arg[0] : 1, RELATIVE);
3347 #endif
3348 break;
3349
3350 case CSI_CPL: /* 8.3.13: (1) CURSOR PRECEDING LINE */
3351 arg[0] = -arg[0];
3352 /* FALLTHROUGH */
3353 case CSI_CNL: /* 8.3.12: (1) CURSOR NEXT LINE */
3354 scr_gotorc (arg[0], 0, R_RELATIVE);
3355 break;
3356
3357 case CSI_CHA: /* 8.3.9: (1) CURSOR CHARACTER ABSOLUTE */
3358 case CSI_HPA: /* 8.3.58: (1) CURSOR POSITION ABSOLUTE */
3359 scr_gotorc (0, arg[0] - 1, R_RELATIVE);
3360 break;
3361
3362 case CSI_VPA: /* 8.3.159: (1) LINE POSITION ABSOLUTE */
3363 scr_gotorc (arg[0] - 1, 0, C_RELATIVE);
3364 break;
3365
3366 case CSI_CUP: /* 8.3.21: (1,1) CURSOR POSITION */
3367 case CSI_HVP: /* 8.3.64: (1,1) CHARACTER AND LINE POSITION */
3368 scr_gotorc (arg[0] - 1, nargs < 2 ? 0 : (arg[1] - 1), 0);
3369 break;
3370
3371 case CSI_CBT: /* 8.3.7: (1) CURSOR BACKWARD TABULATION */
3372 arg[0] = -arg[0];
3373 /* FALLTHROUGH */
3374 case CSI_CHT: /* 8.3.10: (1) CURSOR FORWARD TABULATION */
3375 scr_tab (arg[0]);
3376 break;
3377
3378 case CSI_ED: /* 8.3.40: (0) ERASE IN PAGE */
3379 scr_erase_screen (arg[0]);
3380 break;
3381
3382 case CSI_EL: /* 8.3.42: (0) ERASE IN LINE */
3383 scr_erase_line (arg[0]);
3384 break;
3385
3386 case CSI_ICH: /* 8.3.65: (1) INSERT CHARACTER */
3387 scr_insdel_chars (arg[0], INSERT);
3388 break;
3389
3390 case CSI_IL: /* 8.3.68: (1) INSERT LINE */
3391 scr_insdel_lines (arg[0], INSERT);
3392 break;
3393
3394 case CSI_DL: /* 8.3.33: (1) DELETE LINE */
3395 scr_insdel_lines (arg[0], DELETE);
3396 break;
3397
3398 case CSI_ECH: /* 8.3.39: (1) ERASE CHARACTER */
3399 scr_insdel_chars (arg[0], ERASE);
3400 break;
3401
3402 case CSI_DCH: /* 8.3.26: (1) DELETE CHARACTER */
3403 scr_insdel_chars (arg[0], DELETE);
3404 break;
3405
3406 case CSI_SD: /* 8.3.114: (1) SCROLL DOWN */
3407 arg[0] = -arg[0];
3408 /* FALLTHROUGH */
3409 case CSI_SU: /* 8.3.148: (1) SCROLL UP */
3410 scr_scroll_text (screen.tscroll, screen.bscroll, arg[0]);
3411 break;
3412
3413 case CSI_DA: /* 8.3.24: (0) DEVICE ATTRIBUTES */
3414 tt_write (VT100_ANS, sizeof (VT100_ANS) - 1);
3415 break;
3416
3417 case CSI_SGR: /* 8.3.118: (0) SELECT GRAPHIC RENDITION */
3418 process_sgr_mode (nargs, arg);
3419 break;
3420
3421 case CSI_DSR: /* 8.3.36: (0) DEVICE STATUS REPORT */
3422 switch (arg[0])
3423 {
3424 case 5: /* DSR requested */
3425 tt_printf ("\033[0n");
3426 break;
3427 case 6: /* CPR requested */
3428 scr_report_position ();
3429 break;
3430 case 7: /* unofficial extension */
3431 if (OPTION (Opt_insecure))
3432 tt_printf ("%-.250s\012", rs[Rs_display_name]);
3433 break;
3434 case 8: /* unofficial extension */
3435 process_xterm_seq (XTerm_title, RESNAME "-" VERSION, CHAR_ST);
3436 break;
3437 }
3438 break;
3439
3440 case CSI_TBC: /* 8.3.155: (0) TABULATION CLEAR */
3441 switch (arg[0])
3442 {
3443 case 0: /* char tab stop cleared at active position */
3444 scr_set_tab (0);
3445 break;
3446 /* case 1: */ /* line tab stop cleared in active line */
3447 /* case 2: */ /* char tab stops cleared in active line */
3448 case 3: /* all char tab stops are cleared */
3449 /* case 4: */ /* all line tab stops are cleared */
3450 case 5: /* all tab stops are cleared */
3451 scr_set_tab (-1);
3452 break;
3453 }
3454 break;
3455
3456 case CSI_CTC: /* 8.3.17: (0) CURSOR TABULATION CONTROL */
3457 switch (arg[0])
3458 {
3459 case 0: /* char tab stop set at active position */
3460 scr_set_tab (1);
3461 break; /* = ESC H */
3462 /* case 1: */ /* line tab stop set at active line */
3463 case 2: /* char tab stop cleared at active position */
3464 scr_set_tab (0);
3465 break; /* = ESC [ 0 g */
3466 /* case 3: */ /* line tab stop cleared at active line */
3467 /* case 4: */ /* char tab stops cleared at active line */
3468 case 5: /* all char tab stops are cleared */
3469 scr_set_tab (-1);
3470 break; /* = ESC [ 3 g */
3471 /* case 6: */ /* all line tab stops are cleared */
3472 }
3473 break;
3474
3475 case CSI_RM: /* 8.3.107: RESET MODE */
3476 if (arg[0] == 4)
3477 scr_insert_mode (0);
3478 else if (arg[0] == 20)
3479 priv_modes &= ~PrivMode_LFNL;
3480 break;
3481
3482 case CSI_SM: /* 8.3.126: SET MODE */
3483 if (arg[0] == 4)
3484 scr_insert_mode (1);
3485 else if (arg[0] == 20)
3486 priv_modes |= PrivMode_LFNL;
3487 break;
3488
3489 /*
3490 * PRIVATE USE beyond this point. All CSI_7? sequences here
3491 */
3492 case CSI_72: /* DECSTBM: set top and bottom margins */
3493 if (nargs == 1)
3494 scr_scroll_region (arg[0] - 1, MAX_ROWS - 1);
3495 else if (nargs == 0 || arg[0] >= arg[1])
3496 scr_scroll_region (0, MAX_ROWS - 1);
3497 else
3498 scr_scroll_region (arg[0] - 1, arg[1] - 1);
3499 break;
3500
3501 case CSI_73:
3502 scr_cursor (SAVE);
3503 break;
3504 case CSI_75:
3505 scr_cursor (RESTORE);
3506 break;
3507
3508 #if !ENABLE_MINIMAL
3509 case CSI_74:
3510 process_window_ops (arg, nargs);
3511 break;
3512 #endif
3513
3514 case CSI_78: /* DECREQTPARM */
3515 if (arg[0] == 0 || arg[0] == 1)
3516 tt_printf ("\033[%d;1;1;128;128;1;0x", arg[0] + 2);
3517 break;
3518
3519 default:
3520 break;
3521 }
3522 }
3523 /*}}} */
3524
3525 #if !ENABLE_MINIMAL
3526 /* ARGSUSED */
3527 void
3528 rxvt_term::process_window_ops (const int *args, unsigned int nargs)
3529 {
3530 int x, y;
3531 XWindowAttributes wattr;
3532 Window wdummy;
3533
3534 dLocal (Display *, xdisp);
3535
3536 if (nargs == 0)
3537 return;
3538
3539 switch (args[0])
3540 {
3541 /*
3542 * commands
3543 */
3544 case 1: /* deiconify window */
3545 XMapWindow (xdisp, parent[0]);
3546 break;
3547 case 2: /* iconify window */
3548 XIconifyWindow (xdisp, parent[0], display->screen);
3549 break;
3550 case 3: /* set position (pixels) */
3551 XMoveWindow (xdisp, parent[0], args[1], args[2]);
3552 break;
3553 case 4: /* set size (pixels) */
3554 set_widthheight ((unsigned int)args[2], (unsigned int)args[1]);
3555 break;
3556 case 5: /* raise window */
3557 XRaiseWindow (xdisp, parent[0]);
3558 break;
3559 case 6: /* lower window */
3560 XLowerWindow (xdisp, parent[0]);
3561 break;
3562 case 7: /* refresh window */
3563 scr_touch (true);
3564 break;
3565 case 8: /* set size (chars) */
3566 set_widthheight ((unsigned int) (args[2] * fwidth),
3567 (unsigned int) (args[1] * fheight));
3568 break;
3569
3570 //case 9: NYI, TODO, restore maximized window or maximize window
3571 default:
3572 if (args[0] >= 24) /* set height (chars) */
3573 set_widthheight ((unsigned int)width,
3574 (unsigned int) (args[1] * fheight));
3575 break;
3576
3577
3578 /*
3579 * reports - some output format copied from XTerm
3580 */
3581 case 11: /* report window state */
3582 XGetWindowAttributes (xdisp, parent[0], &wattr);
3583 tt_printf ("\033[%dt", wattr.map_state == IsViewable ? 1 : 2);
3584 break;
3585 case 13: /* report window position */
3586 XGetWindowAttributes (xdisp, parent[0], &wattr);
3587 XTranslateCoordinates (xdisp, parent[0], wattr.root,
3588 -wattr.border_width, -wattr.border_width,
3589 &x, &y, &wdummy);
3590 tt_printf ("\033[3;%d;%dt", x, y);
3591 break;
3592 case 14: /* report window size (pixels) */
3593 XGetWindowAttributes (xdisp, parent[0], &wattr);
3594 tt_printf ("\033[4;%d;%dt", wattr.height, wattr.width);
3595 break;
3596 case 18: /* report text area size (chars) */
3597 tt_printf ("\033[8;%d;%dt", nrow, ncol);
3598 break;
3599 case 19: /* report window size (chars) */
3600 tt_printf ("\033[9;%d;%dt", nrow, ncol);
3601 break;
3602 case 20: /* report icon label */
3603 {
3604 char *s;
3605 XGetIconName (xdisp, parent[0], &s);
3606 tt_printf ("\033]L%-.250s\234", OPTION (Opt_insecure) && s ? s : ""); /* 8bit ST */
3607 XFree (s);
3608 }
3609 break;
3610 case 21: /* report window title */
3611 {
3612 char *s;
3613 XFetchName (xdisp, parent[0], &s);
3614 tt_printf ("\033]l%-.250s\234", OPTION (Opt_insecure) && s ? s : ""); /* 8bit ST */
3615 XFree (s);
3616 }
3617 break;
3618 }
3619 }
3620 #endif
3621
3622 /*----------------------------------------------------------------------*/
3623 /*
3624 * get input up until STRING TERMINATOR (or BEL)
3625 * ends_how is terminator used. returned input must be free()'d
3626 */
3627 char *
3628 rxvt_term::get_to_st (unicode_t &ends_how)
3629 {
3630 unicode_t ch;
3631 bool seen_esc = false;
3632 unsigned int n = 0;
3633 wchar_t string[STRING_MAX];
3634
3635 while ((ch = cmd_getc ()) != NOCHAR)
3636 {
3637 if (seen_esc)
3638 {
3639 if (ch == 0x5c) /* 7bit ST */
3640 break;
3641 else
3642 return NULL;
3643 }
3644 else if (ch == C0_ESC)
3645 {
3646 seen_esc = true;
3647 continue;
3648 }
3649 else if (ch == C0_BEL || ch == CHAR_ST)
3650 break;
3651 else if (ch < 0x20)
3652 return NULL; /* other control character - exit */
3653
3654 seen_esc = false;
3655
3656 if (n >= STRING_MAX - 1)
3657 // stop at some sane length
3658 return NULL;
3659
3660 if (ch == C0_SYN)
3661 string[n++] = cmd_get8 ();
3662 else
3663 string[n++] = ch;
3664 }
3665
3666 string[n++] = '\0';
3667
3668 ends_how = (ch == 0x5c ? C0_ESC : ch);
3669
3670 return rxvt_wcstombs (string);
3671 }
3672
3673 /*----------------------------------------------------------------------*/
3674 /*
3675 * process DEVICE CONTROL STRING `ESC P ... (ST|BEL)' or `0x90 ... (ST|BEL)'
3676 */
3677 void
3678 rxvt_term::process_dcs_seq ()
3679 {
3680 char *s;
3681 unicode_t eh;
3682
3683 /*
3684 * Not handled yet
3685 */
3686 s = get_to_st (eh);
3687 if (s)
3688 free (s);
3689
3690 return;
3691 }
3692
3693 /*----------------------------------------------------------------------*/
3694 /*
3695 * process OPERATING SYSTEM COMMAND sequence `ESC ] Ps ; Pt (ST|BEL)'
3696 */
3697 void
3698 rxvt_term::process_osc_seq ()
3699 {
3700 unicode_t ch, eh;
3701 int arg;
3702
3703 ch = cmd_getc ();
3704 for (arg = 0; isdigit (ch); ch = cmd_getc ())
3705 arg = arg * 10 + (ch - '0');
3706
3707 if (ch == ';')
3708 {
3709 char *s = get_to_st (eh);
3710
3711 if (s)
3712 {
3713 process_xterm_seq (arg, s, eh);
3714 free (s);
3715 }
3716 }
3717 }
3718
3719 void
3720 rxvt_term::process_color_seq (int report, int color, const char *str, char resp)
3721 {
3722 if (str[0] == '?' && !str[1])
3723 {
3724 rgba c;
3725 pix_colors_focused[color].get (this, c);
3726
3727 #if XFT
3728 if (c.a != rgba::MAX_CC)
3729 tt_printf ("\033]%d;rgba:%04x/%04x/%04x/%04x%c", report, c.a, c.r, c.g, c.b, resp);
3730 else
3731 #endif
3732 tt_printf ("\033]%d;rgb:%04x/%04x/%04x%c", report, c.r, c.g, c.b, resp);
3733 }
3734 else
3735 set_window_color (color, str);
3736 }
3737
3738 /*
3739 * XTerm escape sequences: ESC ] Ps;Pt (ST|BEL)
3740 */
3741 void
3742 rxvt_term::process_xterm_seq (int op, const char *str, char resp)
3743 {
3744 int color;
3745 char *buf, *name;
3746 bool query = str[0] == '?' && !str[1];
3747 int saveop = op;
3748
3749 dLocal (Display *, xdisp);
3750
3751 assert (str != NULL);
3752 switch (op)
3753 {
3754 case XTerm_name:
3755 set_title (str);
3756 /* FALLTHROUGH */
3757 case XTerm_iconName:
3758 set_icon_name (str);
3759 break;
3760 case XTerm_title:
3761 set_title (str);
3762 break;
3763 case XTerm_property:
3764 if (str[0] == '?')
3765 {
3766 Atom prop = display->atom (str + 1);
3767 Atom actual_type;
3768 int actual_format;
3769 unsigned long nitems;
3770 unsigned long bytes_after;
3771 unsigned char *value = 0;
3772 const char *str = "";
3773
3774 if (prop
3775 && XGetWindowProperty (xdisp, parent[0],
3776 prop, 0, 1<<16, 0, AnyPropertyType,
3777 &actual_type, &actual_format,
3778 &nitems, &bytes_after, &value) == Success
3779 && actual_type != None
3780 && actual_format == 8)
3781 str = (const char *)(value);
3782
3783 tt_printf ("\033]%d;%s%c", op, str, resp);
3784
3785 XFree (value);
3786 }
3787 else
3788 {
3789 char *eq = strchr (str, '='); // constness lost, but verified to be ok
3790
3791 if (eq)
3792 {
3793 *eq = 0;
3794 set_utf8_property (display->atom (str), eq + 1);
3795 }
3796 else
3797 XDeleteProperty (xdisp, parent[0],
3798 display->atom (str));
3799 }
3800 break;
3801
3802 case XTerm_Color:
3803 for (buf = (char *)str; buf && *buf;)
3804 {
3805 if ((name = strchr (buf, ';')) == NULL)
3806 break;
3807
3808 *name++ = '\0';
3809 color = atoi (buf) + minCOLOR;
3810
3811 if (!IN_RANGE_INC (color, minCOLOR, maxTermCOLOR))
3812 break;
3813
3814 if ((buf = strchr (name, ';')) != NULL)
3815 *buf++ = '\0';
3816
3817 process_color_seq (op, color, name, resp);
3818 }
3819 break;
3820 case XTerm_Color00:
3821 process_color_seq (op, Color_fg, str, resp);
3822 break;
3823 case XTerm_Color01:
3824 process_color_seq (op, Color_bg, str, resp);
3825 break;
3826 #ifndef NO_CURSORCOLOR
3827 case XTerm_Color_cursor:
3828 process_color_seq (op, Color_cursor, str, resp);
3829 break;
3830 #endif
3831 case XTerm_Color_pointer_fg:
3832 process_color_seq (op, Color_pointer_fg, str, resp);
3833 break;
3834 case XTerm_Color_pointer_bg:
3835 process_color_seq (op, Color_pointer_bg, str, resp);
3836 break;
3837 #ifndef NO_BOLD_UNDERLINE_REVERSE
3838 case XTerm_Color_RV:
3839 process_color_seq (op, Color_RV, str, resp);
3840 break;
3841 case Rxvt_Color_BD:
3842 case URxvt_Color_BD:
3843 process_color_seq (op, Color_BD, str, resp);
3844 break;
3845 case Rxvt_Color_UL:
3846 case URxvt_Color_UL:
3847 process_color_seq (op, Color_UL, str, resp);
3848 break;
3849 case URxvt_Color_IT:
3850 process_color_seq (op, Color_IT, str, resp);
3851 break;
3852 #endif
3853 #if TRANSPARENT && TINTING
3854 case URxvt_Color_tint:
3855 process_color_seq (op, Color_tint, str, resp);
3856
3857 check_our_parents ();
3858
3859 if (am_transparent)
3860 want_full_refresh = want_refresh = 1;
3861
3862 break;
3863 #endif
3864
3865 case Rxvt_Pixmap:
3866 {
3867 if (*str != ';')
3868 {
3869 #if XPM_BACKGROUND
3870 scale_pixmap (""); /* reset to default scaling */
3871 set_bgPixmap (str); /* change pixmap */
3872 scr_touch (true);
3873 #endif
3874 }
3875
3876 int changed = 0;
3877
3878 while ((str = strchr (str, ';')) != NULL)
3879 {
3880 str++;
3881 #if XPM_BACKGROUND
3882 changed += scale_pixmap (str);
3883 #endif
3884 }
3885
3886 if (changed)
3887 {
3888 #ifdef XPM_BACKGROUND
3889 resize_pixmap ();
3890 scr_touch (true);
3891 #endif
3892 }
3893 }
3894 break;
3895
3896 case Rxvt_restoreFG:
3897 set_window_color (Color_fg, str);
3898 break;
3899 case Rxvt_restoreBG:
3900 set_window_color (Color_bg, str);
3901 break;
3902
3903 case XTerm_logfile:
3904 // TODO, when secure mode?
3905 break;
3906
3907 #if 0
3908 case Rxvt_dumpscreen: /* no error notices */
3909 {
3910 int fd;
3911 if ((fd = open (str, O_RDWR | O_CREAT | O_EXCL, 0600)) >= 0)
3912 {
3913 scr_dump (fd);
3914 close (fd);
3915 }
3916 }
3917 break;
3918 #endif
3919 case XTerm_font:
3920 op = URxvt_font;
3921 case URxvt_font:
3922 #if ENABLE_STYLES
3923 case URxvt_boldFont:
3924 case URxvt_italicFont:
3925 case URxvt_boldItalicFont:
3926 #endif
3927 if (query)
3928 tt_printf ("\33]%d;%-.250s%c", saveop,
3929 OPTION (Opt_insecure) && fontset[op - URxvt_font]->fontdesc
3930 ? fontset[op - URxvt_font]->fontdesc : "",
3931 resp);
3932 else
3933 {
3934 const char *&res = rs[Rs_font + (op - URxvt_font)];
3935
3936 res = strdup (str);
3937 allocated.push_back ((void *)res);
3938 set_fonts ();
3939 }
3940 break;
3941
3942 case URxvt_version:
3943 if (query)
3944 tt_printf ("\33]%d;rxvt-unicode;%-.20s;%c;%c%c",
3945 op,
3946 rs[Rs_name], VERSION[0], VERSION[2],
3947 resp);
3948 break;
3949
3950 #if !ENABLE_MINIMAL
3951 case URxvt_locale:
3952 if (query)
3953 tt_printf ("\33]%d;%-.250s%c", op, OPTION (Opt_insecure) ? locale : "", resp);
3954 else
3955 {
3956 set_locale (str);
3957 pty->set_utf8_mode (enc_utf8);
3958 init_xlocale ();
3959 }
3960 break;
3961
3962 case URxvt_view_up:
3963 case URxvt_view_down:
3964 {
3965 int lines = atoi (str);
3966
3967 if (lines)
3968 scr_page (op == URxvt_view_up ? UP : DN, lines);
3969 else
3970 scr_erase_savelines ();
3971 }
3972
3973 break;
3974 #endif
3975
3976 #if ENABLE_PERL
3977 case URxvt_perl:
3978 if (HOOK_INVOKE ((this, HOOK_OSC_SEQ, DT_STR, str, DT_END)))
3979 ; // no responses yet
3980 break;
3981 #endif
3982 }
3983 }
3984 /*----------------------------------------------------------------------*/
3985
3986 /*{{{ process DEC private mode sequences `ESC [ ? Ps mode' */
3987 /*
3988 * mode can only have the following values:
3989 * 'l' = low
3990 * 'h' = high
3991 * 's' = save
3992 * 'r' = restore
3993 * 't' = toggle
3994 * so no need for fancy checking
3995 */
3996 int
3997 rxvt_term::privcases (int mode, unsigned long bit)
3998 {
3999 int state;
4000
4001 if (mode == 's')
4002 {
4003 SavedModes |= (priv_modes & bit);
4004 return -1;
4005 }
4006 else
4007 {
4008 if (mode == 'r')
4009 state = (SavedModes & bit) ? 1 : 0; /* no overlapping */
4010 else
4011 state = (mode == 't') ? ! (priv_modes & bit) : mode;
4012 PrivMode (state, bit);
4013 }
4014
4015 return state;
4016 }
4017
4018 /* we're not using priv _yet_ */
4019 void
4020 rxvt_term::process_terminal_mode (int mode, int priv UNUSED, unsigned int nargs, const int *arg)
4021 {
4022 unsigned int i, j;
4023 int state;
4024
4025 static const struct
4026 {
4027 const int argval;
4028 const unsigned long bit;
4029 }
4030
4031 argtopriv[] = {
4032 { 1, PrivMode_aplCUR },
4033 { 2, PrivMode_vt52 },
4034 { 3, PrivMode_132 },
4035 { 4, PrivMode_smoothScroll },
4036 { 5, PrivMode_rVideo },
4037 { 6, PrivMode_relOrigin },
4038 { 7, PrivMode_Autowrap },
4039 // 8, bi-directional support mode
4040 { 9, PrivMode_MouseX10 },
4041 // 18, 19 printing-related
4042 { 25, PrivMode_VisibleCursor },
4043 #ifdef scrollBar_esc
4044 { scrollBar_esc, PrivMode_scrollBar },
4045 #endif
4046 { 35, PrivMode_ShiftKeys }, // rxvt extension
4047 { 40, PrivMode_132OK },
4048 // 41 xterm more fixes NYI
4049 // 45 margin bell NYI
4050 // 46 start logging
4051 { 47, PrivMode_Screen },
4052 { 66, PrivMode_aplKP },
4053 #ifndef NO_BACKSPACE_KEY
4054 { 67, PrivMode_BackSpace },
4055 #endif
4056 { 1000, PrivMode_MouseX11 },
4057 // 1001 Use Hilite Mouse Tracking. NYI, TODO
4058 // 1002 Use Cell Motion Mouse Tracking. NYI, TODO
4059 // 1003 Use All Motion Mouse Tracking. NYI, TODO
4060 { 1010, PrivMode_TtyOutputInh }, // rxvt extension
4061 { 1011, PrivMode_Keypress }, // rxvt extension
4062 // 1035 enable modifiers for alt, numlock NYI
4063 // 1036 send ESC for meta keys NYI
4064 // 1037 send DEL for keypad delete NYI
4065 { 1047, PrivMode_Screen },
4066 // 1048 save and restore cursor
4067 { 1049, PrivMode_Screen }, /* xterm extension, clear screen on ti rather than te */
4068 // 1051, 1052, 1060, 1061 keyboard emulation NYI
4069 };
4070
4071 if (nargs == 0)
4072 return;
4073
4074 /* make lo/hi boolean */
4075 if (mode == 'l')
4076 mode = 0; /* reset */
4077 else if (mode == 'h')
4078 mode = 1; /* set */
4079
4080 for (i = 0; i < nargs; i++)
4081 {
4082 state = -1;
4083
4084 /* basic handling */
4085 for (j = 0; j < (sizeof (argtopriv)/sizeof (argtopriv[0])); j++)
4086 if (argtopriv[j].argval == arg[i])
4087 {
4088 state = privcases (mode, argtopriv[j].bit);
4089 break;
4090 }
4091
4092 /* extra handling for values with state unkept */
4093 switch (arg[i])
4094 {
4095 #if ENABLE_STYLES
4096 case 1021:
4097 set_option (Opt_intensityStyles, mode);
4098
4099 scr_touch (true);
4100 break;
4101 #endif
4102 case 1048: /* alternative cursor save */
4103 case 1049:
4104 if (OPTION (Opt_secondaryScreen))
4105 if (mode == 0)
4106 scr_cursor (RESTORE);
4107 else if (mode == 1)
4108 scr_cursor (SAVE);
4109 break;
4110 }
4111
4112 if (state >= 0)
4113 /* extra handling for values with valid 0 or 1 state */
4114 switch (arg[i])
4115 {
4116 /* case 1: - application cursor keys */
4117 case 2: /* VT52 mode */
4118 /* oddball mode. should be set regardless of set/reset
4119 * parameter. Return from VT52 mode with an ESC < from
4120 * within VT52 mode
4121 */
4122 PrivMode (1, PrivMode_vt52);
4123 break;
4124 case 3: /* 80/132 */
4125 if (priv_modes & PrivMode_132OK)
4126 set_widthheight (((state ? 132 : 80) * fwidth), height);
4127 break;
4128 case 4: /* smooth scrolling */
4129 set_option (Opt_jumpScroll, !state);
4130 break;
4131 case 5: /* reverse video */
4132 scr_rvideo_mode (state);
4133 break;
4134 case 6: /* relative/absolute origins */
4135 scr_relative_origin (state);
4136 break;
4137 case 7: /* autowrap */
4138 scr_autowrap (state);
4139 break;
4140 /* case 8: - auto repeat, can't do on a per window basis */
4141 case 9: /* X10 mouse reporting */
4142 if (state) /* orthogonal */
4143 priv_modes &= ~PrivMode_MouseX11;
4144 break;
4145 #ifdef scrollBar_esc
4146 case scrollBar_esc:
4147 if (scrollbar_mapping (state))
4148 {
4149 resize_all_windows (0, 0, 0);
4150 scr_touch (true);
4151 }
4152 break;
4153 #endif
4154 case 25: /* visible/invisible cursor */
4155 scr_cursor_visible (state);
4156 break;
4157 /* case 35: - shift keys */
4158 /* case 40: - 80 <--> 132 mode */
4159 case 47: /* secondary screen */
4160 scr_change_screen (state);
4161 break;
4162 /* case 66: - application key pad */
4163 /* case 67: - backspace key */
4164 case 1000: /* X11 mouse reporting */
4165 if (state) /* orthogonal */
4166 priv_modes &= ~PrivMode_MouseX10;
4167 break;
4168 #if 0
4169 case 1001:
4170 break; /* X11 mouse highlighting */
4171 #endif
4172 case 1010: /* scroll to bottom on TTY output inhibit */
4173 set_option (Opt_scrollTtyOutput, !state);
4174 break;
4175 case 1011: /* scroll to bottom on key press */
4176 set_option (Opt_scrollTtyKeypress, state);
4177 break;
4178 case 1047: /* secondary screen w/ clearing last */
4179 if (OPTION (Opt_secondaryScreen))
4180 if (current_screen != PRIMARY)
4181 scr_erase_screen (2);
4182 scr_change_screen (state);
4183 break;
4184 case 1049: /* secondary screen w/ clearing first */
4185 scr_change_screen (state);
4186 if (OPTION (Opt_secondaryScreen))
4187 if (current_screen != PRIMARY)
4188 scr_erase_screen (2);
4189 break;
4190 default:
4191 break;
4192 }
4193 }
4194 }
4195 /*}}} */
4196
4197 /*{{{ process sgr sequences */
4198 void
4199 rxvt_term::process_sgr_mode (unsigned int nargs, const int *arg)
4200 {
4201 unsigned int i;
4202 short rendset;
4203 int rendstyle;
4204
4205 if (nargs == 0)
4206 {
4207 scr_rendition (0, ~RS_None);
4208 return;
4209 }
4210
4211 for (i = 0; i < nargs; i++)
4212 {
4213 rendset = -1;
4214 switch (arg[i])
4215 {
4216 case 0:
4217 rendset = 0, rendstyle = ~RS_None;
4218 break;
4219 case 1:
4220 rendset = 1, rendstyle = RS_Bold;
4221 break;
4222 //case 2: // low intensity
4223 case 3:
4224 rendset = 1, rendstyle = RS_Italic;
4225 break;
4226 case 4:
4227 rendset = 1, rendstyle = RS_Uline;
4228 break;
4229 case 5: // slowly blinking
4230 case 6: // rapidly blinking
4231 rendset = 1, rendstyle = RS_Blink;
4232 break;
4233 //case 6: // scoansi light background
4234 case 7:
4235 rendset = 1, rendstyle = RS_RVid;
4236 break;
4237 case 8:
4238 // invisible. NYI
4239 break;
4240 //case 9: // crossed out
4241 //case 10: // scoansi acs off, primary font
4242 //case 11: // scoansi acs on, first alt font
4243 //case 12: // scoansi acs on, |0x80, second alt font
4244 //...
4245 //case 19: // ninth alt font
4246 //case 20: // gothic
4247 case 21: // disable bold, faint, sometimes doubly underlined (iso 8613)
4248 rendset = 0, rendstyle = RS_Bold;
4249 break;
4250 case 22: // normal intensity
4251 rendset = 0, rendstyle = RS_Bold;
4252 break;
4253 case 23: // disable italic
4254 rendset = 0, rendstyle = RS_Italic;
4255 break;
4256 case 24:
4257 rendset = 0, rendstyle = RS_Uline;
4258 break;
4259 case 25:
4260 rendset = 0, rendstyle = RS_Blink;
4261 break;
4262 case 26: // variable spacing (iso 8613)
4263 rendset = 0, rendstyle = RS_Blink;
4264 break;
4265 case 27:
4266 rendset = 0, rendstyle = RS_RVid;
4267 break;
4268 //case 28: // visible. NYI
4269 //case 29: // not crossed-out
4270 }
4271
4272 if (rendset != -1)
4273 {
4274 scr_rendition (rendset, rendstyle);
4275 continue; /* for (;i;) */
4276 }
4277
4278 switch (arg[i])
4279 {
4280 case 30:
4281 case 31: /* set fg color */
4282 case 32:
4283 case 33:
4284 case 34:
4285 case 35:
4286 case 36:
4287 case 37:
4288 scr_color ((unsigned int) (minCOLOR + (arg[i] - 30)), Color_fg);
4289 break;
4290 case 38: // set fg color, ISO 8613-6
4291 if (nargs > i + 2 && arg[i + 1] == 5)
4292 {
4293 scr_color ((unsigned int) (minCOLOR + arg[i + 2]), Color_fg);
4294 i += 2;
4295 }
4296 break;
4297 case 39: /* default fg */
4298 scr_color (Color_fg, Color_fg);
4299 break;
4300
4301 case 40:
4302 case 41: /* set bg color */
4303 case 42:
4304 case 43:
4305 case 44:
4306 case 45:
4307 case 46:
4308 case 47:
4309 scr_color ((unsigned int) (minCOLOR + (arg[i] - 40)), Color_bg);
4310 break;
4311 case 48: // set bg color, ISO 8613-6
4312 if (nargs > i + 2 && arg[i + 1] == 5)
4313 {
4314 scr_color ((unsigned int) (minCOLOR + arg[i + 2]), Color_bg);
4315 i += 2;
4316 }
4317 break;
4318 case 49: /* default bg */
4319 scr_color (Color_bg, Color_bg);
4320 break;
4321
4322 //case 50: // not variable spacing
4323
4324 #if !ENABLE_MINIMAL
4325 case 90:
4326 case 91: /* set bright fg color */
4327 case 92:
4328 case 93:
4329 case 94:
4330 case 95:
4331 case 96:
4332 case 97:
4333 scr_color ((unsigned int) (minBrightCOLOR + (arg[i] - 90)), Color_fg);
4334 break;
4335 case 100:
4336 case 101: /* set bright bg color */
4337 case 102:
4338 case 103:
4339 case 104:
4340 case 105:
4341 case 106:
4342 case 107:
4343 scr_color ((unsigned int) (minBrightCOLOR + (arg[i] - 100)), Color_bg);
4344 break;
4345 #endif
4346 }
4347 }
4348 }
4349 /*}}} */
4350
4351 /*{{{ (do not) process Rob Nation's own graphics mode sequences */
4352 void
4353 rxvt_term::process_graphics ()
4354 {
4355 unicode_t ch, cmd = cmd_getc ();
4356
4357 if (cmd == 'Q')
4358 { /* query graphics */
4359 tt_printf ("\033G0\012"); /* no graphics */
4360 return;
4361 }
4362 /* swallow other graphics sequences until terminating ':' */
4363 do
4364 ch = cmd_getc ();
4365 while (ch != ':');
4366 }
4367 /*}}} */
4368
4369 /* ------------------------------------------------------------------------- */
4370
4371 /*
4372 * Send printf () formatted output to the command.
4373 * Only use for small amounts of data.
4374 */
4375 void
4376 rxvt_term::tt_printf (const char *fmt,...)
4377 {
4378 va_list arg_ptr;
4379 char buf[256];
4380
4381 va_start (arg_ptr, fmt);
4382 vsnprintf ((char *)buf, 256, fmt, arg_ptr);
4383 va_end (arg_ptr);
4384 tt_write (buf, strlen (buf));
4385 }
4386
4387 /* ---------------------------------------------------------------------- */
4388 /* Write data to the pty as typed by the user, pasted with the mouse,
4389 * or generated by us in response to a query ESC sequence.
4390 */
4391 const unsigned int MAX_PTY_WRITE = 255; // minimum MAX_INPUT
4392
4393 void
4394 rxvt_term::tt_write (const char *data, unsigned int len)
4395 {
4396 if (HOOK_INVOKE ((this, HOOK_TT_WRITE, DT_STR_LEN, data, len, DT_END)))
4397 return;
4398
4399 if (pty->pty < 0)
4400 return;
4401
4402 if (v_buflen == 0)
4403 {
4404 ssize_t written = write (pty->pty, data, min (len, MAX_PTY_WRITE));
4405
4406 if ((unsigned int)written == len)
4407 return;
4408
4409 data += written;
4410 len -= written;
4411 }
4412
4413 v_buffer = (char *)realloc (v_buffer, v_buflen + len);
4414
4415 memcpy (v_buffer + v_buflen, data, len);
4416 v_buflen += len;
4417
4418 pty_ev.set (EVENT_READ | EVENT_WRITE);
4419 }
4420
4421 void rxvt_term::pty_write ()
4422 {
4423 int written = write (pty->pty, v_buffer, min (v_buflen, MAX_PTY_WRITE));
4424
4425 if (written > 0)
4426 {
4427 v_buflen -= written;
4428
4429 if (v_buflen == 0)
4430 {
4431 free (v_buffer);
4432 v_buffer = 0;
4433 v_buflen = 0;
4434
4435 pty_ev.set (EVENT_READ);
4436 return;
4437 }
4438
4439 memmove (v_buffer, v_buffer + written, v_buflen);
4440 }
4441 else if (written != -1 || (errno != EAGAIN && errno != EINTR))
4442 pty_ev.set (EVENT_READ);
4443 }
4444
4445 /*----------------------- end-of-file (C source) -----------------------*/
4446