ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/rxvtperl.xs
Revision: 1.102
Committed: Thu Jul 6 23:48:11 2006 UTC (17 years, 11 months ago) by root
Branch: MAIN
CVS Tags: rel-7_8, rel-7_9
Changes since 1.101: +47 -15 lines
Log Message:
*** empty log message ***

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.31 * Copyright (c) 2005-2006 Marc Lehmann <pcg@goof.com>
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     * the Free Software Foundation; either version 2 of the License, or
11     * (at your option) any later version.
12     *
13     * This program is distributed in the hope that it will be useful,
14     * but WITHOUT ANY WARRANTY; without even the implied warranty of
15     * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16     * GNU General Public License for more details.
17     *
18     * You should have received a copy of the GNU General Public License
19     * along with this program; if not, write to the Free Software
20     * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
21     *----------------------------------------------------------------------*/
22    
23     #define line_t perl_line_t
24     #include <EXTERN.h>
25     #include <perl.h>
26     #include <XSUB.h>
27     #undef line_t
28    
29     #include "../config.h"
30    
31 root 1.38 #include <cstddef>
32 root 1.1 #include <cstdarg>
33    
34 root 1.59 #include "unistd.h"
35    
36 root 1.50 #include "iom.h"
37 root 1.1 #include "rxvt.h"
38 root 1.50 #include "keyboard.h"
39 root 1.1 #include "rxvtutil.h"
40     #include "rxvtperl.h"
41    
42     #include "perlxsi.c"
43    
44 root 1.69 #ifdef HAVE_SCROLLBARS
45 root 1.41 # define GRAB_CURSOR THIS->leftptr_cursor
46     #else
47     # define GRAB_CURSOR None
48     #endif
49    
50 root 1.8 #undef LINENO
51     #define LINENO(n) MOD (THIS->term_start + int(n), THIS->total_rows)
52     #undef ROW
53     #define ROW(n) THIS->row_buf [LINENO (n)]
54    
55 root 1.79 typedef int CHAINED UNUSED;
56 root 1.64
57 root 1.1 /////////////////////////////////////////////////////////////////////////////
58    
59     static wchar_t *
60     sv2wcs (SV *sv)
61     {
62     STRLEN len;
63     char *str = SvPVutf8 (sv, len);
64     return rxvt_utf8towcs (str, len);
65     }
66    
67     static SV *
68 root 1.25 wcs2sv (wchar_t *wstr, int len = -1)
69     {
70     char *str = rxvt_wcstoutf8 (wstr, len);
71    
72     SV *sv = newSVpv (str, 0);
73     SvUTF8_on (sv);
74     free (str);
75    
76     return sv;
77     }
78    
79     static SV *
80 root 1.1 new_ref (HV *hv, const char *klass)
81     {
82     return sv_bless (newRV ((SV *)hv), gv_stashpv (klass, 1));
83     }
84    
85     static SV *
86     newSVptr (void *ptr, const char *klass)
87     {
88     HV *hv = newHV ();
89 root 1.18 sv_magic ((SV *)hv, 0, PERL_MAGIC_ext, (char *)ptr, 0);
90 root 1.1 return sv_bless (newRV_noinc ((SV *)hv), gv_stashpv (klass, 1));
91     }
92    
93 root 1.18 static void
94     clearSVptr (SV *sv)
95     {
96     if (SvROK (sv))
97     sv = SvRV (sv);
98    
99     hv_clear ((HV *)sv);
100     sv_unmagic (sv, PERL_MAGIC_ext);
101     }
102    
103 root 1.1 static long
104     SvPTR (SV *sv, const char *klass)
105     {
106     if (!sv_derived_from (sv, klass))
107     croak ("object of type %s expected", klass);
108    
109 root 1.18 MAGIC *mg = mg_find (SvRV (sv), PERL_MAGIC_ext);
110 root 1.1
111 root 1.18 if (!mg)
112 root 1.1 croak ("perl code used %s object, but C++ object is already destroyed, caught", klass);
113    
114 root 1.18 return (long)mg->mg_ptr;
115 root 1.1 }
116    
117 root 1.95 #define newSVterm(term) SvREFCNT_inc ((SV *)(term)->perl.self)
118     #define SvTERM(sv) (rxvt_term *)SvPTR ((sv), "urxvt::term")
119 root 1.1
120     /////////////////////////////////////////////////////////////////////////////
121    
122 root 1.79 #define SvWATCHER(sv) (perl_watcher *)SvPTR (sv, "urxvt::watcher")
123    
124 root 1.1 struct perl_watcher
125     {
126     SV *cbsv;
127     HV *self;
128    
129     perl_watcher ()
130 root 1.79 : cbsv (0)
131 root 1.1 {
132     }
133    
134     ~perl_watcher ()
135     {
136     SvREFCNT_dec (cbsv);
137     }
138    
139     void cb (SV *cb)
140     {
141 root 1.79 SvREFCNT_dec (cbsv);
142     cbsv = newSVsv (cb);
143 root 1.1 }
144    
145     void invoke (const char *type, SV *self, int arg = -1);
146     };
147    
148     void
149     perl_watcher::invoke (const char *type, SV *self, int arg)
150     {
151     dSP;
152    
153     ENTER;
154     SAVETMPS;
155    
156     PUSHMARK (SP);
157    
158     XPUSHs (sv_2mortal (self));
159    
160     if (arg >= 0)
161     XPUSHs (sv_2mortal (newSViv (arg)));
162    
163     PUTBACK;
164     call_sv (cbsv, G_VOID | G_EVAL | G_DISCARD);
165     SPAGAIN;
166    
167     PUTBACK;
168     FREETMPS;
169     LEAVE;
170    
171     if (SvTRUE (ERRSV))
172     rxvt_warn ("%s callback evaluation error: %s", type, SvPV_nolen (ERRSV));
173     }
174    
175 root 1.95 #define newSVtimer(timer) new_ref ((timer)->self, "urxvt::timer")
176     #define SvTIMER(sv) (timer *)(perl_watcher *)SvPTR ((sv), "urxvt::timer")
177 root 1.1
178 root 1.79 struct timer : perl_watcher, time_watcher
179 root 1.1 {
180 root 1.13 tstamp interval;
181    
182 root 1.1 timer ()
183     : time_watcher (this, &timer::execute)
184     {
185     }
186    
187     void execute (time_watcher &w)
188     {
189 root 1.13 if (interval)
190     start (at + interval);
191    
192 root 1.1 invoke ("urxvt::timer", newSVtimer (this));
193     }
194     };
195    
196 root 1.95 #define newSViow(iow) new_ref ((iow)->self, "urxvt::iow")
197     #define SvIOW(sv) (iow *)(perl_watcher *)SvPTR ((sv), "urxvt::iow")
198 root 1.1
199 root 1.79 struct iow : perl_watcher, io_watcher
200 root 1.1 {
201     iow ()
202     : io_watcher (this, &iow::execute)
203     {
204     }
205    
206     void execute (io_watcher &w, short revents)
207     {
208     invoke ("urxvt::iow", newSViow (this), revents);
209     }
210     };
211    
212 root 1.95 #define newSViw(iw) new_ref ((iw)->self, "urxvt::iw")
213     #define SvIW(sv) (iw *)(perl_watcher *)SvPTR ((sv), "urxvt::iw")
214 root 1.79
215     struct iw : perl_watcher, idle_watcher
216     {
217     iw ()
218     : idle_watcher (this, &iw::execute)
219     {
220     }
221    
222     void execute (idle_watcher &w)
223     {
224     invoke ("urxvt::iw", newSViw (this));
225     }
226     };
227    
228 root 1.95 #define newSVpw(pw) new_ref ((pw)->self, "urxvt::pw")
229     #define SvPW(sv) (pw *)(perl_watcher *)SvPTR ((sv), "urxvt::pw")
230 root 1.79
231     struct pw : perl_watcher, child_watcher
232     {
233     pw ()
234     : child_watcher (this, &pw::execute)
235     {
236     }
237    
238     void execute (child_watcher &w, int status)
239     {
240     invoke ("urxvt::pw", newSVpw (this), status);
241     }
242     };
243    
244 root 1.1 /////////////////////////////////////////////////////////////////////////////
245    
246 root 1.13 #define SvOVERLAY(sv) (overlay *)SvPTR (sv, "urxvt::overlay")
247    
248 root 1.93 class overlay {
249 root 1.13 rxvt_term *THIS;
250 root 1.93 AV *overlay_av;
251 root 1.13 int x, y, w, h;
252     int border;
253     text_t **text;
254     rend_t **rend;
255    
256 root 1.93 public:
257     HV *self;
258    
259 root 1.13 overlay (rxvt_term *THIS, int x_, int y_, int w_, int h_, rend_t rstyle, int border);
260     ~overlay ();
261    
262 root 1.18 void show ();
263     void hide ();
264    
265 root 1.13 void swap ();
266    
267     void set (int x, int y, SV *str, SV *rend);
268     };
269    
270     overlay::overlay (rxvt_term *THIS, int x_, int y_, int w_, int h_, rend_t rstyle, int border)
271 root 1.93 : THIS(THIS), x(x_), y(y_), w(w_), h(h_), border(border == 2), overlay_av (0)
272 root 1.13 {
273     if (border == 2)
274     {
275     w += 2;
276     h += 2;
277     }
278    
279     text = new text_t *[h];
280     rend = new rend_t *[h];
281 root 1.24
282 root 1.13 for (int y = 0; y < h; y++)
283 root 1.24 {
284 root 1.13 text_t *tp = text[y] = new text_t[w];
285     rend_t *rp = rend[y] = new rend_t[w];
286 root 1.24
287 root 1.13 text_t t0, t1, t2;
288     rend_t r = rstyle;
289 root 1.24
290 root 1.13 if (border == 2)
291     {
292     if (y == 0)
293     t0 = 0x2554, t1 = 0x2550, t2 = 0x2557;
294     else if (y < h - 1)
295     t0 = 0x2551, t1 = 0x0020, t2 = 0x2551;
296     else
297     t0 = 0x255a, t1 = 0x2550, t2 = 0x255d;
298 root 1.24
299     *tp++ = t0;
300 root 1.13 *rp++ = r;
301 root 1.24
302 root 1.13 for (int x = w - 2; x-- > 0; )
303     {
304     *tp++ = t1;
305     *rp++ = r;
306 root 1.24 }
307 root 1.13
308     *tp = t2;
309 root 1.24 *rp = r;
310 root 1.13 }
311     else
312     for (int x = w; x-- > 0; )
313     {
314     *tp++ = 0x0020;
315     *rp++ = r;
316 root 1.24 }
317     }
318 root 1.13
319 root 1.18 show ();
320 root 1.13 }
321    
322     overlay::~overlay ()
323     {
324 root 1.18 hide ();
325    
326 root 1.13 for (int y = h; y--; )
327     {
328     delete [] text[y];
329     delete [] rend[y];
330     }
331    
332     delete [] text;
333     delete [] rend;
334     }
335    
336 root 1.18 void
337     overlay::show ()
338     {
339 root 1.93 if (overlay_av)
340 root 1.76 return;
341    
342 root 1.93 overlay_av = (AV *)SvREFCNT_inc (SvRV (
343     *hv_fetch ((HV *)SvRV ((SV *)THIS->perl.self), "_overlay", 8, 0)
344     ));
345     av_push (overlay_av, newSViv ((long)this));
346 root 1.18
347 root 1.93 THIS->want_refresh = 1;
348 root 1.18 }
349    
350     void
351     overlay::hide ()
352     {
353 root 1.93 if (!overlay_av)
354 root 1.76 return;
355    
356     int i;
357 root 1.18
358 root 1.93 for (i = AvFILL (overlay_av); i >= 0; i--)
359     if (SvIV (*av_fetch (overlay_av, i, 1)) == (long)this)
360 root 1.101 break;
361 root 1.76
362 root 1.93 for (; i < AvFILL (overlay_av); i++)
363     av_store (overlay_av, i, SvREFCNT_inc (*av_fetch (overlay_av, i + 1, 0)));
364    
365     av_pop (overlay_av);
366 root 1.18
367 root 1.93 SvREFCNT_dec (overlay_av);
368     overlay_av = 0;
369    
370     THIS->want_refresh = 1;
371 root 1.18 }
372    
373 root 1.13 void overlay::swap ()
374     {
375     int ov_x = max (0, min (MOD (x, THIS->ncol), THIS->ncol - w));
376     int ov_y = max (0, min (MOD (y, THIS->nrow), THIS->nrow - h));
377    
378     int ov_w = min (w, THIS->ncol - ov_x);
379     int ov_h = min (h, THIS->nrow - ov_y);
380    
381     for (int y = ov_h; y--; )
382     {
383     text_t *t1 = text [y];
384     rend_t *r1 = rend [y];
385 root 1.24
386 root 1.67 text_t *t2 = ROW(y + ov_y + THIS->view_start).t + ov_x;
387     rend_t *r2 = ROW(y + ov_y + THIS->view_start).r + ov_x;
388 root 1.13
389     for (int x = ov_w; x--; )
390 root 1.24 {
391 root 1.13 text_t t = *t1; *t1++ = *t2; *t2++ = t;
392     rend_t r = *r1; *r1++ = *r2; *r2++ = SET_FONT (r, THIS->fontset [GET_STYLE (r)]->find_font (t));
393     }
394     }
395    
396     }
397    
398 root 1.14 void overlay::set (int x, int y, SV *text, SV *rend)
399 root 1.13 {
400     x += border;
401     y += border;
402    
403     if (!IN_RANGE_EXC (y, 0, h - border))
404     return;
405    
406 root 1.14 wchar_t *wtext = sv2wcs (text);
407 root 1.13
408 root 1.14 for (int col = min (wcslen (wtext), w - x - border); col--; )
409     this->text [y][x + col] = wtext [col];
410 root 1.24
411 root 1.14 free (wtext);
412    
413     if (rend)
414     {
415     if (!SvROK (rend) || SvTYPE (SvRV (rend)) != SVt_PVAV)
416     croak ("rend must be arrayref");
417    
418     AV *av = (AV *)SvRV (rend);
419    
420 root 1.76 for (int col = min (AvFILL (av) + 1, w - x - border); col--; )
421 root 1.14 this->rend [y][x + col] = SvIV (*av_fetch (av, col, 1));
422     }
423 root 1.13
424     THIS->want_refresh = 1;
425     }
426    
427    
428     /////////////////////////////////////////////////////////////////////////////
429    
430 root 1.1 struct rxvt_perl_interp rxvt_perl;
431    
432     static PerlInterpreter *perl;
433    
434     rxvt_perl_interp::~rxvt_perl_interp ()
435     {
436     if (perl)
437     {
438     perl_destruct (perl);
439     perl_free (perl);
440     }
441     }
442    
443     void
444 root 1.68 rxvt_perl_interp::init (rxvt_term *term)
445 root 1.1 {
446     if (!perl)
447     {
448 root 1.68 rxvt_push_locale (""); // perl init destroys current locale
449    
450 root 1.57 perl_environ = rxvt_environ;
451     swap (perl_environ, environ);
452 root 1.56
453 root 1.1 char *argv[] = {
454     "",
455 root 1.72 "-e"
456     "BEGIN {"
457     " urxvt->bootstrap;"
458     " unshift @INC, '" LIBDIR "';"
459     "}"
460     ""
461     "use urxvt;"
462 root 1.1 };
463    
464     perl = perl_alloc ();
465     perl_construct (perl);
466    
467 root 1.71 if (perl_parse (perl, xs_init, 2, argv, (char **)NULL)
468 root 1.1 || perl_run (perl))
469     {
470     rxvt_warn ("unable to initialize perl-interpreter, continuing without.\n");
471    
472     perl_destruct (perl);
473     perl_free (perl);
474     perl = 0;
475     }
476 root 1.57
477     swap (perl_environ, environ);
478 root 1.68
479     rxvt_pop_locale ();
480 root 1.1 }
481 root 1.68
482 root 1.70 if (perl)
483     {
484     // runs outside of perls ENV
485     term->perl.self = (void *)newSVptr ((void *)term, "urxvt::term");
486 root 1.76 hv_store ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, newRV_noinc ((SV *)newAV ()), 0);
487 root 1.70 }
488 root 1.1 }
489    
490 root 1.45 static void
491     ungrab (rxvt_term *THIS)
492     {
493     if (THIS->perl.grabtime)
494     {
495 root 1.96 XUngrabKeyboard (THIS->dpy, THIS->perl.grabtime);
496     XUngrabPointer (THIS->dpy, THIS->perl.grabtime);
497 root 1.45 THIS->perl.grabtime = 0;
498     }
499     }
500    
501 root 1.1 bool
502     rxvt_perl_interp::invoke (rxvt_term *term, hook_type htype, ...)
503     {
504 root 1.68 if (!perl || !term->perl.self)
505 root 1.1 return false;
506 root 1.24
507 root 1.68 // pre-handling of some events
508     if (htype == HOOK_REFRESH_END)
509 root 1.76 {
510     AV *av = (AV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, 0));
511    
512     for (int i = 0; i <= AvFILL (av); i++)
513     ((overlay *)SvIV (*av_fetch (av, i, 0)))->swap ();
514     }
515 root 1.1
516 root 1.57 swap (perl_environ, environ);
517 root 1.56
518 root 1.68 bool event_consumed;
519 root 1.1
520 root 1.68 if (htype == HOOK_INIT || htype == HOOK_DESTROY // must be called always
521     || term->perl.should_invoke [htype])
522     try
523     {
524     dSP;
525     va_list ap;
526 root 1.1
527 root 1.68 va_start (ap, htype);
528 root 1.1
529 root 1.68 ENTER;
530     SAVETMPS;
531 root 1.1
532 root 1.68 PUSHMARK (SP);
533 root 1.1
534 root 1.68 XPUSHs (sv_2mortal (newSVterm (term)));
535     XPUSHs (sv_2mortal (newSViv (htype)));
536 root 1.1
537 root 1.68 for (;;) {
538     data_type dt = (data_type)va_arg (ap, int);
539 root 1.1
540 root 1.68 switch (dt)
541     {
542     case DT_INT:
543     XPUSHs (sv_2mortal (newSViv (va_arg (ap, int))));
544     break;
545    
546     case DT_LONG:
547     XPUSHs (sv_2mortal (newSViv (va_arg (ap, long))));
548     break;
549    
550     case DT_STR:
551 root 1.71 XPUSHs (sv_2mortal (newSVpv (va_arg (ap, char *), 0)));
552 root 1.68 break;
553    
554     case DT_STR_LEN:
555     {
556     char *str = va_arg (ap, char *);
557 root 1.91 int len = va_arg (ap, int);
558 root 1.68
559 root 1.71 XPUSHs (sv_2mortal (newSVpvn (str, len)));
560 root 1.68 }
561     break;
562    
563     case DT_WCS_LEN:
564     {
565     wchar_t *wstr = va_arg (ap, wchar_t *);
566 root 1.91 int wlen = va_arg (ap, int);
567 root 1.68
568 root 1.71 XPUSHs (sv_2mortal (wcs2sv (wstr, wlen)));
569 root 1.68 }
570     break;
571    
572 root 1.91 case DT_LCS_LEN:
573     {
574     long *lstr = va_arg (ap, long *);
575     int llen = va_arg (ap, int);
576    
577     XPUSHs (sv_2mortal (newSVpvn ((char *)lstr, llen * sizeof (long))));
578     }
579     break;
580    
581 root 1.68 case DT_XEVENT:
582     {
583     XEvent *xe = va_arg (ap, XEvent *);
584     HV *hv = newHV ();
585 root 1.29
586 root 1.91 # define set(name, sv) hv_store (hv, # name, sizeof (# name) - 1, sv, 0)
587     # define setiv(name, val) hv_store (hv, # name, sizeof (# name) - 1, newSViv (val), 0)
588     # define setuv(name, val) hv_store (hv, # name, sizeof (# name) - 1, newSVuv (val), 0)
589     # undef set
590 root 1.29
591 root 1.68 setiv (type, xe->type);
592     setiv (send_event, xe->xany.send_event);
593     setiv (serial, xe->xany.serial);
594    
595     switch (xe->type)
596     {
597     case KeyPress:
598     case KeyRelease:
599     case ButtonPress:
600     case ButtonRelease:
601     case MotionNotify:
602 root 1.74 setuv (window, xe->xmotion.window);
603     setuv (root, xe->xmotion.root);
604     setuv (subwindow, xe->xmotion.subwindow);
605     setuv (time, xe->xmotion.time);
606     setiv (x, xe->xmotion.x);
607     setiv (y, xe->xmotion.y);
608 root 1.85 setiv (row, xe->xmotion.y / term->fheight + term->view_start);
609 root 1.74 setiv (col, xe->xmotion.x / term->fwidth);
610     setiv (x_root, xe->xmotion.x_root);
611     setiv (y_root, xe->xmotion.y_root);
612     setuv (state, xe->xmotion.state);
613    
614     switch (xe->type)
615     {
616     case KeyPress:
617     case KeyRelease:
618     setuv (keycode, xe->xkey.keycode);
619     break;
620    
621     case ButtonPress:
622     case ButtonRelease:
623     setuv (button, xe->xbutton.button);
624     break;
625    
626     case MotionNotify:
627     setiv (is_hint, xe->xmotion.is_hint);
628     break;
629     }
630 root 1.68
631     break;
632    
633 root 1.74 case MapNotify:
634     case UnmapNotify:
635     case ConfigureNotify:
636     setuv (event, xe->xconfigure.event);
637     setuv (window, xe->xconfigure.window);
638    
639     switch (xe->type)
640     {
641     case ConfigureNotify:
642     setiv (x, xe->xconfigure.x);
643     setiv (y, xe->xconfigure.y);
644     setiv (width, xe->xconfigure.width);
645     setiv (height, xe->xconfigure.height);
646     setuv (above, xe->xconfigure.above);
647     break;
648     }
649 root 1.68
650     break;
651 root 1.80
652 root 1.84 case PropertyNotify:
653     setuv (window, xe->xproperty.window);
654     setuv (atom, xe->xproperty.atom);
655     setuv (time, xe->xproperty.time);
656     setiv (state, xe->xproperty.state);
657     break;
658    
659 root 1.80 case ClientMessage:
660     setuv (window, xe->xclient.window);
661     setuv (message_type, xe->xclient.message_type);
662     setuv (format, xe->xclient.format);
663     setuv (l0, xe->xclient.data.l[0]);
664     setuv (l1, xe->xclient.data.l[1]);
665     setuv (l2, xe->xclient.data.l[2]);
666     setuv (l3, xe->xclient.data.l[3]);
667     setuv (l4, xe->xclient.data.l[4]);
668 root 1.84 break;
669 root 1.68 }
670    
671     XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));
672     }
673     break;
674    
675     case DT_END:
676     goto call;
677    
678     default:
679     rxvt_fatal ("FATAL: unable to pass data type %d\n", dt);
680     }
681     }
682 root 1.29
683 root 1.68 call:
684     va_end (ap);
685 root 1.29
686 root 1.68 PUTBACK;
687     int count = call_pv ("urxvt::invoke", G_ARRAY | G_EVAL);
688     SPAGAIN;
689 root 1.29
690 root 1.68 if (count)
691     {
692     SV *status = POPs;
693     count = SvTRUE (status);
694     }
695 root 1.29
696 root 1.68 PUTBACK;
697     FREETMPS;
698     LEAVE;
699 root 1.29
700 root 1.68 if (SvTRUE (ERRSV))
701     {
702     rxvt_warn ("perl hook %d evaluation error: %s", htype, SvPV_nolen (ERRSV));
703     ungrab (term); // better lose the grab than the session
704 root 1.29 }
705 root 1.68
706     event_consumed = !!count;
707 root 1.1 }
708 root 1.68 catch (...)
709     {
710     swap (perl_environ, environ);
711     throw;
712     }
713     else
714     event_consumed = false;
715    
716     // post-handling of some events
717     if (htype == HOOK_REFRESH_BEGIN)
718 root 1.76 {
719     AV *av = (AV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, 0));
720    
721     for (int i = AvFILL (av); i >= 0; i--)
722     ((overlay *)SvIV (*av_fetch (av, i, 0)))->swap ();
723     }
724 root 1.68 else if (htype == HOOK_DESTROY)
725 root 1.57 {
726 root 1.68 clearSVptr ((SV *)term->perl.self);
727     SvREFCNT_dec ((SV *)term->perl.self);
728 root 1.91
729     // don't allow further calls
730     term->perl.self = 0;
731 root 1.57 }
732 root 1.68
733     swap (perl_environ, environ);
734    
735     return event_consumed;
736 root 1.1 }
737    
738     /////////////////////////////////////////////////////////////////////////////
739    
740     MODULE = urxvt PACKAGE = urxvt
741    
742     PROTOTYPES: ENABLE
743    
744     BOOT:
745     {
746 root 1.52 sv_setsv (get_sv ("urxvt::LIBDIR", 1), newSVpvn (LIBDIR, sizeof (LIBDIR) - 1));
747     sv_setsv (get_sv ("urxvt::RESNAME", 1), newSVpvn (RESNAME, sizeof (RESNAME) - 1));
748     sv_setsv (get_sv ("urxvt::RESCLASS", 1), newSVpvn (RESCLASS, sizeof (RESCLASS) - 1));
749     sv_setsv (get_sv ("urxvt::RXVTNAME", 1), newSVpvn (RXVTNAME, sizeof (RXVTNAME) - 1));
750 root 1.37
751 root 1.1 AV *hookname = get_av ("urxvt::HOOKNAME", 1);
752 root 1.21 # define def(sym) av_store (hookname, HOOK_ ## sym, newSVpv (# sym, 0));
753     # include "hookinc.h"
754     # undef def
755 root 1.1
756 root 1.39 HV *option = get_hv ("urxvt::OPTION", 1);
757     # define def(name,val) hv_store (option, # name, sizeof (# name) - 1, newSVuv (Opt_ ## name), 0);
758     # define nodef(name)
759     # include "optinc.h"
760     # undef nodef
761     # undef def
762    
763     HV *stash = gv_stashpv ("urxvt", 1);
764 root 1.97 static const struct {
765 root 1.62 const char *name;
766     IV iv;
767     } *civ, const_iv[] = {
768     # define const_iv(name) { # name, (IV)name }
769     const_iv (DEFAULT_RSTYLE),
770     const_iv (OVERLAY_RSTYLE),
771     const_iv (RS_Bold),
772     const_iv (RS_Italic),
773     const_iv (RS_Blink),
774     const_iv (RS_RVid),
775     const_iv (RS_Uline),
776    
777     const_iv (CurrentTime),
778     const_iv (ShiftMask),
779     const_iv (LockMask),
780     const_iv (ControlMask),
781     const_iv (Mod1Mask),
782     const_iv (Mod2Mask),
783     const_iv (Mod3Mask),
784     const_iv (Mod4Mask),
785     const_iv (Mod5Mask),
786     const_iv (Button1Mask),
787     const_iv (Button2Mask),
788     const_iv (Button3Mask),
789     const_iv (Button4Mask),
790     const_iv (Button5Mask),
791     const_iv (AnyModifier),
792    
793 root 1.102 const_iv (NoSymbol),
794     const_iv (GrabModeSync),
795     const_iv (GrabModeAsync),
796    
797 root 1.62 const_iv (EVENT_NONE),
798     const_iv (EVENT_READ),
799     const_iv (EVENT_WRITE),
800    
801     const_iv (NoEventMask),
802     const_iv (KeyPressMask),
803     const_iv (KeyReleaseMask),
804     const_iv (ButtonPressMask),
805     const_iv (ButtonReleaseMask),
806     const_iv (EnterWindowMask),
807     const_iv (LeaveWindowMask),
808     const_iv (PointerMotionMask),
809     const_iv (PointerMotionHintMask),
810     const_iv (Button1MotionMask),
811     const_iv (Button2MotionMask),
812     const_iv (Button3MotionMask),
813     const_iv (Button4MotionMask),
814     const_iv (Button5MotionMask),
815     const_iv (ButtonMotionMask),
816     const_iv (KeymapStateMask),
817     const_iv (ExposureMask),
818     const_iv (VisibilityChangeMask),
819     const_iv (StructureNotifyMask),
820     const_iv (ResizeRedirectMask),
821     const_iv (SubstructureNotifyMask),
822     const_iv (SubstructureRedirectMask),
823     const_iv (FocusChangeMask),
824     const_iv (PropertyChangeMask),
825     const_iv (ColormapChangeMask),
826     const_iv (OwnerGrabButtonMask),
827    
828     const_iv (KeyPress),
829     const_iv (KeyRelease),
830     const_iv (ButtonPress),
831     const_iv (ButtonRelease),
832     const_iv (MotionNotify),
833     const_iv (EnterNotify),
834     const_iv (LeaveNotify),
835     const_iv (FocusIn),
836     const_iv (FocusOut),
837     const_iv (KeymapNotify),
838     const_iv (Expose),
839     const_iv (GraphicsExpose),
840     const_iv (NoExpose),
841     const_iv (VisibilityNotify),
842     const_iv (CreateNotify),
843     const_iv (DestroyNotify),
844     const_iv (UnmapNotify),
845     const_iv (MapNotify),
846     const_iv (MapRequest),
847     const_iv (ReparentNotify),
848     const_iv (ConfigureNotify),
849     const_iv (ConfigureRequest),
850     const_iv (GravityNotify),
851     const_iv (ResizeRequest),
852     const_iv (CirculateNotify),
853     const_iv (CirculateRequest),
854     const_iv (PropertyNotify),
855     const_iv (SelectionClear),
856     const_iv (SelectionRequest),
857     const_iv (SelectionNotify),
858     const_iv (ColormapNotify),
859     const_iv (ClientMessage),
860     const_iv (MappingNotify),
861 root 1.91 # if ENABLE_XIM_ONTHESPOT
862     const_iv (XIMReverse),
863     const_iv (XIMUnderline),
864     const_iv (XIMHighlight),
865     const_iv (XIMPrimary),
866     const_iv (XIMSecondary),
867     const_iv (XIMTertiary),
868     const_iv (XIMVisibleToForward),
869     const_iv (XIMVisibleToBackword),
870     const_iv (XIMVisibleToCenter),
871 root 1.92 # if 0
872 root 1.91 const_iv (XIMForwardChar),
873     const_iv (XIMBackwardChar),
874     const_iv (XIMForwardWord),
875     const_iv (XIMBackwardWord),
876     const_iv (XIMCaretUp),
877     const_iv (XIMCaretDown),
878     const_iv (XIMNextLine),
879     const_iv (XIMPreviousLine),
880     const_iv (XIMLineStart),
881     const_iv (XIMLineEnd),
882     const_iv (XIMAbsolutePosition),
883     const_iv (XIMDontChange),
884     # endif
885 root 1.92 # endif
886 root 1.62 };
887    
888 root 1.96 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
889 root 1.62 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
890 root 1.1 }
891    
892     void
893     warn (const char *msg)
894     CODE:
895     rxvt_warn ("%s", msg);
896    
897     void
898     fatal (const char *msg)
899     CODE:
900     rxvt_fatal ("%s", msg);
901    
902 root 1.59 void
903     _exit (int status)
904    
905 root 1.3 NV
906     NOW ()
907     CODE:
908     RETVAL = NOW;
909     OUTPUT:
910     RETVAL
911    
912 root 1.11 int
913     GET_BASEFG (int rend)
914     CODE:
915     RETVAL = GET_BASEFG (rend);
916     OUTPUT:
917     RETVAL
918    
919     int
920     GET_BASEBG (int rend)
921     CODE:
922     RETVAL = GET_BASEBG (rend);
923     OUTPUT:
924     RETVAL
925    
926     int
927 root 1.12 SET_FGCOLOR (int rend, int new_color)
928 root 1.11 CODE:
929 root 1.98 RETVAL = SET_FGCOLOR (rend, clamp (new_color, 0, TOTAL_COLORS - 1));
930 root 1.11 OUTPUT:
931     RETVAL
932    
933     int
934 root 1.12 SET_BGCOLOR (int rend, int new_color)
935 root 1.11 CODE:
936 root 1.98 RETVAL = SET_BGCOLOR (rend, clamp (new_color, 0, TOTAL_COLORS - 1));
937 root 1.12 OUTPUT:
938     RETVAL
939    
940     int
941     GET_CUSTOM (int rend)
942     CODE:
943     RETVAL = (rend && RS_customMask) >> RS_customShift;
944     OUTPUT:
945     RETVAL
946    
947     int
948     SET_CUSTOM (int rend, int new_value)
949     CODE:
950     {
951     if (!IN_RANGE_EXC (new_value, 0, RS_customCount))
952     croak ("custom value out of range, must be 0..%d", RS_customCount - 1);
953    
954     RETVAL = (rend & ~RS_customMask)
955     | ((new_value << RS_customShift) & RS_customMask);
956     }
957 root 1.11 OUTPUT:
958     RETVAL
959    
960 root 1.95 void
961     termlist ()
962     PPCODE:
963     {
964     EXTEND (SP, rxvt_term::termlist.size ());
965    
966     for (rxvt_term **t = rxvt_term::termlist.begin (); t < rxvt_term::termlist.end (); t++)
967     if ((*t)->perl.self)
968     PUSHs (sv_2mortal (newSVterm (*t)));
969     }
970    
971 root 1.3 MODULE = urxvt PACKAGE = urxvt::term
972    
973 root 1.54 SV *
974 root 1.95 _new (AV *env, AV *arg)
975 root 1.54 CODE:
976     {
977     rxvt_term *term = new rxvt_term;
978    
979 root 1.88 stringvec *argv = new stringvec;
980     stringvec *envv = new stringvec;
981 root 1.54
982 root 1.95 for (int i = 0; i <= AvFILL (arg); i++)
983     argv->push_back (strdup (SvPVbyte_nolen (*av_fetch (arg, i, 1))));
984 root 1.54
985 root 1.88 for (int i = AvFILL (env) + 1; i--; )
986     envv->push_back (strdup (SvPVbyte_nolen (*av_fetch (env, i, 1))));
987 root 1.54
988 root 1.88 envv->push_back (0);
989 root 1.54
990     bool success;
991    
992     try
993     {
994 root 1.88 success = term->init (argv, envv);
995 root 1.54 }
996     catch (const class rxvt_failure_exception &e)
997     {
998     success = false;
999     }
1000    
1001     if (!success)
1002     {
1003     term->destroy ();
1004     croak ("error while initializing new terminal instance");
1005     }
1006    
1007     RETVAL = term && term->perl.self
1008     ? newSVterm (term) : &PL_sv_undef;
1009     }
1010     OUTPUT:
1011     RETVAL
1012    
1013 root 1.28 void
1014     rxvt_term::destroy ()
1015    
1016 root 1.35 void
1017 root 1.62 rxvt_term::set_should_invoke (int htype, int inc)
1018     CODE:
1019     THIS->perl.should_invoke [htype] += inc;
1020    
1021 root 1.102 int
1022 root 1.95 rxvt_term::grab_button (int button, U32 modifiers, Window window = THIS->vt)
1023 root 1.36 CODE:
1024 root 1.102 RETVAL = XGrabButton (THIS->dpy, button, modifiers, window, 1,
1025     ButtonPressMask | ButtonReleaseMask | EnterWindowMask | LeaveWindowMask | PointerMotionMask,
1026     GrabModeSync, GrabModeSync, None, GRAB_CURSOR);
1027     OUTPUT: RETVAL
1028 root 1.36
1029 root 1.102 int
1030 root 1.95 rxvt_term::ungrab_button (int button, U32 modifiers, Window window = THIS->vt)
1031     CODE:
1032 root 1.102 RETVAL = XUngrabButton (THIS->dpy, button, modifiers, window);
1033     OUTPUT: RETVAL
1034 root 1.95
1035 root 1.102 void
1036     rxvt_term::XGrabKey (int keycode, U32 modifiers, Window window = THIS->vt, \
1037     int owner_events = 1, int pointer_mode = GrabModeAsync, int keyboard_mode = GrabModeAsync)
1038     CODE:
1039     XGrabKey (THIS->dpy, keycode, modifiers, window, owner_events, pointer_mode, keyboard_mode);
1040 root 1.95
1041     void
1042 root 1.102 rxvt_term::XUngrabKey (int keycode, U32 modifiers, Window window = THIS->vt)
1043     CODE:
1044     XUngrabKey (THIS->dpy, keycode, modifiers, window);
1045 root 1.95
1046     void
1047 root 1.102 rxvt_term::XUngrabKeyboard (Time eventtime)
1048     CODE:
1049     XUngrabKeyboard (THIS->dpy, eventtime);
1050 root 1.95
1051 root 1.36 bool
1052 root 1.79 rxvt_term::grab (Time eventtime, int sync = 0)
1053 root 1.35 CODE:
1054     {
1055 root 1.36 int mode = sync ? GrabModeSync : GrabModeAsync;
1056    
1057     THIS->perl.grabtime = 0;
1058    
1059 root 1.96 if (!XGrabPointer (THIS->dpy, THIS->vt, 0,
1060 root 1.36 ButtonPressMask | ButtonReleaseMask | EnterWindowMask | LeaveWindowMask | PointerMotionMask,
1061 root 1.41 mode, mode, None, GRAB_CURSOR, eventtime))
1062 root 1.96 if (!XGrabKeyboard (THIS->dpy, THIS->vt, 0, mode, mode, eventtime))
1063 root 1.36 THIS->perl.grabtime = eventtime;
1064     else
1065 root 1.96 XUngrabPointer (THIS->dpy, eventtime);
1066 root 1.36
1067     RETVAL = !!THIS->perl.grabtime;
1068 root 1.35 }
1069 root 1.36 OUTPUT:
1070     RETVAL
1071    
1072     void
1073 root 1.44 rxvt_term::allow_events_async ()
1074 root 1.36 CODE:
1075 root 1.96 XAllowEvents (THIS->dpy, AsyncBoth, THIS->perl.grabtime);
1076 root 1.36
1077     void
1078 root 1.44 rxvt_term::allow_events_sync ()
1079 root 1.36 CODE:
1080 root 1.96 XAllowEvents (THIS->dpy, SyncBoth, THIS->perl.grabtime);
1081 root 1.36
1082     void
1083 root 1.44 rxvt_term::allow_events_replay ()
1084 root 1.36 CODE:
1085 root 1.96 XAllowEvents (THIS->dpy, ReplayPointer, THIS->perl.grabtime);
1086     XAllowEvents (THIS->dpy, ReplayKeyboard, THIS->perl.grabtime);
1087 root 1.36
1088     void
1089 root 1.44 rxvt_term::ungrab ()
1090 root 1.36 CODE:
1091 root 1.45 ungrab (THIS);
1092 root 1.35
1093 root 1.1 int
1094 root 1.102 rxvt_term::XStringToKeysym (char *string)
1095     CODE:
1096     RETVAL = XStringToKeysym (string);
1097     OUTPUT: RETVAL
1098    
1099     char *
1100     rxvt_term::XKeysymToString (int sym)
1101     CODE:
1102     RETVAL = XKeysymToString (sym);
1103     OUTPUT: RETVAL
1104    
1105     int
1106     rxvt_term::XKeysymToKeycode (int sym)
1107     CODE:
1108     RETVAL = XKeysymToKeycode (THIS->dpy, sym);
1109     OUTPUT: RETVAL
1110    
1111     int
1112     rxvt_term::XKeycodeToKeysym (int code, int index)
1113     CODE:
1114     RETVAL = XKeycodeToKeysym (THIS->dpy, code, index);
1115     OUTPUT: RETVAL
1116    
1117     int
1118 root 1.3 rxvt_term::strwidth (SV *str)
1119 root 1.1 CODE:
1120     {
1121     wchar_t *wstr = sv2wcs (str);
1122 root 1.3
1123     rxvt_push_locale (THIS->locale);
1124 root 1.1 RETVAL = wcswidth (wstr, wcslen (wstr));
1125 root 1.3 rxvt_pop_locale ();
1126    
1127 root 1.1 free (wstr);
1128     }
1129     OUTPUT:
1130     RETVAL
1131    
1132 root 1.3 SV *
1133     rxvt_term::locale_encode (SV *str)
1134 root 1.1 CODE:
1135 root 1.3 {
1136     wchar_t *wstr = sv2wcs (str);
1137    
1138     rxvt_push_locale (THIS->locale);
1139     char *mbstr = rxvt_wcstombs (wstr);
1140     rxvt_pop_locale ();
1141    
1142     free (wstr);
1143    
1144 root 1.71 RETVAL = newSVpv (mbstr, 0);
1145 root 1.3 free (mbstr);
1146     }
1147     OUTPUT:
1148 root 1.1 RETVAL
1149    
1150 root 1.3 SV *
1151     rxvt_term::locale_decode (SV *octets)
1152     CODE:
1153     {
1154     STRLEN len;
1155     char *data = SvPVbyte (octets, len);
1156    
1157     rxvt_push_locale (THIS->locale);
1158     wchar_t *wstr = rxvt_mbstowcs (data, len);
1159     rxvt_pop_locale ();
1160    
1161 root 1.71 RETVAL = wcs2sv (wstr);
1162 root 1.3 free (wstr);
1163     }
1164     OUTPUT:
1165     RETVAL
1166 root 1.1
1167 root 1.38 #define TERM_OFFSET(sym) offsetof (TermWin_t, sym)
1168 root 1.24
1169     #define TERM_OFFSET_width TERM_OFFSET(width)
1170     #define TERM_OFFSET_height TERM_OFFSET(height)
1171     #define TERM_OFFSET_fwidth TERM_OFFSET(fwidth)
1172     #define TERM_OFFSET_fheight TERM_OFFSET(fheight)
1173     #define TERM_OFFSET_fbase TERM_OFFSET(fbase)
1174     #define TERM_OFFSET_nrow TERM_OFFSET(nrow)
1175     #define TERM_OFFSET_ncol TERM_OFFSET(ncol)
1176     #define TERM_OFFSET_focus TERM_OFFSET(focus)
1177     #define TERM_OFFSET_mapped TERM_OFFSET(mapped)
1178 root 1.80 #define TERM_OFFSET_int_bwidth TERM_OFFSET(int_bwidth)
1179     #define TERM_OFFSET_ext_bwidth TERM_OFFSET(ext_bwidth)
1180     #define TERM_OFFSET_lineSpace TERM_OFFSET(lineSpace)
1181 root 1.24 #define TERM_OFFSET_saveLines TERM_OFFSET(saveLines)
1182     #define TERM_OFFSET_total_rows TERM_OFFSET(total_rows)
1183 root 1.67 #define TERM_OFFSET_top_row TERM_OFFSET(top_row)
1184 root 1.24
1185     int
1186     rxvt_term::width ()
1187     ALIAS:
1188     width = TERM_OFFSET_width
1189     height = TERM_OFFSET_height
1190     fwidth = TERM_OFFSET_fwidth
1191     fheight = TERM_OFFSET_fheight
1192     fbase = TERM_OFFSET_fbase
1193     nrow = TERM_OFFSET_nrow
1194     ncol = TERM_OFFSET_ncol
1195     focus = TERM_OFFSET_focus
1196     mapped = TERM_OFFSET_mapped
1197 root 1.80 int_bwidth = TERM_OFFSET_int_bwidth
1198     ext_bwidth = TERM_OFFSET_ext_bwidth
1199     lineSpace = TERM_OFFSET_lineSpace
1200 root 1.24 saveLines = TERM_OFFSET_saveLines
1201     total_rows = TERM_OFFSET_total_rows
1202 root 1.67 top_row = TERM_OFFSET_top_row
1203 root 1.24 CODE:
1204     RETVAL = *(int *)((char *)THIS + ix);
1205     OUTPUT:
1206     RETVAL
1207    
1208 root 1.38 unsigned int
1209     rxvt_term::ModLevel3Mask ()
1210     ALIAS:
1211     ModLevel3Mask = 0
1212     ModMetaMask = 1
1213     ModNumLockMask = 2
1214 root 1.86 current_screen = 3
1215 root 1.87 hidden_cursor = 4
1216 root 1.38 CODE:
1217     switch (ix)
1218     {
1219 root 1.87 case 0: RETVAL = THIS->ModLevel3Mask; break;
1220     case 1: RETVAL = THIS->ModMetaMask; break;
1221     case 2: RETVAL = THIS->ModNumLockMask; break;
1222     case 3: RETVAL = THIS->current_screen; break;
1223     case 4: RETVAL = THIS->hidden_cursor; break;
1224 root 1.38 }
1225     OUTPUT:
1226     RETVAL
1227    
1228 root 1.48 char *
1229     rxvt_term::display_id ()
1230 root 1.49 ALIAS:
1231     display_id = 0
1232     locale = 1
1233 root 1.48 CODE:
1234 root 1.49 switch (ix)
1235     {
1236     case 0: RETVAL = THIS->display->id; break;
1237     case 1: RETVAL = THIS->locale; break;
1238     }
1239 root 1.48 OUTPUT:
1240     RETVAL
1241    
1242 root 1.54 SV *
1243 root 1.100 rxvt_term::envv ()
1244     ALIAS:
1245     argv = 1
1246     PPCODE:
1247 root 1.54 {
1248 root 1.100 stringvec *vec = ix ? THIS->argv : THIS->envv;
1249 root 1.54
1250 root 1.100 EXTEND (SP, vec->size ());
1251 root 1.54
1252 root 1.100 for (char **i = vec->begin (); i != vec->end (); ++i)
1253     if (*i)
1254     PUSHs (sv_2mortal (newSVpv (*i, 0)));
1255 root 1.54 }
1256    
1257 root 1.50 int
1258     rxvt_term::pty_ev_events (int events = EVENT_UNDEF)
1259     CODE:
1260     RETVAL = THIS->pty_ev.events;
1261     if (events != EVENT_UNDEF)
1262     THIS->pty_ev.set (events);
1263     OUTPUT:
1264     RETVAL
1265    
1266 root 1.90 int
1267     rxvt_term::pty_fd ()
1268     CODE:
1269     RETVAL = THIS->pty->pty;
1270     OUTPUT:
1271     RETVAL
1272    
1273 root 1.79 Window
1274 root 1.31 rxvt_term::parent ()
1275     CODE:
1276 root 1.79 RETVAL = THIS->parent [0];
1277 root 1.31 OUTPUT:
1278     RETVAL
1279    
1280 root 1.79 Window
1281 root 1.30 rxvt_term::vt ()
1282     CODE:
1283 root 1.79 RETVAL = THIS->vt;
1284 root 1.30 OUTPUT:
1285     RETVAL
1286    
1287 root 1.62 void
1288     rxvt_term::vt_emask_add (U32 emask)
1289     CODE:
1290     THIS->vt_emask_perl |= emask;
1291     THIS->vt_select_input ();
1292    
1293 root 1.30 U32
1294 root 1.25 rxvt_term::rstyle (U32 new_rstyle = THIS->rstyle)
1295 root 1.7 CODE:
1296 root 1.25 RETVAL = THIS->rstyle;
1297     THIS->rstyle = new_rstyle;
1298 root 1.7 OUTPUT:
1299 root 1.24 RETVAL
1300 root 1.7
1301     int
1302 root 1.67 rxvt_term::view_start (int newval = 1)
1303 root 1.61 PROTOTYPE: $;$
1304 root 1.7 CODE:
1305     {
1306     RETVAL = THIS->view_start;
1307    
1308 root 1.67 if (newval <= 0)
1309     THIS->scr_changeview (max (newval, THIS->top_row));
1310 root 1.7 }
1311     OUTPUT:
1312     RETVAL
1313    
1314 root 1.8 void
1315 root 1.83 rxvt_term::focus_in ()
1316    
1317     void
1318     rxvt_term::focus_out ()
1319    
1320     void
1321 root 1.98 rxvt_term::key_press (unsigned int state, unsigned int keycode, Time time = CurrentTime)
1322     ALIAS:
1323     key_release = 1
1324     CODE:
1325     {
1326     XKeyEvent xkey;
1327    
1328     memset (&xkey, 0, sizeof (xkey));
1329    
1330     xkey.time = time;
1331     xkey.state = state;
1332     xkey.keycode = keycode;
1333    
1334     xkey.type = ix ? KeyRelease : KeyPress;
1335     xkey.display = THIS->dpy;
1336     xkey.window = THIS->vt;
1337     xkey.root = THIS->display->root;
1338     xkey.subwindow = THIS->vt;
1339    
1340     if (ix)
1341     THIS->key_release (xkey);
1342     else
1343     THIS->key_press (xkey);
1344     }
1345    
1346     void
1347 root 1.9 rxvt_term::want_refresh ()
1348     CODE:
1349     THIS->want_refresh = 1;
1350    
1351     void
1352 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)
1353 root 1.8 PPCODE:
1354     {
1355 root 1.67 if (!IN_RANGE_EXC (row_number, THIS->top_row, THIS->nrow))
1356 root 1.19 XSRETURN_EMPTY;
1357 root 1.8
1358     line_t &l = ROW(row_number);
1359    
1360     if (GIMME_V != G_VOID)
1361     {
1362 root 1.91 wchar_t *wstr = rxvt_temp_buf<wchar_t> (THIS->ncol);
1363 root 1.8
1364 root 1.33 for (int col = 0; col < THIS->ncol; col++)
1365 root 1.8 wstr [col] = l.t [col];
1366    
1367 root 1.71 XPUSHs (sv_2mortal (wcs2sv (wstr, THIS->ncol)));
1368 root 1.8 }
1369    
1370     if (new_text)
1371     {
1372 root 1.13 wchar_t *wstr = sv2wcs (new_text);
1373 root 1.8
1374 root 1.27 int len = min (wcslen (wstr) - start_ofs, max_len);
1375 root 1.8
1376 root 1.83 if (start_col < 0 || start_col + len > THIS->ncol)
1377 root 1.8 {
1378     free (wstr);
1379 root 1.10 croak ("new_text extends beyond horizontal margins");
1380 root 1.8 }
1381    
1382     for (int col = start_col; col < start_col + len; col++)
1383     {
1384 root 1.27 l.t [col] = wstr [start_ofs + col - start_col];
1385 root 1.8 l.r [col] = SET_FONT (l.r [col], THIS->fontset [GET_STYLE (l.r [col])]->find_font (l.t [col]));
1386     }
1387 root 1.9
1388     free (wstr);
1389 root 1.8 }
1390     }
1391    
1392     void
1393 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)
1394 root 1.8 PPCODE:
1395     {
1396 root 1.67 if (!IN_RANGE_EXC (row_number, THIS->top_row, THIS->nrow))
1397 root 1.19 XSRETURN_EMPTY;
1398 root 1.8
1399     line_t &l = ROW(row_number);
1400    
1401     if (GIMME_V != G_VOID)
1402     {
1403     AV *av = newAV ();
1404    
1405     av_extend (av, THIS->ncol - 1);
1406     for (int col = 0; col < THIS->ncol; col++)
1407     av_store (av, col, newSViv (l.r [col]));
1408    
1409     XPUSHs (sv_2mortal (newRV_noinc ((SV *)av)));
1410     }
1411    
1412     if (new_rend)
1413     {
1414     if (!SvROK (new_rend) || SvTYPE (SvRV (new_rend)) != SVt_PVAV)
1415     croak ("new_rend must be arrayref");
1416    
1417     AV *av = (AV *)SvRV (new_rend);
1418 root 1.76 int len = min (AvFILL (av) + 1 - start_ofs, max_len);
1419 root 1.8
1420 root 1.83 if (start_col < 0 || start_col + len > THIS->ncol)
1421 root 1.10 croak ("new_rend array extends beyond horizontal margins");
1422 root 1.8
1423     for (int col = start_col; col < start_col + len; col++)
1424     {
1425 root 1.27 rend_t r = SvIV (*av_fetch (av, start_ofs + col - start_col, 1)) & ~RS_fontMask;
1426 root 1.8
1427     l.r [col] = SET_FONT (r, THIS->fontset [GET_STYLE (r)]->find_font (l.t [col]));
1428     }
1429     }
1430     }
1431    
1432     int
1433 root 1.26 rxvt_term::ROW_l (int row_number, int new_length = -1)
1434 root 1.8 CODE:
1435     {
1436 root 1.67 if (!IN_RANGE_EXC (row_number, THIS->top_row, THIS->nrow))
1437 root 1.19 XSRETURN_EMPTY;
1438 root 1.8
1439     line_t &l = ROW(row_number);
1440 root 1.26 RETVAL = l.l;
1441 root 1.8
1442 root 1.26 if (new_length >= 0)
1443 root 1.8 l.l = new_length;
1444     }
1445     OUTPUT:
1446     RETVAL
1447    
1448 root 1.19 bool
1449 root 1.26 rxvt_term::ROW_is_longer (int row_number, int new_is_longer = -1)
1450 root 1.19 CODE:
1451     {
1452 root 1.67 if (!IN_RANGE_EXC (row_number, THIS->top_row, THIS->nrow))
1453 root 1.19 XSRETURN_EMPTY;
1454    
1455     line_t &l = ROW(row_number);
1456 root 1.26 RETVAL = l.is_longer ();
1457    
1458     if (new_is_longer >= 0)
1459     l.is_longer (new_is_longer);
1460 root 1.19 }
1461     OUTPUT:
1462     RETVAL
1463    
1464 root 1.8 SV *
1465 root 1.33 rxvt_term::special_encode (SV *string)
1466 root 1.8 CODE:
1467 root 1.33 {
1468     wchar_t *wstr = sv2wcs (string);
1469     int wlen = wcslen (wstr);
1470 root 1.91 wchar_t *rstr = rxvt_temp_buf<wchar_t> (wlen * 2); // cannot become longer
1471 root 1.33
1472     rxvt_push_locale (THIS->locale);
1473    
1474     wchar_t *r = rstr;
1475     for (wchar_t *s = wstr; *s; s++)
1476 root 1.91 {
1477     int w = WCWIDTH (*s);
1478    
1479     if (w == 0)
1480     {
1481     if (r == rstr)
1482     croak ("leading combining character unencodable");
1483 root 1.33
1484 root 1.91 unicode_t n = rxvt_compose (r[-1], *s);
1485     if (n == NOCHAR)
1486     n = rxvt_composite.compose (r[-1], *s);
1487    
1488     r[-1] = n;
1489     }
1490 root 1.33 #if !UNICODE_3
1491 root 1.91 else if (*s >= 0x10000)
1492     *r++ = rxvt_composite.compose (*s);
1493 root 1.33 #endif
1494 root 1.91 else
1495     *r++ = *s;
1496    
1497     // the *2 above only allows wcwidth <= 2
1498     if (w > 1)
1499     *r++ = NOCHAR;
1500     }
1501 root 1.33
1502     rxvt_pop_locale ();
1503    
1504 root 1.71 RETVAL = wcs2sv (rstr, r - rstr);
1505 root 1.33 }
1506     OUTPUT:
1507     RETVAL
1508 root 1.8
1509     SV *
1510 root 1.33 rxvt_term::special_decode (SV *text)
1511 root 1.8 CODE:
1512 root 1.33 {
1513     wchar_t *wstr = sv2wcs (text);
1514     int wlen = wcslen (wstr);
1515     int dlen = 0;
1516    
1517     // find length
1518     for (wchar_t *s = wstr; *s; s++)
1519     if (*s == NOCHAR)
1520     ;
1521     else if (IS_COMPOSE (*s))
1522     dlen += rxvt_composite.expand (*s, 0);
1523     else
1524     dlen++;
1525    
1526 root 1.91 wchar_t *rstr = rxvt_temp_buf<wchar_t> (dlen);
1527 root 1.33
1528     // decode
1529     wchar_t *r = rstr;
1530     for (wchar_t *s = wstr; *s; s++)
1531     if (*s == NOCHAR)
1532     ;
1533     else if (IS_COMPOSE (*s))
1534     r += rxvt_composite.expand (*s, r);
1535     else
1536     *r++ = *s;
1537    
1538 root 1.71 RETVAL = wcs2sv (rstr, r - rstr);
1539 root 1.33 }
1540     OUTPUT:
1541     RETVAL
1542 root 1.8
1543 root 1.1 void
1544 root 1.2 rxvt_term::_resource (char *name, int index, SV *newval = 0)
1545     PPCODE:
1546     {
1547 root 1.97 static const struct resval { const char *name; int value; } *rs, rslist [] = {
1548 root 1.21 # define def(name) { # name, Rs_ ## name },
1549     # define reserve(name,count)
1550 root 1.2 # include "rsinc.h"
1551 root 1.21 # undef def
1552     # undef reserve
1553 root 1.2 };
1554    
1555 root 1.97 rs = rslist + sizeof (rslist) / sizeof (rslist [0]);
1556 root 1.2
1557     do {
1558     if (rs-- == rslist)
1559     croak ("no such resource '%s', requested", name);
1560     } while (strcmp (name, rs->name));
1561    
1562     index += rs->value;
1563    
1564     if (!IN_RANGE_EXC (index, 0, NUM_RESOURCES))
1565     croak ("requested out-of-bound resource %s+%d,", name, index - rs->value);
1566    
1567     if (GIMME_V != G_VOID)
1568 root 1.71 XPUSHs (THIS->rs [index] ? sv_2mortal (newSVpv (THIS->rs [index], 0)) : &PL_sv_undef);
1569 root 1.2
1570     if (newval)
1571     {
1572     if (SvOK (newval))
1573     {
1574     char *str = strdup (SvPVbyte_nolen (newval));
1575     THIS->rs [index] = str;
1576     THIS->allocated.push_back (str);
1577     }
1578     else
1579     THIS->rs [index] = 0;
1580     }
1581     }
1582    
1583 root 1.55 const char *
1584     rxvt_term::x_resource (const char *name)
1585    
1586 root 1.40 bool
1587     rxvt_term::option (U32 optval, int set = -1)
1588     CODE:
1589     {
1590     RETVAL = THIS->options & optval;
1591    
1592     if (set >= 0)
1593     {
1594     if (set)
1595     THIS->options |= optval;
1596     else
1597     THIS->options &= ~optval;
1598    
1599 root 1.78 if (THIS->check_ev.is_active ()) // avoid doing this before START
1600     switch (optval)
1601     {
1602     case Opt_skipBuiltinGlyphs:
1603     THIS->set_fonts ();
1604     THIS->scr_remap_chars ();
1605     THIS->scr_touch (true);
1606     THIS->want_refresh = 1;
1607     break;
1608    
1609     case Opt_cursorUnderline:
1610     THIS->want_refresh = 1;
1611     break;
1612 root 1.40
1613     # case Opt_scrollBar_floating:
1614     # case Opt_scrollBar_right:
1615     # THIS->resize_all_windows (THIS->width, THIS->height, 1);
1616     # break;
1617 root 1.78 }
1618 root 1.40 }
1619     }
1620     OUTPUT:
1621     RETVAL
1622    
1623 root 1.50 bool
1624     rxvt_term::parse_keysym (char *keysym, char *str)
1625     CODE:
1626     RETVAL = 0 < THIS->parse_keysym (keysym, str);
1627     THIS->keyboard->register_done ();
1628     OUTPUT:
1629     RETVAL
1630    
1631 root 1.2 void
1632 root 1.46 rxvt_term::screen_cur (...)
1633 root 1.1 PROTOTYPE: $;$$
1634     ALIAS:
1635 root 1.24 screen_cur = 0
1636     selection_beg = 1
1637     selection_end = 2
1638     selection_mark = 3
1639 root 1.1 PPCODE:
1640     {
1641 root 1.24 row_col_t &rc = ix == 0 ? THIS->screen.cur
1642     : ix == 1 ? THIS->selection.beg
1643     : ix == 2 ? THIS->selection.end
1644     : THIS->selection.mark;
1645 root 1.1
1646     if (GIMME_V != G_VOID)
1647     {
1648     EXTEND (SP, 2);
1649 root 1.24 PUSHs (sv_2mortal (newSViv (rc.row)));
1650     PUSHs (sv_2mortal (newSViv (rc.col)));
1651 root 1.1 }
1652    
1653     if (items == 3)
1654     {
1655 root 1.73 rc.row = SvIV (ST (1));
1656     rc.col = SvIV (ST (2));
1657    
1658 root 1.89 if (ix == 2)
1659 root 1.73 {
1660 root 1.89 if (rc.col == 0)
1661     {
1662     // col == 0 means end of previous line
1663     rc.row--;
1664     rc.col = THIS->ncol;
1665     }
1666     else if (IN_RANGE_EXC (rc.row, THIS->top_row, THIS->nrow)
1667     && rc.col > ROW(rc.row).l)
1668     {
1669     // col >= length means while line and add newline
1670     rc.col = THIS->ncol;
1671     }
1672 root 1.73 }
1673    
1674     clamp_it (rc.col, 0, THIS->ncol);
1675     clamp_it (rc.row, THIS->top_row, THIS->nrow - 1);
1676 root 1.1
1677     if (ix)
1678     THIS->want_refresh = 1;
1679     }
1680     }
1681    
1682 root 1.53 char
1683     rxvt_term::cur_charset ()
1684     CODE:
1685     RETVAL = THIS->charsets [THIS->screen.charset];
1686     OUTPUT:
1687     RETVAL
1688    
1689 root 1.93 void
1690     rxvt_term::selection_clear ()
1691 root 1.60
1692     void
1693 root 1.79 rxvt_term::selection_make (Time eventtime, bool rect = false)
1694 root 1.60 CODE:
1695     THIS->selection.op = SELECTION_CONT;
1696     THIS->selection.rect = rect;
1697     THIS->selection_make (eventtime);
1698    
1699 root 1.1 int
1700 root 1.79 rxvt_term::selection_grab (Time eventtime)
1701 root 1.1
1702     void
1703     rxvt_term::selection (SV *newtext = 0)
1704     PPCODE:
1705     {
1706     if (GIMME_V != G_VOID)
1707 root 1.45 XPUSHs (THIS->selection.text
1708 root 1.71 ? sv_2mortal (wcs2sv (THIS->selection.text, THIS->selection.len))
1709 root 1.45 : &PL_sv_undef);
1710 root 1.1
1711     if (newtext)
1712     {
1713     free (THIS->selection.text);
1714    
1715     THIS->selection.text = sv2wcs (newtext);
1716     THIS->selection.len = wcslen (THIS->selection.text);
1717     }
1718     }
1719 root 1.24
1720 root 1.1 void
1721 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)
1722    
1723     void
1724     rxvt_term::scr_xor_span (int beg_row, int beg_col, int end_row, int end_col, U32 rstyle = RS_RVid)
1725    
1726     void
1727 root 1.50 rxvt_term::scr_bell ()
1728    
1729     void
1730 root 1.86 rxvt_term::scr_change_screen (int screen)
1731    
1732     void
1733 root 1.25 rxvt_term::scr_add_lines (SV *string)
1734     CODE:
1735     {
1736     wchar_t *wstr = sv2wcs (string);
1737 root 1.32 THIS->scr_add_lines (wstr, wcslen (wstr));
1738 root 1.25 free (wstr);
1739     }
1740    
1741     void
1742 root 1.13 rxvt_term::tt_write (SV *octets)
1743     INIT:
1744     STRLEN len;
1745     char *str = SvPVbyte (octets, len);
1746     C_ARGS:
1747 root 1.23 str, len
1748 root 1.13
1749 root 1.28 void
1750     rxvt_term::cmd_parse (SV *octets)
1751     CODE:
1752     {
1753     STRLEN len;
1754     char *str = SvPVbyte (octets, len);
1755    
1756     char *old_cmdbuf_ptr = THIS->cmdbuf_ptr;
1757     char *old_cmdbuf_endp = THIS->cmdbuf_endp;
1758    
1759     THIS->cmdbuf_ptr = str;
1760     THIS->cmdbuf_endp = str + len;
1761    
1762 root 1.35 rxvt_push_locale (THIS->locale);
1763 root 1.28 THIS->cmd_parse ();
1764 root 1.35 rxvt_pop_locale ();
1765 root 1.28
1766     THIS->cmdbuf_ptr = old_cmdbuf_ptr;
1767     THIS->cmdbuf_endp = old_cmdbuf_endp;
1768     }
1769    
1770 root 1.13 SV *
1771     rxvt_term::overlay (int x, int y, int w, int h, int rstyle = OVERLAY_RSTYLE, int border = 2)
1772     CODE:
1773     {
1774     overlay *o = new overlay (THIS, x, y, w, h, rstyle, border);
1775     RETVAL = newSVptr ((void *)o, "urxvt::overlay");
1776     o->self = (HV *)SvRV (RETVAL);
1777     }
1778     OUTPUT:
1779     RETVAL
1780    
1781 root 1.79 #############################################################################
1782     # Various X Utility Functions
1783     #############################################################################
1784    
1785     void
1786     rxvt_term::XListProperties (Window window)
1787     PPCODE:
1788     {
1789     int count;
1790 root 1.96 Atom *props = XListProperties (THIS->dpy, window, &count);
1791 root 1.79
1792     EXTEND (SP, count);
1793     while (count--)
1794     PUSHs (newSVuv ((U32)props [count]));
1795    
1796     XFree (props);
1797     }
1798    
1799     void
1800     rxvt_term::XGetWindowProperty (Window window, Atom property)
1801     PPCODE:
1802     {
1803     Atom type;
1804     int format;
1805     unsigned long nitems;
1806     unsigned long bytes_after;
1807     unsigned char *prop;
1808 root 1.81
1809 root 1.96 XGetWindowProperty (THIS->dpy, window, property,
1810 root 1.81 0, 1<<24, 0, AnyPropertyType,
1811 root 1.79 &type, &format, &nitems, &bytes_after, &prop);
1812 root 1.81
1813 root 1.79 if (type != None)
1814     {
1815 root 1.81 int elemsize = format == 16 ? sizeof (short)
1816     : format == 32 ? sizeof (long)
1817     : 1;
1818    
1819 root 1.79 EXTEND (SP, 3);
1820     PUSHs (newSVuv ((U32)type));
1821     PUSHs (newSViv (format));
1822 root 1.81 PUSHs (newSVpvn ((char *)prop, nitems * elemsize));
1823 root 1.79 XFree (prop);
1824     }
1825     }
1826    
1827     void
1828     rxvt_term::XChangeWindowProperty (Window window, Atom property, Atom type, int format, SV *data)
1829     CODE:
1830     {
1831     STRLEN len;
1832     char *data_ = SvPVbyte (data, len);
1833    
1834 root 1.81 int elemsize = format == 16 ? sizeof (short)
1835     : format == 32 ? sizeof (long)
1836     : 1;
1837    
1838 root 1.96 XChangeProperty (THIS->dpy, window, property,
1839 root 1.79 type, format, PropModeReplace,
1840 root 1.81 (unsigned char *)data_, len / elemsize);
1841 root 1.79 }
1842    
1843 root 1.81 Atom
1844     XInternAtom (rxvt_term *term, char *atom_name, int only_if_exists = FALSE)
1845 root 1.96 C_ARGS: term->dpy, atom_name, only_if_exists
1846 root 1.81
1847     char *
1848     XGetAtomName (rxvt_term *term, Atom atom)
1849 root 1.96 C_ARGS: term->dpy, atom
1850 root 1.81 CLEANUP:
1851     XFree (RETVAL);
1852    
1853 root 1.79 void
1854     XDeleteProperty (rxvt_term *term, Window window, Atom property)
1855 root 1.96 C_ARGS: term->dpy, window, property
1856 root 1.79
1857     Window
1858     rxvt_term::DefaultRootWindow ()
1859     CODE:
1860     RETVAL = THIS->display->root;
1861     OUTPUT:
1862     RETVAL
1863    
1864 root 1.81 #if 0
1865    
1866 root 1.79 Window
1867     XCreateSimpleWindow (rxvt_term *term, Window parent, int x, int y, unsigned int width, unsigned int height)
1868 root 1.96 C_ARGS: term->dpy, (Window)parent,
1869 root 1.79 x, y, width, height, 0,
1870     term->pix_colors_focused[Color_border],
1871     term->pix_colors_focused[Color_border]
1872    
1873 root 1.81 #endif
1874    
1875 root 1.79 void
1876     XReparentWindow (rxvt_term *term, Window window, Window parent, int x = 0, int y = 0)
1877 root 1.96 C_ARGS: term->dpy, window, parent, x, y
1878 root 1.79
1879     void
1880     XMapWindow (rxvt_term *term, Window window)
1881 root 1.96 C_ARGS: term->dpy, window
1882 root 1.79
1883     void
1884     XUnmapWindow (rxvt_term *term, Window window)
1885 root 1.96 C_ARGS: term->dpy, window
1886 root 1.79
1887     void
1888     XMoveResizeWindow (rxvt_term *term, Window window, int x, int y, unsigned int width, unsigned int height)
1889 root 1.96 C_ARGS: term->dpy, window, x, y, width, height
1890 root 1.84
1891     void
1892     rxvt_term::XChangeInput (Window window, U32 add_events, U32 del_events = 0)
1893     CODE:
1894     {
1895     XWindowAttributes attr;
1896 root 1.96 XGetWindowAttributes (THIS->dpy, window, &attr);
1897     XSelectInput (THIS->dpy, window, attr.your_event_mask | add_events & ~del_events);
1898 root 1.84 }
1899 root 1.79
1900 root 1.82 void
1901     rxvt_term::XTranslateCoordinates (Window src, Window dst, int x, int y)
1902     PPCODE:
1903     {
1904     int dx, dy;
1905     Window child;
1906    
1907 root 1.96 if (XTranslateCoordinates (THIS->dpy, src, dst, x, y, &dx, &dy, &child))
1908 root 1.82 {
1909     EXTEND (SP, 3);
1910     PUSHs (newSViv (dx));
1911     PUSHs (newSViv (dy));
1912     PUSHs (newSVuv (child));
1913     }
1914     }
1915    
1916 root 1.79 #############################################################################
1917     # urxvt::overlay
1918     #############################################################################
1919    
1920 root 1.13 MODULE = urxvt PACKAGE = urxvt::overlay
1921 root 1.1
1922     void
1923 root 1.13 overlay::set (int x, int y, SV *text, SV *rend = 0)
1924 root 1.1
1925     void
1926 root 1.18 overlay::show ()
1927    
1928     void
1929     overlay::hide ()
1930    
1931     void
1932 root 1.13 overlay::DESTROY ()
1933 root 1.1
1934 root 1.79 #############################################################################
1935     # urxvt::watcher
1936     #############################################################################
1937    
1938     MODULE = urxvt PACKAGE = urxvt::watcher
1939    
1940     CHAINED
1941     perl_watcher::cb (SV *cb)
1942     CODE:
1943     THIS->cb (cb);
1944     OUTPUT:
1945     RETVAL
1946    
1947     #############################################################################
1948     # urxvt::timer
1949     #############################################################################
1950    
1951 root 1.1 MODULE = urxvt PACKAGE = urxvt::timer
1952    
1953     SV *
1954     timer::new ()
1955     CODE:
1956     timer *w = new timer;
1957 root 1.13 w->start (NOW);
1958 root 1.79 RETVAL = newSVptr ((void *)(perl_watcher *)w, "urxvt::timer");
1959 root 1.1 w->self = (HV *)SvRV (RETVAL);
1960     OUTPUT:
1961     RETVAL
1962    
1963     NV
1964     timer::at ()
1965     CODE:
1966     RETVAL = THIS->at;
1967     OUTPUT:
1968     RETVAL
1969    
1970 root 1.79 CHAINED
1971 root 1.13 timer::interval (NV interval)
1972     CODE:
1973     THIS->interval = interval;
1974     OUTPUT:
1975     RETVAL
1976    
1977 root 1.79 CHAINED
1978 root 1.1 timer::set (NV tstamp)
1979     CODE:
1980     THIS->set (tstamp);
1981     OUTPUT:
1982     RETVAL
1983    
1984 root 1.79 CHAINED
1985 root 1.1 timer::start (NV tstamp = THIS->at)
1986 root 1.79 CODE:
1987 root 1.1 THIS->start (tstamp);
1988     OUTPUT:
1989     RETVAL
1990    
1991 root 1.79 CHAINED
1992 root 1.75 timer::after (NV delay)
1993     CODE:
1994     THIS->start (NOW + delay);
1995     OUTPUT:
1996     RETVAL
1997    
1998 root 1.79 CHAINED
1999 root 1.1 timer::stop ()
2000     CODE:
2001     THIS->stop ();
2002     OUTPUT:
2003     RETVAL
2004    
2005     void
2006     timer::DESTROY ()
2007    
2008 root 1.79 #############################################################################
2009     # urxvt::iow
2010     #############################################################################
2011    
2012 root 1.1 MODULE = urxvt PACKAGE = urxvt::iow
2013    
2014     SV *
2015     iow::new ()
2016     CODE:
2017     iow *w = new iow;
2018 root 1.79 RETVAL = newSVptr ((void *)(perl_watcher *)w, "urxvt::iow");
2019 root 1.1 w->self = (HV *)SvRV (RETVAL);
2020     OUTPUT:
2021     RETVAL
2022    
2023 root 1.79 CHAINED
2024 root 1.1 iow::fd (int fd)
2025     CODE:
2026     THIS->fd = fd;
2027     OUTPUT:
2028     RETVAL
2029    
2030 root 1.79 CHAINED
2031 root 1.1 iow::events (short events)
2032     CODE:
2033     THIS->events = events;
2034     OUTPUT:
2035     RETVAL
2036    
2037 root 1.79 CHAINED
2038 root 1.1 iow::start ()
2039 root 1.79 CODE:
2040 root 1.1 THIS->start ();
2041     OUTPUT:
2042     RETVAL
2043    
2044 root 1.79 CHAINED
2045 root 1.1 iow::stop ()
2046     CODE:
2047     THIS->stop ();
2048     OUTPUT:
2049     RETVAL
2050    
2051     void
2052     iow::DESTROY ()
2053    
2054 root 1.79 #############################################################################
2055     # urxvt::iw
2056     #############################################################################
2057    
2058     MODULE = urxvt PACKAGE = urxvt::iw
2059    
2060     SV *
2061     iw::new ()
2062     CODE:
2063     iw *w = new iw;
2064     RETVAL = newSVptr ((void *)(perl_watcher *)w, "urxvt::iw");
2065     w->self = (HV *)SvRV (RETVAL);
2066     OUTPUT:
2067     RETVAL
2068    
2069     CHAINED
2070 root 1.80 iw::start ()
2071 root 1.79 CODE:
2072     THIS->start ();
2073     OUTPUT:
2074     RETVAL
2075    
2076     CHAINED
2077 root 1.80 iw::stop ()
2078 root 1.79 CODE:
2079     THIS->stop ();
2080     OUTPUT:
2081     RETVAL
2082    
2083     void
2084     iw::DESTROY ()
2085    
2086     #############################################################################
2087     # urxvt::pw
2088     #############################################################################
2089    
2090     MODULE = urxvt PACKAGE = urxvt::pw
2091    
2092     SV *
2093     pw::new ()
2094     CODE:
2095     pw *w = new pw;
2096     RETVAL = newSVptr ((void *)(perl_watcher *)w, "urxvt::pw");
2097     w->self = (HV *)SvRV (RETVAL);
2098     OUTPUT:
2099     RETVAL
2100    
2101     CHAINED
2102     pw::start (int pid)
2103     CODE:
2104     THIS->start (pid);
2105     OUTPUT:
2106     RETVAL
2107    
2108     CHAINED
2109 root 1.80 pw::stop ()
2110 root 1.79 CODE:
2111     THIS->stop ();
2112     OUTPUT:
2113     RETVAL
2114    
2115     void
2116     pw::DESTROY ()
2117    
2118 root 1.1