ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/rxvtperl.xs
Revision: 1.229
Committed: Mon Oct 13 17:05:32 2014 UTC (9 years, 8 months ago) by sf-exg
Branch: MAIN
Changes since 1.228: +7 -0 lines
Log Message:
Restore keysym-list extension.

File Contents

# User Rev Content
1 root 1.1 /*----------------------------------------------------------------------*
2     * File: rxvtperl.xs
3     *----------------------------------------------------------------------*
4     *
5     * All portions of code are copyright by their respective author/s.
6 root 1.224 * Copyright (c) 2005-2014,2011 Marc Lehmann <schmorp@schmorp.de>
7 root 1.1 *
8     * This program is free software; you can redistribute it and/or modify
9     * it under the terms of the GNU General Public License as published by
10 root 1.224 * the Free Software Foundation; either version 3 of the License, or
11 root 1.1 * (at your option) any later version.
12     *
13     * This program is distributed in the hope that it will be useful,
14     * but WITHOUT ANY WARRANTY; without even the implied warranty of
15     * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16     * GNU General Public License for more details.
17     *
18     * You should have received a copy of the GNU General Public License
19     * along with this program; if not, write to the Free Software
20     * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
21     *----------------------------------------------------------------------*/
22    
23     #define line_t perl_line_t
24     #include <EXTERN.h>
25     #include <perl.h>
26     #include <XSUB.h>
27     #undef line_t
28 root 1.151 #undef bool // perl defines it's own bool type, except with g++... what a trap
29 root 1.1
30     #include "../config.h"
31    
32 sf-exg 1.152 #include <stddef.h>
33     #include <stdarg.h>
34 root 1.1
35 root 1.59 #include "unistd.h"
36    
37 root 1.116 #include "ev_cpp.h"
38 root 1.1 #include "rxvt.h"
39 root 1.50 #include "keyboard.h"
40 root 1.1 #include "rxvtutil.h"
41     #include "rxvtperl.h"
42    
43     #include "perlxsi.c"
44    
45 ayin 1.121 #define GRAB_CURSOR THIS->scrollBar.leftptr_cursor
46 root 1.41
47 root 1.8 #undef LINENO
48     #define LINENO(n) MOD (THIS->term_start + int(n), THIS->total_rows)
49     #undef ROW
50     #define ROW(n) THIS->row_buf [LINENO (n)]
51    
52 root 1.1 /////////////////////////////////////////////////////////////////////////////
53    
54 root 1.155 typedef char * octet_string;
55     typedef char * utf8_string;
56    
57 root 1.167 typedef int render_repeat_mode;
58    
59 sf-exg 1.188 #if HAVE_PIXBUF
60 root 1.155 typedef GdkPixbuf * urxvt__pixbuf;
61 sf-exg 1.188 #endif
62 sf-exg 1.207 #if HAVE_IMG
63 root 1.155 typedef rxvt_img * urxvt__img;
64 root 1.197 typedef rxvt_img::nv rxvt_img__nv;
65 root 1.155
66     /////////////////////////////////////////////////////////////////////////////
67    
68 root 1.194 static rgba
69     parse_rgba (SV *sv, rxvt_screen *s = 0)
70 root 1.156 {
71 root 1.194 rgba c;
72    
73 root 1.198 if (SvROK (sv))
74 root 1.194 {
75 root 1.198 AV *av = (AV *)SvRV (sv);
76    
77 root 1.194 if (SvTYPE ((SV *)av) != SVt_PVAV)
78     croak ("colour must be either a colour string, or an array,");
79    
80     int len = av_len (av) + 1;
81    
82     if (len != 1 && len != 3 && len != 4)
83     croak ("component colour array must have 1, 3 or 4 components,");
84    
85     c.a = rgba::MAX_CC;
86    
87     c.r = c.g = c.b = float_to_component (SvIV (*av_fetch (av, 0, 0)));
88    
89     if (len >= 3)
90     {
91     c.g = float_to_component (SvIV (*av_fetch (av, 1, 0)));
92     c.b = float_to_component (SvIV (*av_fetch (av, 2, 0)));
93    
94     if (len >= 4)
95     c.a = float_to_component (SvIV (*av_fetch (av, 3, 0)));
96     }
97     }
98     else if (s)
99     {
100     rxvt_color rc;
101     rc.set (s, SvPVbyte_nolen (sv));
102     rc.get (c);
103     }
104 root 1.195 else
105     croak ("unable to parse colour,");
106 root 1.194
107     return c;
108 root 1.156 }
109    
110     /////////////////////////////////////////////////////////////////////////////
111 sf-exg 1.207 #endif
112 root 1.156
113 root 1.1 static wchar_t *
114     sv2wcs (SV *sv)
115     {
116     STRLEN len;
117     char *str = SvPVutf8 (sv, len);
118     return rxvt_utf8towcs (str, len);
119     }
120    
121     static SV *
122 root 1.25 wcs2sv (wchar_t *wstr, int len = -1)
123     {
124     char *str = rxvt_wcstoutf8 (wstr, len);
125    
126     SV *sv = newSVpv (str, 0);
127     SvUTF8_on (sv);
128     free (str);
129    
130     return sv;
131     }
132    
133     static SV *
134 root 1.1 newSVptr (void *ptr, const char *klass)
135     {
136     HV *hv = newHV ();
137 root 1.18 sv_magic ((SV *)hv, 0, PERL_MAGIC_ext, (char *)ptr, 0);
138 root 1.1 return sv_bless (newRV_noinc ((SV *)hv), gv_stashpv (klass, 1));
139     }
140    
141 root 1.18 static void
142     clearSVptr (SV *sv)
143     {
144     if (SvROK (sv))
145     sv = SvRV (sv);
146    
147     hv_clear ((HV *)sv);
148     sv_unmagic (sv, PERL_MAGIC_ext);
149     }
150    
151 root 1.1 static long
152     SvPTR (SV *sv, const char *klass)
153     {
154     if (!sv_derived_from (sv, klass))
155     croak ("object of type %s expected", klass);
156    
157 root 1.18 MAGIC *mg = mg_find (SvRV (sv), PERL_MAGIC_ext);
158 root 1.1
159 root 1.18 if (!mg)
160 root 1.1 croak ("perl code used %s object, but C++ object is already destroyed, caught", klass);
161    
162 root 1.18 return (long)mg->mg_ptr;
163 root 1.1 }
164    
165 root 1.95 #define newSVterm(term) SvREFCNT_inc ((SV *)(term)->perl.self)
166     #define SvTERM(sv) (rxvt_term *)SvPTR ((sv), "urxvt::term")
167 root 1.1
168     /////////////////////////////////////////////////////////////////////////////
169    
170 root 1.13 #define SvOVERLAY(sv) (overlay *)SvPTR (sv, "urxvt::overlay")
171    
172 root 1.126 class overlay : overlay_base
173     {
174 root 1.13 rxvt_term *THIS;
175 root 1.93 AV *overlay_av;
176 root 1.13 int border;
177    
178 root 1.93 public:
179     HV *self;
180    
181 root 1.13 overlay (rxvt_term *THIS, int x_, int y_, int w_, int h_, rend_t rstyle, int border);
182     ~overlay ();
183    
184 root 1.18 void show ();
185     void hide ();
186    
187 root 1.13 void swap ();
188    
189     void set (int x, int y, SV *str, SV *rend);
190     };
191    
192     overlay::overlay (rxvt_term *THIS, int x_, int y_, int w_, int h_, rend_t rstyle, int border)
193 root 1.126 : THIS(THIS), border(border == 2), overlay_av (0)
194 root 1.13 {
195 root 1.126 x = x_;
196     y = y_;
197     w = w_;
198     h = h_;
199    
200 root 1.103 if (w < 0) w = 0;
201     if (h < 0) h = 0;
202    
203 root 1.13 if (border == 2)
204     {
205     w += 2;
206     h += 2;
207     }
208    
209     text = new text_t *[h];
210     rend = new rend_t *[h];
211 root 1.24
212 root 1.13 for (int y = 0; y < h; y++)
213 root 1.24 {
214 root 1.13 text_t *tp = text[y] = new text_t[w];
215     rend_t *rp = rend[y] = new rend_t[w];
216 root 1.24
217 root 1.13 text_t t0, t1, t2;
218     rend_t r = rstyle;
219 root 1.24
220 root 1.13 if (border == 2)
221     {
222     if (y == 0)
223     t0 = 0x2554, t1 = 0x2550, t2 = 0x2557;
224     else if (y < h - 1)
225     t0 = 0x2551, t1 = 0x0020, t2 = 0x2551;
226     else
227     t0 = 0x255a, t1 = 0x2550, t2 = 0x255d;
228 root 1.24
229     *tp++ = t0;
230 root 1.13 *rp++ = r;
231 root 1.24
232 root 1.13 for (int x = w - 2; x-- > 0; )
233     {
234     *tp++ = t1;
235     *rp++ = r;
236 root 1.24 }
237 root 1.13
238     *tp = t2;
239 root 1.24 *rp = r;
240 root 1.13 }
241     else
242     for (int x = w; x-- > 0; )
243     {
244     *tp++ = 0x0020;
245     *rp++ = r;
246 root 1.24 }
247     }
248 root 1.13
249 root 1.18 show ();
250 root 1.13 }
251    
252     overlay::~overlay ()
253     {
254 root 1.18 hide ();
255    
256 root 1.13 for (int y = h; y--; )
257     {
258     delete [] text[y];
259     delete [] rend[y];
260     }
261    
262     delete [] text;
263     delete [] rend;
264     }
265    
266 root 1.18 void
267     overlay::show ()
268     {
269 root 1.93 if (overlay_av)
270 root 1.76 return;
271    
272 root 1.93 overlay_av = (AV *)SvREFCNT_inc (SvRV (
273     *hv_fetch ((HV *)SvRV ((SV *)THIS->perl.self), "_overlay", 8, 0)
274     ));
275     av_push (overlay_av, newSViv ((long)this));
276 root 1.18
277 root 1.93 THIS->want_refresh = 1;
278 root 1.118 THIS->refresh_check ();
279 root 1.18 }
280    
281     void
282     overlay::hide ()
283     {
284 root 1.93 if (!overlay_av)
285 root 1.76 return;
286    
287     int i;
288 root 1.18
289 root 1.93 for (i = AvFILL (overlay_av); i >= 0; i--)
290     if (SvIV (*av_fetch (overlay_av, i, 1)) == (long)this)
291 root 1.101 break;
292 root 1.76
293 root 1.93 for (; i < AvFILL (overlay_av); i++)
294     av_store (overlay_av, i, SvREFCNT_inc (*av_fetch (overlay_av, i + 1, 0)));
295    
296     av_pop (overlay_av);
297 root 1.18
298 root 1.93 SvREFCNT_dec (overlay_av);
299     overlay_av = 0;
300    
301     THIS->want_refresh = 1;
302 root 1.118 THIS->refresh_check ();
303 root 1.18 }
304    
305 root 1.13 void overlay::swap ()
306     {
307     int ov_x = max (0, min (MOD (x, THIS->ncol), THIS->ncol - w));
308     int ov_y = max (0, min (MOD (y, THIS->nrow), THIS->nrow - h));
309    
310     int ov_w = min (w, THIS->ncol - ov_x);
311     int ov_h = min (h, THIS->nrow - ov_y);
312    
313 root 1.126 // hide cursor if it is within the overlay area
314     if (IN_RANGE_EXC (THIS->screen.cur.col - ov_x, 0, ov_w)
315     && IN_RANGE_EXC (THIS->screen.cur.row - ov_y, 0, ov_h))
316     THIS->screen.flags &= ~Screen_VisibleCursor;
317    
318 root 1.13 for (int y = ov_h; y--; )
319     {
320     text_t *t1 = text [y];
321     rend_t *r1 = rend [y];
322 root 1.24
323 root 1.67 text_t *t2 = ROW(y + ov_y + THIS->view_start).t + ov_x;
324     rend_t *r2 = ROW(y + ov_y + THIS->view_start).r + ov_x;
325 root 1.13
326     for (int x = ov_w; x--; )
327 root 1.24 {
328 root 1.13 text_t t = *t1; *t1++ = *t2; *t2++ = t;
329     rend_t r = *r1; *r1++ = *r2; *r2++ = SET_FONT (r, THIS->fontset [GET_STYLE (r)]->find_font (t));
330     }
331     }
332    
333     }
334    
335 root 1.14 void overlay::set (int x, int y, SV *text, SV *rend)
336 root 1.13 {
337     x += border;
338     y += border;
339    
340     if (!IN_RANGE_EXC (y, 0, h - border))
341     return;
342    
343 root 1.14 wchar_t *wtext = sv2wcs (text);
344 root 1.13
345 root 1.14 for (int col = min (wcslen (wtext), w - x - border); col--; )
346     this->text [y][x + col] = wtext [col];
347 root 1.24
348 root 1.14 free (wtext);
349    
350     if (rend)
351     {
352     if (!SvROK (rend) || SvTYPE (SvRV (rend)) != SVt_PVAV)
353     croak ("rend must be arrayref");
354    
355     AV *av = (AV *)SvRV (rend);
356    
357 root 1.76 for (int col = min (AvFILL (av) + 1, w - x - border); col--; )
358 root 1.14 this->rend [y][x + col] = SvIV (*av_fetch (av, col, 1));
359     }
360 root 1.13
361     THIS->want_refresh = 1;
362 root 1.118 THIS->refresh_check ();
363 root 1.13 }
364    
365 root 1.109 /////////////////////////////////////////////////////////////////////////////
366    
367 ayin 1.119 #include "iom_perl.h"
368 root 1.13
369     /////////////////////////////////////////////////////////////////////////////
370    
371 root 1.1 struct rxvt_perl_interp rxvt_perl;
372    
373     static PerlInterpreter *perl;
374    
375     rxvt_perl_interp::~rxvt_perl_interp ()
376     {
377     if (perl)
378     {
379     perl_destruct (perl);
380     perl_free (perl);
381 root 1.125 PERL_SYS_TERM ();
382 root 1.1 }
383     }
384    
385     void
386 root 1.192 rxvt_perl_interp::init ()
387 root 1.1 {
388     if (!perl)
389     {
390 root 1.68 rxvt_push_locale (""); // perl init destroys current locale
391    
392 root 1.134 {
393     perl_environ = rxvt_environ;
394     localise_env set_environ (perl_environ);
395 root 1.56
396 root 1.134 char *args[] = {
397     "",
398     "-e"
399     "BEGIN {"
400     " urxvt->bootstrap;"
401     " unshift @INC, '" LIBDIR "';"
402     "}"
403     ""
404     "use urxvt;"
405     };
406 sf-exg 1.141 int argc = ecb_array_length (args);
407 root 1.134 char **argv = args;
408 root 1.1
409 root 1.134 PERL_SYS_INIT3 (&argc, &argv, &environ);
410     perl = perl_alloc ();
411     perl_construct (perl);
412 root 1.1
413 root 1.134 if (perl_parse (perl, xs_init, argc, argv, (char **)NULL)
414     || perl_run (perl))
415     {
416     rxvt_warn ("unable to initialize perl-interpreter, continuing without.\n");
417 root 1.57
418 root 1.134 perl_destruct (perl);
419     perl_free (perl);
420     perl = 0;
421     }
422     }
423 root 1.68
424     rxvt_pop_locale ();
425 root 1.1 }
426 root 1.192 }
427    
428     void
429     rxvt_perl_interp::init (rxvt_term *term)
430     {
431     init ();
432 root 1.68
433 root 1.182 if (perl && !term->perl.self)
434 root 1.70 {
435     // runs outside of perls ENV
436     term->perl.self = (void *)newSVptr ((void *)term, "urxvt::term");
437 root 1.76 hv_store ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, newRV_noinc ((SV *)newAV ()), 0);
438 sf-exg 1.142 hv_store ((HV *)SvRV ((SV *)term->perl.self), "_selection", 10, newRV_noinc ((SV *)newAV ()), 0);
439 root 1.70 }
440 root 1.1 }
441    
442 root 1.170 void
443 root 1.192 rxvt_perl_interp::eval (const char *str)
444     {
445     eval_pv (str, 1);
446     }
447    
448     void
449 root 1.171 rxvt_perl_interp::usage (rxvt_term *term, int type)
450 root 1.170 {
451     localise_env set_environ (perl_environ);
452    
453     ENTER;
454     SAVETMPS;
455    
456     dSP;
457 root 1.174 PUSHMARK (SP);
458 root 1.171 EXTEND (SP, 2);
459     PUSHs (sv_2mortal (newSVterm (term)));
460     PUSHs (sv_2mortal (newSViv (type)));
461 root 1.170 PUTBACK;
462 root 1.173 call_pv ("urxvt::usage", G_VOID | G_DISCARD);
463 root 1.170
464     FREETMPS;
465     LEAVE;
466     }
467    
468     uint8_t
469 root 1.173 rxvt_perl_interp::parse_resource (rxvt_term *term, const char *name, bool arg, bool longopt, bool flag, const char *value)
470 root 1.170 {
471     localise_env set_environ (perl_environ);
472    
473     ENTER;
474     SAVETMPS;
475    
476     dSP;
477 root 1.174 PUSHMARK (SP);
478 root 1.170 EXTEND (SP, 6);
479     PUSHs (sv_2mortal (newSVterm (term)));
480     PUSHs (sv_2mortal (newSVpv (name, 0)));
481     PUSHs (arg ? &PL_sv_yes : &PL_sv_no);
482     PUSHs (longopt ? &PL_sv_yes : &PL_sv_no);
483     PUSHs (flag ? &PL_sv_yes : &PL_sv_no);
484     PUSHs (value ? sv_2mortal (newSVpv (value, 0)) : &PL_sv_undef);
485     PUTBACK;
486 root 1.173 call_pv ("urxvt::parse_resource", G_SCALAR);
487     SPAGAIN;
488 root 1.170
489     uint8_t ret = POPi;
490    
491     FREETMPS;
492     LEAVE;
493    
494     return ret;
495     }
496    
497 root 1.45 static void
498 root 1.223 _keysym_resource_push (rxvt_term *term, const char *k, const char *v)
499     {
500 sf-exg 1.227 unsigned int state;
501    
502     if (term->parse_keysym (k, state) == -1)
503     return;
504    
505 root 1.223 dSP;
506     XPUSHs (sv_2mortal (newSVpv (v, 0)));
507     PUTBACK;
508     }
509    
510     static void
511     _keysym_resources (rxvt_term *term)
512     {
513     term->enumerate_keysym_resources (_keysym_resource_push);
514     }
515    
516     static void
517 root 1.45 ungrab (rxvt_term *THIS)
518     {
519     if (THIS->perl.grabtime)
520     {
521 root 1.96 XUngrabKeyboard (THIS->dpy, THIS->perl.grabtime);
522     XUngrabPointer (THIS->dpy, THIS->perl.grabtime);
523 root 1.45 THIS->perl.grabtime = 0;
524     }
525     }
526    
527 root 1.1 bool
528     rxvt_perl_interp::invoke (rxvt_term *term, hook_type htype, ...)
529     {
530 root 1.68 if (!perl || !term->perl.self)
531 root 1.1 return false;
532 root 1.24
533 root 1.134 localise_env set_environ (perl_environ);
534    
535 root 1.68 // pre-handling of some events
536     if (htype == HOOK_REFRESH_END)
537 root 1.76 {
538     AV *av = (AV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, 0));
539 ayin 1.115
540 root 1.76 for (int i = 0; i <= AvFILL (av); i++)
541     ((overlay *)SvIV (*av_fetch (av, i, 0)))->swap ();
542     }
543 sf-exg 1.142 else if (htype == HOOK_DESTROY)
544     {
545     AV *av = (AV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)term->perl.self), "_selection", 10, 0));
546    
547     for (int i = AvFILL (av); i >= 0; i--)
548     {
549     rxvt_selection *req = (rxvt_selection *)SvIV (*av_fetch (av, i, 0));
550     delete req;
551     }
552     }
553 root 1.1
554 root 1.68 bool event_consumed;
555 root 1.1
556 root 1.170 if (term->perl.should_invoke [htype])
557 root 1.134 {
558     dSP;
559     va_list ap;
560    
561     va_start (ap, htype);
562 root 1.1
563 root 1.134 ENTER;
564     SAVETMPS;
565 root 1.1
566 root 1.134 PUSHMARK (SP);
567 root 1.1
568 root 1.138 EXTEND (SP, 2);
569     PUSHs (sv_2mortal (newSVterm (term)));
570     PUSHs (sv_2mortal (newSViv (htype)));
571 root 1.1
572 root 1.134 for (;;) {
573     data_type dt = (data_type)va_arg (ap, int);
574 root 1.1
575 root 1.134 switch (dt)
576     {
577     case DT_INT:
578     XPUSHs (sv_2mortal (newSViv (va_arg (ap, int))));
579     break;
580 root 1.1
581 root 1.134 case DT_LONG:
582     XPUSHs (sv_2mortal (newSViv (va_arg (ap, long))));
583     break;
584 root 1.68
585 root 1.134 case DT_STR:
586     XPUSHs (sv_2mortal (newSVpv (va_arg (ap, char *), 0)));
587     break;
588 root 1.68
589 root 1.134 case DT_STR_LEN:
590     {
591     char *str = va_arg (ap, char *);
592     int len = va_arg (ap, int);
593 root 1.68
594 root 1.134 XPUSHs (sv_2mortal (newSVpvn (str, len)));
595     }
596     break;
597 root 1.68
598 root 1.134 case DT_WCS_LEN:
599     {
600     wchar_t *wstr = va_arg (ap, wchar_t *);
601     int wlen = va_arg (ap, int);
602 root 1.68
603 root 1.134 XPUSHs (sv_2mortal (wcs2sv (wstr, wlen)));
604     }
605     break;
606 root 1.68
607 root 1.134 case DT_LCS_LEN:
608     {
609     long *lstr = va_arg (ap, long *);
610     int llen = va_arg (ap, int);
611 root 1.68
612 root 1.134 XPUSHs (sv_2mortal (newSVpvn ((char *)lstr, llen * sizeof (long))));
613     }
614     break;
615 root 1.91
616 root 1.134 case DT_XEVENT:
617     {
618     XEvent *xe = va_arg (ap, XEvent *);
619     HV *hv = newHV ();
620 root 1.91
621 root 1.134 # define set(name, sv) hv_store (hv, # name, sizeof (# name) - 1, sv, 0)
622     # define setiv(name, val) hv_store (hv, # name, sizeof (# name) - 1, newSViv (val), 0)
623     # define setuv(name, val) hv_store (hv, # name, sizeof (# name) - 1, newSVuv (val), 0)
624     # undef set
625    
626     setiv (type, xe->type);
627     setiv (send_event, xe->xany.send_event);
628     setiv (serial, xe->xany.serial);
629 root 1.29
630 root 1.134 switch (xe->type)
631     {
632     case KeyPress:
633     case KeyRelease:
634     case ButtonPress:
635     case ButtonRelease:
636     case MotionNotify:
637     setuv (window, xe->xmotion.window);
638     setuv (root, xe->xmotion.root);
639     setuv (subwindow, xe->xmotion.subwindow);
640     setuv (time, xe->xmotion.time);
641     setiv (x, xe->xmotion.x);
642     setiv (y, xe->xmotion.y);
643     setiv (row, xe->xmotion.y / term->fheight + term->view_start);
644     setiv (col, xe->xmotion.x / term->fwidth);
645     setiv (x_root, xe->xmotion.x_root);
646     setiv (y_root, xe->xmotion.y_root);
647     setuv (state, xe->xmotion.state);
648    
649     switch (xe->type)
650     {
651     case KeyPress:
652     case KeyRelease:
653     setuv (keycode, xe->xkey.keycode);
654     break;
655    
656     case ButtonPress:
657     case ButtonRelease:
658     setuv (button, xe->xbutton.button);
659     break;
660    
661     case MotionNotify:
662     setiv (is_hint, xe->xmotion.is_hint);
663     break;
664     }
665    
666     break;
667    
668     case MapNotify:
669     case UnmapNotify:
670     case ConfigureNotify:
671     setuv (event, xe->xconfigure.event);
672     setuv (window, xe->xconfigure.window);
673    
674     switch (xe->type)
675     {
676     case ConfigureNotify:
677     setiv (x, xe->xconfigure.x);
678     setiv (y, xe->xconfigure.y);
679     setiv (width, xe->xconfigure.width);
680     setiv (height, xe->xconfigure.height);
681     setuv (above, xe->xconfigure.above);
682     break;
683     }
684    
685     break;
686    
687     case PropertyNotify:
688     setuv (window, xe->xproperty.window);
689     setuv (atom, xe->xproperty.atom);
690     setuv (time, xe->xproperty.time);
691     setiv (state, xe->xproperty.state);
692     break;
693    
694     case ClientMessage:
695     setuv (window, xe->xclient.window);
696     setuv (message_type, xe->xclient.message_type);
697     setuv (format, xe->xclient.format);
698     setuv (l0, xe->xclient.data.l[0]);
699     setuv (l1, xe->xclient.data.l[1]);
700     setuv (l2, xe->xclient.data.l[2]);
701     setuv (l3, xe->xclient.data.l[3]);
702     setuv (l4, xe->xclient.data.l[4]);
703     break;
704     }
705 root 1.68
706 root 1.134 XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));
707     }
708     break;
709 root 1.68
710 root 1.134 case DT_END:
711     goto call;
712 root 1.68
713 root 1.134 default:
714     rxvt_fatal ("FATAL: unable to pass data type %d\n", dt);
715     }
716     }
717 root 1.29
718 root 1.134 call:
719     va_end (ap);
720 root 1.29
721 root 1.134 PUTBACK;
722     int count = call_pv ("urxvt::invoke", G_ARRAY | G_EVAL);
723     SPAGAIN;
724 root 1.29
725 root 1.134 if (count)
726     {
727     SV *status = POPs;
728     count = SvTRUE (status);
729     }
730 root 1.29
731 root 1.134 PUTBACK;
732     FREETMPS;
733     LEAVE;
734 root 1.29
735 root 1.134 if (SvTRUE (ERRSV))
736     {
737 root 1.138 rxvt_warn ("perl hook %d evaluation error: %s", htype, SvPVbyte_nolen (ERRSV));
738 root 1.134 ungrab (term); // better lose the grab than the session
739     }
740 root 1.68
741 root 1.134 event_consumed = !!count;
742     }
743 root 1.68 else
744     event_consumed = false;
745    
746     // post-handling of some events
747     if (htype == HOOK_REFRESH_BEGIN)
748 root 1.76 {
749     AV *av = (AV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, 0));
750 ayin 1.115
751 root 1.76 for (int i = AvFILL (av); i >= 0; i--)
752     ((overlay *)SvIV (*av_fetch (av, i, 0)))->swap ();
753     }
754 root 1.68 else if (htype == HOOK_DESTROY)
755 root 1.57 {
756 root 1.68 clearSVptr ((SV *)term->perl.self);
757     SvREFCNT_dec ((SV *)term->perl.self);
758 ayin 1.115
759 root 1.91 // don't allow further calls
760     term->perl.self = 0;
761 root 1.57 }
762 root 1.68
763     return event_consumed;
764 root 1.1 }
765    
766 root 1.138 void
767     rxvt_perl_interp::selection_finish (rxvt_selection *sel, char *data, unsigned int len)
768     {
769     localise_env set_environ (perl_environ);
770    
771     ENTER;
772     SAVETMPS;
773    
774     dSP;
775     XPUSHs (sv_2mortal (newSVpvn (data, len)));
776 root 1.170 PUTBACK;
777 root 1.138 call_sv ((SV *)sel->cb_sv, G_VOID | G_DISCARD | G_EVAL);
778    
779     if (SvTRUE (ERRSV))
780     rxvt_warn ("perl selection callback evaluation error: %s", SvPVbyte_nolen (ERRSV));
781    
782     FREETMPS;
783     LEAVE;
784     }
785    
786 root 1.1 /////////////////////////////////////////////////////////////////////////////
787    
788     MODULE = urxvt PACKAGE = urxvt
789    
790     PROTOTYPES: ENABLE
791    
792     BOOT:
793     {
794 root 1.52 sv_setsv (get_sv ("urxvt::LIBDIR", 1), newSVpvn (LIBDIR, sizeof (LIBDIR) - 1));
795     sv_setsv (get_sv ("urxvt::RESNAME", 1), newSVpvn (RESNAME, sizeof (RESNAME) - 1));
796     sv_setsv (get_sv ("urxvt::RESCLASS", 1), newSVpvn (RESCLASS, sizeof (RESCLASS) - 1));
797     sv_setsv (get_sv ("urxvt::RXVTNAME", 1), newSVpvn (RXVTNAME, sizeof (RXVTNAME) - 1));
798 root 1.37
799 root 1.1 AV *hookname = get_av ("urxvt::HOOKNAME", 1);
800 root 1.21 # define def(sym) av_store (hookname, HOOK_ ## sym, newSVpv (# sym, 0));
801     # include "hookinc.h"
802     # undef def
803 root 1.1
804 root 1.39 HV *option = get_hv ("urxvt::OPTION", 1);
805 root 1.133 # define def(name) hv_store (option, # name, sizeof (# name) - 1, newSVuv (Opt_ ## name), 0);
806 root 1.39 # define nodef(name)
807     # include "optinc.h"
808     # undef nodef
809     # undef def
810    
811     HV *stash = gv_stashpv ("urxvt", 1);
812 root 1.97 static const struct {
813 root 1.62 const char *name;
814     IV iv;
815     } *civ, const_iv[] = {
816     # define const_iv(name) { # name, (IV)name }
817 root 1.218 const_iv (HOOK_INIT),
818     const_iv (HOOK_DESTROY),
819 root 1.222 const_iv (HOOK_ACTION),
820 root 1.218
821 root 1.123 const_iv (NUM_RESOURCES),
822 root 1.62 const_iv (DEFAULT_RSTYLE),
823     const_iv (OVERLAY_RSTYLE),
824 root 1.131 const_iv (Color_Bits),
825     const_iv (RS_bgShift), const_iv (RS_bgMask),
826     const_iv (RS_fgShift), const_iv (RS_fgMask),
827     const_iv (RS_Careful),
828     const_iv (RS_fontCount),
829     const_iv (RS_fontShift),
830     const_iv (RS_fontMask),
831     const_iv (RS_baseattrMask),
832     const_iv (RS_attrMask),
833     const_iv (RS_redraw),
834     const_iv (RS_Sel),
835 root 1.62 const_iv (RS_Bold),
836     const_iv (RS_Italic),
837     const_iv (RS_Blink),
838     const_iv (RS_RVid),
839     const_iv (RS_Uline),
840    
841 root 1.216 // TODO: should support all colour constants, create colorinc.h &c
842     const_iv (Color_fg),
843     const_iv (Color_bg),
844 sf-exg 1.217 #if OFF_FOCUS_FADING
845 root 1.216 const_iv (Color_fade),
846 sf-exg 1.217 #endif
847 root 1.216 const_iv (Color_pointer_fg),
848     const_iv (Color_pointer_bg),
849     const_iv (Color_border),
850     const_iv (NRS_COLORS),
851     const_iv (TOTAL_COLORS),
852    
853 root 1.62 const_iv (CurrentTime),
854     const_iv (ShiftMask),
855     const_iv (LockMask),
856     const_iv (ControlMask),
857     const_iv (Mod1Mask),
858     const_iv (Mod2Mask),
859     const_iv (Mod3Mask),
860     const_iv (Mod4Mask),
861     const_iv (Mod5Mask),
862     const_iv (Button1Mask),
863     const_iv (Button2Mask),
864     const_iv (Button3Mask),
865     const_iv (Button4Mask),
866     const_iv (Button5Mask),
867     const_iv (AnyModifier),
868    
869 root 1.102 const_iv (NoSymbol),
870     const_iv (GrabModeSync),
871     const_iv (GrabModeAsync),
872    
873 root 1.62 const_iv (NoEventMask),
874     const_iv (KeyPressMask),
875     const_iv (KeyReleaseMask),
876     const_iv (ButtonPressMask),
877     const_iv (ButtonReleaseMask),
878     const_iv (EnterWindowMask),
879     const_iv (LeaveWindowMask),
880     const_iv (PointerMotionMask),
881     const_iv (PointerMotionHintMask),
882     const_iv (Button1MotionMask),
883     const_iv (Button2MotionMask),
884     const_iv (Button3MotionMask),
885     const_iv (Button4MotionMask),
886     const_iv (Button5MotionMask),
887     const_iv (ButtonMotionMask),
888     const_iv (KeymapStateMask),
889     const_iv (ExposureMask),
890     const_iv (VisibilityChangeMask),
891     const_iv (StructureNotifyMask),
892     const_iv (ResizeRedirectMask),
893     const_iv (SubstructureNotifyMask),
894     const_iv (SubstructureRedirectMask),
895     const_iv (FocusChangeMask),
896     const_iv (PropertyChangeMask),
897     const_iv (ColormapChangeMask),
898     const_iv (OwnerGrabButtonMask),
899    
900     const_iv (KeyPress),
901     const_iv (KeyRelease),
902     const_iv (ButtonPress),
903     const_iv (ButtonRelease),
904     const_iv (MotionNotify),
905     const_iv (EnterNotify),
906     const_iv (LeaveNotify),
907     const_iv (FocusIn),
908     const_iv (FocusOut),
909     const_iv (KeymapNotify),
910     const_iv (Expose),
911     const_iv (GraphicsExpose),
912     const_iv (NoExpose),
913     const_iv (VisibilityNotify),
914     const_iv (CreateNotify),
915     const_iv (DestroyNotify),
916     const_iv (UnmapNotify),
917     const_iv (MapNotify),
918     const_iv (MapRequest),
919     const_iv (ReparentNotify),
920     const_iv (ConfigureNotify),
921     const_iv (ConfigureRequest),
922     const_iv (GravityNotify),
923     const_iv (ResizeRequest),
924     const_iv (CirculateNotify),
925     const_iv (CirculateRequest),
926     const_iv (PropertyNotify),
927     const_iv (SelectionClear),
928     const_iv (SelectionRequest),
929     const_iv (SelectionNotify),
930     const_iv (ColormapNotify),
931     const_iv (ClientMessage),
932     const_iv (MappingNotify),
933 root 1.91 # if ENABLE_XIM_ONTHESPOT
934     const_iv (XIMReverse),
935     const_iv (XIMUnderline),
936     const_iv (XIMHighlight),
937     const_iv (XIMPrimary),
938     const_iv (XIMSecondary),
939     const_iv (XIMTertiary),
940     const_iv (XIMVisibleToForward),
941     const_iv (XIMVisibleToBackword),
942     const_iv (XIMVisibleToCenter),
943 root 1.163 #if XRENDER
944 root 1.158 const_iv (PictStandardARGB32),
945     const_iv (PictStandardRGB24),
946     const_iv (PictStandardA8),
947     const_iv (PictStandardA4),
948     const_iv (PictStandardA1),
949 root 1.159 const_iv (RepeatNone),
950     const_iv (RepeatNormal),
951     const_iv (RepeatPad),
952     const_iv (RepeatReflect),
953 root 1.198 // all versions
954     const_iv (PictOpClear),
955     const_iv (PictOpSrc),
956     const_iv (PictOpDst),
957     const_iv (PictOpOver),
958     const_iv (PictOpOverReverse),
959     const_iv (PictOpIn),
960     const_iv (PictOpInReverse),
961     const_iv (PictOpOut),
962     const_iv (PictOpOutReverse),
963     const_iv (PictOpAtop),
964     const_iv (PictOpAtopReverse),
965     const_iv (PictOpXor),
966     const_iv (PictOpAdd),
967     const_iv (PictOpSaturate),
968     // 0.2+
969     const_iv (PictOpDisjointClear),
970     const_iv (PictOpDisjointSrc),
971     const_iv (PictOpDisjointDst),
972     const_iv (PictOpDisjointOver),
973     const_iv (PictOpDisjointOverReverse),
974     const_iv (PictOpDisjointIn),
975     const_iv (PictOpDisjointInReverse),
976     const_iv (PictOpDisjointOut),
977     const_iv (PictOpDisjointOutReverse),
978     const_iv (PictOpDisjointAtop),
979     const_iv (PictOpDisjointAtopReverse),
980     const_iv (PictOpDisjointXor),
981     const_iv (PictOpConjointClear),
982     const_iv (PictOpConjointSrc),
983     const_iv (PictOpConjointDst),
984     const_iv (PictOpConjointOver),
985     const_iv (PictOpConjointOverReverse),
986     const_iv (PictOpConjointIn),
987     const_iv (PictOpConjointInReverse),
988     const_iv (PictOpConjointOut),
989     const_iv (PictOpConjointOutReverse),
990     const_iv (PictOpConjointAtop),
991     const_iv (PictOpConjointAtopReverse),
992     const_iv (PictOpConjointXor),
993     // 0.11+
994     const_iv (PictOpMultiply),
995     const_iv (PictOpScreen),
996     const_iv (PictOpOverlay),
997     const_iv (PictOpDarken),
998     const_iv (PictOpLighten),
999     const_iv (PictOpColorDodge),
1000     const_iv (PictOpColorBurn),
1001     const_iv (PictOpHardLight),
1002     const_iv (PictOpSoftLight),
1003     const_iv (PictOpDifference),
1004     const_iv (PictOpExclusion),
1005     const_iv (PictOpHSLHue),
1006     const_iv (PictOpHSLSaturation),
1007     const_iv (PictOpHSLColor),
1008     const_iv (PictOpHSLLuminosity),
1009 root 1.158 #endif
1010 root 1.92 # if 0
1011 root 1.91 const_iv (XIMForwardChar),
1012     const_iv (XIMBackwardChar),
1013     const_iv (XIMForwardWord),
1014     const_iv (XIMBackwardWord),
1015     const_iv (XIMCaretUp),
1016     const_iv (XIMCaretDown),
1017     const_iv (XIMNextLine),
1018     const_iv (XIMPreviousLine),
1019     const_iv (XIMLineStart),
1020     const_iv (XIMLineEnd),
1021     const_iv (XIMAbsolutePosition),
1022     const_iv (XIMDontChange),
1023     # endif
1024 root 1.92 # endif
1025 root 1.62 };
1026    
1027 root 1.143 for (civ = const_iv + ecb_array_length (const_iv); civ > const_iv; civ--)
1028     newCONSTSUB (stash, (char *)civ[-1].name, newSViv (civ[-1].iv));
1029 root 1.1 }
1030    
1031     void
1032 root 1.171 log (const char *msg)
1033     CODE:
1034     rxvt_log ("%s", msg);
1035    
1036     void
1037 root 1.1 warn (const char *msg)
1038     CODE:
1039     rxvt_warn ("%s", msg);
1040    
1041     void
1042     fatal (const char *msg)
1043     CODE:
1044     rxvt_fatal ("%s", msg);
1045    
1046 root 1.59 void
1047     _exit (int status)
1048    
1049 root 1.167 void
1050     catch_fatal (SV *block)
1051     PROTOTYPE: &
1052     CODE:
1053     try
1054     {
1055     PUSHMARK (SP);
1056     PUTBACK;
1057     call_sv (block, G_VOID | G_DISCARD);
1058     SPAGAIN;
1059     }
1060     catch (const rxvt_failure_exception &e)
1061     {
1062     croak ("rxvt_fatal exception caught, trying to continue.");
1063     }
1064    
1065 root 1.3 NV
1066     NOW ()
1067     CODE:
1068 root 1.116 RETVAL = ev::now ();
1069 root 1.3 OUTPUT:
1070     RETVAL
1071    
1072 root 1.11 int
1073     GET_BASEFG (int rend)
1074     CODE:
1075     RETVAL = GET_BASEFG (rend);
1076     OUTPUT:
1077     RETVAL
1078    
1079     int
1080     GET_BASEBG (int rend)
1081     CODE:
1082     RETVAL = GET_BASEBG (rend);
1083     OUTPUT:
1084     RETVAL
1085    
1086     int
1087 root 1.12 SET_FGCOLOR (int rend, int new_color)
1088 root 1.11 CODE:
1089 root 1.98 RETVAL = SET_FGCOLOR (rend, clamp (new_color, 0, TOTAL_COLORS - 1));
1090 root 1.11 OUTPUT:
1091     RETVAL
1092    
1093     int
1094 root 1.12 SET_BGCOLOR (int rend, int new_color)
1095 root 1.11 CODE:
1096 root 1.98 RETVAL = SET_BGCOLOR (rend, clamp (new_color, 0, TOTAL_COLORS - 1));
1097 root 1.12 OUTPUT:
1098     RETVAL
1099    
1100     int
1101     GET_CUSTOM (int rend)
1102     CODE:
1103 root 1.108 RETVAL = (rend & RS_customMask) >> RS_customShift;
1104 root 1.12 OUTPUT:
1105     RETVAL
1106    
1107     int
1108     SET_CUSTOM (int rend, int new_value)
1109     CODE:
1110     {
1111     if (!IN_RANGE_EXC (new_value, 0, RS_customCount))
1112     croak ("custom value out of range, must be 0..%d", RS_customCount - 1);
1113    
1114     RETVAL = (rend & ~RS_customMask)
1115     | ((new_value << RS_customShift) & RS_customMask);
1116     }
1117 root 1.11 OUTPUT:
1118     RETVAL
1119    
1120 root 1.95 void
1121     termlist ()
1122     PPCODE:
1123     {
1124     EXTEND (SP, rxvt_term::termlist.size ());
1125    
1126     for (rxvt_term **t = rxvt_term::termlist.begin (); t < rxvt_term::termlist.end (); t++)
1127     if ((*t)->perl.self)
1128     PUSHs (sv_2mortal (newSVterm (*t)));
1129     }
1130    
1131 root 1.139 IV
1132     _new_selection_request (rxvt_term *term, int selnum, Time tm, Window win, Atom prop, SV *cb)
1133     CODE:
1134     rxvt_selection *req = new rxvt_selection (term->display, selnum, tm, win, prop, term);
1135     req->cb_sv = newSVsv (cb);
1136 sf-exg 1.142 AV *av = (AV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)term->perl.self), "_selection", 10, 0));
1137     av_push (av, newSViv ((IV)req));
1138 root 1.139 RETVAL = (IV)req;
1139     OUTPUT:
1140     RETVAL
1141    
1142     void
1143     _delete_selection_request (IV req_)
1144     CODE:
1145     rxvt_selection *req = (rxvt_selection *)req_;
1146 sf-exg 1.142 AV *av = (AV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)req->term->perl.self), "_selection", 10, 0));
1147     int i;
1148    
1149     for (i = AvFILL (av); i >= 0; i--)
1150     if (SvIV (*av_fetch (av, i, 1)) == req_)
1151     break;
1152    
1153     for (; i < AvFILL (av); i++)
1154     av_store (av, i, SvREFCNT_inc (*av_fetch (av, i + 1, 0)));
1155    
1156     av_pop (av);
1157    
1158 root 1.139 delete req;
1159    
1160 root 1.3 MODULE = urxvt PACKAGE = urxvt::term
1161    
1162 root 1.54 SV *
1163 root 1.95 _new (AV *env, AV *arg)
1164 root 1.54 CODE:
1165     {
1166     rxvt_term *term = new rxvt_term;
1167    
1168 root 1.88 stringvec *argv = new stringvec;
1169 root 1.95 for (int i = 0; i <= AvFILL (arg); i++)
1170     argv->push_back (strdup (SvPVbyte_nolen (*av_fetch (arg, i, 1))));
1171 root 1.54
1172 root 1.148 stringvec *envv = new stringvec;
1173 root 1.88 for (int i = AvFILL (env) + 1; i--; )
1174     envv->push_back (strdup (SvPVbyte_nolen (*av_fetch (env, i, 1))));
1175 root 1.54
1176     try
1177     {
1178 root 1.117 term->init (argv, envv);
1179 root 1.54 }
1180     catch (const class rxvt_failure_exception &e)
1181     {
1182     term->destroy ();
1183     croak ("error while initializing new terminal instance");
1184     }
1185    
1186     RETVAL = term && term->perl.self
1187     ? newSVterm (term) : &PL_sv_undef;
1188     }
1189     OUTPUT:
1190     RETVAL
1191    
1192 root 1.28 void
1193     rxvt_term::destroy ()
1194    
1195 root 1.35 void
1196 root 1.62 rxvt_term::set_should_invoke (int htype, int inc)
1197     CODE:
1198 root 1.166 uint8_t &count = THIS->perl.should_invoke [htype];
1199     uint8_t prev = count;
1200     count += inc;
1201     if (!prev != !count)
1202     {
1203     // hook status changed, react
1204     switch (htype)
1205     {
1206     case HOOK_POSITION_CHANGE:
1207     if (count)
1208     THIS->get_window_origin (THIS->parent_x, THIS->parent_y);
1209     }
1210     }
1211 root 1.62
1212 root 1.173 void
1213     rxvt_term::put_option_db (octet_string specifier, octet_string value)
1214     CODE:
1215     XrmPutStringResource (&THIS->option_db, specifier, value);
1216    
1217 root 1.223 void
1218     rxvt_term::_keysym_resources ()
1219     PPCODE:
1220     PUTBACK;
1221     _keysym_resources (THIS);
1222     SPAGAIN;
1223    
1224 root 1.102 int
1225 root 1.95 rxvt_term::grab_button (int button, U32 modifiers, Window window = THIS->vt)
1226 root 1.36 CODE:
1227 root 1.102 RETVAL = XGrabButton (THIS->dpy, button, modifiers, window, 1,
1228     ButtonPressMask | ButtonReleaseMask | EnterWindowMask | LeaveWindowMask | PointerMotionMask,
1229     GrabModeSync, GrabModeSync, None, GRAB_CURSOR);
1230     OUTPUT: RETVAL
1231 root 1.36
1232 root 1.102 int
1233 root 1.95 rxvt_term::ungrab_button (int button, U32 modifiers, Window window = THIS->vt)
1234     CODE:
1235 root 1.102 RETVAL = XUngrabButton (THIS->dpy, button, modifiers, window);
1236     OUTPUT: RETVAL
1237 root 1.95
1238 root 1.102 void
1239     rxvt_term::XGrabKey (int keycode, U32 modifiers, Window window = THIS->vt, \
1240     int owner_events = 1, int pointer_mode = GrabModeAsync, int keyboard_mode = GrabModeAsync)
1241     CODE:
1242     XGrabKey (THIS->dpy, keycode, modifiers, window, owner_events, pointer_mode, keyboard_mode);
1243 root 1.95
1244     void
1245 root 1.102 rxvt_term::XUngrabKey (int keycode, U32 modifiers, Window window = THIS->vt)
1246     CODE:
1247     XUngrabKey (THIS->dpy, keycode, modifiers, window);
1248 root 1.95
1249 root 1.36 bool
1250 root 1.79 rxvt_term::grab (Time eventtime, int sync = 0)
1251 root 1.35 CODE:
1252     {
1253 root 1.36 int mode = sync ? GrabModeSync : GrabModeAsync;
1254    
1255     THIS->perl.grabtime = 0;
1256    
1257 root 1.96 if (!XGrabPointer (THIS->dpy, THIS->vt, 0,
1258 root 1.36 ButtonPressMask | ButtonReleaseMask | EnterWindowMask | LeaveWindowMask | PointerMotionMask,
1259 root 1.41 mode, mode, None, GRAB_CURSOR, eventtime))
1260 root 1.96 if (!XGrabKeyboard (THIS->dpy, THIS->vt, 0, mode, mode, eventtime))
1261 root 1.36 THIS->perl.grabtime = eventtime;
1262     else
1263 root 1.96 XUngrabPointer (THIS->dpy, eventtime);
1264 root 1.36
1265     RETVAL = !!THIS->perl.grabtime;
1266 root 1.35 }
1267 root 1.36 OUTPUT:
1268     RETVAL
1269    
1270     void
1271 root 1.44 rxvt_term::allow_events_async ()
1272 root 1.36 CODE:
1273 root 1.96 XAllowEvents (THIS->dpy, AsyncBoth, THIS->perl.grabtime);
1274 root 1.36
1275     void
1276 root 1.44 rxvt_term::allow_events_sync ()
1277 root 1.36 CODE:
1278 root 1.96 XAllowEvents (THIS->dpy, SyncBoth, THIS->perl.grabtime);
1279 root 1.36
1280     void
1281 root 1.44 rxvt_term::allow_events_replay ()
1282 root 1.36 CODE:
1283 root 1.96 XAllowEvents (THIS->dpy, ReplayPointer, THIS->perl.grabtime);
1284     XAllowEvents (THIS->dpy, ReplayKeyboard, THIS->perl.grabtime);
1285 root 1.36
1286     void
1287 root 1.44 rxvt_term::ungrab ()
1288 root 1.36 CODE:
1289 root 1.45 ungrab (THIS);
1290 root 1.35
1291 root 1.1 int
1292 root 1.102 rxvt_term::XStringToKeysym (char *string)
1293     CODE:
1294     RETVAL = XStringToKeysym (string);
1295     OUTPUT: RETVAL
1296    
1297     char *
1298     rxvt_term::XKeysymToString (int sym)
1299     CODE:
1300     RETVAL = XKeysymToString (sym);
1301     OUTPUT: RETVAL
1302    
1303     int
1304     rxvt_term::XKeysymToKeycode (int sym)
1305     CODE:
1306     RETVAL = XKeysymToKeycode (THIS->dpy, sym);
1307     OUTPUT: RETVAL
1308    
1309     int
1310     rxvt_term::XKeycodeToKeysym (int code, int index)
1311     CODE:
1312 sf-exg 1.228 RETVAL = rxvt_XKeycodeToKeysym (THIS->dpy, code, index);
1313 root 1.102 OUTPUT: RETVAL
1314    
1315     int
1316 root 1.3 rxvt_term::strwidth (SV *str)
1317 root 1.1 CODE:
1318     {
1319     wchar_t *wstr = sv2wcs (str);
1320 root 1.3
1321     rxvt_push_locale (THIS->locale);
1322 root 1.105 RETVAL = 0;
1323     for (wchar_t *wc = wstr; *wc; wc++)
1324     {
1325     int w = WCWIDTH (*wc);
1326    
1327     if (w)
1328 root 1.107 RETVAL += max (w, 1);
1329 root 1.105 }
1330 root 1.3 rxvt_pop_locale ();
1331    
1332 root 1.1 free (wstr);
1333     }
1334     OUTPUT:
1335     RETVAL
1336    
1337 root 1.3 SV *
1338     rxvt_term::locale_encode (SV *str)
1339 root 1.1 CODE:
1340 root 1.3 {
1341     wchar_t *wstr = sv2wcs (str);
1342    
1343     rxvt_push_locale (THIS->locale);
1344     char *mbstr = rxvt_wcstombs (wstr);
1345     rxvt_pop_locale ();
1346    
1347     free (wstr);
1348    
1349 root 1.71 RETVAL = newSVpv (mbstr, 0);
1350 root 1.3 free (mbstr);
1351     }
1352     OUTPUT:
1353 root 1.1 RETVAL
1354    
1355 root 1.3 SV *
1356     rxvt_term::locale_decode (SV *octets)
1357     CODE:
1358     {
1359     STRLEN len;
1360     char *data = SvPVbyte (octets, len);
1361    
1362     rxvt_push_locale (THIS->locale);
1363     wchar_t *wstr = rxvt_mbstowcs (data, len);
1364     rxvt_pop_locale ();
1365    
1366 root 1.71 RETVAL = wcs2sv (wstr);
1367 root 1.3 free (wstr);
1368     }
1369     OUTPUT:
1370     RETVAL
1371 root 1.1
1372 root 1.38 #define TERM_OFFSET(sym) offsetof (TermWin_t, sym)
1373 root 1.24
1374 root 1.127 #define TERM_OFFSET_width TERM_OFFSET(width)
1375     #define TERM_OFFSET_height TERM_OFFSET(height)
1376     #define TERM_OFFSET_fwidth TERM_OFFSET(fwidth)
1377     #define TERM_OFFSET_fheight TERM_OFFSET(fheight)
1378     #define TERM_OFFSET_fbase TERM_OFFSET(fbase)
1379     #define TERM_OFFSET_nrow TERM_OFFSET(nrow)
1380     #define TERM_OFFSET_ncol TERM_OFFSET(ncol)
1381     #define TERM_OFFSET_focus TERM_OFFSET(focus)
1382     #define TERM_OFFSET_mapped TERM_OFFSET(mapped)
1383     #define TERM_OFFSET_int_bwidth TERM_OFFSET(int_bwidth)
1384     #define TERM_OFFSET_ext_bwidth TERM_OFFSET(ext_bwidth)
1385     #define TERM_OFFSET_lineSpace TERM_OFFSET(lineSpace)
1386     #define TERM_OFFSET_letterSpace TERM_OFFSET(letterSpace)
1387     #define TERM_OFFSET_saveLines TERM_OFFSET(saveLines)
1388     #define TERM_OFFSET_total_rows TERM_OFFSET(total_rows)
1389     #define TERM_OFFSET_top_row TERM_OFFSET(top_row)
1390 root 1.24
1391     int
1392     rxvt_term::width ()
1393     ALIAS:
1394 root 1.127 width = TERM_OFFSET_width
1395     height = TERM_OFFSET_height
1396     fwidth = TERM_OFFSET_fwidth
1397     fheight = TERM_OFFSET_fheight
1398     fbase = TERM_OFFSET_fbase
1399     nrow = TERM_OFFSET_nrow
1400     ncol = TERM_OFFSET_ncol
1401     focus = TERM_OFFSET_focus
1402     mapped = TERM_OFFSET_mapped
1403     int_bwidth = TERM_OFFSET_int_bwidth
1404     ext_bwidth = TERM_OFFSET_ext_bwidth
1405     lineSpace = TERM_OFFSET_lineSpace
1406     letterSpace = TERM_OFFSET_letterSpace
1407     saveLines = TERM_OFFSET_saveLines
1408     total_rows = TERM_OFFSET_total_rows
1409     top_row = TERM_OFFSET_top_row
1410 root 1.24 CODE:
1411     RETVAL = *(int *)((char *)THIS + ix);
1412     OUTPUT:
1413     RETVAL
1414    
1415 root 1.38 unsigned int
1416     rxvt_term::ModLevel3Mask ()
1417     ALIAS:
1418     ModLevel3Mask = 0
1419     ModMetaMask = 1
1420     ModNumLockMask = 2
1421 root 1.86 current_screen = 3
1422 root 1.87 hidden_cursor = 4
1423 root 1.38 CODE:
1424     switch (ix)
1425     {
1426 root 1.87 case 0: RETVAL = THIS->ModLevel3Mask; break;
1427     case 1: RETVAL = THIS->ModMetaMask; break;
1428     case 2: RETVAL = THIS->ModNumLockMask; break;
1429     case 3: RETVAL = THIS->current_screen; break;
1430 root 1.124 #ifdef CURSOR_BLINK
1431 root 1.87 case 4: RETVAL = THIS->hidden_cursor; break;
1432 root 1.124 #endif
1433 root 1.38 }
1434     OUTPUT:
1435     RETVAL
1436    
1437 root 1.48 char *
1438     rxvt_term::display_id ()
1439 root 1.49 ALIAS:
1440     display_id = 0
1441     locale = 1
1442 root 1.48 CODE:
1443 root 1.49 switch (ix)
1444     {
1445     case 0: RETVAL = THIS->display->id; break;
1446     case 1: RETVAL = THIS->locale; break;
1447     }
1448 root 1.48 OUTPUT:
1449     RETVAL
1450    
1451 root 1.54 SV *
1452 root 1.100 rxvt_term::envv ()
1453     ALIAS:
1454     argv = 1
1455     PPCODE:
1456 root 1.54 {
1457 root 1.100 stringvec *vec = ix ? THIS->argv : THIS->envv;
1458 root 1.54
1459 root 1.100 EXTEND (SP, vec->size ());
1460 root 1.54
1461 root 1.100 for (char **i = vec->begin (); i != vec->end (); ++i)
1462     if (*i)
1463     PUSHs (sv_2mortal (newSVpv (*i, 0)));
1464 root 1.54 }
1465    
1466 root 1.50 int
1467 root 1.116 rxvt_term::pty_ev_events (int events = ev::UNDEF)
1468 root 1.50 CODE:
1469     RETVAL = THIS->pty_ev.events;
1470 root 1.116 if (events != ev::UNDEF)
1471 root 1.50 THIS->pty_ev.set (events);
1472     OUTPUT:
1473     RETVAL
1474    
1475 root 1.90 int
1476     rxvt_term::pty_fd ()
1477     CODE:
1478     RETVAL = THIS->pty->pty;
1479     OUTPUT:
1480     RETVAL
1481    
1482 root 1.79 Window
1483 root 1.31 rxvt_term::parent ()
1484     CODE:
1485 sf-exg 1.140 RETVAL = THIS->parent;
1486 root 1.31 OUTPUT:
1487     RETVAL
1488    
1489 root 1.166 int
1490     rxvt_term::parent_x ()
1491     CODE:
1492     RETVAL = THIS->parent_x;
1493     OUTPUT:
1494     RETVAL
1495    
1496     int
1497     rxvt_term::parent_y ()
1498 root 1.30 CODE:
1499 root 1.166 RETVAL = THIS->parent_y;
1500 root 1.30 OUTPUT:
1501     RETVAL
1502    
1503 sf-exg 1.202 Window
1504     rxvt_term::vt ()
1505     CODE:
1506     RETVAL = THIS->vt;
1507     OUTPUT:
1508     RETVAL
1509    
1510 root 1.62 void
1511     rxvt_term::vt_emask_add (U32 emask)
1512     CODE:
1513     THIS->vt_emask_perl |= emask;
1514     THIS->vt_select_input ();
1515    
1516 root 1.30 U32
1517 root 1.25 rxvt_term::rstyle (U32 new_rstyle = THIS->rstyle)
1518 root 1.7 CODE:
1519 root 1.25 RETVAL = THIS->rstyle;
1520     THIS->rstyle = new_rstyle;
1521 root 1.7 OUTPUT:
1522 root 1.24 RETVAL
1523 root 1.7
1524     int
1525 root 1.67 rxvt_term::view_start (int newval = 1)
1526 root 1.61 PROTOTYPE: $;$
1527 root 1.7 CODE:
1528     {
1529     RETVAL = THIS->view_start;
1530    
1531 root 1.67 if (newval <= 0)
1532     THIS->scr_changeview (max (newval, THIS->top_row));
1533 root 1.7 }
1534     OUTPUT:
1535     RETVAL
1536    
1537 root 1.8 void
1538 sf-exg 1.146 rxvt_term::set_urgency (bool enable)
1539    
1540     void
1541 root 1.83 rxvt_term::focus_in ()
1542    
1543     void
1544     rxvt_term::focus_out ()
1545    
1546     void
1547 root 1.98 rxvt_term::key_press (unsigned int state, unsigned int keycode, Time time = CurrentTime)
1548     ALIAS:
1549     key_release = 1
1550     CODE:
1551     {
1552     XKeyEvent xkey;
1553    
1554     memset (&xkey, 0, sizeof (xkey));
1555    
1556     xkey.time = time;
1557     xkey.state = state;
1558     xkey.keycode = keycode;
1559    
1560     xkey.type = ix ? KeyRelease : KeyPress;
1561     xkey.display = THIS->dpy;
1562     xkey.window = THIS->vt;
1563     xkey.root = THIS->display->root;
1564     xkey.subwindow = THIS->vt;
1565    
1566     if (ix)
1567     THIS->key_release (xkey);
1568     else
1569     THIS->key_press (xkey);
1570     }
1571    
1572     void
1573 root 1.9 rxvt_term::want_refresh ()
1574     CODE:
1575     THIS->want_refresh = 1;
1576 root 1.118 THIS->refresh_check ();
1577 root 1.9
1578     void
1579 root 1.27 rxvt_term::ROW_t (int row_number, SV *new_text = 0, int start_col = 0, int start_ofs = 0, int max_len = MAX_COLS)
1580 root 1.8 PPCODE:
1581     {
1582 root 1.67 if (!IN_RANGE_EXC (row_number, THIS->top_row, THIS->nrow))
1583 root 1.19 XSRETURN_EMPTY;
1584 root 1.8
1585     line_t &l = ROW(row_number);
1586    
1587     if (GIMME_V != G_VOID)
1588     {
1589 root 1.91 wchar_t *wstr = rxvt_temp_buf<wchar_t> (THIS->ncol);
1590 root 1.8
1591 root 1.33 for (int col = 0; col < THIS->ncol; col++)
1592 root 1.8 wstr [col] = l.t [col];
1593    
1594 root 1.71 XPUSHs (sv_2mortal (wcs2sv (wstr, THIS->ncol)));
1595 root 1.8 }
1596    
1597     if (new_text)
1598     {
1599 root 1.13 wchar_t *wstr = sv2wcs (new_text);
1600 root 1.8
1601 root 1.27 int len = min (wcslen (wstr) - start_ofs, max_len);
1602 root 1.8
1603 root 1.83 if (start_col < 0 || start_col + len > THIS->ncol)
1604 root 1.8 {
1605     free (wstr);
1606 root 1.10 croak ("new_text extends beyond horizontal margins");
1607 root 1.8 }
1608    
1609     for (int col = start_col; col < start_col + len; col++)
1610     {
1611 root 1.27 l.t [col] = wstr [start_ofs + col - start_col];
1612 root 1.8 l.r [col] = SET_FONT (l.r [col], THIS->fontset [GET_STYLE (l.r [col])]->find_font (l.t [col]));
1613     }
1614 root 1.9
1615     free (wstr);
1616 root 1.8 }
1617     }
1618    
1619     void
1620 root 1.27 rxvt_term::ROW_r (int row_number, SV *new_rend = 0, int start_col = 0, int start_ofs = 0, int max_len = MAX_COLS)
1621 root 1.8 PPCODE:
1622     {
1623 root 1.67 if (!IN_RANGE_EXC (row_number, THIS->top_row, THIS->nrow))
1624 root 1.19 XSRETURN_EMPTY;
1625 root 1.8
1626     line_t &l = ROW(row_number);
1627    
1628     if (GIMME_V != G_VOID)
1629     {
1630     AV *av = newAV ();
1631    
1632     av_extend (av, THIS->ncol - 1);
1633     for (int col = 0; col < THIS->ncol; col++)
1634     av_store (av, col, newSViv (l.r [col]));
1635    
1636     XPUSHs (sv_2mortal (newRV_noinc ((SV *)av)));
1637     }
1638    
1639     if (new_rend)
1640     {
1641     if (!SvROK (new_rend) || SvTYPE (SvRV (new_rend)) != SVt_PVAV)
1642     croak ("new_rend must be arrayref");
1643    
1644     AV *av = (AV *)SvRV (new_rend);
1645 root 1.76 int len = min (AvFILL (av) + 1 - start_ofs, max_len);
1646 root 1.8
1647 root 1.83 if (start_col < 0 || start_col + len > THIS->ncol)
1648 root 1.10 croak ("new_rend array extends beyond horizontal margins");
1649 root 1.8
1650     for (int col = start_col; col < start_col + len; col++)
1651     {
1652 root 1.27 rend_t r = SvIV (*av_fetch (av, start_ofs + col - start_col, 1)) & ~RS_fontMask;
1653 root 1.8
1654     l.r [col] = SET_FONT (r, THIS->fontset [GET_STYLE (r)]->find_font (l.t [col]));
1655     }
1656     }
1657     }
1658    
1659     int
1660 root 1.26 rxvt_term::ROW_l (int row_number, int new_length = -1)
1661 root 1.8 CODE:
1662     {
1663 root 1.67 if (!IN_RANGE_EXC (row_number, THIS->top_row, THIS->nrow))
1664 root 1.19 XSRETURN_EMPTY;
1665 root 1.8
1666     line_t &l = ROW(row_number);
1667 root 1.26 RETVAL = l.l;
1668 root 1.8
1669 root 1.26 if (new_length >= 0)
1670 root 1.8 l.l = new_length;
1671     }
1672     OUTPUT:
1673     RETVAL
1674    
1675 root 1.19 bool
1676 root 1.26 rxvt_term::ROW_is_longer (int row_number, int new_is_longer = -1)
1677 root 1.19 CODE:
1678     {
1679 root 1.67 if (!IN_RANGE_EXC (row_number, THIS->top_row, THIS->nrow))
1680 root 1.19 XSRETURN_EMPTY;
1681    
1682     line_t &l = ROW(row_number);
1683 root 1.26 RETVAL = l.is_longer ();
1684    
1685     if (new_is_longer >= 0)
1686     l.is_longer (new_is_longer);
1687 root 1.19 }
1688     OUTPUT:
1689     RETVAL
1690    
1691 root 1.8 SV *
1692 root 1.33 rxvt_term::special_encode (SV *string)
1693 root 1.8 CODE:
1694 root 1.33 {
1695     wchar_t *wstr = sv2wcs (string);
1696     int wlen = wcslen (wstr);
1697 root 1.91 wchar_t *rstr = rxvt_temp_buf<wchar_t> (wlen * 2); // cannot become longer
1698 root 1.33
1699     rxvt_push_locale (THIS->locale);
1700    
1701     wchar_t *r = rstr;
1702     for (wchar_t *s = wstr; *s; s++)
1703 root 1.91 {
1704     int w = WCWIDTH (*s);
1705    
1706     if (w == 0)
1707     {
1708     if (r == rstr)
1709     croak ("leading combining character unencodable");
1710 root 1.33
1711 root 1.91 unicode_t n = rxvt_compose (r[-1], *s);
1712     if (n == NOCHAR)
1713     n = rxvt_composite.compose (r[-1], *s);
1714    
1715     r[-1] = n;
1716     }
1717 root 1.33 #if !UNICODE_3
1718 root 1.91 else if (*s >= 0x10000)
1719     *r++ = rxvt_composite.compose (*s);
1720 root 1.33 #endif
1721 root 1.91 else
1722     *r++ = *s;
1723    
1724     // the *2 above only allows wcwidth <= 2
1725     if (w > 1)
1726     *r++ = NOCHAR;
1727     }
1728 root 1.33
1729     rxvt_pop_locale ();
1730    
1731 root 1.71 RETVAL = wcs2sv (rstr, r - rstr);
1732 root 1.33 }
1733     OUTPUT:
1734     RETVAL
1735 root 1.8
1736     SV *
1737 root 1.33 rxvt_term::special_decode (SV *text)
1738 root 1.8 CODE:
1739 root 1.33 {
1740     wchar_t *wstr = sv2wcs (text);
1741     int dlen = 0;
1742    
1743     // find length
1744     for (wchar_t *s = wstr; *s; s++)
1745     if (*s == NOCHAR)
1746     ;
1747     else if (IS_COMPOSE (*s))
1748     dlen += rxvt_composite.expand (*s, 0);
1749     else
1750     dlen++;
1751    
1752 root 1.91 wchar_t *rstr = rxvt_temp_buf<wchar_t> (dlen);
1753 root 1.33
1754     // decode
1755     wchar_t *r = rstr;
1756     for (wchar_t *s = wstr; *s; s++)
1757     if (*s == NOCHAR)
1758     ;
1759     else if (IS_COMPOSE (*s))
1760     r += rxvt_composite.expand (*s, r);
1761     else
1762     *r++ = *s;
1763    
1764 root 1.71 RETVAL = wcs2sv (rstr, r - rstr);
1765 root 1.33 }
1766     OUTPUT:
1767     RETVAL
1768 root 1.8
1769 root 1.1 void
1770 root 1.2 rxvt_term::_resource (char *name, int index, SV *newval = 0)
1771     PPCODE:
1772     {
1773 root 1.97 static const struct resval { const char *name; int value; } *rs, rslist [] = {
1774 root 1.21 # define def(name) { # name, Rs_ ## name },
1775     # define reserve(name,count)
1776 root 1.2 # include "rsinc.h"
1777 root 1.21 # undef def
1778     # undef reserve
1779 root 1.2 };
1780    
1781 sf-exg 1.141 rs = rslist + ecb_array_length (rslist);
1782 root 1.2
1783 root 1.123 if (*name)
1784     {
1785     do {
1786     if (rs-- == rslist)
1787     croak ("no such resource '%s', requested", name);
1788     } while (strcmp (name, rs->name));
1789 root 1.2
1790 root 1.123 index += rs->value;
1791     }
1792     else
1793     {
1794     --rs;
1795     name = "";
1796     }
1797 root 1.2
1798     if (!IN_RANGE_EXC (index, 0, NUM_RESOURCES))
1799     croak ("requested out-of-bound resource %s+%d,", name, index - rs->value);
1800    
1801     if (GIMME_V != G_VOID)
1802 root 1.71 XPUSHs (THIS->rs [index] ? sv_2mortal (newSVpv (THIS->rs [index], 0)) : &PL_sv_undef);
1803 root 1.2
1804     if (newval)
1805     {
1806     if (SvOK (newval))
1807     {
1808     char *str = strdup (SvPVbyte_nolen (newval));
1809     THIS->rs [index] = str;
1810     THIS->allocated.push_back (str);
1811     }
1812     else
1813     THIS->rs [index] = 0;
1814     }
1815     }
1816    
1817 root 1.55 const char *
1818     rxvt_term::x_resource (const char *name)
1819    
1820 root 1.40 bool
1821 ayin 1.113 rxvt_term::option (U8 optval, int set = -1)
1822 root 1.40 CODE:
1823     {
1824 ayin 1.113 RETVAL = THIS->option (optval);
1825 root 1.40
1826     if (set >= 0)
1827     {
1828 ayin 1.113 THIS->set_option (optval, set);
1829 root 1.40
1830 sf-exg 1.150 if (THIS->init_done) // avoid doing this before START
1831 root 1.78 switch (optval)
1832     {
1833     case Opt_skipBuiltinGlyphs:
1834     THIS->set_fonts ();
1835     THIS->scr_remap_chars ();
1836     THIS->scr_touch (true);
1837     THIS->want_refresh = 1;
1838 root 1.118 THIS->refresh_check ();
1839 root 1.78 break;
1840 sf-exg 1.153 #ifdef CURSOR_BLINK
1841     case Opt_cursorBlink:
1842     THIS->cursor_blink_reset ();
1843     break;
1844     #endif
1845    
1846 root 1.78 case Opt_cursorUnderline:
1847 sf-exg 1.225 THIS->cursor_type = set ? 1 : 0;
1848 root 1.78 THIS->want_refresh = 1;
1849 root 1.118 THIS->refresh_check ();
1850 root 1.78 break;
1851 root 1.40
1852     # case Opt_scrollBar_floating:
1853     # case Opt_scrollBar_right:
1854     # THIS->resize_all_windows (THIS->width, THIS->height, 1);
1855     # break;
1856 root 1.78 }
1857 root 1.40 }
1858     }
1859     OUTPUT:
1860     RETVAL
1861    
1862 root 1.50 bool
1863 sf-exg 1.219 rxvt_term::bind_action (char *keysym, char *str)
1864     ALIAS:
1865     parse_keysym = 1
1866 root 1.50 CODE:
1867 sf-exg 1.219 RETVAL = 0 < THIS->bind_action (keysym, str);
1868 root 1.50 THIS->keyboard->register_done ();
1869     OUTPUT:
1870     RETVAL
1871    
1872 root 1.2 void
1873 sf-exg 1.229 rxvt_term::register_command (int keysym, unsigned int state, SV *str)
1874     CODE:
1875     wchar_t *wstr = sv2wcs (str);
1876     THIS->keyboard->register_action (keysym, state, wstr);
1877     free (wstr);
1878    
1879     void
1880 root 1.46 rxvt_term::screen_cur (...)
1881 root 1.1 PROTOTYPE: $;$$
1882     ALIAS:
1883 root 1.24 screen_cur = 0
1884     selection_beg = 1
1885     selection_end = 2
1886     selection_mark = 3
1887 root 1.1 PPCODE:
1888     {
1889 root 1.24 row_col_t &rc = ix == 0 ? THIS->screen.cur
1890     : ix == 1 ? THIS->selection.beg
1891     : ix == 2 ? THIS->selection.end
1892     : THIS->selection.mark;
1893 root 1.1
1894     if (GIMME_V != G_VOID)
1895     {
1896     EXTEND (SP, 2);
1897 root 1.24 PUSHs (sv_2mortal (newSViv (rc.row)));
1898     PUSHs (sv_2mortal (newSViv (rc.col)));
1899 root 1.1 }
1900    
1901 root 1.128 if (items >= 3)
1902 root 1.1 {
1903 root 1.73 rc.row = SvIV (ST (1));
1904     rc.col = SvIV (ST (2));
1905    
1906 root 1.89 if (ix == 2)
1907 root 1.73 {
1908 root 1.89 if (rc.col == 0)
1909     {
1910     // col == 0 means end of previous line
1911     rc.row--;
1912     rc.col = THIS->ncol;
1913     }
1914     else if (IN_RANGE_EXC (rc.row, THIS->top_row, THIS->nrow)
1915     && rc.col > ROW(rc.row).l)
1916     {
1917     // col >= length means while line and add newline
1918     rc.col = THIS->ncol;
1919     }
1920 root 1.73 }
1921    
1922     clamp_it (rc.col, 0, THIS->ncol);
1923     clamp_it (rc.row, THIS->top_row, THIS->nrow - 1);
1924 root 1.1
1925     if (ix)
1926 root 1.118 {
1927 root 1.128 THIS->selection.screen = THIS->current_screen;
1928    
1929 root 1.213 THIS->selection_changed ();
1930 root 1.118 THIS->refresh_check ();
1931     }
1932 root 1.1 }
1933     }
1934    
1935 root 1.128 int
1936     rxvt_term::selection_screen (int screen = -1)
1937 root 1.53 CODE:
1938 root 1.128 RETVAL = THIS->selection.screen;
1939     if (screen >= 0)
1940     THIS->selection.screen = screen;
1941     OUTPUT:
1942 root 1.53 RETVAL
1943    
1944 root 1.93 void
1945 sf-exg 1.215 rxvt_term::selection_request (Time tm, int selnum)
1946    
1947     void
1948 sf-exg 1.129 rxvt_term::selection_clear (bool clipboard = false)
1949    
1950     void
1951 root 1.79 rxvt_term::selection_make (Time eventtime, bool rect = false)
1952 root 1.60 CODE:
1953     THIS->selection.op = SELECTION_CONT;
1954     THIS->selection.rect = rect;
1955     THIS->selection_make (eventtime);
1956    
1957 root 1.1 int
1958 sf-exg 1.129 rxvt_term::selection_grab (Time eventtime, bool clipboard = false)
1959 root 1.1
1960     void
1961 sf-exg 1.130 rxvt_term::selection (SV *newtext = 0, bool clipboard = false)
1962 root 1.1 PPCODE:
1963     {
1964 sf-exg 1.130 wchar_t * &text = clipboard ? THIS->selection.clip_text : THIS->selection.text;
1965     unsigned int &len = clipboard ? THIS->selection.clip_len : THIS->selection.len;
1966    
1967 root 1.1 if (GIMME_V != G_VOID)
1968 sf-exg 1.130 XPUSHs (text
1969     ? sv_2mortal (wcs2sv (text, len))
1970 root 1.45 : &PL_sv_undef);
1971 root 1.1
1972     if (newtext)
1973     {
1974 sf-exg 1.130 free (text);
1975 root 1.1
1976 sf-exg 1.130 text = sv2wcs (newtext);
1977     len = wcslen (text);
1978 root 1.1 }
1979     }
1980 root 1.24
1981 root 1.128 char
1982     rxvt_term::cur_charset ()
1983     CODE:
1984     RETVAL = THIS->charsets [THIS->screen.charset];
1985     OUTPUT:
1986     RETVAL
1987    
1988 root 1.1 void
1989 root 1.51 rxvt_term::scr_xor_rect (int beg_row, int beg_col, int end_row, int end_col, U32 rstyle1 = RS_RVid, U32 rstyle2 = RS_RVid | RS_Uline)
1990    
1991     void
1992     rxvt_term::scr_xor_span (int beg_row, int beg_col, int end_row, int end_col, U32 rstyle = RS_RVid)
1993    
1994     void
1995 root 1.50 rxvt_term::scr_bell ()
1996    
1997     void
1998 root 1.161 rxvt_term::scr_recolour (bool refresh = true);
1999    
2000     void
2001 root 1.86 rxvt_term::scr_change_screen (int screen)
2002    
2003     void
2004 root 1.25 rxvt_term::scr_add_lines (SV *string)
2005     CODE:
2006     {
2007     wchar_t *wstr = sv2wcs (string);
2008 root 1.32 THIS->scr_add_lines (wstr, wcslen (wstr));
2009 root 1.25 free (wstr);
2010     }
2011    
2012     void
2013 sf-exg 1.221 rxvt_term::tt_write_user_input (SV *octets)
2014     INIT:
2015     STRLEN len;
2016     char *str = SvPVbyte (octets, len);
2017     C_ARGS:
2018     str, len
2019    
2020     void
2021 root 1.13 rxvt_term::tt_write (SV *octets)
2022     INIT:
2023     STRLEN len;
2024     char *str = SvPVbyte (octets, len);
2025     C_ARGS:
2026 root 1.23 str, len
2027 root 1.13
2028 root 1.28 void
2029 sf-exg 1.132 rxvt_term::tt_paste (SV *octets)
2030     INIT:
2031     STRLEN len;
2032     char *str = SvPVbyte (octets, len);
2033     C_ARGS:
2034     str, len
2035    
2036     void
2037 root 1.28 rxvt_term::cmd_parse (SV *octets)
2038     CODE:
2039     {
2040     STRLEN len;
2041     char *str = SvPVbyte (octets, len);
2042    
2043     char *old_cmdbuf_ptr = THIS->cmdbuf_ptr;
2044     char *old_cmdbuf_endp = THIS->cmdbuf_endp;
2045    
2046     THIS->cmdbuf_ptr = str;
2047     THIS->cmdbuf_endp = str + len;
2048    
2049 root 1.35 rxvt_push_locale (THIS->locale);
2050 root 1.28 THIS->cmd_parse ();
2051 root 1.35 rxvt_pop_locale ();
2052 root 1.28
2053     THIS->cmdbuf_ptr = old_cmdbuf_ptr;
2054     THIS->cmdbuf_endp = old_cmdbuf_endp;
2055     }
2056    
2057 root 1.13 SV *
2058     rxvt_term::overlay (int x, int y, int w, int h, int rstyle = OVERLAY_RSTYLE, int border = 2)
2059     CODE:
2060     {
2061     overlay *o = new overlay (THIS, x, y, w, h, rstyle, border);
2062     RETVAL = newSVptr ((void *)o, "urxvt::overlay");
2063     o->self = (HV *)SvRV (RETVAL);
2064     }
2065     OUTPUT:
2066     RETVAL
2067    
2068 root 1.79 #############################################################################
2069     # Various X Utility Functions
2070     #############################################################################
2071    
2072     void
2073     rxvt_term::XListProperties (Window window)
2074     PPCODE:
2075     {
2076     int count;
2077 root 1.96 Atom *props = XListProperties (THIS->dpy, window, &count);
2078 root 1.79
2079     EXTEND (SP, count);
2080     while (count--)
2081     PUSHs (newSVuv ((U32)props [count]));
2082 ayin 1.115
2083 root 1.79 XFree (props);
2084     }
2085    
2086     void
2087     rxvt_term::XGetWindowProperty (Window window, Atom property)
2088     PPCODE:
2089     {
2090     Atom type;
2091     int format;
2092     unsigned long nitems;
2093     unsigned long bytes_after;
2094     unsigned char *prop;
2095 root 1.81
2096 root 1.96 XGetWindowProperty (THIS->dpy, window, property,
2097 root 1.81 0, 1<<24, 0, AnyPropertyType,
2098 root 1.79 &type, &format, &nitems, &bytes_after, &prop);
2099 root 1.81
2100 root 1.79 if (type != None)
2101     {
2102 root 1.81 int elemsize = format == 16 ? sizeof (short)
2103     : format == 32 ? sizeof (long)
2104     : 1;
2105    
2106 root 1.79 EXTEND (SP, 3);
2107     PUSHs (newSVuv ((U32)type));
2108     PUSHs (newSViv (format));
2109 root 1.81 PUSHs (newSVpvn ((char *)prop, nitems * elemsize));
2110 root 1.79 XFree (prop);
2111     }
2112     }
2113    
2114     void
2115 root 1.122 rxvt_term::XChangeProperty (Window window, Atom property, Atom type, int format, SV *data)
2116 root 1.79 CODE:
2117     {
2118     STRLEN len;
2119     char *data_ = SvPVbyte (data, len);
2120    
2121 root 1.81 int elemsize = format == 16 ? sizeof (short)
2122     : format == 32 ? sizeof (long)
2123     : 1;
2124    
2125 root 1.96 XChangeProperty (THIS->dpy, window, property,
2126 root 1.79 type, format, PropModeReplace,
2127 root 1.81 (unsigned char *)data_, len / elemsize);
2128 root 1.79 }
2129    
2130 root 1.81 Atom
2131 root 1.159 XInternAtom (rxvt_term *term, octet_string atom_name, int only_if_exists = FALSE)
2132 root 1.96 C_ARGS: term->dpy, atom_name, only_if_exists
2133 root 1.81
2134     char *
2135     XGetAtomName (rxvt_term *term, Atom atom)
2136 root 1.96 C_ARGS: term->dpy, atom
2137 root 1.81 CLEANUP:
2138     XFree (RETVAL);
2139    
2140 root 1.79 void
2141     XDeleteProperty (rxvt_term *term, Window window, Atom property)
2142 root 1.159 C_ARGS: term->dpy, window, property
2143 root 1.79
2144     Window
2145     rxvt_term::DefaultRootWindow ()
2146     CODE:
2147     RETVAL = THIS->display->root;
2148     OUTPUT:
2149     RETVAL
2150    
2151 root 1.81 #if 0
2152    
2153 root 1.79 Window
2154     XCreateSimpleWindow (rxvt_term *term, Window parent, int x, int y, unsigned int width, unsigned int height)
2155 root 1.96 C_ARGS: term->dpy, (Window)parent,
2156 root 1.79 x, y, width, height, 0,
2157     term->pix_colors_focused[Color_border],
2158     term->pix_colors_focused[Color_border]
2159    
2160 root 1.81 #endif
2161    
2162 root 1.79 void
2163     XReparentWindow (rxvt_term *term, Window window, Window parent, int x = 0, int y = 0)
2164 root 1.96 C_ARGS: term->dpy, window, parent, x, y
2165 root 1.79
2166     void
2167     XMapWindow (rxvt_term *term, Window window)
2168 root 1.96 C_ARGS: term->dpy, window
2169 root 1.79
2170     void
2171     XUnmapWindow (rxvt_term *term, Window window)
2172 root 1.96 C_ARGS: term->dpy, window
2173 root 1.79
2174     void
2175     XMoveResizeWindow (rxvt_term *term, Window window, int x, int y, unsigned int width, unsigned int height)
2176 root 1.96 C_ARGS: term->dpy, window, x, y, width, height
2177 root 1.84
2178     void
2179     rxvt_term::XChangeInput (Window window, U32 add_events, U32 del_events = 0)
2180     CODE:
2181     {
2182     XWindowAttributes attr;
2183 root 1.96 XGetWindowAttributes (THIS->dpy, window, &attr);
2184     XSelectInput (THIS->dpy, window, attr.your_event_mask | add_events & ~del_events);
2185 root 1.84 }
2186 root 1.79
2187 root 1.82 void
2188     rxvt_term::XTranslateCoordinates (Window src, Window dst, int x, int y)
2189     PPCODE:
2190     {
2191     int dx, dy;
2192     Window child;
2193    
2194 root 1.96 if (XTranslateCoordinates (THIS->dpy, src, dst, x, y, &dx, &dy, &child))
2195 root 1.82 {
2196     EXTEND (SP, 3);
2197     PUSHs (newSViv (dx));
2198     PUSHs (newSViv (dy));
2199     PUSHs (newSVuv (child));
2200     }
2201     }
2202    
2203 root 1.79 #############################################################################
2204 root 1.158 # fancy bg bloatstuff (TODO: should be moved up somewhere)
2205    
2206 root 1.191 bool
2207     rxvt_term::has_render ()
2208     CODE:
2209     RETVAL = THIS->display->flags & DISPLAY_HAS_RENDER;
2210     OUTPUT:
2211     RETVAL
2212    
2213 root 1.165 void
2214 root 1.181 rxvt_term::background_geometry (bool border = false)
2215 root 1.165 PPCODE:
2216     EXTEND (SP, 4);
2217 root 1.181 PUSHs (sv_2mortal (newSViv (THIS->parent_x + (border ? THIS->window_vt_x : 0))));
2218     PUSHs (sv_2mortal (newSViv (THIS->parent_y + (border ? THIS->window_vt_y : 0))));
2219     PUSHs (sv_2mortal (newSViv (border ? THIS->vt_width : THIS->szHint.width )));
2220     PUSHs (sv_2mortal (newSViv (border ? THIS->vt_height : THIS->szHint.height)));
2221 root 1.165
2222 root 1.162 #if HAVE_IMG
2223    
2224     rxvt_img *
2225 root 1.199 rxvt_term::new_img (SV *format = &PL_sv_undef, int x = 0, int y = 0, int width = 1, int height = 1)
2226 root 1.162 CODE:
2227     XRenderPictFormat *f = SvOK (format)
2228 sf-exg 1.168 ? XRenderFindStandardFormat (THIS->dpy, SvIV (format))
2229     : XRenderFindVisualFormat (THIS->dpy, THIS->visual);
2230 root 1.196 RETVAL = new rxvt_img (THIS, f, x, y, width, height);
2231 root 1.189 RETVAL->alloc ();
2232 root 1.162 OUTPUT:
2233     RETVAL
2234    
2235 root 1.160 #if ENABLE_TRANSPARENCY
2236 root 1.158
2237 root 1.159 rxvt_img *
2238     rxvt_term::new_img_from_root ()
2239     CODE:
2240     RETVAL = rxvt_img::new_from_root (THIS);
2241     OUTPUT:
2242     RETVAL
2243    
2244     #endif
2245 root 1.158
2246     #if HAVE_PIXBUF
2247    
2248 root 1.159 rxvt_img *
2249     rxvt_term::new_img_from_file (octet_string filename)
2250     CODE:
2251     try
2252     {
2253     RETVAL = rxvt_img::new_from_file (THIS, filename);
2254     }
2255     catch (const class rxvt_failure_exception &e)
2256     {
2257     croak ("new_img_from_file failed");
2258     }
2259     OUTPUT:
2260     RETVAL
2261    
2262 root 1.158 #endif
2263    
2264 root 1.161 void
2265 root 1.180 rxvt_term::set_background (rxvt_img *img, bool border = false)
2266 root 1.161 CODE:
2267 sf-exg 1.210 delete THIS->bg_img;
2268     THIS->bg_img = 0;
2269 sf-exg 1.211 THIS->bg_flags = 0;
2270 root 1.161
2271     if (img) // TODO: cannot be false
2272     {
2273 root 1.183 img = img->clone (); // own the img
2274    
2275     if (img->repeat != RepeatNormal) // X11 only supports RepeatNormal as bg pixmap
2276 root 1.206 img->sub_rect (0, 0,
2277     border ? THIS->vt_width : THIS->szHint.width,
2278     border ? THIS->vt_height : THIS->szHint.height)
2279     ->replace (img);
2280 root 1.187
2281     // just in case, should usually be a nop
2282     img->reify ()
2283     ->replace (img);
2284    
2285     img->convert_format (XRenderFindVisualFormat (THIS->dpy, THIS->visual), THIS->pix_colors [Color_bg])
2286     ->replace (img);
2287 root 1.186
2288 sf-exg 1.190 THIS->bg_img = img;
2289 sf-exg 1.179 THIS->bg_flags |= rxvt_term::BG_NEEDS_REFRESH | rxvt_term::BG_INHIBIT_RENDER;
2290 root 1.180
2291     if (!border)
2292     THIS->bg_flags |= rxvt_term::BG_IS_TRANSPARENT;
2293 root 1.161 }
2294    
2295     #endif
2296    
2297 root 1.158 #############################################################################
2298 root 1.79 # urxvt::overlay
2299     #############################################################################
2300    
2301 root 1.13 MODULE = urxvt PACKAGE = urxvt::overlay
2302 root 1.1
2303     void
2304 root 1.13 overlay::set (int x, int y, SV *text, SV *rend = 0)
2305 root 1.1
2306     void
2307 root 1.18 overlay::show ()
2308    
2309     void
2310     overlay::hide ()
2311    
2312     void
2313 root 1.13 overlay::DESTROY ()
2314 root 1.1
2315 root 1.109 INCLUDE: $PERL <iom_perl.xs -pe s/IOM_MODULE/urxvt/g,s/IOM_CLASS/urxvt/g |
2316 root 1.1
2317 root 1.155 MODULE = urxvt PACKAGE = urxvt::pixbuf PREFIX = gdk_pixbuf_
2318    
2319 root 1.156 #if HAVE_PIXBUF
2320    
2321     urxvt::pixbuf gdk_pixbuf_new_from_file (SV *klass, octet_string filename)
2322     C_ARGS: filename, 0
2323 root 1.155
2324     void
2325     DESTROY (urxvt::pixbuf self)
2326     CODE:
2327 sf-exg 1.201 g_object_unref (self);
2328 root 1.155
2329 root 1.156 #endif
2330    
2331     MODULE = urxvt PACKAGE = urxvt::img
2332    
2333     #if HAVE_IMG
2334    
2335 root 1.158 # rxvt_img *new (rxvt_screen *screen, XRenderPictFormat *format, int width, int height)
2336     # rxvt_img *rxvt_img (rxvt_screen *screen, XRenderPictFormat *format, int width, int height, Pixmap pixmap);
2337 root 1.156
2338 root 1.196 void
2339     rxvt_img::geometry ()
2340     PPCODE:
2341     EXTEND (SP, 4);
2342     PUSHs (sv_2mortal (newSViv (THIS->x)));
2343     PUSHs (sv_2mortal (newSViv (THIS->y)));
2344     PUSHs (sv_2mortal (newSViv (THIS->w)));
2345     PUSHs (sv_2mortal (newSViv (THIS->h)));
2346    
2347     int
2348     rxvt_img::x ()
2349 root 1.200 ALIAS:
2350     x = 0
2351     y = 1
2352     w = 2
2353     h = 3
2354     CODE:
2355     switch (ix)
2356     {
2357     case 0: RETVAL = THIS->x; break;
2358     case 1: RETVAL = THIS->y; break;
2359     case 2: RETVAL = THIS->w; break;
2360     case 3: RETVAL = THIS->h; break;
2361     }
2362 root 1.162 OUTPUT:
2363     RETVAL
2364    
2365     Pixmap
2366     rxvt_img::pm ()
2367     CODE:
2368     RETVAL = THIS->pm;
2369     OUTPUT:
2370     RETVAL
2371    
2372 root 1.158 void
2373 root 1.204 rxvt_img::fill (SV *c, int x = 0, int y = 0, int w = THIS->w, int h = THIS->h)
2374     PROTOTYPE: $;$$$$
2375 root 1.158 INIT:
2376 root 1.194 rgba cc = parse_rgba (c, THIS->s);
2377 root 1.204 C_ARGS: cc, x, y, w, h
2378 root 1.156
2379 root 1.158 void
2380 root 1.159 rxvt_img::DESTROY ()
2381     CODE:
2382     delete THIS;
2383    
2384 root 1.176 void
2385 root 1.200 rxvt_img::add_alpha ()
2386    
2387     void
2388 root 1.176 rxvt_img::unshare ()
2389    
2390 root 1.200 void
2391 root 1.183 rxvt_img::repeat_mode (render_repeat_mode repeat = 0)
2392 root 1.200 PPCODE:
2393 root 1.183 if (items >= 2)
2394     THIS->repeat_mode (repeat);
2395     if (GIMME_V != G_VOID)
2396     XPUSHs (sv_2mortal (newSViv (THIS->repeat)));
2397 root 1.176
2398     void
2399     rxvt_img::move (int dx, int dy)
2400 root 1.156
2401 root 1.158 void
2402 root 1.197 rxvt_img::brightness (rxvt_img::nv r, rxvt_img::nv g, rxvt_img::nv b, rxvt_img::nv a = 1.)
2403 root 1.159
2404     void
2405 root 1.197 rxvt_img::contrast (rxvt_img::nv r, rxvt_img::nv g, rxvt_img::nv b, rxvt_img::nv a = 1.)
2406 root 1.156
2407 root 1.199 void
2408     rxvt_img::draw (rxvt_img *img, int op = PictOpOver, rxvt_img::nv mask = 1.);
2409    
2410 root 1.176 rxvt_img *
2411     rxvt_img::clone ()
2412 root 1.156
2413 root 1.158 rxvt_img *
2414 root 1.178 rxvt_img::reify ()
2415    
2416     rxvt_img *
2417 root 1.176 rxvt_img::sub_rect (int x, int y, int width, int height)
2418 root 1.156
2419 root 1.158 rxvt_img *
2420 root 1.176 rxvt_img::blur (int rh, int rv)
2421 root 1.167
2422     rxvt_img *
2423 root 1.205 rxvt_img::muladd (rxvt_img::nv mul, rxvt_img::nv add)
2424    
2425     rxvt_img *
2426 root 1.197 rxvt_img::transform (rxvt_img::nv p11, rxvt_img::nv p12, rxvt_img::nv p13, rxvt_img::nv p21, rxvt_img::nv p22, rxvt_img::nv p23, rxvt_img::nv p31, rxvt_img::nv p32, rxvt_img::nv p33)
2427 root 1.159 INIT:
2428 root 1.197 rxvt_img::nv matrix[3][3] = {
2429 root 1.193 { p11, p12, p13 },
2430     { p21, p22, p23 },
2431     { p31, p32, p33 }
2432 root 1.159 };
2433 root 1.193 C_ARGS: matrix
2434 root 1.156
2435 root 1.164 rxvt_img *
2436     rxvt_img::scale (int new_width, int new_height)
2437    
2438     rxvt_img *
2439 root 1.197 rxvt_img::rotate (int x, int y, rxvt_img::nv phi)
2440 root 1.164
2441 root 1.203 rxvt_img *
2442 root 1.200 rxvt_img::tint (SV *c)
2443     INIT:
2444     rgba cc = parse_rgba (c, THIS->s);
2445     C_ARGS: cc
2446    
2447     rxvt_img *
2448 sf-exg 1.212 rxvt_img::shade (rxvt_img::nv factor)
2449    
2450     rxvt_img *
2451 root 1.200 rxvt_img::filter (octet_string name, SV *params = &PL_sv_undef)
2452     CODE:
2453     rxvt_img::nv *vparams = 0;
2454     int nparams = 0;
2455    
2456     if (SvOK (params))
2457     {
2458     if (!SvROK (params) || SvTYPE (SvRV (params)) != SVt_PVAV)
2459     croak ("rxvt_img::filter: params must be an array reference with parameter values");
2460    
2461     nparams = av_len ((AV *)SvRV (params)) + 1;
2462 sf-exg 1.214 vparams = (rxvt_img::nv *)malloc (nparams * sizeof (rxvt_img::nv));
2463 root 1.200
2464     for (int i = 0; i < nparams; ++i)
2465     vparams [i] = SvNV (*av_fetch ((AV *)SvRV (params), i, 1));
2466     }
2467    
2468     RETVAL = THIS->filter (name, nparams, vparams);
2469 sf-exg 1.214 free (vparams);
2470 root 1.200 OUTPUT:
2471     RETVAL
2472    
2473 root 1.156 #endif
2474