ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/rxvtperl.xs
(Generate patch)

Comparing rxvt-unicode/src/rxvtperl.xs (file contents):
Revision 1.66 by root, Sat Jan 14 09:28:57 2006 UTC vs.
Revision 1.193 by root, Tue Jun 12 18:25:57 2012 UTC

1/*----------------------------------------------------------------------* 1/*----------------------------------------------------------------------*
2 * File: rxvtperl.xs 2 * File: rxvtperl.xs
3 *----------------------------------------------------------------------* 3 *----------------------------------------------------------------------*
4 * 4 *
5 * All portions of code are copyright by their respective author/s. 5 * All portions of code are copyright by their respective author/s.
6 * Copyright (c) 2005-2006 Marc Lehmann <pcg@goof.com> 6 * Copyright (c) 2005-2008,2011 Marc Lehmann <schmorp@schmorp.de>
7 * 7 *
8 * This program is free software; you can redistribute it and/or modify 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 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 10 * the Free Software Foundation; either version 2 of the License, or
11 * (at your option) any later version. 11 * (at your option) any later version.
23#define line_t perl_line_t 23#define line_t perl_line_t
24#include <EXTERN.h> 24#include <EXTERN.h>
25#include <perl.h> 25#include <perl.h>
26#include <XSUB.h> 26#include <XSUB.h>
27#undef line_t 27#undef line_t
28#undef bool // perl defines it's own bool type, except with g++... what a trap
28 29
29#include "../config.h" 30#include "../config.h"
30 31
31#include <cstddef> 32#include <stddef.h>
32#include <cstdarg> 33#include <stdarg.h>
33 34
34#include "unistd.h" 35#include "unistd.h"
35 36
36#include "iom.h" 37#include "ev_cpp.h"
37#include "rxvt.h" 38#include "rxvt.h"
38#include "keyboard.h" 39#include "keyboard.h"
39#include "rxvtutil.h" 40#include "rxvtutil.h"
40#include "rxvtperl.h" 41#include "rxvtperl.h"
41 42
42#include "perlxsi.c" 43#include "perlxsi.c"
43 44
44#if defined(HAVE_SCROLLBARS) || defined(MENUBAR)
45# define GRAB_CURSOR THIS->leftptr_cursor 45#define GRAB_CURSOR THIS->scrollBar.leftptr_cursor
46#else
47# define GRAB_CURSOR None
48#endif
49 46
50#undef LINENO 47#undef LINENO
51#define LINENO(n) MOD (THIS->term_start + int(n), THIS->total_rows) 48#define LINENO(n) MOD (THIS->term_start + int(n), THIS->total_rows)
52#undef ROW 49#undef ROW
53#define ROW(n) THIS->row_buf [LINENO (n)] 50#define ROW(n) THIS->row_buf [LINENO (n)]
54 51
55#define ENABLE_PERL_FRILLS 1
56
57///////////////////////////////////////////////////////////////////////////// 52/////////////////////////////////////////////////////////////////////////////
58 53
59static SV * 54typedef char * octet_string;
60taint (SV *sv) 55typedef char * utf8_string;
61{
62 SvTAINT (sv);
63 return sv;
64}
65 56
66static SV * 57typedef int render_repeat_mode;
67taint_if (SV *sv, SV *src)
68{
69 if (SvTAINTED (src))
70 SvTAINT (sv);
71 58
72 return sv; 59#if HAVE_PIXBUF
60typedef GdkPixbuf * urxvt__pixbuf;
61#endif
62typedef rxvt_img * urxvt__img;
63
64/////////////////////////////////////////////////////////////////////////////
65
66static void
67parse_color (rxvt_screen *s, rxvt_color &c, SV *sv)
68{
69 //TODO: support component stuff, 0..1
70 c.set (s, SvPVbyte_nolen (sv));
73} 71}
72
73/////////////////////////////////////////////////////////////////////////////
74 74
75static wchar_t * 75static wchar_t *
76sv2wcs (SV *sv) 76sv2wcs (SV *sv)
77{ 77{
78 STRLEN len; 78 STRLEN len;
91 91
92 return sv; 92 return sv;
93} 93}
94 94
95static SV * 95static SV *
96new_ref (HV *hv, const char *klass)
97{
98 return sv_bless (newRV ((SV *)hv), gv_stashpv (klass, 1));
99}
100
101//TODO: use magic
102static SV *
103newSVptr (void *ptr, const char *klass) 96newSVptr (void *ptr, const char *klass)
104{ 97{
105 HV *hv = newHV (); 98 HV *hv = newHV ();
106 sv_magic ((SV *)hv, 0, PERL_MAGIC_ext, (char *)ptr, 0); 99 sv_magic ((SV *)hv, 0, PERL_MAGIC_ext, (char *)ptr, 0);
107 return sv_bless (newRV_noinc ((SV *)hv), gv_stashpv (klass, 1)); 100 return sv_bless (newRV_noinc ((SV *)hv), gv_stashpv (klass, 1));
129 croak ("perl code used %s object, but C++ object is already destroyed, caught", klass); 122 croak ("perl code used %s object, but C++ object is already destroyed, caught", klass);
130 123
131 return (long)mg->mg_ptr; 124 return (long)mg->mg_ptr;
132} 125}
133 126
134#define newSVterm(term) SvREFCNT_inc ((SV *)term->perl.self) 127#define newSVterm(term) SvREFCNT_inc ((SV *)(term)->perl.self)
135#define SvTERM(sv) (rxvt_term *)SvPTR (sv, "urxvt::term") 128#define SvTERM(sv) (rxvt_term *)SvPTR ((sv), "urxvt::term")
136 129
137///////////////////////////////////////////////////////////////////////////// 130/////////////////////////////////////////////////////////////////////////////
138 131
139struct perl_watcher 132#define SvOVERLAY(sv) (overlay *)SvPTR (sv, "urxvt::overlay")
133
134class overlay : overlay_base
140{ 135{
141 SV *cbsv; 136 rxvt_term *THIS;
137 AV *overlay_av;
138 int border;
139
140public:
142 HV *self; 141 HV *self;
143
144 perl_watcher ()
145 : cbsv (newSV (0))
146 {
147 }
148
149 ~perl_watcher ()
150 {
151 SvREFCNT_dec (cbsv);
152 }
153
154 void cb (SV *cb)
155 {
156 sv_setsv (cbsv, cb);
157 }
158
159 void invoke (const char *type, SV *self, int arg = -1);
160};
161
162void
163perl_watcher::invoke (const char *type, SV *self, int arg)
164{
165 dSP;
166
167 ENTER;
168 SAVETMPS;
169
170 PUSHMARK (SP);
171
172 XPUSHs (sv_2mortal (self));
173
174 if (arg >= 0)
175 XPUSHs (sv_2mortal (newSViv (arg)));
176
177 PUTBACK;
178 call_sv (cbsv, G_VOID | G_EVAL | G_DISCARD);
179 SPAGAIN;
180
181 PUTBACK;
182 FREETMPS;
183 LEAVE;
184
185 if (SvTRUE (ERRSV))
186 rxvt_warn ("%s callback evaluation error: %s", type, SvPV_nolen (ERRSV));
187}
188
189#define newSVtimer(timer) new_ref (timer->self, "urxvt::timer")
190#define SvTIMER(sv) (timer *)SvPTR (sv, "urxvt::timer")
191
192struct timer : time_watcher, perl_watcher
193{
194 tstamp interval;
195
196 timer ()
197 : time_watcher (this, &timer::execute)
198 {
199 }
200
201 void execute (time_watcher &w)
202 {
203 if (interval)
204 start (at + interval);
205
206 invoke ("urxvt::timer", newSVtimer (this));
207 }
208};
209
210#define newSViow(iow) new_ref (iow->self, "urxvt::iow")
211#define SvIOW(sv) (iow *)SvPTR (sv, "urxvt::iow")
212
213struct iow : io_watcher, perl_watcher
214{
215 iow ()
216 : io_watcher (this, &iow::execute)
217 {
218 }
219
220 void execute (io_watcher &w, short revents)
221 {
222 invoke ("urxvt::iow", newSViow (this), revents);
223 }
224};
225
226/////////////////////////////////////////////////////////////////////////////
227
228#define SvOVERLAY(sv) (overlay *)SvPTR (sv, "urxvt::overlay")
229
230struct overlay {
231 HV *self;
232 rxvt_term *THIS;
233 int x, y, w, h;
234 int border;
235 text_t **text;
236 rend_t **rend;
237 142
238 overlay (rxvt_term *THIS, int x_, int y_, int w_, int h_, rend_t rstyle, int border); 143 overlay (rxvt_term *THIS, int x_, int y_, int w_, int h_, rend_t rstyle, int border);
239 ~overlay (); 144 ~overlay ();
240 145
241 void show (); 146 void show ();
245 150
246 void set (int x, int y, SV *str, SV *rend); 151 void set (int x, int y, SV *str, SV *rend);
247}; 152};
248 153
249overlay::overlay (rxvt_term *THIS, int x_, int y_, int w_, int h_, rend_t rstyle, int border) 154overlay::overlay (rxvt_term *THIS, int x_, int y_, int w_, int h_, rend_t rstyle, int border)
250: THIS(THIS), x(x_), y(y_), w(w_), h(h_), border(border == 2) 155: THIS(THIS), border(border == 2), overlay_av (0)
251{ 156{
157 x = x_;
158 y = y_;
159 w = w_;
160 h = h_;
161
162 if (w < 0) w = 0;
163 if (h < 0) h = 0;
164
252 if (border == 2) 165 if (border == 2)
253 { 166 {
254 w += 2; 167 w += 2;
255 h += 2; 168 h += 2;
256 } 169 }
294 *rp++ = r; 207 *rp++ = r;
295 } 208 }
296 } 209 }
297 210
298 show (); 211 show ();
299 THIS->want_refresh = 1;
300} 212}
301 213
302overlay::~overlay () 214overlay::~overlay ()
303{ 215{
304 hide (); 216 hide ();
309 delete [] rend[y]; 221 delete [] rend[y];
310 } 222 }
311 223
312 delete [] text; 224 delete [] text;
313 delete [] rend; 225 delete [] rend;
226}
227
228void
229overlay::show ()
230{
231 if (overlay_av)
232 return;
233
234 overlay_av = (AV *)SvREFCNT_inc (SvRV (
235 *hv_fetch ((HV *)SvRV ((SV *)THIS->perl.self), "_overlay", 8, 0)
236 ));
237 av_push (overlay_av, newSViv ((long)this));
314 238
315 THIS->want_refresh = 1; 239 THIS->want_refresh = 1;
316} 240 THIS->refresh_check ();
317
318void
319overlay::show ()
320{
321 char key[33]; sprintf (key, "%32lx", (long)this);
322
323 HV *hv = (HV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)THIS->perl.self), "_overlay", 8, 0));
324 hv_store (hv, key, 32, newSViv ((long)this), 0);
325} 241}
326 242
327void 243void
328overlay::hide () 244overlay::hide ()
329{ 245{
330 SV **ovs = hv_fetch ((HV *)SvRV ((SV *)THIS->perl.self), "_overlay", 8, 0); 246 if (!overlay_av)
247 return;
331 248
332 if (ovs) 249 int i;
333 {
334 char key[33]; sprintf (key, "%32lx", (long)this);
335 250
336 HV *hv = (HV *)SvRV (*ovs); 251 for (i = AvFILL (overlay_av); i >= 0; i--)
337 hv_delete (hv, key, 32, G_DISCARD); 252 if (SvIV (*av_fetch (overlay_av, i, 1)) == (long)this)
338 } 253 break;
254
255 for (; i < AvFILL (overlay_av); i++)
256 av_store (overlay_av, i, SvREFCNT_inc (*av_fetch (overlay_av, i + 1, 0)));
257
258 av_pop (overlay_av);
259
260 SvREFCNT_dec (overlay_av);
261 overlay_av = 0;
262
263 THIS->want_refresh = 1;
264 THIS->refresh_check ();
339} 265}
340 266
341void overlay::swap () 267void overlay::swap ()
342{ 268{
343 int ov_x = max (0, min (MOD (x, THIS->ncol), THIS->ncol - w)); 269 int ov_x = max (0, min (MOD (x, THIS->ncol), THIS->ncol - w));
344 int ov_y = max (0, min (MOD (y, THIS->nrow), THIS->nrow - h)); 270 int ov_y = max (0, min (MOD (y, THIS->nrow), THIS->nrow - h));
345 271
346 int ov_w = min (w, THIS->ncol - ov_x); 272 int ov_w = min (w, THIS->ncol - ov_x);
347 int ov_h = min (h, THIS->nrow - ov_y); 273 int ov_h = min (h, THIS->nrow - ov_y);
274
275 // hide cursor if it is within the overlay area
276 if (IN_RANGE_EXC (THIS->screen.cur.col - ov_x, 0, ov_w)
277 && IN_RANGE_EXC (THIS->screen.cur.row - ov_y, 0, ov_h))
278 THIS->screen.flags &= ~Screen_VisibleCursor;
348 279
349 for (int y = ov_h; y--; ) 280 for (int y = ov_h; y--; )
350 { 281 {
351 text_t *t1 = text [y]; 282 text_t *t1 = text [y];
352 rend_t *r1 = rend [y]; 283 rend_t *r1 = rend [y];
353 284
354 text_t *t2 = ROW(y + ov_y - THIS->view_start).t + ov_x; 285 text_t *t2 = ROW(y + ov_y + THIS->view_start).t + ov_x;
355 rend_t *r2 = ROW(y + ov_y - THIS->view_start).r + ov_x; 286 rend_t *r2 = ROW(y + ov_y + THIS->view_start).r + ov_x;
356 287
357 for (int x = ov_w; x--; ) 288 for (int x = ov_w; x--; )
358 { 289 {
359 text_t t = *t1; *t1++ = *t2; *t2++ = t; 290 text_t t = *t1; *t1++ = *t2; *t2++ = t;
360 rend_t r = *r1; *r1++ = *r2; *r2++ = SET_FONT (r, THIS->fontset [GET_STYLE (r)]->find_font (t)); 291 rend_t r = *r1; *r1++ = *r2; *r2++ = SET_FONT (r, THIS->fontset [GET_STYLE (r)]->find_font (t));
383 if (!SvROK (rend) || SvTYPE (SvRV (rend)) != SVt_PVAV) 314 if (!SvROK (rend) || SvTYPE (SvRV (rend)) != SVt_PVAV)
384 croak ("rend must be arrayref"); 315 croak ("rend must be arrayref");
385 316
386 AV *av = (AV *)SvRV (rend); 317 AV *av = (AV *)SvRV (rend);
387 318
388 for (int col = min (av_len (av) + 1, w - x - border); col--; ) 319 for (int col = min (AvFILL (av) + 1, w - x - border); col--; )
389 this->rend [y][x + col] = SvIV (*av_fetch (av, col, 1)); 320 this->rend [y][x + col] = SvIV (*av_fetch (av, col, 1));
390 } 321 }
391 322
392 THIS->want_refresh = 1; 323 THIS->want_refresh = 1;
324 THIS->refresh_check ();
393} 325}
394 326
327/////////////////////////////////////////////////////////////////////////////
328
329#include "iom_perl.h"
395 330
396///////////////////////////////////////////////////////////////////////////// 331/////////////////////////////////////////////////////////////////////////////
397 332
398struct rxvt_perl_interp rxvt_perl; 333struct rxvt_perl_interp rxvt_perl;
399 334
403{ 338{
404 if (perl) 339 if (perl)
405 { 340 {
406 perl_destruct (perl); 341 perl_destruct (perl);
407 perl_free (perl); 342 perl_free (perl);
343 PERL_SYS_TERM ();
408 } 344 }
409} 345}
410 346
411void 347void
412rxvt_perl_interp::init () 348rxvt_perl_interp::init ()
413{ 349{
414 if (!perl) 350 if (!perl)
415 { 351 {
352 rxvt_push_locale (""); // perl init destroys current locale
353
354 {
416 perl_environ = rxvt_environ; 355 perl_environ = rxvt_environ;
417 swap (perl_environ, environ); 356 localise_env set_environ (perl_environ);
418 357
419 char *argv[] = { 358 char *args[] = {
420 "", 359 "",
421 "-T", 360 "-e"
422 "-edo '" LIBDIR "/urxvt.pm' or ($@ and die $@) or exit 1", 361 "BEGIN {"
362 " urxvt->bootstrap;"
363 " unshift @INC, '" LIBDIR "';"
364 "}"
365 ""
366 "use urxvt;"
423 }; 367 };
368 int argc = ecb_array_length (args);
369 char **argv = args;
424 370
371 PERL_SYS_INIT3 (&argc, &argv, &environ);
425 perl = perl_alloc (); 372 perl = perl_alloc ();
426 perl_construct (perl); 373 perl_construct (perl);
427 374
428 if (perl_parse (perl, xs_init, 3, argv, (char **)NULL) 375 if (perl_parse (perl, xs_init, argc, argv, (char **)NULL)
429 || perl_run (perl)) 376 || perl_run (perl))
430 { 377 {
431 rxvt_warn ("unable to initialize perl-interpreter, continuing without.\n"); 378 rxvt_warn ("unable to initialize perl-interpreter, continuing without.\n");
432 379
433 perl_destruct (perl); 380 perl_destruct (perl);
434 perl_free (perl); 381 perl_free (perl);
435 perl = 0; 382 perl = 0;
436 } 383 }
384 }
437 385
438 swap (perl_environ, environ); 386 rxvt_pop_locale ();
439 } 387 }
388}
389
390void
391rxvt_perl_interp::init (rxvt_term *term)
392{
393 init ();
394
395 if (perl && !term->perl.self)
396 {
397 // runs outside of perls ENV
398 term->perl.self = (void *)newSVptr ((void *)term, "urxvt::term");
399 hv_store ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, newRV_noinc ((SV *)newAV ()), 0);
400 hv_store ((HV *)SvRV ((SV *)term->perl.self), "_selection", 10, newRV_noinc ((SV *)newAV ()), 0);
401 }
402}
403
404void
405rxvt_perl_interp::eval (const char *str)
406{
407 eval_pv (str, 1);
408}
409
410void
411rxvt_perl_interp::usage (rxvt_term *term, int type)
412{
413 localise_env set_environ (perl_environ);
414
415 ENTER;
416 SAVETMPS;
417
418 dSP;
419 PUSHMARK (SP);
420 EXTEND (SP, 2);
421 PUSHs (sv_2mortal (newSVterm (term)));
422 PUSHs (sv_2mortal (newSViv (type)));
423 PUTBACK;
424 call_pv ("urxvt::usage", G_VOID | G_DISCARD);
425
426 FREETMPS;
427 LEAVE;
428}
429
430uint8_t
431rxvt_perl_interp::parse_resource (rxvt_term *term, const char *name, bool arg, bool longopt, bool flag, const char *value)
432{
433 localise_env set_environ (perl_environ);
434
435 ENTER;
436 SAVETMPS;
437
438 dSP;
439 PUSHMARK (SP);
440 EXTEND (SP, 6);
441 PUSHs (sv_2mortal (newSVterm (term)));
442 PUSHs (sv_2mortal (newSVpv (name, 0)));
443 PUSHs (arg ? &PL_sv_yes : &PL_sv_no);
444 PUSHs (longopt ? &PL_sv_yes : &PL_sv_no);
445 PUSHs (flag ? &PL_sv_yes : &PL_sv_no);
446 PUSHs (value ? sv_2mortal (newSVpv (value, 0)) : &PL_sv_undef);
447 PUTBACK;
448 call_pv ("urxvt::parse_resource", G_SCALAR);
449 SPAGAIN;
450
451 uint8_t ret = POPi;
452
453 FREETMPS;
454 LEAVE;
455
456 return ret;
440} 457}
441 458
442static void 459static void
443ungrab (rxvt_term *THIS) 460ungrab (rxvt_term *THIS)
444{ 461{
445 if (THIS->perl.grabtime) 462 if (THIS->perl.grabtime)
446 { 463 {
447 XUngrabKeyboard (THIS->display->display, THIS->perl.grabtime); 464 XUngrabKeyboard (THIS->dpy, THIS->perl.grabtime);
448 XUngrabPointer (THIS->display->display, THIS->perl.grabtime); 465 XUngrabPointer (THIS->dpy, THIS->perl.grabtime);
449 THIS->perl.grabtime = 0; 466 THIS->perl.grabtime = 0;
450 } 467 }
451} 468}
452 469
453bool 470bool
454rxvt_perl_interp::invoke (rxvt_term *term, hook_type htype, ...) 471rxvt_perl_interp::invoke (rxvt_term *term, hook_type htype, ...)
455{ 472{
456 if (!perl) 473 if (!perl || !term->perl.self)
457 return false; 474 return false;
458 475
459 if (htype == HOOK_INIT) // first hook ever called 476 localise_env set_environ (perl_environ);
477
478 // pre-handling of some events
479 if (htype == HOOK_REFRESH_END)
460 { 480 {
461 term->perl.self = (void *)newSVptr ((void *)term, "urxvt::term"); 481 AV *av = (AV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, 0));
462 hv_store ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, newRV_noinc ((SV *)newHV ()), 0); 482
483 for (int i = 0; i <= AvFILL (av); i++)
484 ((overlay *)SvIV (*av_fetch (av, i, 0)))->swap ();
463 } 485 }
464 else if (!term->perl.self)
465 return false; // perl not initialized for this instance
466 else if (htype == HOOK_DESTROY) 486 else if (htype == HOOK_DESTROY)
467 { 487 {
468 // handled later 488 AV *av = (AV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)term->perl.self), "_selection", 10, 0));
489
490 for (int i = AvFILL (av); i >= 0; i--)
491 {
492 rxvt_selection *req = (rxvt_selection *)SvIV (*av_fetch (av, i, 0));
493 delete req;
494 }
469 } 495 }
470 else
471 {
472 if (htype == HOOK_REFRESH_BEGIN || htype == HOOK_REFRESH_END)
473 {
474 HV *hv = (HV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, 0));
475 496
476 if (HvKEYS (hv)) 497 bool event_consumed;
477 {
478 hv_iterinit (hv);
479 498
480 while (HE *he = hv_iternext (hv))
481 ((overlay *)SvIV (hv_iterval (hv, he)))->swap ();
482 }
483
484 }
485
486 if (!term->perl.should_invoke [htype]) 499 if (term->perl.should_invoke [htype])
487 return false;
488 }
489
490 swap (perl_environ, environ);
491
492 try
493 { 500 {
494 dSP; 501 dSP;
495 va_list ap; 502 va_list ap;
496 503
497 va_start (ap, htype); 504 va_start (ap, htype);
499 ENTER; 506 ENTER;
500 SAVETMPS; 507 SAVETMPS;
501 508
502 PUSHMARK (SP); 509 PUSHMARK (SP);
503 510
511 EXTEND (SP, 2);
504 XPUSHs (sv_2mortal (newSVterm (term))); 512 PUSHs (sv_2mortal (newSVterm (term)));
505 XPUSHs (sv_2mortal (newSViv (htype))); 513 PUSHs (sv_2mortal (newSViv (htype)));
506 514
507 for (;;) { 515 for (;;) {
508 data_type dt = (data_type)va_arg (ap, int); 516 data_type dt = (data_type)va_arg (ap, int);
509 517
510 switch (dt) 518 switch (dt)
516 case DT_LONG: 524 case DT_LONG:
517 XPUSHs (sv_2mortal (newSViv (va_arg (ap, long)))); 525 XPUSHs (sv_2mortal (newSViv (va_arg (ap, long))));
518 break; 526 break;
519 527
520 case DT_STR: 528 case DT_STR:
521 XPUSHs (taint (sv_2mortal (newSVpv (va_arg (ap, char *), 0)))); 529 XPUSHs (sv_2mortal (newSVpv (va_arg (ap, char *), 0)));
522 break; 530 break;
523 531
524 case DT_STR_LEN: 532 case DT_STR_LEN:
525 { 533 {
526 char *str = va_arg (ap, char *); 534 char *str = va_arg (ap, char *);
527 int len = va_arg (ap, int); 535 int len = va_arg (ap, int);
528 536
529 XPUSHs (taint (sv_2mortal (newSVpvn (str, len)))); 537 XPUSHs (sv_2mortal (newSVpvn (str, len)));
530 } 538 }
531 break; 539 break;
532 540
533 case DT_WCS_LEN: 541 case DT_WCS_LEN:
534 { 542 {
535 wchar_t *wstr = va_arg (ap, wchar_t *); 543 wchar_t *wstr = va_arg (ap, wchar_t *);
544 int wlen = va_arg (ap, int);
545
546 XPUSHs (sv_2mortal (wcs2sv (wstr, wlen)));
547 }
548 break;
549
550 case DT_LCS_LEN:
551 {
552 long *lstr = va_arg (ap, long *);
536 int wlen = va_arg (ap, int); 553 int llen = va_arg (ap, int);
537 554
538 XPUSHs (taint (sv_2mortal (wcs2sv (wstr, wlen)))); 555 XPUSHs (sv_2mortal (newSVpvn ((char *)lstr, llen * sizeof (long))));
539 } 556 }
540 break; 557 break;
541 558
542 case DT_XEVENT: 559 case DT_XEVENT:
543 { 560 {
544 XEvent *xe = va_arg (ap, XEvent *); 561 XEvent *xe = va_arg (ap, XEvent *);
545 HV *hv = newHV (); 562 HV *hv = newHV ();
546 563
547# define set(name, sv) hv_store (hv, # name, sizeof (# name) - 1, sv, 0) 564# define set(name, sv) hv_store (hv, # name, sizeof (# name) - 1, sv, 0)
548# define setiv(name, val) hv_store (hv, # name, sizeof (# name) - 1, newSViv (val), 0) 565# define setiv(name, val) hv_store (hv, # name, sizeof (# name) - 1, newSViv (val), 0)
566# define setuv(name, val) hv_store (hv, # name, sizeof (# name) - 1, newSVuv (val), 0)
549# undef set 567# undef set
550 568
551 setiv (type, xe->type); 569 setiv (type, xe->type);
552 setiv (send_event, xe->xany.send_event); 570 setiv (send_event, xe->xany.send_event);
553 setiv (serial, xe->xany.serial); 571 setiv (serial, xe->xany.serial);
554 572
557 case KeyPress: 575 case KeyPress:
558 case KeyRelease: 576 case KeyRelease:
559 case ButtonPress: 577 case ButtonPress:
560 case ButtonRelease: 578 case ButtonRelease:
561 case MotionNotify: 579 case MotionNotify:
580 setuv (window, xe->xmotion.window);
581 setuv (root, xe->xmotion.root);
582 setuv (subwindow, xe->xmotion.subwindow);
562 setiv (time, xe->xmotion.time); 583 setuv (time, xe->xmotion.time);
563 setiv (x, xe->xmotion.x); 584 setiv (x, xe->xmotion.x);
564 setiv (y, xe->xmotion.y); 585 setiv (y, xe->xmotion.y);
565 setiv (row, xe->xmotion.y / term->fheight); 586 setiv (row, xe->xmotion.y / term->fheight + term->view_start);
566 setiv (col, xe->xmotion.x / term->fwidth); 587 setiv (col, xe->xmotion.x / term->fwidth);
567 setiv (x_root, xe->xmotion.x_root); 588 setiv (x_root, xe->xmotion.x_root);
568 setiv (y_root, xe->xmotion.y_root); 589 setiv (y_root, xe->xmotion.y_root);
569 setiv (state, xe->xmotion.state); 590 setuv (state, xe->xmotion.state);
591
592 switch (xe->type)
593 {
594 case KeyPress:
595 case KeyRelease:
596 setuv (keycode, xe->xkey.keycode);
597 break;
598
599 case ButtonPress:
600 case ButtonRelease:
601 setuv (button, xe->xbutton.button);
602 break;
603
604 case MotionNotify:
605 setiv (is_hint, xe->xmotion.is_hint);
606 break;
607 }
608
570 break; 609 break;
571 }
572 610
611 case MapNotify:
612 case UnmapNotify:
613 case ConfigureNotify:
614 setuv (event, xe->xconfigure.event);
615 setuv (window, xe->xconfigure.window);
616
573 switch (xe->type) 617 switch (xe->type)
574 { 618 {
575 case KeyPress: 619 case ConfigureNotify:
576 case KeyRelease: 620 setiv (x, xe->xconfigure.x);
577 setiv (keycode, xe->xkey.keycode); 621 setiv (y, xe->xconfigure.y);
622 setiv (width, xe->xconfigure.width);
623 setiv (height, xe->xconfigure.height);
624 setuv (above, xe->xconfigure.above);
625 break;
626 }
627
578 break; 628 break;
579 629
580 case ButtonPress: 630 case PropertyNotify:
581 case ButtonRelease: 631 setuv (window, xe->xproperty.window);
582 setiv (button, xe->xbutton.button); 632 setuv (atom, xe->xproperty.atom);
633 setuv (time, xe->xproperty.time);
634 setiv (state, xe->xproperty.state);
583 break; 635 break;
584 636
585 case MotionNotify: 637 case ClientMessage:
586 setiv (is_hint, xe->xmotion.is_hint); 638 setuv (window, xe->xclient.window);
639 setuv (message_type, xe->xclient.message_type);
640 setuv (format, xe->xclient.format);
641 setuv (l0, xe->xclient.data.l[0]);
642 setuv (l1, xe->xclient.data.l[1]);
643 setuv (l2, xe->xclient.data.l[2]);
644 setuv (l3, xe->xclient.data.l[3]);
645 setuv (l4, xe->xclient.data.l[4]);
587 break; 646 break;
588 } 647 }
589 648
590 XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv))); 649 XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));
591 } 650 }
592 break; 651 break;
593 652
594 case DT_END: 653 case DT_END:
595 { 654 goto call;
596 va_end (ap);
597
598 PUTBACK;
599 int count = call_pv ("urxvt::invoke", G_ARRAY | G_EVAL);
600 SPAGAIN;
601
602 if (count)
603 {
604 SV *status = POPs;
605 count = SvTRUE (status);
606 }
607
608 PUTBACK;
609 FREETMPS;
610 LEAVE;
611
612 if (SvTRUE (ERRSV))
613 {
614 rxvt_warn ("perl hook %d evaluation error: %s", htype, SvPV_nolen (ERRSV));
615 ungrab (term); // better lose the grab than the session
616 }
617
618 if (htype == HOOK_DESTROY)
619 {
620 clearSVptr ((SV *)term->perl.self);
621 SvREFCNT_dec ((SV *)term->perl.self);
622 }
623
624 swap (perl_environ, environ);
625 return count;
626 }
627 655
628 default: 656 default:
629 rxvt_fatal ("FATAL: unable to pass data type %d\n", dt); 657 rxvt_fatal ("FATAL: unable to pass data type %d\n", dt);
630 } 658 }
631 } 659 }
660
661 call:
662 va_end (ap);
663
664 PUTBACK;
665 int count = call_pv ("urxvt::invoke", G_ARRAY | G_EVAL);
666 SPAGAIN;
667
668 if (count)
669 {
670 SV *status = POPs;
671 count = SvTRUE (status);
672 }
673
674 PUTBACK;
675 FREETMPS;
676 LEAVE;
677
678 if (SvTRUE (ERRSV))
679 {
680 rxvt_warn ("perl hook %d evaluation error: %s", htype, SvPVbyte_nolen (ERRSV));
681 ungrab (term); // better lose the grab than the session
682 }
683
684 event_consumed = !!count;
632 } 685 }
633 catch (...) 686 else
687 event_consumed = false;
688
689 // post-handling of some events
690 if (htype == HOOK_REFRESH_BEGIN)
634 { 691 {
635 swap (perl_environ, environ); 692 AV *av = (AV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, 0));
636 throw; 693
694 for (int i = AvFILL (av); i >= 0; i--)
695 ((overlay *)SvIV (*av_fetch (av, i, 0)))->swap ();
637 } 696 }
697 else if (htype == HOOK_DESTROY)
698 {
699 clearSVptr ((SV *)term->perl.self);
700 SvREFCNT_dec ((SV *)term->perl.self);
701
702 // don't allow further calls
703 term->perl.self = 0;
704 }
705
706 return event_consumed;
707}
708
709void
710rxvt_perl_interp::selection_finish (rxvt_selection *sel, char *data, unsigned int len)
711{
712 localise_env set_environ (perl_environ);
713
714 ENTER;
715 SAVETMPS;
716
717 dSP;
718 XPUSHs (sv_2mortal (newSVpvn (data, len)));
719 PUTBACK;
720 call_sv ((SV *)sel->cb_sv, G_VOID | G_DISCARD | G_EVAL);
721
722 if (SvTRUE (ERRSV))
723 rxvt_warn ("perl selection callback evaluation error: %s", SvPVbyte_nolen (ERRSV));
724
725 FREETMPS;
726 LEAVE;
638} 727}
639 728
640///////////////////////////////////////////////////////////////////////////// 729/////////////////////////////////////////////////////////////////////////////
641 730
642MODULE = urxvt PACKAGE = urxvt 731MODULE = urxvt PACKAGE = urxvt
654# define def(sym) av_store (hookname, HOOK_ ## sym, newSVpv (# sym, 0)); 743# define def(sym) av_store (hookname, HOOK_ ## sym, newSVpv (# sym, 0));
655# include "hookinc.h" 744# include "hookinc.h"
656# undef def 745# undef def
657 746
658 HV *option = get_hv ("urxvt::OPTION", 1); 747 HV *option = get_hv ("urxvt::OPTION", 1);
659# define def(name,val) hv_store (option, # name, sizeof (# name) - 1, newSVuv (Opt_ ## name), 0); 748# define def(name) hv_store (option, # name, sizeof (# name) - 1, newSVuv (Opt_ ## name), 0);
660# define nodef(name) 749# define nodef(name)
661# include "optinc.h" 750# include "optinc.h"
662# undef nodef 751# undef nodef
663# undef def 752# undef def
664 753
665 HV *stash = gv_stashpv ("urxvt", 1); 754 HV *stash = gv_stashpv ("urxvt", 1);
666 struct { 755 static const struct {
667 const char *name; 756 const char *name;
668 IV iv; 757 IV iv;
669 } *civ, const_iv[] = { 758 } *civ, const_iv[] = {
670# define const_iv(name) { # name, (IV)name } 759# define const_iv(name) { # name, (IV)name }
760 const_iv (NUM_RESOURCES),
671 const_iv (DEFAULT_RSTYLE), 761 const_iv (DEFAULT_RSTYLE),
672 const_iv (OVERLAY_RSTYLE), 762 const_iv (OVERLAY_RSTYLE),
763 const_iv (Color_Bits),
764 const_iv (RS_bgShift), const_iv (RS_bgMask),
765 const_iv (RS_fgShift), const_iv (RS_fgMask),
766 const_iv (RS_Careful),
767 const_iv (RS_fontCount),
768 const_iv (RS_fontShift),
769 const_iv (RS_fontMask),
770 const_iv (RS_baseattrMask),
771 const_iv (RS_attrMask),
772 const_iv (RS_redraw),
773 const_iv (RS_Sel),
673 const_iv (RS_Bold), 774 const_iv (RS_Bold),
674 const_iv (RS_Italic), 775 const_iv (RS_Italic),
675 const_iv (RS_Blink), 776 const_iv (RS_Blink),
676 const_iv (RS_RVid), 777 const_iv (RS_RVid),
677 const_iv (RS_Uline), 778 const_iv (RS_Uline),
690 const_iv (Button3Mask), 791 const_iv (Button3Mask),
691 const_iv (Button4Mask), 792 const_iv (Button4Mask),
692 const_iv (Button5Mask), 793 const_iv (Button5Mask),
693 const_iv (AnyModifier), 794 const_iv (AnyModifier),
694 795
695 const_iv (EVENT_NONE), 796 const_iv (NoSymbol),
696 const_iv (EVENT_READ), 797 const_iv (GrabModeSync),
697 const_iv (EVENT_WRITE), 798 const_iv (GrabModeAsync),
698 799
699 const_iv (NoEventMask), 800 const_iv (NoEventMask),
700 const_iv (KeyPressMask), 801 const_iv (KeyPressMask),
701 const_iv (KeyReleaseMask), 802 const_iv (KeyReleaseMask),
702 const_iv (ButtonPressMask), 803 const_iv (ButtonPressMask),
754 const_iv (SelectionRequest), 855 const_iv (SelectionRequest),
755 const_iv (SelectionNotify), 856 const_iv (SelectionNotify),
756 const_iv (ColormapNotify), 857 const_iv (ColormapNotify),
757 const_iv (ClientMessage), 858 const_iv (ClientMessage),
758 const_iv (MappingNotify), 859 const_iv (MappingNotify),
860# 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#if XRENDER
871 const_iv (PictStandardARGB32),
872 const_iv (PictStandardRGB24),
873 const_iv (PictStandardA8),
874 const_iv (PictStandardA4),
875 const_iv (PictStandardA1),
876 const_iv (RepeatNone),
877 const_iv (RepeatNormal),
878 const_iv (RepeatPad),
879 const_iv (RepeatReflect),
880#endif
881# if 0
882 const_iv (XIMForwardChar),
883 const_iv (XIMBackwardChar),
884 const_iv (XIMForwardWord),
885 const_iv (XIMBackwardWord),
886 const_iv (XIMCaretUp),
887 const_iv (XIMCaretDown),
888 const_iv (XIMNextLine),
889 const_iv (XIMPreviousLine),
890 const_iv (XIMLineStart),
891 const_iv (XIMLineEnd),
892 const_iv (XIMAbsolutePosition),
893 const_iv (XIMDontChange),
894# endif
895# endif
759 }; 896 };
760 897
761 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); 898 for (civ = const_iv + ecb_array_length (const_iv); civ > const_iv; civ--)
762 civ-- > const_iv; )
763 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 899 newCONSTSUB (stash, (char *)civ[-1].name, newSViv (civ[-1].iv));
764} 900}
901
902void
903log (const char *msg)
904 CODE:
905 rxvt_log ("%s", msg);
765 906
766void 907void
767warn (const char *msg) 908warn (const char *msg)
768 CODE: 909 CODE:
769 rxvt_warn ("%s", msg); 910 rxvt_warn ("%s", msg);
771void 912void
772fatal (const char *msg) 913fatal (const char *msg)
773 CODE: 914 CODE:
774 rxvt_fatal ("%s", msg); 915 rxvt_fatal ("%s", msg);
775 916
776SV *
777untaint (SV *sv)
778 CODE:
779 RETVAL = newSVsv (sv);
780 SvTAINTED_off (RETVAL);
781 OUTPUT:
782 RETVAL
783
784void 917void
785_exit (int status) 918_exit (int status)
786 919
787bool 920void
788safe () 921catch_fatal (SV *block)
789 CODE: 922 PROTOTYPE: &
790 RETVAL = !rxvt_tainted (); 923 CODE:
791 OUTPUT: 924 try
792 RETVAL 925 {
926 PUSHMARK (SP);
927 PUTBACK;
928 call_sv (block, G_VOID | G_DISCARD);
929 SPAGAIN;
930 }
931 catch (const rxvt_failure_exception &e)
932 {
933 croak ("rxvt_fatal exception caught, trying to continue.");
934 }
793 935
794NV 936NV
795NOW () 937NOW ()
796 CODE: 938 CODE:
797 RETVAL = NOW; 939 RETVAL = ev::now ();
798 OUTPUT: 940 OUTPUT:
799 RETVAL 941 RETVAL
800 942
801int 943int
802GET_BASEFG (int rend) 944GET_BASEFG (int rend)
813 RETVAL 955 RETVAL
814 956
815int 957int
816SET_FGCOLOR (int rend, int new_color) 958SET_FGCOLOR (int rend, int new_color)
817 CODE: 959 CODE:
818 RETVAL = SET_FGCOLOR (rend, new_color); 960 RETVAL = SET_FGCOLOR (rend, clamp (new_color, 0, TOTAL_COLORS - 1));
819 OUTPUT: 961 OUTPUT:
820 RETVAL 962 RETVAL
821 963
822int 964int
823SET_BGCOLOR (int rend, int new_color) 965SET_BGCOLOR (int rend, int new_color)
824 CODE: 966 CODE:
825 RETVAL = SET_BGCOLOR (rend, new_color); 967 RETVAL = SET_BGCOLOR (rend, clamp (new_color, 0, TOTAL_COLORS - 1));
826 OUTPUT: 968 OUTPUT:
827 RETVAL 969 RETVAL
828 970
829int 971int
830GET_CUSTOM (int rend) 972GET_CUSTOM (int rend)
831 CODE: 973 CODE:
832 RETVAL = (rend && RS_customMask) >> RS_customShift; 974 RETVAL = (rend & RS_customMask) >> RS_customShift;
833 OUTPUT: 975 OUTPUT:
834 RETVAL 976 RETVAL
835 977
836int 978int
837SET_CUSTOM (int rend, int new_value) 979SET_CUSTOM (int rend, int new_value)
844 | ((new_value << RS_customShift) & RS_customMask); 986 | ((new_value << RS_customShift) & RS_customMask);
845} 987}
846 OUTPUT: 988 OUTPUT:
847 RETVAL 989 RETVAL
848 990
991void
992termlist ()
993 PPCODE:
994{
995 EXTEND (SP, rxvt_term::termlist.size ());
996
997 for (rxvt_term **t = rxvt_term::termlist.begin (); t < rxvt_term::termlist.end (); t++)
998 if ((*t)->perl.self)
999 PUSHs (sv_2mortal (newSVterm (*t)));
1000}
1001
1002IV
1003_new_selection_request (rxvt_term *term, int selnum, Time tm, Window win, Atom prop, SV *cb)
1004 CODE:
1005 rxvt_selection *req = new rxvt_selection (term->display, selnum, tm, win, prop, term);
1006 req->cb_sv = newSVsv (cb);
1007 AV *av = (AV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)term->perl.self), "_selection", 10, 0));
1008 av_push (av, newSViv ((IV)req));
1009 RETVAL = (IV)req;
1010 OUTPUT:
1011 RETVAL
1012
1013void
1014_delete_selection_request (IV req_)
1015 CODE:
1016 rxvt_selection *req = (rxvt_selection *)req_;
1017 AV *av = (AV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)req->term->perl.self), "_selection", 10, 0));
1018 int i;
1019
1020 for (i = AvFILL (av); i >= 0; i--)
1021 if (SvIV (*av_fetch (av, i, 1)) == req_)
1022 break;
1023
1024 for (; i < AvFILL (av); i++)
1025 av_store (av, i, SvREFCNT_inc (*av_fetch (av, i + 1, 0)));
1026
1027 av_pop (av);
1028
1029 delete req;
1030
849MODULE = urxvt PACKAGE = urxvt::term 1031MODULE = urxvt PACKAGE = urxvt::term
850 1032
851SV * 1033SV *
852_new (...) 1034_new (AV *env, AV *arg)
853 CODE: 1035 CODE:
854{ 1036{
855 if (items < 1 || !SvROK (ST (0)) || SvTYPE (SvRV (ST (0))) != SVt_PVAV)
856 croak ("first argument to urxvt::term->_new must be arrayref");
857
858 rxvt_term *term = new rxvt_term; 1037 rxvt_term *term = new rxvt_term;
859 1038
860 term->argv = new stringvec; 1039 stringvec *argv = new stringvec;
861 term->envv = new stringvec; 1040 for (int i = 0; i <= AvFILL (arg); i++)
862
863 for (int i = 1; i < items; i++)
864 term->argv->push_back (strdup (SvPVbyte_nolen (ST (i)))); 1041 argv->push_back (strdup (SvPVbyte_nolen (*av_fetch (arg, i, 1))));
865 1042
866 AV *envv = (AV *)SvRV (ST (0)); 1043 stringvec *envv = new stringvec;
867 for (int i = av_len (envv) + 1; i--; ) 1044 for (int i = AvFILL (env) + 1; i--; )
868 term->envv->push_back (strdup (SvPVbyte_nolen (*av_fetch (envv, i, 1)))); 1045 envv->push_back (strdup (SvPVbyte_nolen (*av_fetch (env, i, 1))));
869
870 term->envv->push_back (0);
871
872 bool success;
873 1046
874 try 1047 try
875 { 1048 {
876 success = term->init (term->argv->size (), term->argv->begin ()); 1049 term->init (argv, envv);
877 } 1050 }
878 catch (const class rxvt_failure_exception &e) 1051 catch (const class rxvt_failure_exception &e)
879 {
880 success = false;
881 }
882
883 if (!success)
884 { 1052 {
885 term->destroy (); 1053 term->destroy ();
886 croak ("error while initializing new terminal instance"); 1054 croak ("error while initializing new terminal instance");
887 } 1055 }
888 1056
893 RETVAL 1061 RETVAL
894 1062
895void 1063void
896rxvt_term::destroy () 1064rxvt_term::destroy ()
897 1065
898#if ENABLE_PERL_FRILLS
899
900void
901rxvt_term::XListProperties (U32 window)
902 PPCODE:
903{
904 int count;
905 Atom *props = XListProperties (THIS->display->display, (Window)window, &count);
906
907 EXTEND (SP, count);
908 while (count--)
909 PUSHs (newSVuv ((U32)props [count]));
910
911 XFree (props);
912}
913
914void
915rxvt_term::XGetWindowProperty (U32 window, U32 property)
916 PPCODE:
917{
918 Atom type;
919 int format;
920 unsigned long nitems;
921 unsigned long bytes_after;
922 unsigned char *prop;
923 XGetWindowProperty (THIS->display->display, (Window)window, (Atom)property,
924 0, 1<<30, 0, AnyPropertyType,
925 &type, &format, &nitems, &bytes_after, &prop);
926 if (type != None)
927 {
928 EXTEND (SP, 3);
929 PUSHs (newSVuv ((U32)type));
930 PUSHs (newSViv (format));
931 PUSHs (newSVpvn ((char *)prop, nitems * format / 8));
932 XFree (prop);
933 }
934}
935
936void
937rxvt_term::XChangeWindowProperty (U32 window, U32 property, U32 type, int format, SV *data)
938 CODE:
939{
940 STRLEN len;
941 char *data_ = SvPVbyte (data, len);
942
943 XChangeProperty (THIS->display->display, (Window)window, (Atom)property,
944 type, format, PropModeReplace,
945 (unsigned char *)data, len * 8 / format);
946}
947
948void
949rxvt_term::XDeleteProperty (U32 window, U32 property)
950 CODE:
951 XDeleteProperty (THIS->display->display, (Window)window, (Atom)property);
952
953U32
954rxvt_term::DefaultRootWindow ()
955 CODE:
956 RETVAL = (U32)THIS->display->root;
957 OUTPUT:
958 RETVAL
959
960U32
961rxvt_term::XCreateSimpleWindow (U32 parent, int x, int y, unsigned int width, unsigned int height)
962 CODE:
963 RETVAL = XCreateSimpleWindow (THIS->display->display, (Window)parent,
964 x, y, width, height, 0,
965 THIS->pix_colors_focused[Color_border],
966 THIS->pix_colors_focused[Color_border]);
967 OUTPUT:
968 RETVAL
969
970void
971rxvt_term::XReparentWindow (U32 window, U32 parent, int x = 0, int y = 0)
972 CODE:
973 XReparentWindow (THIS->display->display, (Window)window, (Window)parent, x, y);
974
975void
976rxvt_term::XMapWindow (U32 window)
977 CODE:
978 XMapWindow (THIS->display->display, (Window)window);
979
980void
981rxvt_term::XUnmapWindow (U32 window)
982 CODE:
983 XUnmapWindow (THIS->display->display, (Window)window);
984
985#endif
986
987void 1066void
988rxvt_term::set_should_invoke (int htype, int inc) 1067rxvt_term::set_should_invoke (int htype, int inc)
989 CODE: 1068 CODE:
990 THIS->perl.should_invoke [htype] += inc; 1069 uint8_t &count = THIS->perl.should_invoke [htype];
1070 uint8_t prev = count;
1071 count += inc;
1072 if (!prev != !count)
1073 {
1074 // hook status changed, react
1075 switch (htype)
1076 {
1077 case HOOK_POSITION_CHANGE:
1078 if (count)
1079 THIS->get_window_origin (THIS->parent_x, THIS->parent_y);
1080 }
1081 }
991 1082
992void 1083void
1084rxvt_term::put_option_db (octet_string specifier, octet_string value)
1085 CODE:
1086 XrmPutStringResource (&THIS->option_db, specifier, value);
1087
1088int
993rxvt_term::grab_button (int button, U32 modifiers) 1089rxvt_term::grab_button (int button, U32 modifiers, Window window = THIS->vt)
994 CODE: 1090 CODE:
995 XGrabButton (THIS->display->display, button, modifiers, THIS->vt, 1, 1091 RETVAL = XGrabButton (THIS->dpy, button, modifiers, window, 1,
996 ButtonPressMask | ButtonReleaseMask | EnterWindowMask | LeaveWindowMask | PointerMotionMask, 1092 ButtonPressMask | ButtonReleaseMask | EnterWindowMask | LeaveWindowMask | PointerMotionMask,
997 GrabModeSync, GrabModeSync, None, GRAB_CURSOR); 1093 GrabModeSync, GrabModeSync, None, GRAB_CURSOR);
1094 OUTPUT: RETVAL
1095
1096int
1097rxvt_term::ungrab_button (int button, U32 modifiers, Window window = THIS->vt)
1098 CODE:
1099 RETVAL = XUngrabButton (THIS->dpy, button, modifiers, window);
1100 OUTPUT: RETVAL
1101
1102void
1103rxvt_term::XGrabKey (int keycode, U32 modifiers, Window window = THIS->vt, \
1104 int owner_events = 1, int pointer_mode = GrabModeAsync, int keyboard_mode = GrabModeAsync)
1105 CODE:
1106 XGrabKey (THIS->dpy, keycode, modifiers, window, owner_events, pointer_mode, keyboard_mode);
1107
1108void
1109rxvt_term::XUngrabKey (int keycode, U32 modifiers, Window window = THIS->vt)
1110 CODE:
1111 XUngrabKey (THIS->dpy, keycode, modifiers, window);
998 1112
999bool 1113bool
1000rxvt_term::grab (U32 eventtime, int sync = 0) 1114rxvt_term::grab (Time eventtime, int sync = 0)
1001 CODE: 1115 CODE:
1002{ 1116{
1003 int mode = sync ? GrabModeSync : GrabModeAsync; 1117 int mode = sync ? GrabModeSync : GrabModeAsync;
1004 1118
1005 THIS->perl.grabtime = 0; 1119 THIS->perl.grabtime = 0;
1006 1120
1007 if (!XGrabPointer (THIS->display->display, THIS->vt, 0, 1121 if (!XGrabPointer (THIS->dpy, THIS->vt, 0,
1008 ButtonPressMask | ButtonReleaseMask | EnterWindowMask | LeaveWindowMask | PointerMotionMask, 1122 ButtonPressMask | ButtonReleaseMask | EnterWindowMask | LeaveWindowMask | PointerMotionMask,
1009 mode, mode, None, GRAB_CURSOR, eventtime)) 1123 mode, mode, None, GRAB_CURSOR, eventtime))
1010 if (!XGrabKeyboard (THIS->display->display, THIS->vt, 0, mode, mode, eventtime)) 1124 if (!XGrabKeyboard (THIS->dpy, THIS->vt, 0, mode, mode, eventtime))
1011 THIS->perl.grabtime = eventtime; 1125 THIS->perl.grabtime = eventtime;
1012 else 1126 else
1013 XUngrabPointer (THIS->display->display, eventtime); 1127 XUngrabPointer (THIS->dpy, eventtime);
1014 1128
1015 RETVAL = !!THIS->perl.grabtime; 1129 RETVAL = !!THIS->perl.grabtime;
1016} 1130}
1017 OUTPUT: 1131 OUTPUT:
1018 RETVAL 1132 RETVAL
1019 1133
1020void 1134void
1021rxvt_term::allow_events_async () 1135rxvt_term::allow_events_async ()
1022 CODE: 1136 CODE:
1023 XAllowEvents (THIS->display->display, AsyncBoth, THIS->perl.grabtime); 1137 XAllowEvents (THIS->dpy, AsyncBoth, THIS->perl.grabtime);
1024 1138
1025void 1139void
1026rxvt_term::allow_events_sync () 1140rxvt_term::allow_events_sync ()
1027 CODE: 1141 CODE:
1028 XAllowEvents (THIS->display->display, SyncBoth, THIS->perl.grabtime); 1142 XAllowEvents (THIS->dpy, SyncBoth, THIS->perl.grabtime);
1029 1143
1030void 1144void
1031rxvt_term::allow_events_replay () 1145rxvt_term::allow_events_replay ()
1032 CODE: 1146 CODE:
1033 XAllowEvents (THIS->display->display, ReplayPointer, THIS->perl.grabtime); 1147 XAllowEvents (THIS->dpy, ReplayPointer, THIS->perl.grabtime);
1034 XAllowEvents (THIS->display->display, ReplayKeyboard, THIS->perl.grabtime); 1148 XAllowEvents (THIS->dpy, ReplayKeyboard, THIS->perl.grabtime);
1035 1149
1036void 1150void
1037rxvt_term::ungrab () 1151rxvt_term::ungrab ()
1038 CODE: 1152 CODE:
1039 ungrab (THIS); 1153 ungrab (THIS);
1040 1154
1041int 1155int
1156rxvt_term::XStringToKeysym (char *string)
1157 CODE:
1158 RETVAL = XStringToKeysym (string);
1159 OUTPUT: RETVAL
1160
1161char *
1162rxvt_term::XKeysymToString (int sym)
1163 CODE:
1164 RETVAL = XKeysymToString (sym);
1165 OUTPUT: RETVAL
1166
1167int
1168rxvt_term::XKeysymToKeycode (int sym)
1169 CODE:
1170 RETVAL = XKeysymToKeycode (THIS->dpy, sym);
1171 OUTPUT: RETVAL
1172
1173int
1174rxvt_term::XKeycodeToKeysym (int code, int index)
1175 CODE:
1176 RETVAL = XKeycodeToKeysym (THIS->dpy, code, index);
1177 OUTPUT: RETVAL
1178
1179int
1042rxvt_term::strwidth (SV *str) 1180rxvt_term::strwidth (SV *str)
1043 CODE: 1181 CODE:
1044{ 1182{
1045 wchar_t *wstr = sv2wcs (str); 1183 wchar_t *wstr = sv2wcs (str);
1046 1184
1047 rxvt_push_locale (THIS->locale); 1185 rxvt_push_locale (THIS->locale);
1048 RETVAL = wcswidth (wstr, wcslen (wstr)); 1186 RETVAL = 0;
1187 for (wchar_t *wc = wstr; *wc; wc++)
1188 {
1189 int w = WCWIDTH (*wc);
1190
1191 if (w)
1192 RETVAL += max (w, 1);
1193 }
1049 rxvt_pop_locale (); 1194 rxvt_pop_locale ();
1050 1195
1051 free (wstr); 1196 free (wstr);
1052} 1197}
1053 OUTPUT: 1198 OUTPUT:
1063 char *mbstr = rxvt_wcstombs (wstr); 1208 char *mbstr = rxvt_wcstombs (wstr);
1064 rxvt_pop_locale (); 1209 rxvt_pop_locale ();
1065 1210
1066 free (wstr); 1211 free (wstr);
1067 1212
1068 RETVAL = taint_if (newSVpv (mbstr, 0), str); 1213 RETVAL = newSVpv (mbstr, 0);
1069 free (mbstr); 1214 free (mbstr);
1070} 1215}
1071 OUTPUT: 1216 OUTPUT:
1072 RETVAL 1217 RETVAL
1073 1218
1080 1225
1081 rxvt_push_locale (THIS->locale); 1226 rxvt_push_locale (THIS->locale);
1082 wchar_t *wstr = rxvt_mbstowcs (data, len); 1227 wchar_t *wstr = rxvt_mbstowcs (data, len);
1083 rxvt_pop_locale (); 1228 rxvt_pop_locale ();
1084 1229
1085 RETVAL = taint_if (wcs2sv (wstr), octets); 1230 RETVAL = wcs2sv (wstr);
1086 free (wstr); 1231 free (wstr);
1087} 1232}
1088 OUTPUT: 1233 OUTPUT:
1089 RETVAL 1234 RETVAL
1090 1235
1091#define TERM_OFFSET(sym) offsetof (TermWin_t, sym) 1236#define TERM_OFFSET(sym) offsetof (TermWin_t, sym)
1092 1237
1093#define TERM_OFFSET_width TERM_OFFSET(width) 1238#define TERM_OFFSET_width TERM_OFFSET(width)
1094#define TERM_OFFSET_height TERM_OFFSET(height) 1239#define TERM_OFFSET_height TERM_OFFSET(height)
1095#define TERM_OFFSET_fwidth TERM_OFFSET(fwidth) 1240#define TERM_OFFSET_fwidth TERM_OFFSET(fwidth)
1096#define TERM_OFFSET_fheight TERM_OFFSET(fheight) 1241#define TERM_OFFSET_fheight TERM_OFFSET(fheight)
1097#define TERM_OFFSET_fbase TERM_OFFSET(fbase) 1242#define TERM_OFFSET_fbase TERM_OFFSET(fbase)
1098#define TERM_OFFSET_nrow TERM_OFFSET(nrow) 1243#define TERM_OFFSET_nrow TERM_OFFSET(nrow)
1099#define TERM_OFFSET_ncol TERM_OFFSET(ncol) 1244#define TERM_OFFSET_ncol TERM_OFFSET(ncol)
1100#define TERM_OFFSET_focus TERM_OFFSET(focus) 1245#define TERM_OFFSET_focus TERM_OFFSET(focus)
1101#define TERM_OFFSET_mapped TERM_OFFSET(mapped) 1246#define TERM_OFFSET_mapped TERM_OFFSET(mapped)
1247#define TERM_OFFSET_int_bwidth TERM_OFFSET(int_bwidth)
1248#define TERM_OFFSET_ext_bwidth TERM_OFFSET(ext_bwidth)
1249#define TERM_OFFSET_lineSpace TERM_OFFSET(lineSpace)
1250#define TERM_OFFSET_letterSpace TERM_OFFSET(letterSpace)
1102#define TERM_OFFSET_saveLines TERM_OFFSET(saveLines) 1251#define TERM_OFFSET_saveLines TERM_OFFSET(saveLines)
1103#define TERM_OFFSET_total_rows TERM_OFFSET(total_rows) 1252#define TERM_OFFSET_total_rows TERM_OFFSET(total_rows)
1104#define TERM_OFFSET_nsaved TERM_OFFSET(nsaved) 1253#define TERM_OFFSET_top_row TERM_OFFSET(top_row)
1105 1254
1106int 1255int
1107rxvt_term::width () 1256rxvt_term::width ()
1108 ALIAS: 1257 ALIAS:
1109 width = TERM_OFFSET_width 1258 width = TERM_OFFSET_width
1110 height = TERM_OFFSET_height 1259 height = TERM_OFFSET_height
1111 fwidth = TERM_OFFSET_fwidth 1260 fwidth = TERM_OFFSET_fwidth
1112 fheight = TERM_OFFSET_fheight 1261 fheight = TERM_OFFSET_fheight
1113 fbase = TERM_OFFSET_fbase 1262 fbase = TERM_OFFSET_fbase
1114 nrow = TERM_OFFSET_nrow 1263 nrow = TERM_OFFSET_nrow
1115 ncol = TERM_OFFSET_ncol 1264 ncol = TERM_OFFSET_ncol
1116 focus = TERM_OFFSET_focus 1265 focus = TERM_OFFSET_focus
1117 mapped = TERM_OFFSET_mapped 1266 mapped = TERM_OFFSET_mapped
1267 int_bwidth = TERM_OFFSET_int_bwidth
1268 ext_bwidth = TERM_OFFSET_ext_bwidth
1269 lineSpace = TERM_OFFSET_lineSpace
1270 letterSpace = TERM_OFFSET_letterSpace
1118 saveLines = TERM_OFFSET_saveLines 1271 saveLines = TERM_OFFSET_saveLines
1119 total_rows = TERM_OFFSET_total_rows 1272 total_rows = TERM_OFFSET_total_rows
1120 nsaved = TERM_OFFSET_nsaved 1273 top_row = TERM_OFFSET_top_row
1121 CODE: 1274 CODE:
1122 RETVAL = *(int *)((char *)THIS + ix); 1275 RETVAL = *(int *)((char *)THIS + ix);
1123 OUTPUT: 1276 OUTPUT:
1124 RETVAL 1277 RETVAL
1125 1278
1127rxvt_term::ModLevel3Mask () 1280rxvt_term::ModLevel3Mask ()
1128 ALIAS: 1281 ALIAS:
1129 ModLevel3Mask = 0 1282 ModLevel3Mask = 0
1130 ModMetaMask = 1 1283 ModMetaMask = 1
1131 ModNumLockMask = 2 1284 ModNumLockMask = 2
1285 current_screen = 3
1286 hidden_cursor = 4
1132 CODE: 1287 CODE:
1133 switch (ix) 1288 switch (ix)
1134 { 1289 {
1135 case 0: RETVAL = THIS->ModLevel3Mask; break; 1290 case 0: RETVAL = THIS->ModLevel3Mask; break;
1136 case 1: RETVAL = THIS->ModMetaMask; break; 1291 case 1: RETVAL = THIS->ModMetaMask; break;
1137 case 2: RETVAL = THIS->ModNumLockMask; break; 1292 case 2: RETVAL = THIS->ModNumLockMask; break;
1293 case 3: RETVAL = THIS->current_screen; break;
1294#ifdef CURSOR_BLINK
1295 case 4: RETVAL = THIS->hidden_cursor; break;
1296#endif
1138 } 1297 }
1139 OUTPUT: 1298 OUTPUT:
1140 RETVAL 1299 RETVAL
1141 1300
1142char * 1301char *
1152 } 1311 }
1153 OUTPUT: 1312 OUTPUT:
1154 RETVAL 1313 RETVAL
1155 1314
1156SV * 1315SV *
1157rxvt_term::_env () 1316rxvt_term::envv ()
1317 ALIAS:
1318 argv = 1
1158 CODE: 1319 PPCODE:
1159{ 1320{
1160 if (THIS->envv) 1321 stringvec *vec = ix ? THIS->argv : THIS->envv;
1161 {
1162 AV *av = newAV ();
1163 1322
1323 EXTEND (SP, vec->size ());
1324
1164 for (char **i = THIS->envv->begin (); i != THIS->envv->end (); ++i) 1325 for (char **i = vec->begin (); i != vec->end (); ++i)
1165 if (*i) 1326 if (*i)
1166 av_push (av, newSVpv (*i, 0)); 1327 PUSHs (sv_2mortal (newSVpv (*i, 0)));
1167
1168 RETVAL = newRV_noinc ((SV *)av);
1169 }
1170 else
1171 RETVAL = &PL_sv_undef;
1172} 1328}
1329
1330int
1331rxvt_term::pty_ev_events (int events = ev::UNDEF)
1332 CODE:
1333 RETVAL = THIS->pty_ev.events;
1334 if (events != ev::UNDEF)
1335 THIS->pty_ev.set (events);
1336 OUTPUT:
1337 RETVAL
1338
1339int
1340rxvt_term::pty_fd ()
1341 CODE:
1342 RETVAL = THIS->pty->pty;
1343 OUTPUT:
1344 RETVAL
1345
1346Window
1347rxvt_term::parent ()
1348 CODE:
1349 RETVAL = THIS->parent;
1173 OUTPUT: 1350 OUTPUT:
1174 RETVAL 1351 RETVAL
1175 1352
1176int 1353int
1177rxvt_term::pty_ev_events (int events = EVENT_UNDEF)
1178 CODE:
1179 RETVAL = THIS->pty_ev.events;
1180 if (events != EVENT_UNDEF)
1181 THIS->pty_ev.set (events);
1182 OUTPUT:
1183 RETVAL
1184
1185U32
1186rxvt_term::parent () 1354rxvt_term::parent_x ()
1187 CODE: 1355 CODE:
1188 RETVAL = (U32)THIS->parent [0]; 1356 RETVAL = THIS->parent_x;
1189 OUTPUT: 1357 OUTPUT:
1190 RETVAL 1358 RETVAL
1191 1359
1192U32 1360int
1193rxvt_term::vt () 1361rxvt_term::parent_y ()
1194 CODE: 1362 CODE:
1195 RETVAL = (U32)THIS->vt; 1363 RETVAL = THIS->parent_y;
1196 OUTPUT: 1364 OUTPUT:
1197 RETVAL 1365 RETVAL
1198 1366
1199void 1367void
1200rxvt_term::vt_emask_add (U32 emask) 1368rxvt_term::vt_emask_add (U32 emask)
1209 THIS->rstyle = new_rstyle; 1377 THIS->rstyle = new_rstyle;
1210 OUTPUT: 1378 OUTPUT:
1211 RETVAL 1379 RETVAL
1212 1380
1213int 1381int
1214rxvt_term::view_start (int newval = -1) 1382rxvt_term::view_start (int newval = 1)
1215 PROTOTYPE: $;$ 1383 PROTOTYPE: $;$
1216 CODE: 1384 CODE:
1217{ 1385{
1218 RETVAL = THIS->view_start; 1386 RETVAL = THIS->view_start;
1219 1387
1220 if (newval >= 0) 1388 if (newval <= 0)
1221 { 1389 THIS->scr_changeview (max (newval, THIS->top_row));
1222 THIS->view_start = min (newval, THIS->nsaved);
1223 THIS->scr_changeview (RETVAL);
1224 }
1225} 1390}
1226 OUTPUT: 1391 OUTPUT:
1227 RETVAL 1392 RETVAL
1228 1393
1229void 1394void
1395rxvt_term::set_urgency (bool enable)
1396
1397void
1398rxvt_term::focus_in ()
1399
1400void
1401rxvt_term::focus_out ()
1402
1403void
1404rxvt_term::key_press (unsigned int state, unsigned int keycode, Time time = CurrentTime)
1405 ALIAS:
1406 key_release = 1
1407 CODE:
1408{
1409 XKeyEvent xkey;
1410
1411 memset (&xkey, 0, sizeof (xkey));
1412
1413 xkey.time = time;
1414 xkey.state = state;
1415 xkey.keycode = keycode;
1416
1417 xkey.type = ix ? KeyRelease : KeyPress;
1418 xkey.display = THIS->dpy;
1419 xkey.window = THIS->vt;
1420 xkey.root = THIS->display->root;
1421 xkey.subwindow = THIS->vt;
1422
1423 if (ix)
1424 THIS->key_release (xkey);
1425 else
1426 THIS->key_press (xkey);
1427}
1428
1429void
1230rxvt_term::want_refresh () 1430rxvt_term::want_refresh ()
1231 CODE: 1431 CODE:
1232 THIS->want_refresh = 1; 1432 THIS->want_refresh = 1;
1433 THIS->refresh_check ();
1233 1434
1234void 1435void
1235rxvt_term::ROW_t (int row_number, SV *new_text = 0, int start_col = 0, int start_ofs = 0, int max_len = MAX_COLS) 1436rxvt_term::ROW_t (int row_number, SV *new_text = 0, int start_col = 0, int start_ofs = 0, int max_len = MAX_COLS)
1236 PPCODE: 1437 PPCODE:
1237{ 1438{
1238 if (!IN_RANGE_EXC (row_number, -THIS->nsaved, THIS->nrow)) 1439 if (!IN_RANGE_EXC (row_number, THIS->top_row, THIS->nrow))
1239 XSRETURN_EMPTY; 1440 XSRETURN_EMPTY;
1240 1441
1241 line_t &l = ROW(row_number); 1442 line_t &l = ROW(row_number);
1242 1443
1243 if (GIMME_V != G_VOID) 1444 if (GIMME_V != G_VOID)
1244 { 1445 {
1245 wchar_t *wstr = new wchar_t [THIS->ncol]; 1446 wchar_t *wstr = rxvt_temp_buf<wchar_t> (THIS->ncol);
1246 1447
1247 for (int col = 0; col < THIS->ncol; col++) 1448 for (int col = 0; col < THIS->ncol; col++)
1248 wstr [col] = l.t [col]; 1449 wstr [col] = l.t [col];
1249 1450
1250 XPUSHs (taint (sv_2mortal (wcs2sv (wstr, THIS->ncol)))); 1451 XPUSHs (sv_2mortal (wcs2sv (wstr, THIS->ncol)));
1251
1252 delete [] wstr;
1253 } 1452 }
1254 1453
1255 if (new_text) 1454 if (new_text)
1256 { 1455 {
1257 wchar_t *wstr = sv2wcs (new_text); 1456 wchar_t *wstr = sv2wcs (new_text);
1258 1457
1259 int len = min (wcslen (wstr) - start_ofs, max_len); 1458 int len = min (wcslen (wstr) - start_ofs, max_len);
1260 1459
1261 if (!IN_RANGE_INC (start_col, 0, THIS->ncol - len)) 1460 if (start_col < 0 || start_col + len > THIS->ncol)
1262 { 1461 {
1263 free (wstr); 1462 free (wstr);
1264 croak ("new_text extends beyond horizontal margins"); 1463 croak ("new_text extends beyond horizontal margins");
1265 } 1464 }
1266 1465
1276 1475
1277void 1476void
1278rxvt_term::ROW_r (int row_number, SV *new_rend = 0, int start_col = 0, int start_ofs = 0, int max_len = MAX_COLS) 1477rxvt_term::ROW_r (int row_number, SV *new_rend = 0, int start_col = 0, int start_ofs = 0, int max_len = MAX_COLS)
1279 PPCODE: 1478 PPCODE:
1280{ 1479{
1281 if (!IN_RANGE_EXC (row_number, -THIS->nsaved, THIS->nrow)) 1480 if (!IN_RANGE_EXC (row_number, THIS->top_row, THIS->nrow))
1282 XSRETURN_EMPTY; 1481 XSRETURN_EMPTY;
1283 1482
1284 line_t &l = ROW(row_number); 1483 line_t &l = ROW(row_number);
1285 1484
1286 if (GIMME_V != G_VOID) 1485 if (GIMME_V != G_VOID)
1298 { 1497 {
1299 if (!SvROK (new_rend) || SvTYPE (SvRV (new_rend)) != SVt_PVAV) 1498 if (!SvROK (new_rend) || SvTYPE (SvRV (new_rend)) != SVt_PVAV)
1300 croak ("new_rend must be arrayref"); 1499 croak ("new_rend must be arrayref");
1301 1500
1302 AV *av = (AV *)SvRV (new_rend); 1501 AV *av = (AV *)SvRV (new_rend);
1303 int len = min (av_len (av) + 1 - start_ofs, max_len); 1502 int len = min (AvFILL (av) + 1 - start_ofs, max_len);
1304 1503
1305 if (!IN_RANGE_INC (start_col, 0, THIS->ncol - len)) 1504 if (start_col < 0 || start_col + len > THIS->ncol)
1306 croak ("new_rend array extends beyond horizontal margins"); 1505 croak ("new_rend array extends beyond horizontal margins");
1307 1506
1308 for (int col = start_col; col < start_col + len; col++) 1507 for (int col = start_col; col < start_col + len; col++)
1309 { 1508 {
1310 rend_t r = SvIV (*av_fetch (av, start_ofs + col - start_col, 1)) & ~RS_fontMask; 1509 rend_t r = SvIV (*av_fetch (av, start_ofs + col - start_col, 1)) & ~RS_fontMask;
1316 1515
1317int 1516int
1318rxvt_term::ROW_l (int row_number, int new_length = -1) 1517rxvt_term::ROW_l (int row_number, int new_length = -1)
1319 CODE: 1518 CODE:
1320{ 1519{
1321 if (!IN_RANGE_EXC (row_number, -THIS->nsaved, THIS->nrow)) 1520 if (!IN_RANGE_EXC (row_number, THIS->top_row, THIS->nrow))
1322 XSRETURN_EMPTY; 1521 XSRETURN_EMPTY;
1323 1522
1324 line_t &l = ROW(row_number); 1523 line_t &l = ROW(row_number);
1325 RETVAL = l.l; 1524 RETVAL = l.l;
1326 1525
1332 1531
1333bool 1532bool
1334rxvt_term::ROW_is_longer (int row_number, int new_is_longer = -1) 1533rxvt_term::ROW_is_longer (int row_number, int new_is_longer = -1)
1335 CODE: 1534 CODE:
1336{ 1535{
1337 if (!IN_RANGE_EXC (row_number, -THIS->nsaved, THIS->nrow)) 1536 if (!IN_RANGE_EXC (row_number, THIS->top_row, THIS->nrow))
1338 XSRETURN_EMPTY; 1537 XSRETURN_EMPTY;
1339 1538
1340 line_t &l = ROW(row_number); 1539 line_t &l = ROW(row_number);
1341 RETVAL = l.is_longer (); 1540 RETVAL = l.is_longer ();
1342 1541
1350rxvt_term::special_encode (SV *string) 1549rxvt_term::special_encode (SV *string)
1351 CODE: 1550 CODE:
1352{ 1551{
1353 wchar_t *wstr = sv2wcs (string); 1552 wchar_t *wstr = sv2wcs (string);
1354 int wlen = wcslen (wstr); 1553 int wlen = wcslen (wstr);
1355 wchar_t *rstr = new wchar_t [wlen]; // cannot become longer 1554 wchar_t *rstr = rxvt_temp_buf<wchar_t> (wlen * 2); // cannot become longer
1356 1555
1357 rxvt_push_locale (THIS->locale); 1556 rxvt_push_locale (THIS->locale);
1358 1557
1359 wchar_t *r = rstr; 1558 wchar_t *r = rstr;
1360 for (wchar_t *s = wstr; *s; s++) 1559 for (wchar_t *s = wstr; *s; s++)
1560 {
1561 int w = WCWIDTH (*s);
1562
1361 if (wcwidth (*s) == 0) 1563 if (w == 0)
1362 { 1564 {
1363 if (r == rstr) 1565 if (r == rstr)
1364 croak ("leading combining character unencodable"); 1566 croak ("leading combining character unencodable");
1365 1567
1366 unicode_t n = rxvt_compose (r[-1], *s); 1568 unicode_t n = rxvt_compose (r[-1], *s);
1367 if (n == NOCHAR) 1569 if (n == NOCHAR)
1368 n = rxvt_composite.compose (r[-1], *s); 1570 n = rxvt_composite.compose (r[-1], *s);
1369 1571
1370 r[-1] = n; 1572 r[-1] = n;
1371 } 1573 }
1372#if !UNICODE_3 1574#if !UNICODE_3
1373 else if (*s >= 0x10000) 1575 else if (*s >= 0x10000)
1374 *r++ = rxvt_composite.compose (*s); 1576 *r++ = rxvt_composite.compose (*s);
1375#endif 1577#endif
1376 else 1578 else
1377 *r++ = *s; 1579 *r++ = *s;
1580
1581 // the *2 above only allows wcwidth <= 2
1582 if (w > 1)
1583 *r++ = NOCHAR;
1584 }
1378 1585
1379 rxvt_pop_locale (); 1586 rxvt_pop_locale ();
1380 1587
1381 RETVAL = taint_if (wcs2sv (rstr, r - rstr), string); 1588 RETVAL = wcs2sv (rstr, r - rstr);
1382
1383 delete [] rstr;
1384} 1589}
1385 OUTPUT: 1590 OUTPUT:
1386 RETVAL 1591 RETVAL
1387 1592
1388SV * 1593SV *
1389rxvt_term::special_decode (SV *text) 1594rxvt_term::special_decode (SV *text)
1390 CODE: 1595 CODE:
1391{ 1596{
1392 wchar_t *wstr = sv2wcs (text); 1597 wchar_t *wstr = sv2wcs (text);
1393 int wlen = wcslen (wstr);
1394 int dlen = 0; 1598 int dlen = 0;
1395 1599
1396 // find length 1600 // find length
1397 for (wchar_t *s = wstr; *s; s++) 1601 for (wchar_t *s = wstr; *s; s++)
1398 if (*s == NOCHAR) 1602 if (*s == NOCHAR)
1400 else if (IS_COMPOSE (*s)) 1604 else if (IS_COMPOSE (*s))
1401 dlen += rxvt_composite.expand (*s, 0); 1605 dlen += rxvt_composite.expand (*s, 0);
1402 else 1606 else
1403 dlen++; 1607 dlen++;
1404 1608
1405 wchar_t *rstr = new wchar_t [dlen]; 1609 wchar_t *rstr = rxvt_temp_buf<wchar_t> (dlen);
1406 1610
1407 // decode 1611 // decode
1408 wchar_t *r = rstr; 1612 wchar_t *r = rstr;
1409 for (wchar_t *s = wstr; *s; s++) 1613 for (wchar_t *s = wstr; *s; s++)
1410 if (*s == NOCHAR) 1614 if (*s == NOCHAR)
1412 else if (IS_COMPOSE (*s)) 1616 else if (IS_COMPOSE (*s))
1413 r += rxvt_composite.expand (*s, r); 1617 r += rxvt_composite.expand (*s, r);
1414 else 1618 else
1415 *r++ = *s; 1619 *r++ = *s;
1416 1620
1417 RETVAL = taint_if (wcs2sv (rstr, r - rstr), text); 1621 RETVAL = wcs2sv (rstr, r - rstr);
1418
1419 delete [] rstr;
1420} 1622}
1421 OUTPUT: 1623 OUTPUT:
1422 RETVAL 1624 RETVAL
1423 1625
1424void 1626void
1425rxvt_term::_resource (char *name, int index, SV *newval = 0) 1627rxvt_term::_resource (char *name, int index, SV *newval = 0)
1426 PPCODE: 1628 PPCODE:
1427{ 1629{
1428 struct resval { const char *name; int value; } rslist [] = { 1630 static const struct resval { const char *name; int value; } *rs, rslist [] = {
1429# define def(name) { # name, Rs_ ## name }, 1631# define def(name) { # name, Rs_ ## name },
1430# define reserve(name,count) 1632# define reserve(name,count)
1431# include "rsinc.h" 1633# include "rsinc.h"
1432# undef def 1634# undef def
1433# undef reserve 1635# undef reserve
1434 }; 1636 };
1435 1637
1436 struct resval *rs = rslist + sizeof (rslist) / sizeof (rslist [0]); 1638 rs = rslist + ecb_array_length (rslist);
1437 1639
1640 if (*name)
1438 do { 1641 {
1642 do {
1439 if (rs-- == rslist) 1643 if (rs-- == rslist)
1440 croak ("no such resource '%s', requested", name); 1644 croak ("no such resource '%s', requested", name);
1441 } while (strcmp (name, rs->name)); 1645 } while (strcmp (name, rs->name));
1442 1646
1443 index += rs->value; 1647 index += rs->value;
1648 }
1649 else
1650 {
1651 --rs;
1652 name = "";
1653 }
1444 1654
1445 if (!IN_RANGE_EXC (index, 0, NUM_RESOURCES)) 1655 if (!IN_RANGE_EXC (index, 0, NUM_RESOURCES))
1446 croak ("requested out-of-bound resource %s+%d,", name, index - rs->value); 1656 croak ("requested out-of-bound resource %s+%d,", name, index - rs->value);
1447 1657
1448 if (GIMME_V != G_VOID) 1658 if (GIMME_V != G_VOID)
1449 XPUSHs (THIS->rs [index] ? sv_2mortal (taint (newSVpv (THIS->rs [index], 0))) : &PL_sv_undef); 1659 XPUSHs (THIS->rs [index] ? sv_2mortal (newSVpv (THIS->rs [index], 0)) : &PL_sv_undef);
1450 1660
1451 if (newval) 1661 if (newval)
1452 { 1662 {
1453 if (SvOK (newval)) 1663 if (SvOK (newval))
1454 { 1664 {
1461 } 1671 }
1462} 1672}
1463 1673
1464const char * 1674const char *
1465rxvt_term::x_resource (const char *name) 1675rxvt_term::x_resource (const char *name)
1466 CLEANUP:
1467 SvTAINTED_on (ST (0));
1468 1676
1469bool 1677bool
1470rxvt_term::option (U32 optval, int set = -1) 1678rxvt_term::option (U8 optval, int set = -1)
1471 CODE: 1679 CODE:
1472{ 1680{
1473 RETVAL = THIS->options & optval; 1681 RETVAL = THIS->option (optval);
1474 1682
1475 if (set >= 0) 1683 if (set >= 0)
1476 { 1684 {
1477 if (set)
1478 THIS->options |= optval; 1685 THIS->set_option (optval, set);
1479 else
1480 THIS->options &= ~optval;
1481 1686
1687 if (THIS->init_done) // avoid doing this before START
1482 switch (optval) 1688 switch (optval)
1483 { 1689 {
1484 case Opt_skipBuiltinGlyphs: 1690 case Opt_skipBuiltinGlyphs:
1485 THIS->set_fonts (); 1691 THIS->set_fonts ();
1486 THIS->scr_remap_chars (); 1692 THIS->scr_remap_chars ();
1487 THIS->scr_touch (true); 1693 THIS->scr_touch (true);
1488 THIS->want_refresh = 1; 1694 THIS->want_refresh = 1;
1695 THIS->refresh_check ();
1489 break; 1696 break;
1697#ifdef CURSOR_BLINK
1698 case Opt_cursorBlink:
1699 THIS->cursor_blink_reset ();
1700 break;
1701#endif
1490 1702
1491 case Opt_cursorUnderline: 1703 case Opt_cursorUnderline:
1492 THIS->want_refresh = 1; 1704 THIS->want_refresh = 1;
1705 THIS->refresh_check ();
1493 break; 1706 break;
1494 1707
1495# case Opt_scrollBar_floating: 1708# case Opt_scrollBar_floating:
1496# case Opt_scrollBar_right: 1709# case Opt_scrollBar_right:
1497# THIS->resize_all_windows (THIS->width, THIS->height, 1); 1710# THIS->resize_all_windows (THIS->width, THIS->height, 1);
1498# break; 1711# break;
1499 } 1712 }
1500 } 1713 }
1501} 1714}
1502 OUTPUT: 1715 OUTPUT:
1503 RETVAL 1716 RETVAL
1504 1717
1507 CODE: 1720 CODE:
1508 RETVAL = 0 < THIS->parse_keysym (keysym, str); 1721 RETVAL = 0 < THIS->parse_keysym (keysym, str);
1509 THIS->keyboard->register_done (); 1722 THIS->keyboard->register_done ();
1510 OUTPUT: 1723 OUTPUT:
1511 RETVAL 1724 RETVAL
1725
1726void
1727rxvt_term::register_command (int keysym, unsigned int state, SV *str)
1728 CODE:
1729 wchar_t *wstr = sv2wcs (str);
1730 THIS->keyboard->register_user_translation (keysym, state, wstr);
1731 free (wstr);
1512 1732
1513void 1733void
1514rxvt_term::screen_cur (...) 1734rxvt_term::screen_cur (...)
1515 PROTOTYPE: $;$$ 1735 PROTOTYPE: $;$$
1516 ALIAS: 1736 ALIAS:
1530 EXTEND (SP, 2); 1750 EXTEND (SP, 2);
1531 PUSHs (sv_2mortal (newSViv (rc.row))); 1751 PUSHs (sv_2mortal (newSViv (rc.row)));
1532 PUSHs (sv_2mortal (newSViv (rc.col))); 1752 PUSHs (sv_2mortal (newSViv (rc.col)));
1533 } 1753 }
1534 1754
1535 if (items == 3) 1755 if (items >= 3)
1756 {
1757 rc.row = SvIV (ST (1));
1758 rc.col = SvIV (ST (2));
1759
1760 if (ix == 2)
1536 { 1761 {
1537 rc.row = clamp (SvIV (ST (1)), -THIS->nsaved, THIS->nrow - 1); 1762 if (rc.col == 0)
1538 rc.col = clamp (SvIV (ST (2)), 0, THIS->ncol - 1); 1763 {
1764 // col == 0 means end of previous line
1765 rc.row--;
1766 rc.col = THIS->ncol;
1767 }
1768 else if (IN_RANGE_EXC (rc.row, THIS->top_row, THIS->nrow)
1769 && rc.col > ROW(rc.row).l)
1770 {
1771 // col >= length means while line and add newline
1772 rc.col = THIS->ncol;
1773 }
1774 }
1775
1776 clamp_it (rc.col, 0, THIS->ncol);
1777 clamp_it (rc.row, THIS->top_row, THIS->nrow - 1);
1539 1778
1540 if (ix) 1779 if (ix)
1780 {
1781 THIS->selection.screen = THIS->current_screen;
1782
1541 THIS->want_refresh = 1; 1783 THIS->want_refresh = 1;
1784 THIS->refresh_check ();
1542 } 1785 }
1786 }
1543} 1787}
1544 1788
1545char 1789int
1546rxvt_term::cur_charset () 1790rxvt_term::selection_screen (int screen = -1)
1547 CODE: 1791 CODE:
1548 RETVAL = THIS->charsets [THIS->screen.charset]; 1792 RETVAL = THIS->selection.screen;
1549 OUTPUT: 1793 if (screen >= 0)
1794 THIS->selection.screen = screen;
1795 OUTPUT:
1550 RETVAL 1796 RETVAL
1551 1797
1552#void 1798void
1553#rxvt_term::selection_clear () 1799rxvt_term::selection_clear (bool clipboard = false)
1554 1800
1555void 1801void
1556rxvt_term::selection_make (U32 eventtime, bool rect = false) 1802rxvt_term::selection_make (Time eventtime, bool rect = false)
1557 CODE: 1803 CODE:
1558 THIS->selection.op = SELECTION_CONT; 1804 THIS->selection.op = SELECTION_CONT;
1559 THIS->selection.rect = rect; 1805 THIS->selection.rect = rect;
1560 THIS->selection_make (eventtime); 1806 THIS->selection_make (eventtime);
1561 1807
1562int 1808int
1563rxvt_term::selection_grab (U32 eventtime) 1809rxvt_term::selection_grab (Time eventtime, bool clipboard = false)
1564 1810
1565void 1811void
1566rxvt_term::selection (SV *newtext = 0) 1812rxvt_term::selection (SV *newtext = 0, bool clipboard = false)
1567 PPCODE: 1813 PPCODE:
1568{ 1814{
1815 wchar_t * &text = clipboard ? THIS->selection.clip_text : THIS->selection.text;
1816 unsigned int &len = clipboard ? THIS->selection.clip_len : THIS->selection.len;
1817
1569 if (GIMME_V != G_VOID) 1818 if (GIMME_V != G_VOID)
1570 XPUSHs (THIS->selection.text 1819 XPUSHs (text
1571 ? taint (sv_2mortal (wcs2sv (THIS->selection.text, THIS->selection.len))) 1820 ? sv_2mortal (wcs2sv (text, len))
1572 : &PL_sv_undef); 1821 : &PL_sv_undef);
1573 1822
1574 if (newtext) 1823 if (newtext)
1575 { 1824 {
1576 free (THIS->selection.text); 1825 free (text);
1577 1826
1578 THIS->selection.text = sv2wcs (newtext); 1827 text = sv2wcs (newtext);
1579 THIS->selection.len = wcslen (THIS->selection.text); 1828 len = wcslen (text);
1580 } 1829 }
1581} 1830}
1831
1832char
1833rxvt_term::cur_charset ()
1834 CODE:
1835 RETVAL = THIS->charsets [THIS->screen.charset];
1836 OUTPUT:
1837 RETVAL
1582 1838
1583void 1839void
1584rxvt_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) 1840rxvt_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)
1585 1841
1586void 1842void
1587rxvt_term::scr_xor_span (int beg_row, int beg_col, int end_row, int end_col, U32 rstyle = RS_RVid) 1843rxvt_term::scr_xor_span (int beg_row, int beg_col, int end_row, int end_col, U32 rstyle = RS_RVid)
1588 1844
1589void 1845void
1590rxvt_term::scr_bell () 1846rxvt_term::scr_bell ()
1847
1848void
1849rxvt_term::scr_recolour (bool refresh = true);
1850
1851void
1852rxvt_term::scr_change_screen (int screen)
1591 1853
1592void 1854void
1593rxvt_term::scr_add_lines (SV *string) 1855rxvt_term::scr_add_lines (SV *string)
1594 CODE: 1856 CODE:
1595{ 1857{
1605 char *str = SvPVbyte (octets, len); 1867 char *str = SvPVbyte (octets, len);
1606 C_ARGS: 1868 C_ARGS:
1607 str, len 1869 str, len
1608 1870
1609void 1871void
1872rxvt_term::tt_paste (SV *octets)
1873 INIT:
1874 STRLEN len;
1875 char *str = SvPVbyte (octets, len);
1876 C_ARGS:
1877 str, len
1878
1879void
1610rxvt_term::cmd_parse (SV *octets) 1880rxvt_term::cmd_parse (SV *octets)
1611 CODE: 1881 CODE:
1612{ 1882{
1613 STRLEN len; 1883 STRLEN len;
1614 char *str = SvPVbyte (octets, len); 1884 char *str = SvPVbyte (octets, len);
1636 o->self = (HV *)SvRV (RETVAL); 1906 o->self = (HV *)SvRV (RETVAL);
1637} 1907}
1638 OUTPUT: 1908 OUTPUT:
1639 RETVAL 1909 RETVAL
1640 1910
1911#############################################################################
1912# Various X Utility Functions
1913#############################################################################
1914
1915void
1916rxvt_term::XListProperties (Window window)
1917 PPCODE:
1918{
1919 int count;
1920 Atom *props = XListProperties (THIS->dpy, window, &count);
1921
1922 EXTEND (SP, count);
1923 while (count--)
1924 PUSHs (newSVuv ((U32)props [count]));
1925
1926 XFree (props);
1927}
1928
1929void
1930rxvt_term::XGetWindowProperty (Window window, Atom property)
1931 PPCODE:
1932{
1933 Atom type;
1934 int format;
1935 unsigned long nitems;
1936 unsigned long bytes_after;
1937 unsigned char *prop;
1938
1939 XGetWindowProperty (THIS->dpy, window, property,
1940 0, 1<<24, 0, AnyPropertyType,
1941 &type, &format, &nitems, &bytes_after, &prop);
1942
1943 if (type != None)
1944 {
1945 int elemsize = format == 16 ? sizeof (short)
1946 : format == 32 ? sizeof (long)
1947 : 1;
1948
1949 EXTEND (SP, 3);
1950 PUSHs (newSVuv ((U32)type));
1951 PUSHs (newSViv (format));
1952 PUSHs (newSVpvn ((char *)prop, nitems * elemsize));
1953 XFree (prop);
1954 }
1955}
1956
1957void
1958rxvt_term::XChangeProperty (Window window, Atom property, Atom type, int format, SV *data)
1959 CODE:
1960{
1961 STRLEN len;
1962 char *data_ = SvPVbyte (data, len);
1963
1964 int elemsize = format == 16 ? sizeof (short)
1965 : format == 32 ? sizeof (long)
1966 : 1;
1967
1968 XChangeProperty (THIS->dpy, window, property,
1969 type, format, PropModeReplace,
1970 (unsigned char *)data_, len / elemsize);
1971}
1972
1973Atom
1974XInternAtom (rxvt_term *term, octet_string atom_name, int only_if_exists = FALSE)
1975 C_ARGS: term->dpy, atom_name, only_if_exists
1976
1977char *
1978XGetAtomName (rxvt_term *term, Atom atom)
1979 C_ARGS: term->dpy, atom
1980 CLEANUP:
1981 XFree (RETVAL);
1982
1983void
1984XDeleteProperty (rxvt_term *term, Window window, Atom property)
1985 C_ARGS: term->dpy, window, property
1986
1987Window
1988rxvt_term::DefaultRootWindow ()
1989 CODE:
1990 RETVAL = THIS->display->root;
1991 OUTPUT:
1992 RETVAL
1993
1994#if 0
1995
1996Window
1997XCreateSimpleWindow (rxvt_term *term, Window parent, int x, int y, unsigned int width, unsigned int height)
1998 C_ARGS: term->dpy, (Window)parent,
1999 x, y, width, height, 0,
2000 term->pix_colors_focused[Color_border],
2001 term->pix_colors_focused[Color_border]
2002
2003#endif
2004
2005void
2006XReparentWindow (rxvt_term *term, Window window, Window parent, int x = 0, int y = 0)
2007 C_ARGS: term->dpy, window, parent, x, y
2008
2009void
2010XMapWindow (rxvt_term *term, Window window)
2011 C_ARGS: term->dpy, window
2012
2013void
2014XUnmapWindow (rxvt_term *term, Window window)
2015 C_ARGS: term->dpy, window
2016
2017void
2018XMoveResizeWindow (rxvt_term *term, Window window, int x, int y, unsigned int width, unsigned int height)
2019 C_ARGS: term->dpy, window, x, y, width, height
2020
2021void
2022rxvt_term::XChangeInput (Window window, U32 add_events, U32 del_events = 0)
2023 CODE:
2024{
2025 XWindowAttributes attr;
2026 XGetWindowAttributes (THIS->dpy, window, &attr);
2027 XSelectInput (THIS->dpy, window, attr.your_event_mask | add_events & ~del_events);
2028}
2029
2030void
2031rxvt_term::XTranslateCoordinates (Window src, Window dst, int x, int y)
2032 PPCODE:
2033{
2034 int dx, dy;
2035 Window child;
2036
2037 if (XTranslateCoordinates (THIS->dpy, src, dst, x, y, &dx, &dy, &child))
2038 {
2039 EXTEND (SP, 3);
2040 PUSHs (newSViv (dx));
2041 PUSHs (newSViv (dy));
2042 PUSHs (newSVuv (child));
2043 }
2044}
2045
2046#############################################################################
2047# fancy bg bloatstuff (TODO: should be moved up somewhere)
2048
2049bool
2050rxvt_term::has_render ()
2051 CODE:
2052 RETVAL = THIS->display->flags & DISPLAY_HAS_RENDER;
2053 OUTPUT:
2054 RETVAL
2055
2056void
2057rxvt_term::background_geometry (bool border = false)
2058 PPCODE:
2059 EXTEND (SP, 4);
2060 PUSHs (sv_2mortal (newSViv (THIS->parent_x + (border ? THIS->window_vt_x : 0))));
2061 PUSHs (sv_2mortal (newSViv (THIS->parent_y + (border ? THIS->window_vt_y : 0))));
2062 PUSHs (sv_2mortal (newSViv (border ? THIS->vt_width : THIS->szHint.width )));
2063 PUSHs (sv_2mortal (newSViv (border ? THIS->vt_height : THIS->szHint.height)));
2064
2065#if HAVE_IMG
2066
2067rxvt_img *
2068rxvt_term::new_img (SV *format, int width = 1, int height = 1)
2069 CODE:
2070 XRenderPictFormat *f = SvOK (format)
2071 ? XRenderFindStandardFormat (THIS->dpy, SvIV (format))
2072 : XRenderFindVisualFormat (THIS->dpy, THIS->visual);
2073 RETVAL = new rxvt_img (THIS, f, 0, 0, width, height);
2074 RETVAL->alloc ();
2075 OUTPUT:
2076 RETVAL
2077
2078#if ENABLE_TRANSPARENCY
2079
2080rxvt_img *
2081rxvt_term::new_img_from_root ()
2082 CODE:
2083 RETVAL = rxvt_img::new_from_root (THIS);
2084 OUTPUT:
2085 RETVAL
2086
2087#endif
2088
2089#if HAVE_PIXBUF
2090
2091rxvt_img *
2092rxvt_term::new_img_from_file (octet_string filename)
2093 CODE:
2094 try
2095 {
2096 RETVAL = rxvt_img::new_from_file (THIS, filename);
2097 }
2098 catch (const class rxvt_failure_exception &e)
2099 {
2100 croak ("new_img_from_file failed");
2101 }
2102 OUTPUT:
2103 RETVAL
2104
2105#endif
2106
2107#if HAVE_BG_PIXMAP
2108
2109void
2110rxvt_term::set_background (rxvt_img *img, bool border = false)
2111 CODE:
2112 THIS->bg_destroy ();
2113 THIS->bg_flags &= ~(rxvt_term::BG_NEEDS_REFRESH | rxvt_term::BG_INHIBIT_RENDER | rxvt_term::BG_IS_TRANSPARENT);
2114
2115 if (img) // TODO: cannot be false
2116 {
2117 img = img->clone (); // own the img
2118
2119 if (img->repeat != RepeatNormal) // X11 only supports RepeatNormal as bg pixmap
2120 img->sub_rect (0, 0,
2121 border ? THIS->vt_width : THIS->szHint.width,
2122 border ? THIS->vt_height : THIS->szHint.height)
2123 ->replace (img);
2124
2125 // just in case, should usually be a nop
2126 img->reify ()
2127 ->replace (img);
2128
2129 img->convert_format (XRenderFindVisualFormat (THIS->dpy, THIS->visual), THIS->pix_colors [Color_bg])
2130 ->replace (img);
2131
2132 THIS->bg_img = img;
2133 THIS->bg_flags |= rxvt_term::BG_NEEDS_REFRESH | rxvt_term::BG_INHIBIT_RENDER;
2134
2135 if (!border)
2136 THIS->bg_flags |= rxvt_term::BG_IS_TRANSPARENT;
2137 }
2138
2139#endif
2140
2141#endif
2142
2143#############################################################################
2144# urxvt::overlay
2145#############################################################################
2146
1641MODULE = urxvt PACKAGE = urxvt::overlay 2147MODULE = urxvt PACKAGE = urxvt::overlay
1642 2148
1643void 2149void
1644overlay::set (int x, int y, SV *text, SV *rend = 0) 2150overlay::set (int x, int y, SV *text, SV *rend = 0)
1645 2151
1650overlay::hide () 2156overlay::hide ()
1651 2157
1652void 2158void
1653overlay::DESTROY () 2159overlay::DESTROY ()
1654 2160
2161INCLUDE: $PERL <iom_perl.xs -pe s/IOM_MODULE/urxvt/g,s/IOM_CLASS/urxvt/g |
2162
2163MODULE = urxvt PACKAGE = urxvt::pixbuf PREFIX = gdk_pixbuf_
2164
2165#if HAVE_PIXBUF
2166
2167urxvt::pixbuf gdk_pixbuf_new_from_file (SV *klass, octet_string filename)
2168 C_ARGS: filename, 0
2169
2170void
2171DESTROY (urxvt::pixbuf self)
2172 CODE:
2173 gdk_pixbuf_unref (self);
2174
2175#endif
2176
1655MODULE = urxvt PACKAGE = urxvt::timer 2177MODULE = urxvt PACKAGE = urxvt::img
1656 2178
1657SV * 2179#if HAVE_IMG
1658timer::new ()
1659 CODE:
1660 timer *w = new timer;
1661 w->start (NOW);
1662 RETVAL = newSVptr ((void *)w, "urxvt::timer");
1663 w->self = (HV *)SvRV (RETVAL);
1664 OUTPUT:
1665 RETVAL
1666 2180
1667timer * 2181# rxvt_img *new (rxvt_screen *screen, XRenderPictFormat *format, int width, int height)
1668timer::cb (SV *cb) 2182# rxvt_img *rxvt_img (rxvt_screen *screen, XRenderPictFormat *format, int width, int height, Pixmap pixmap);
1669 CODE:
1670 THIS->cb (cb);
1671 RETVAL = THIS;
1672 OUTPUT:
1673 RETVAL
1674 2183
1675NV 2184int
1676timer::at () 2185rxvt_img::w ()
1677 CODE: 2186 CODE:
1678 RETVAL = THIS->at; 2187 RETVAL = THIS->w;
1679 OUTPUT: 2188 OUTPUT:
1680 RETVAL 2189 RETVAL
1681 2190
1682timer * 2191int
1683timer::interval (NV interval) 2192rxvt_img::h ()
1684 CODE: 2193 CODE:
1685 THIS->interval = interval;
1686 RETVAL = THIS; 2194 RETVAL = THIS->h;
1687 OUTPUT: 2195 OUTPUT:
1688 RETVAL 2196 RETVAL
1689 2197
1690timer * 2198Pixmap
1691timer::set (NV tstamp) 2199rxvt_img::pm ()
1692 CODE: 2200 CODE:
1693 THIS->set (tstamp);
1694 RETVAL = THIS; 2201 RETVAL = THIS->pm;
1695 OUTPUT: 2202 OUTPUT:
1696 RETVAL
1697
1698timer *
1699timer::start (NV tstamp = THIS->at)
1700 CODE:
1701 THIS->start (tstamp);
1702 RETVAL = THIS; 2203 RETVAL
1703 OUTPUT:
1704 RETVAL
1705 2204
1706timer *
1707timer::stop ()
1708 CODE:
1709 THIS->stop ();
1710 RETVAL = THIS;
1711 OUTPUT:
1712 RETVAL
1713
1714void 2205void
2206rxvt_img::fill (SV *c)
2207 INIT:
2208 rxvt_color rc;
2209 parse_color (THIS->s, rc, c);
2210 C_ARGS: rc
2211
2212void
1715timer::DESTROY () 2213rxvt_img::DESTROY ()
1716
1717MODULE = urxvt PACKAGE = urxvt::iow
1718
1719SV *
1720iow::new ()
1721 CODE: 2214 CODE:
1722 iow *w = new iow; 2215 delete THIS;
1723 RETVAL = newSVptr ((void *)w, "urxvt::iow");
1724 w->self = (HV *)SvRV (RETVAL);
1725 OUTPUT:
1726 RETVAL
1727 2216
1728iow *
1729iow::cb (SV *cb)
1730 CODE:
1731 THIS->cb (cb);
1732 RETVAL = THIS;
1733 OUTPUT:
1734 RETVAL
1735
1736iow *
1737iow::fd (int fd)
1738 CODE:
1739 THIS->fd = fd;
1740 RETVAL = THIS;
1741 OUTPUT:
1742 RETVAL
1743
1744iow *
1745iow::events (short events)
1746 CODE:
1747 THIS->events = events;
1748 RETVAL = THIS;
1749 OUTPUT:
1750 RETVAL
1751
1752iow *
1753iow::start ()
1754 CODE:
1755 THIS->start ();
1756 RETVAL = THIS;
1757 OUTPUT:
1758 RETVAL
1759
1760iow *
1761iow::stop ()
1762 CODE:
1763 THIS->stop ();
1764 RETVAL = THIS;
1765 OUTPUT:
1766 RETVAL
1767
1768void 2217void
1769iow::DESTROY () 2218rxvt_img::unshare ()
1770 2219
2220int
2221rxvt_img::repeat_mode (render_repeat_mode repeat = 0)
2222 CODE:
2223 if (items >= 2)
2224 THIS->repeat_mode (repeat);
2225 if (GIMME_V != G_VOID)
2226 XPUSHs (sv_2mortal (newSViv (THIS->repeat)));
1771 2227
2228void
2229rxvt_img::move (int dx, int dy)
2230
2231void
2232rxvt_img::brightness (NV r, NV g, NV b, NV a = 1.)
2233
2234void
2235rxvt_img::contrast (NV r, NV g, NV b, NV a = 1.)
2236
2237rxvt_img *
2238rxvt_img::clone ()
2239
2240rxvt_img *
2241rxvt_img::reify ()
2242
2243rxvt_img *
2244rxvt_img::sub_rect (int x, int y, int width, int height)
2245
2246rxvt_img *
2247rxvt_img::blur (int rh, int rv)
2248
2249rxvt_img *
2250rxvt_img::transform (NV p11, NV p12, NV p13, NV p21, NV p22, NV p23, NV p31, NV p32, NV p33)
2251 INIT:
2252 double matrix[3][3] = {
2253 { p11, p12, p13 },
2254 { p21, p22, p23 },
2255 { p31, p32, p33 }
2256 };
2257 C_ARGS: matrix
2258
2259rxvt_img *
2260rxvt_img::scale (int new_width, int new_height)
2261
2262rxvt_img *
2263rxvt_img::rotate (int x, int y, NV phi)
2264
2265#endif
2266

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines