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