ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/command.C
Revision: 1.564
Committed: Fri Mar 27 15:06:09 2015 UTC (9 years, 1 month ago) by sf-exg
Content type: text/plain
Branch: MAIN
Changes since 1.563: +3 -0 lines
Log Message:
Do not start blinking cursor if the window is unfocused.

File Contents

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