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.47 by root, Mon Jan 9 02:06:43 2006 UTC vs.
Revision 1.83 by root, Fri Jan 20 15:40:39 2006 UTC

29#include "../config.h" 29#include "../config.h"
30 30
31#include <cstddef> 31#include <cstddef>
32#include <cstdarg> 32#include <cstdarg>
33 33
34#include "unistd.h"
35
36#include "iom.h"
34#include "rxvt.h" 37#include "rxvt.h"
35#include "iom.h" 38#include "keyboard.h"
36#include "rxvtutil.h" 39#include "rxvtutil.h"
37#include "rxvtperl.h" 40#include "rxvtperl.h"
38 41
39#include "perlxsi.c" 42#include "perlxsi.c"
40 43
41#if defined(HAVE_SCROLLBARS) || defined(MENUBAR) 44#ifdef HAVE_SCROLLBARS
42# define GRAB_CURSOR THIS->leftptr_cursor 45# define GRAB_CURSOR THIS->leftptr_cursor
43#else 46#else
44# define GRAB_CURSOR None 47# define GRAB_CURSOR None
45#endif 48#endif
46 49
47#undef LINENO 50#undef LINENO
48#define LINENO(n) MOD (THIS->term_start + int(n), THIS->total_rows) 51#define LINENO(n) MOD (THIS->term_start + int(n), THIS->total_rows)
49#undef ROW 52#undef ROW
50#define ROW(n) THIS->row_buf [LINENO (n)] 53#define ROW(n) THIS->row_buf [LINENO (n)]
51 54
55typedef int CHAINED UNUSED;
56
52///////////////////////////////////////////////////////////////////////////// 57/////////////////////////////////////////////////////////////////////////////
53
54static SV *
55taint (SV *sv)
56{
57 SvTAINT (sv);
58 return sv;
59}
60
61static SV *
62taint_if (SV *sv, SV *src)
63{
64 if (SvTAINTED (src))
65 SvTAINT (sv);
66
67 return sv;
68}
69 58
70static wchar_t * 59static wchar_t *
71sv2wcs (SV *sv) 60sv2wcs (SV *sv)
72{ 61{
73 STRLEN len; 62 STRLEN len;
129#define newSVterm(term) SvREFCNT_inc ((SV *)term->perl.self) 118#define newSVterm(term) SvREFCNT_inc ((SV *)term->perl.self)
130#define SvTERM(sv) (rxvt_term *)SvPTR (sv, "urxvt::term") 119#define SvTERM(sv) (rxvt_term *)SvPTR (sv, "urxvt::term")
131 120
132///////////////////////////////////////////////////////////////////////////// 121/////////////////////////////////////////////////////////////////////////////
133 122
123#define SvWATCHER(sv) (perl_watcher *)SvPTR (sv, "urxvt::watcher")
124
134struct perl_watcher 125struct perl_watcher
135{ 126{
136 SV *cbsv; 127 SV *cbsv;
137 HV *self; 128 HV *self;
138 129
139 perl_watcher () 130 perl_watcher ()
140 : cbsv (newSV (0)) 131 : cbsv (0)
141 { 132 {
142 } 133 }
143 134
144 ~perl_watcher () 135 ~perl_watcher ()
145 { 136 {
146 SvREFCNT_dec (cbsv); 137 SvREFCNT_dec (cbsv);
147 } 138 }
148 139
149 void cb (SV *cb) 140 void cb (SV *cb)
150 { 141 {
151 sv_setsv (cbsv, cb); 142 SvREFCNT_dec (cbsv);
143 cbsv = newSVsv (cb);
152 } 144 }
153 145
154 void invoke (const char *type, SV *self, int arg = -1); 146 void invoke (const char *type, SV *self, int arg = -1);
155}; 147};
156 148
180 if (SvTRUE (ERRSV)) 172 if (SvTRUE (ERRSV))
181 rxvt_warn ("%s callback evaluation error: %s", type, SvPV_nolen (ERRSV)); 173 rxvt_warn ("%s callback evaluation error: %s", type, SvPV_nolen (ERRSV));
182} 174}
183 175
184#define newSVtimer(timer) new_ref (timer->self, "urxvt::timer") 176#define newSVtimer(timer) new_ref (timer->self, "urxvt::timer")
185#define SvTIMER(sv) (timer *)SvPTR (sv, "urxvt::timer") 177#define SvTIMER(sv) (timer *)(perl_watcher *)SvPTR (sv, "urxvt::timer")
186 178
187struct timer : time_watcher, perl_watcher 179struct timer : perl_watcher, time_watcher
188{ 180{
189 tstamp interval; 181 tstamp interval;
190 182
191 timer () 183 timer ()
192 : time_watcher (this, &timer::execute) 184 : time_watcher (this, &timer::execute)
201 invoke ("urxvt::timer", newSVtimer (this)); 193 invoke ("urxvt::timer", newSVtimer (this));
202 } 194 }
203}; 195};
204 196
205#define newSViow(iow) new_ref (iow->self, "urxvt::iow") 197#define newSViow(iow) new_ref (iow->self, "urxvt::iow")
206#define SvIOW(sv) (iow *)SvPTR (sv, "urxvt::iow") 198#define SvIOW(sv) (iow *)(perl_watcher *)SvPTR (sv, "urxvt::iow")
207 199
208struct iow : io_watcher, perl_watcher 200struct iow : perl_watcher, io_watcher
209{ 201{
210 iow () 202 iow ()
211 : io_watcher (this, &iow::execute) 203 : io_watcher (this, &iow::execute)
212 { 204 {
213 } 205 }
216 { 208 {
217 invoke ("urxvt::iow", newSViow (this), revents); 209 invoke ("urxvt::iow", newSViow (this), revents);
218 } 210 }
219}; 211};
220 212
213#define newSViw(iw) new_ref (iw->self, "urxvt::iw")
214#define SvIW(sv) (iw *)(perl_watcher *)SvPTR (sv, "urxvt::iw")
215
216struct 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
232struct 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
221///////////////////////////////////////////////////////////////////////////// 245/////////////////////////////////////////////////////////////////////////////
222 246
223#define SvOVERLAY(sv) (overlay *)SvPTR (sv, "urxvt::overlay") 247#define SvOVERLAY(sv) (overlay *)SvPTR (sv, "urxvt::overlay")
224 248
225struct overlay { 249struct overlay {
226 HV *self; 250 HV *self;
251 bool visible;
227 rxvt_term *THIS; 252 rxvt_term *THIS;
228 int x, y, w, h; 253 int x, y, w, h;
229 int border; 254 int border;
230 text_t **text; 255 text_t **text;
231 rend_t **rend; 256 rend_t **rend;
240 265
241 void set (int x, int y, SV *str, SV *rend); 266 void set (int x, int y, SV *str, SV *rend);
242}; 267};
243 268
244overlay::overlay (rxvt_term *THIS, int x_, int y_, int w_, int h_, rend_t rstyle, int border) 269overlay::overlay (rxvt_term *THIS, int x_, int y_, int w_, int h_, rend_t rstyle, int border)
245: THIS(THIS), x(x_), y(y_), w(w_), h(h_), border(border == 2) 270: THIS(THIS), x(x_), y(y_), w(w_), h(h_), border(border == 2), visible(false)
246{ 271{
247 if (border == 2) 272 if (border == 2)
248 { 273 {
249 w += 2; 274 w += 2;
250 h += 2; 275 h += 2;
311} 336}
312 337
313void 338void
314overlay::show () 339overlay::show ()
315{ 340{
316 char key[33]; sprintf (key, "%32lx", (long)this); 341 if (visible)
342 return;
317 343
344 visible = true;
345
318 HV *hv = (HV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)THIS->perl.self), "_overlay", 8, 0)); 346 AV *av = (AV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)THIS->perl.self), "_overlay", 8, 0));
319 hv_store (hv, key, 32, newSViv ((long)this), 0); 347 av_push (av, newSViv ((long)this));
320} 348}
321 349
322void 350void
323overlay::hide () 351overlay::hide ()
324{ 352{
353 if (!visible)
354 return;
355
356 visible = false;
357
325 SV **ovs = hv_fetch ((HV *)SvRV ((SV *)THIS->perl.self), "_overlay", 8, 0); 358 AV *av = (AV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)THIS->perl.self), "_overlay", 8, 0));
326 359
327 if (ovs) 360 int i;
361
362 for (i = AvFILL (av); i >= 0; i--)
363 if (SvIV (*av_fetch (av, i, 1)) == (long)this)
328 { 364 {
329 char key[33]; sprintf (key, "%32lx", (long)this);
330
331 HV *hv = (HV *)SvRV (*ovs);
332 hv_delete (hv, key, 32, G_DISCARD); 365 av_delete (av, i, G_DISCARD);
366 break;
333 } 367 }
368
369 for (; i < AvFILL (av); i++)
370 av_store (av, i, SvREFCNT_inc (*av_fetch (av, i + 1, 0)));
371
372 av_pop (av);
334} 373}
335 374
336void overlay::swap () 375void overlay::swap ()
337{ 376{
338 int ov_x = max (0, min (MOD (x, THIS->ncol), THIS->ncol - w)); 377 int ov_x = max (0, min (MOD (x, THIS->ncol), THIS->ncol - w));
344 for (int y = ov_h; y--; ) 383 for (int y = ov_h; y--; )
345 { 384 {
346 text_t *t1 = text [y]; 385 text_t *t1 = text [y];
347 rend_t *r1 = rend [y]; 386 rend_t *r1 = rend [y];
348 387
349 text_t *t2 = ROW(y + ov_y - THIS->view_start).t + ov_x; 388 text_t *t2 = ROW(y + ov_y + THIS->view_start).t + ov_x;
350 rend_t *r2 = ROW(y + ov_y - THIS->view_start).r + ov_x; 389 rend_t *r2 = ROW(y + ov_y + THIS->view_start).r + ov_x;
351 390
352 for (int x = ov_w; x--; ) 391 for (int x = ov_w; x--; )
353 { 392 {
354 text_t t = *t1; *t1++ = *t2; *t2++ = t; 393 text_t t = *t1; *t1++ = *t2; *t2++ = t;
355 rend_t r = *r1; *r1++ = *r2; *r2++ = SET_FONT (r, THIS->fontset [GET_STYLE (r)]->find_font (t)); 394 rend_t r = *r1; *r1++ = *r2; *r2++ = SET_FONT (r, THIS->fontset [GET_STYLE (r)]->find_font (t));
378 if (!SvROK (rend) || SvTYPE (SvRV (rend)) != SVt_PVAV) 417 if (!SvROK (rend) || SvTYPE (SvRV (rend)) != SVt_PVAV)
379 croak ("rend must be arrayref"); 418 croak ("rend must be arrayref");
380 419
381 AV *av = (AV *)SvRV (rend); 420 AV *av = (AV *)SvRV (rend);
382 421
383 for (int col = min (av_len (av) + 1, w - x - border); col--; ) 422 for (int col = min (AvFILL (av) + 1, w - x - border); col--; )
384 this->rend [y][x + col] = SvIV (*av_fetch (av, col, 1)); 423 this->rend [y][x + col] = SvIV (*av_fetch (av, col, 1));
385 } 424 }
386 425
387 THIS->want_refresh = 1; 426 THIS->want_refresh = 1;
388} 427}
391///////////////////////////////////////////////////////////////////////////// 430/////////////////////////////////////////////////////////////////////////////
392 431
393struct rxvt_perl_interp rxvt_perl; 432struct rxvt_perl_interp rxvt_perl;
394 433
395static PerlInterpreter *perl; 434static PerlInterpreter *perl;
396
397rxvt_perl_interp::rxvt_perl_interp ()
398{
399}
400 435
401rxvt_perl_interp::~rxvt_perl_interp () 436rxvt_perl_interp::~rxvt_perl_interp ()
402{ 437{
403 if (perl) 438 if (perl)
404 { 439 {
406 perl_free (perl); 441 perl_free (perl);
407 } 442 }
408} 443}
409 444
410void 445void
411rxvt_perl_interp::init () 446rxvt_perl_interp::init (rxvt_term *term)
412{ 447{
413 if (!perl) 448 if (!perl)
414 { 449 {
450 rxvt_push_locale (""); // perl init destroys current locale
451
452 perl_environ = rxvt_environ;
453 swap (perl_environ, environ);
454
415 char *argv[] = { 455 char *argv[] = {
416 "", 456 "",
417 "-T", 457 "-e"
418 "-edo '" LIBDIR "/urxvt.pm' or ($@ and die $@) or exit 1", 458 "BEGIN {"
459 " urxvt->bootstrap;"
460 " unshift @INC, '" LIBDIR "';"
461 "}"
462 ""
463 "use urxvt;"
419 }; 464 };
420 465
421 perl = perl_alloc (); 466 perl = perl_alloc ();
422 perl_construct (perl); 467 perl_construct (perl);
423 468
424 if (perl_parse (perl, xs_init, 3, argv, (char **)NULL) 469 if (perl_parse (perl, xs_init, 2, argv, (char **)NULL)
425 || perl_run (perl)) 470 || perl_run (perl))
426 { 471 {
427 rxvt_warn ("unable to initialize perl-interpreter, continuing without.\n"); 472 rxvt_warn ("unable to initialize perl-interpreter, continuing without.\n");
428 473
429 perl_destruct (perl); 474 perl_destruct (perl);
430 perl_free (perl); 475 perl_free (perl);
431 perl = 0; 476 perl = 0;
432 } 477 }
478
479 swap (perl_environ, environ);
480
481 rxvt_pop_locale ();
482 }
483
484 if (perl)
485 {
486 // runs outside of perls ENV
487 term->perl.self = (void *)newSVptr ((void *)term, "urxvt::term");
488 hv_store ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, newRV_noinc ((SV *)newAV ()), 0);
433 } 489 }
434} 490}
435 491
436static void 492static void
437ungrab (rxvt_term *THIS) 493ungrab (rxvt_term *THIS)
445} 501}
446 502
447bool 503bool
448rxvt_perl_interp::invoke (rxvt_term *term, hook_type htype, ...) 504rxvt_perl_interp::invoke (rxvt_term *term, hook_type htype, ...)
449{ 505{
450 if (!perl) 506 if (!perl || !term->perl.self)
451 return false; 507 return false;
452 508
453 if (htype == HOOK_INIT) // first hook ever called 509 // pre-handling of some events
510 if (htype == HOOK_REFRESH_END)
454 { 511 {
455 term->perl.self = (void *)newSVptr ((void *)term, "urxvt::term"); 512 AV *av = (AV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, 0));
456 hv_store ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, newRV_noinc ((SV *)newHV ()), 0); 513
514 for (int i = 0; i <= AvFILL (av); i++)
515 ((overlay *)SvIV (*av_fetch (av, i, 0)))->swap ();
457 } 516 }
458 else if (!term->perl.self) 517
459 return false; // perl not initialized for this instance 518 swap (perl_environ, environ);
519
520 bool event_consumed;
521
522 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
529 va_start (ap, htype);
530
531 ENTER;
532 SAVETMPS;
533
534 PUSHMARK (SP);
535
536 XPUSHs (sv_2mortal (newSVterm (term)));
537 XPUSHs (sv_2mortal (newSViv (htype)));
538
539 for (;;) {
540 data_type dt = (data_type)va_arg (ap, int);
541
542 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 XPUSHs (sv_2mortal (newSVpv (va_arg (ap, char *), 0)));
554 break;
555
556 case DT_STR_LEN:
557 {
558 char *str = va_arg (ap, char *);
559 int len = va_arg (ap, int);
560
561 XPUSHs (sv_2mortal (newSVpvn (str, len)));
562 }
563 break;
564
565 case DT_WCS_LEN:
566 {
567 wchar_t *wstr = va_arg (ap, wchar_t *);
568 int wlen = va_arg (ap, int);
569
570 XPUSHs (sv_2mortal (wcs2sv (wstr, wlen)));
571 }
572 break;
573
574 case DT_XEVENT:
575 {
576 XEvent *xe = va_arg (ap, XEvent *);
577 HV *hv = newHV ();
578
579# define set(name, sv) hv_store (hv, # name, sizeof (# name) - 1, sv, 0)
580# define setiv(name, val) hv_store (hv, # name, sizeof (# name) - 1, newSViv (val), 0)
581# define setuv(name, val) hv_store (hv, # name, sizeof (# name) - 1, newSVuv (val), 0)
582# undef set
583
584 setiv (type, xe->type);
585 setiv (send_event, xe->xany.send_event);
586 setiv (serial, xe->xany.serial);
587
588 switch (xe->type)
589 {
590 case KeyPress:
591 case KeyRelease:
592 case ButtonPress:
593 case ButtonRelease:
594 case MotionNotify:
595 setuv (window, xe->xmotion.window);
596 setuv (root, xe->xmotion.root);
597 setuv (subwindow, xe->xmotion.subwindow);
598 setuv (time, xe->xmotion.time);
599 setiv (x, xe->xmotion.x);
600 setiv (y, xe->xmotion.y);
601 setiv (row, xe->xmotion.y / term->fheight);
602 setiv (col, xe->xmotion.x / term->fwidth);
603 setiv (x_root, xe->xmotion.x_root);
604 setiv (y_root, xe->xmotion.y_root);
605 setuv (state, xe->xmotion.state);
606
607 switch (xe->type)
608 {
609 case KeyPress:
610 case KeyRelease:
611 setuv (keycode, xe->xkey.keycode);
612 break;
613
614 case ButtonPress:
615 case ButtonRelease:
616 setuv (button, xe->xbutton.button);
617 break;
618
619 case MotionNotify:
620 setiv (is_hint, xe->xmotion.is_hint);
621 break;
622 }
623
624 break;
625
626 case MapNotify:
627 case UnmapNotify:
628 case ConfigureNotify:
629 setuv (event, xe->xconfigure.event);
630 setuv (window, xe->xconfigure.window);
631
632 switch (xe->type)
633 {
634 case ConfigureNotify:
635 setiv (x, xe->xconfigure.x);
636 setiv (y, xe->xconfigure.y);
637 setiv (width, xe->xconfigure.width);
638 setiv (height, xe->xconfigure.height);
639 setuv (above, xe->xconfigure.above);
640 break;
641 }
642
643 break;
644
645 case ClientMessage:
646 setuv (window, xe->xclient.window);
647 setuv (message_type, xe->xclient.message_type);
648 setuv (format, xe->xclient.format);
649 setuv (l0, xe->xclient.data.l[0]);
650 setuv (l1, xe->xclient.data.l[1]);
651 setuv (l2, xe->xclient.data.l[2]);
652 setuv (l3, xe->xclient.data.l[3]);
653 setuv (l4, xe->xclient.data.l[4]);
654 }
655
656 XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));
657 }
658 break;
659
660 case DT_END:
661 goto call;
662
663 default:
664 rxvt_fatal ("FATAL: unable to pass data type %d\n", dt);
665 }
666 }
667
668 call:
669 va_end (ap);
670
671 PUTBACK;
672 int count = call_pv ("urxvt::invoke", G_ARRAY | G_EVAL);
673 SPAGAIN;
674
675 if (count)
676 {
677 SV *status = POPs;
678 count = SvTRUE (status);
679 }
680
681 PUTBACK;
682 FREETMPS;
683 LEAVE;
684
685 if (SvTRUE (ERRSV))
686 {
687 rxvt_warn ("perl hook %d evaluation error: %s", htype, SvPV_nolen (ERRSV));
688 ungrab (term); // better lose the grab than the session
689 }
690
691 event_consumed = !!count;
692 }
693 catch (...)
694 {
695 swap (perl_environ, environ);
696 throw;
697 }
698 else
699 event_consumed = false;
700
701 // post-handling of some events
702 if (htype == HOOK_REFRESH_BEGIN)
703 {
704 AV *av = (AV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, 0));
705
706 for (int i = AvFILL (av); i >= 0; i--)
707 ((overlay *)SvIV (*av_fetch (av, i, 0)))->swap ();
708 }
460 else if (htype == HOOK_DESTROY) 709 else if (htype == HOOK_DESTROY)
461 { 710 {
462 // handled later 711 clearSVptr ((SV *)term->perl.self);
712 SvREFCNT_dec ((SV *)term->perl.self);
463 } 713 }
464 else if (htype == HOOK_REFRESH_BEGIN || htype == HOOK_REFRESH_END)
465 {
466 HV *hv = (HV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, 0));
467 714
468 if (HvKEYS (hv)) 715 swap (perl_environ, environ);
469 {
470 hv_iterinit (hv);
471 716
472 while (HE *he = hv_iternext (hv)) 717 return event_consumed;
473 ((overlay *)SvIV (hv_iterval (hv, he)))->swap ();
474 }
475 }
476 else if (!should_invoke [htype])
477 return false;
478
479 dSP;
480 va_list ap;
481
482 va_start (ap, htype);
483
484 ENTER;
485 SAVETMPS;
486
487 PUSHMARK (SP);
488
489 XPUSHs (sv_2mortal (newSVterm (term)));
490 XPUSHs (sv_2mortal (newSViv (htype)));
491
492 for (;;) {
493 data_type dt = (data_type)va_arg (ap, int);
494
495 switch (dt)
496 {
497 case DT_INT:
498 XPUSHs (sv_2mortal (newSViv (va_arg (ap, int))));
499 break;
500
501 case DT_LONG:
502 XPUSHs (sv_2mortal (newSViv (va_arg (ap, long))));
503 break;
504
505 case DT_STR:
506 XPUSHs (taint (sv_2mortal (newSVpv (va_arg (ap, char *), 0))));
507 break;
508
509 case DT_STR_LEN:
510 {
511 char *str = va_arg (ap, char *);
512 int len = va_arg (ap, int);
513
514 XPUSHs (taint (sv_2mortal (newSVpvn (str, len))));
515 }
516 break;
517
518 case DT_WCS_LEN:
519 {
520 wchar_t *wstr = va_arg (ap, wchar_t *);
521 int wlen = va_arg (ap, int);
522
523 XPUSHs (taint (sv_2mortal (wcs2sv (wstr, wlen))));
524 }
525 break;
526
527 case DT_XEVENT:
528 {
529 XEvent *xe = va_arg (ap, XEvent *);
530 HV *hv = newHV ();
531
532# define set(name, sv) hv_store (hv, # name, sizeof (# name) - 1, sv, 0)
533# define setiv(name, val) hv_store (hv, # name, sizeof (# name) - 1, newSViv (val), 0)
534# undef set
535
536 setiv (type, xe->type);
537 setiv (send_event, xe->xany.send_event);
538 setiv (serial, xe->xany.serial);
539
540 switch (xe->type)
541 {
542 case KeyPress:
543 case KeyRelease:
544 case ButtonPress:
545 case ButtonRelease:
546 case MotionNotify:
547 setiv (time, xe->xmotion.time);
548 setiv (x, xe->xmotion.x);
549 setiv (y, xe->xmotion.y);
550 setiv (row, xe->xmotion.y / term->fheight);
551 setiv (col, xe->xmotion.x / term->fwidth);
552 setiv (x_root, xe->xmotion.x_root);
553 setiv (y_root, xe->xmotion.y_root);
554 setiv (state, xe->xmotion.state);
555 break;
556 }
557
558 switch (xe->type)
559 {
560 case KeyPress:
561 case KeyRelease:
562 setiv (keycode, xe->xkey.keycode);
563 break;
564
565 case ButtonPress:
566 case ButtonRelease:
567 setiv (button, xe->xbutton.button);
568 break;
569
570 case MotionNotify:
571 setiv (is_hint, xe->xmotion.is_hint);
572 break;
573 }
574
575 XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));
576 }
577 break;
578
579 case DT_END:
580 {
581 va_end (ap);
582
583 PUTBACK;
584 int count = call_pv ("urxvt::invoke", G_ARRAY | G_EVAL);
585 SPAGAIN;
586
587 if (count)
588 {
589 SV *status = POPs;
590 count = SvTRUE (status);
591 }
592
593 PUTBACK;
594 FREETMPS;
595 LEAVE;
596
597 if (SvTRUE (ERRSV))
598 {
599 rxvt_warn ("perl hook %d evaluation error: %s", htype, SvPV_nolen (ERRSV));
600 ungrab (term); // better lose the grab than the session
601 }
602
603 if (htype == HOOK_DESTROY)
604 {
605 clearSVptr ((SV *)term->perl.self);
606 SvREFCNT_dec ((SV *)term->perl.self);
607 }
608
609 return count;
610 }
611
612 default:
613 rxvt_fatal ("FATAL: unable to pass data type %d\n", dt);
614 }
615 }
616} 718}
617 719
618///////////////////////////////////////////////////////////////////////////// 720/////////////////////////////////////////////////////////////////////////////
619 721
620MODULE = urxvt PACKAGE = urxvt 722MODULE = urxvt PACKAGE = urxvt
621 723
622PROTOTYPES: ENABLE 724PROTOTYPES: ENABLE
623 725
624BOOT: 726BOOT:
625{ 727{
626 sv_setsv (get_sv ("urxvt::LIBDIR", 1), newSVpvn (LIBDIR, sizeof (LIBDIR) - 1)); 728 sv_setsv (get_sv ("urxvt::LIBDIR", 1), newSVpvn (LIBDIR, sizeof (LIBDIR) - 1));
729 sv_setsv (get_sv ("urxvt::RESNAME", 1), newSVpvn (RESNAME, sizeof (RESNAME) - 1));
730 sv_setsv (get_sv ("urxvt::RESCLASS", 1), newSVpvn (RESCLASS, sizeof (RESCLASS) - 1));
731 sv_setsv (get_sv ("urxvt::RXVTNAME", 1), newSVpvn (RXVTNAME, sizeof (RXVTNAME) - 1));
627 732
628 AV *hookname = get_av ("urxvt::HOOKNAME", 1); 733 AV *hookname = get_av ("urxvt::HOOKNAME", 1);
629# define def(sym) av_store (hookname, HOOK_ ## sym, newSVpv (# sym, 0)); 734# define def(sym) av_store (hookname, HOOK_ ## sym, newSVpv (# sym, 0));
630# include "hookinc.h" 735# include "hookinc.h"
631# undef def 736# undef def
636# include "optinc.h" 741# include "optinc.h"
637# undef nodef 742# undef nodef
638# undef def 743# undef def
639 744
640 HV *stash = gv_stashpv ("urxvt", 1); 745 HV *stash = gv_stashpv ("urxvt", 1);
641# define export_const_iv(name) newCONSTSUB (stash, # name, newSViv (name)); 746 struct {
747 const char *name;
748 IV iv;
749 } *civ, const_iv[] = {
750# define const_iv(name) { # name, (IV)name }
642 export_const_iv (DEFAULT_RSTYLE); 751 const_iv (DEFAULT_RSTYLE),
643 export_const_iv (OVERLAY_RSTYLE); 752 const_iv (OVERLAY_RSTYLE),
644 export_const_iv (RS_Bold); 753 const_iv (RS_Bold),
645 export_const_iv (RS_Italic); 754 const_iv (RS_Italic),
646 export_const_iv (RS_Blink); 755 const_iv (RS_Blink),
647 export_const_iv (RS_RVid); 756 const_iv (RS_RVid),
648 export_const_iv (RS_Uline); 757 const_iv (RS_Uline),
649 758
650 export_const_iv (CurrentTime); 759 const_iv (CurrentTime),
651 export_const_iv (ShiftMask); 760 const_iv (ShiftMask),
652 export_const_iv (LockMask); 761 const_iv (LockMask),
653 export_const_iv (ControlMask); 762 const_iv (ControlMask),
654 export_const_iv (Mod1Mask); 763 const_iv (Mod1Mask),
655 export_const_iv (Mod2Mask); 764 const_iv (Mod2Mask),
656 export_const_iv (Mod3Mask); 765 const_iv (Mod3Mask),
657 export_const_iv (Mod4Mask); 766 const_iv (Mod4Mask),
658 export_const_iv (Mod5Mask); 767 const_iv (Mod5Mask),
659 export_const_iv (Button1Mask); 768 const_iv (Button1Mask),
660 export_const_iv (Button2Mask); 769 const_iv (Button2Mask),
661 export_const_iv (Button3Mask); 770 const_iv (Button3Mask),
662 export_const_iv (Button4Mask); 771 const_iv (Button4Mask),
663 export_const_iv (Button5Mask); 772 const_iv (Button5Mask),
664 export_const_iv (AnyModifier); 773 const_iv (AnyModifier),
774
775 const_iv (EVENT_NONE),
776 const_iv (EVENT_READ),
777 const_iv (EVENT_WRITE),
778
779 const_iv (NoEventMask),
780 const_iv (KeyPressMask),
781 const_iv (KeyReleaseMask),
782 const_iv (ButtonPressMask),
783 const_iv (ButtonReleaseMask),
784 const_iv (EnterWindowMask),
785 const_iv (LeaveWindowMask),
786 const_iv (PointerMotionMask),
787 const_iv (PointerMotionHintMask),
788 const_iv (Button1MotionMask),
789 const_iv (Button2MotionMask),
790 const_iv (Button3MotionMask),
791 const_iv (Button4MotionMask),
792 const_iv (Button5MotionMask),
793 const_iv (ButtonMotionMask),
794 const_iv (KeymapStateMask),
795 const_iv (ExposureMask),
796 const_iv (VisibilityChangeMask),
797 const_iv (StructureNotifyMask),
798 const_iv (ResizeRedirectMask),
799 const_iv (SubstructureNotifyMask),
800 const_iv (SubstructureRedirectMask),
801 const_iv (FocusChangeMask),
802 const_iv (PropertyChangeMask),
803 const_iv (ColormapChangeMask),
804 const_iv (OwnerGrabButtonMask),
805
806 const_iv (KeyPress),
807 const_iv (KeyRelease),
808 const_iv (ButtonPress),
809 const_iv (ButtonRelease),
810 const_iv (MotionNotify),
811 const_iv (EnterNotify),
812 const_iv (LeaveNotify),
813 const_iv (FocusIn),
814 const_iv (FocusOut),
815 const_iv (KeymapNotify),
816 const_iv (Expose),
817 const_iv (GraphicsExpose),
818 const_iv (NoExpose),
819 const_iv (VisibilityNotify),
820 const_iv (CreateNotify),
821 const_iv (DestroyNotify),
822 const_iv (UnmapNotify),
823 const_iv (MapNotify),
824 const_iv (MapRequest),
825 const_iv (ReparentNotify),
826 const_iv (ConfigureNotify),
827 const_iv (ConfigureRequest),
828 const_iv (GravityNotify),
829 const_iv (ResizeRequest),
830 const_iv (CirculateNotify),
831 const_iv (CirculateRequest),
832 const_iv (PropertyNotify),
833 const_iv (SelectionClear),
834 const_iv (SelectionRequest),
835 const_iv (SelectionNotify),
836 const_iv (ColormapNotify),
837 const_iv (ClientMessage),
838 const_iv (MappingNotify),
839 };
840
841 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]);
842 civ-- > const_iv; )
843 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
665} 844}
845
846void
847warn (const char *msg)
848 CODE:
849 rxvt_warn ("%s", msg);
850
851void
852fatal (const char *msg)
853 CODE:
854 rxvt_fatal ("%s", msg);
855
856void
857_exit (int status)
858
859NV
860NOW ()
861 CODE:
862 RETVAL = NOW;
863 OUTPUT:
864 RETVAL
865
866int
867GET_BASEFG (int rend)
868 CODE:
869 RETVAL = GET_BASEFG (rend);
870 OUTPUT:
871 RETVAL
872
873int
874GET_BASEBG (int rend)
875 CODE:
876 RETVAL = GET_BASEBG (rend);
877 OUTPUT:
878 RETVAL
879
880int
881SET_FGCOLOR (int rend, int new_color)
882 CODE:
883 RETVAL = SET_FGCOLOR (rend, new_color);
884 OUTPUT:
885 RETVAL
886
887int
888SET_BGCOLOR (int rend, int new_color)
889 CODE:
890 RETVAL = SET_BGCOLOR (rend, new_color);
891 OUTPUT:
892 RETVAL
893
894int
895GET_CUSTOM (int rend)
896 CODE:
897 RETVAL = (rend && RS_customMask) >> RS_customShift;
898 OUTPUT:
899 RETVAL
900
901int
902SET_CUSTOM (int rend, int new_value)
903 CODE:
904{
905 if (!IN_RANGE_EXC (new_value, 0, RS_customCount))
906 croak ("custom value out of range, must be 0..%d", RS_customCount - 1);
907
908 RETVAL = (rend & ~RS_customMask)
909 | ((new_value << RS_customShift) & RS_customMask);
910}
911 OUTPUT:
912 RETVAL
913
914MODULE = urxvt PACKAGE = urxvt::term
666 915
667SV * 916SV *
668new (...) 917_new (...)
669 CODE: 918 CODE:
670{ 919{
920 if (items < 1 || !SvROK (ST (0)) || SvTYPE (SvRV (ST (0))) != SVt_PVAV)
921 croak ("first argument to urxvt::term->_new must be arrayref");
922
923 rxvt_term *term = new rxvt_term;
924
671 stringvec *argv = new stringvec; 925 term->argv = new stringvec;
926 term->envv = new stringvec;
927
928 for (int i = 1; i < items; i++)
929 term->argv->push_back (strdup (SvPVbyte_nolen (ST (i))));
930
931 AV *envv = (AV *)SvRV (ST (0));
932 for (int i = AvFILL (envv) + 1; i--; )
933 term->envv->push_back (strdup (SvPVbyte_nolen (*av_fetch (envv, i, 1))));
934
935 term->envv->push_back (0);
936
672 bool success; 937 bool success;
673
674 for (int i = 0; i < items ;i++)
675 argv->push_back (strdup (SvPVbyte_nolen (ST (i))));
676
677 rxvt_term *term = new rxvt_term;
678
679 term->argv = argv;
680 938
681 try 939 try
682 { 940 {
683 if (!term->init (argv->size (), argv->begin ())) 941 success = term->init (term->argv->size (), term->argv->begin ());
684 term = 0;
685 } 942 }
686 catch (const class rxvt_failure_exception &e) 943 catch (const class rxvt_failure_exception &e)
687 { 944 {
945 success = false;
946 }
947
948 if (!success)
949 {
688 term->destroy (); 950 term->destroy ();
689 croak ("exception caught while initializing new terminal instance"); 951 croak ("error while initializing new terminal instance");
690 } 952 }
691 953
692 RETVAL = term && term->perl.self ? newSVterm (term) : &PL_sv_undef; 954 RETVAL = term && term->perl.self
955 ? newSVterm (term) : &PL_sv_undef;
693} 956}
694 OUTPUT: 957 OUTPUT:
695 RETVAL 958 RETVAL
696 959
697void 960void
698set_should_invoke (int htype, int value)
699 CODE:
700 rxvt_perl.should_invoke [htype] = value;
701
702void
703warn (const char *msg)
704 CODE:
705 rxvt_warn ("%s", msg);
706
707void
708fatal (const char *msg)
709 CODE:
710 rxvt_fatal ("%s", msg);
711
712SV *
713untaint (SV *sv)
714 CODE:
715 RETVAL = newSVsv (sv);
716 SvTAINTED_off (RETVAL);
717 OUTPUT:
718 RETVAL
719
720bool
721safe ()
722 CODE:
723 RETVAL = !rxvt_tainted ();
724 OUTPUT:
725 RETVAL
726
727NV
728NOW ()
729 CODE:
730 RETVAL = NOW;
731 OUTPUT:
732 RETVAL
733
734int
735GET_BASEFG (int rend)
736 CODE:
737 RETVAL = GET_BASEFG (rend);
738 OUTPUT:
739 RETVAL
740
741int
742GET_BASEBG (int rend)
743 CODE:
744 RETVAL = GET_BASEBG (rend);
745 OUTPUT:
746 RETVAL
747
748int
749SET_FGCOLOR (int rend, int new_color)
750 CODE:
751 RETVAL = SET_FGCOLOR (rend, new_color);
752 OUTPUT:
753 RETVAL
754
755int
756SET_BGCOLOR (int rend, int new_color)
757 CODE:
758 RETVAL = SET_BGCOLOR (rend, new_color);
759 OUTPUT:
760 RETVAL
761
762int
763GET_CUSTOM (int rend)
764 CODE:
765 RETVAL = (rend && RS_customMask) >> RS_customShift;
766 OUTPUT:
767 RETVAL
768
769int
770SET_CUSTOM (int rend, int new_value)
771 CODE:
772{
773 if (!IN_RANGE_EXC (new_value, 0, RS_customCount))
774 croak ("custom value out of range, must be 0..%d", RS_customCount - 1);
775
776 RETVAL = (rend & ~RS_customMask)
777 | ((new_value << RS_customShift) & RS_customMask);
778}
779 OUTPUT:
780 RETVAL
781
782MODULE = urxvt PACKAGE = urxvt::term
783
784void
785rxvt_term::destroy () 961rxvt_term::destroy ()
962
963void
964rxvt_term::set_should_invoke (int htype, int inc)
965 CODE:
966 THIS->perl.should_invoke [htype] += inc;
786 967
787void 968void
788rxvt_term::grab_button (int button, U32 modifiers) 969rxvt_term::grab_button (int button, U32 modifiers)
789 CODE: 970 CODE:
790 XGrabButton (THIS->display->display, button, modifiers, THIS->vt, 1, 971 XGrabButton (THIS->display->display, button, modifiers, THIS->vt, 1,
791 ButtonPressMask | ButtonReleaseMask | EnterWindowMask | LeaveWindowMask | PointerMotionMask, 972 ButtonPressMask | ButtonReleaseMask | EnterWindowMask | LeaveWindowMask | PointerMotionMask,
792 GrabModeSync, GrabModeSync, None, GRAB_CURSOR); 973 GrabModeSync, GrabModeSync, None, GRAB_CURSOR);
793 974
794bool 975bool
795rxvt_term::grab (U32 eventtime, int sync = 0) 976rxvt_term::grab (Time eventtime, int sync = 0)
796 CODE: 977 CODE:
797{ 978{
798 int mode = sync ? GrabModeSync : GrabModeAsync; 979 int mode = sync ? GrabModeSync : GrabModeAsync;
799 980
800 THIS->perl.grabtime = 0; 981 THIS->perl.grabtime = 0;
858 char *mbstr = rxvt_wcstombs (wstr); 1039 char *mbstr = rxvt_wcstombs (wstr);
859 rxvt_pop_locale (); 1040 rxvt_pop_locale ();
860 1041
861 free (wstr); 1042 free (wstr);
862 1043
863 RETVAL = taint_if (newSVpv (mbstr, 0), str); 1044 RETVAL = newSVpv (mbstr, 0);
864 free (mbstr); 1045 free (mbstr);
865} 1046}
866 OUTPUT: 1047 OUTPUT:
867 RETVAL 1048 RETVAL
868 1049
875 1056
876 rxvt_push_locale (THIS->locale); 1057 rxvt_push_locale (THIS->locale);
877 wchar_t *wstr = rxvt_mbstowcs (data, len); 1058 wchar_t *wstr = rxvt_mbstowcs (data, len);
878 rxvt_pop_locale (); 1059 rxvt_pop_locale ();
879 1060
880 RETVAL = taint_if (wcs2sv (wstr), octets); 1061 RETVAL = wcs2sv (wstr);
881 free (wstr); 1062 free (wstr);
882} 1063}
883 OUTPUT: 1064 OUTPUT:
884 RETVAL 1065 RETVAL
885 1066
892#define TERM_OFFSET_fbase TERM_OFFSET(fbase) 1073#define TERM_OFFSET_fbase TERM_OFFSET(fbase)
893#define TERM_OFFSET_nrow TERM_OFFSET(nrow) 1074#define TERM_OFFSET_nrow TERM_OFFSET(nrow)
894#define TERM_OFFSET_ncol TERM_OFFSET(ncol) 1075#define TERM_OFFSET_ncol TERM_OFFSET(ncol)
895#define TERM_OFFSET_focus TERM_OFFSET(focus) 1076#define TERM_OFFSET_focus TERM_OFFSET(focus)
896#define TERM_OFFSET_mapped TERM_OFFSET(mapped) 1077#define TERM_OFFSET_mapped TERM_OFFSET(mapped)
1078#define TERM_OFFSET_int_bwidth TERM_OFFSET(int_bwidth)
1079#define TERM_OFFSET_ext_bwidth TERM_OFFSET(ext_bwidth)
1080#define TERM_OFFSET_lineSpace TERM_OFFSET(lineSpace)
897#define TERM_OFFSET_saveLines TERM_OFFSET(saveLines) 1081#define TERM_OFFSET_saveLines TERM_OFFSET(saveLines)
898#define TERM_OFFSET_total_rows TERM_OFFSET(total_rows) 1082#define TERM_OFFSET_total_rows TERM_OFFSET(total_rows)
899#define TERM_OFFSET_nsaved TERM_OFFSET(nsaved) 1083#define TERM_OFFSET_top_row TERM_OFFSET(top_row)
900 1084
901int 1085int
902rxvt_term::width () 1086rxvt_term::width ()
903 ALIAS: 1087 ALIAS:
904 width = TERM_OFFSET_width 1088 width = TERM_OFFSET_width
908 fbase = TERM_OFFSET_fbase 1092 fbase = TERM_OFFSET_fbase
909 nrow = TERM_OFFSET_nrow 1093 nrow = TERM_OFFSET_nrow
910 ncol = TERM_OFFSET_ncol 1094 ncol = TERM_OFFSET_ncol
911 focus = TERM_OFFSET_focus 1095 focus = TERM_OFFSET_focus
912 mapped = TERM_OFFSET_mapped 1096 mapped = TERM_OFFSET_mapped
1097 int_bwidth = TERM_OFFSET_int_bwidth
1098 ext_bwidth = TERM_OFFSET_ext_bwidth
1099 lineSpace = TERM_OFFSET_lineSpace
913 saveLines = TERM_OFFSET_saveLines 1100 saveLines = TERM_OFFSET_saveLines
914 total_rows = TERM_OFFSET_total_rows 1101 total_rows = TERM_OFFSET_total_rows
915 nsaved = TERM_OFFSET_nsaved 1102 top_row = TERM_OFFSET_top_row
916 CODE: 1103 CODE:
917 RETVAL = *(int *)((char *)THIS + ix); 1104 RETVAL = *(int *)((char *)THIS + ix);
918 OUTPUT: 1105 OUTPUT:
919 RETVAL 1106 RETVAL
920 1107
932 case 2: RETVAL = THIS->ModNumLockMask; break; 1119 case 2: RETVAL = THIS->ModNumLockMask; break;
933 } 1120 }
934 OUTPUT: 1121 OUTPUT:
935 RETVAL 1122 RETVAL
936 1123
937U32 1124char *
1125rxvt_term::display_id ()
1126 ALIAS:
1127 display_id = 0
1128 locale = 1
1129 CODE:
1130 switch (ix)
1131 {
1132 case 0: RETVAL = THIS->display->id; break;
1133 case 1: RETVAL = THIS->locale; break;
1134 }
1135 OUTPUT:
1136 RETVAL
1137
1138SV *
1139rxvt_term::_env ()
1140 CODE:
1141{
1142 if (THIS->envv)
1143 {
1144 AV *av = newAV ();
1145
1146 for (char **i = THIS->envv->begin (); i != THIS->envv->end (); ++i)
1147 if (*i)
1148 av_push (av, newSVpv (*i, 0));
1149
1150 RETVAL = newRV_noinc ((SV *)av);
1151 }
1152 else
1153 RETVAL = &PL_sv_undef;
1154}
1155 OUTPUT:
1156 RETVAL
1157
1158int
1159rxvt_term::pty_ev_events (int events = EVENT_UNDEF)
1160 CODE:
1161 RETVAL = THIS->pty_ev.events;
1162 if (events != EVENT_UNDEF)
1163 THIS->pty_ev.set (events);
1164 OUTPUT:
1165 RETVAL
1166
1167Window
938rxvt_term::parent () 1168rxvt_term::parent ()
939 CODE: 1169 CODE:
940 RETVAL = (U32)THIS->parent [0]; 1170 RETVAL = THIS->parent [0];
941 OUTPUT: 1171 OUTPUT:
942 RETVAL 1172 RETVAL
943 1173
944U32 1174Window
945rxvt_term::vt () 1175rxvt_term::vt ()
946 CODE: 1176 CODE:
947 RETVAL = (U32)THIS->vt; 1177 RETVAL = THIS->vt;
948 OUTPUT: 1178 OUTPUT:
949 RETVAL 1179 RETVAL
1180
1181void
1182rxvt_term::vt_emask_add (U32 emask)
1183 CODE:
1184 THIS->vt_emask_perl |= emask;
1185 THIS->vt_select_input ();
950 1186
951U32 1187U32
952rxvt_term::rstyle (U32 new_rstyle = THIS->rstyle) 1188rxvt_term::rstyle (U32 new_rstyle = THIS->rstyle)
953 CODE: 1189 CODE:
954{
955 RETVAL = THIS->rstyle; 1190 RETVAL = THIS->rstyle;
956 THIS->rstyle = new_rstyle; 1191 THIS->rstyle = new_rstyle;
957}
958 OUTPUT: 1192 OUTPUT:
959 RETVAL 1193 RETVAL
960 1194
961int 1195int
962rxvt_term::view_start (int newval = -1) 1196rxvt_term::view_start (int newval = 1)
1197 PROTOTYPE: $;$
963 CODE: 1198 CODE:
964{ 1199{
965 RETVAL = THIS->view_start; 1200 RETVAL = THIS->view_start;
966 1201
967 if (newval >= 0) 1202 if (newval <= 0)
968 { 1203 THIS->scr_changeview (max (newval, THIS->top_row));
969 THIS->view_start = min (newval, THIS->nsaved);
970 THIS->scr_changeview (RETVAL);
971 }
972} 1204}
973 OUTPUT: 1205 OUTPUT:
974 RETVAL 1206 RETVAL
1207
1208void
1209rxvt_term::focus_in ()
1210
1211void
1212rxvt_term::focus_out ()
975 1213
976void 1214void
977rxvt_term::want_refresh () 1215rxvt_term::want_refresh ()
978 CODE: 1216 CODE:
979 THIS->want_refresh = 1; 1217 THIS->want_refresh = 1;
980 1218
981void 1219void
982rxvt_term::ROW_t (int row_number, SV *new_text = 0, int start_col = 0, int start_ofs = 0, int max_len = MAX_COLS) 1220rxvt_term::ROW_t (int row_number, SV *new_text = 0, int start_col = 0, int start_ofs = 0, int max_len = MAX_COLS)
983 PPCODE: 1221 PPCODE:
984{ 1222{
985 if (!IN_RANGE_EXC (row_number, -THIS->nsaved, THIS->nrow)) 1223 if (!IN_RANGE_EXC (row_number, THIS->top_row, THIS->nrow))
986 XSRETURN_EMPTY; 1224 XSRETURN_EMPTY;
987 1225
988 line_t &l = ROW(row_number); 1226 line_t &l = ROW(row_number);
989 1227
990 if (GIMME_V != G_VOID) 1228 if (GIMME_V != G_VOID)
992 wchar_t *wstr = new wchar_t [THIS->ncol]; 1230 wchar_t *wstr = new wchar_t [THIS->ncol];
993 1231
994 for (int col = 0; col < THIS->ncol; col++) 1232 for (int col = 0; col < THIS->ncol; col++)
995 wstr [col] = l.t [col]; 1233 wstr [col] = l.t [col];
996 1234
997 XPUSHs (taint (sv_2mortal (wcs2sv (wstr, THIS->ncol)))); 1235 XPUSHs (sv_2mortal (wcs2sv (wstr, THIS->ncol)));
998 1236
999 delete [] wstr; 1237 delete [] wstr;
1000 } 1238 }
1001 1239
1002 if (new_text) 1240 if (new_text)
1003 { 1241 {
1004 wchar_t *wstr = sv2wcs (new_text); 1242 wchar_t *wstr = sv2wcs (new_text);
1005 1243
1006 int len = min (wcslen (wstr) - start_ofs, max_len); 1244 int len = min (wcslen (wstr) - start_ofs, max_len);
1007 1245
1008 if (!IN_RANGE_INC (start_col, 0, THIS->ncol - len)) 1246 if (start_col < 0 || start_col + len > THIS->ncol)
1009 { 1247 {
1010 free (wstr); 1248 free (wstr);
1011 croak ("new_text extends beyond horizontal margins"); 1249 croak ("new_text extends beyond horizontal margins");
1012 } 1250 }
1013 1251
1023 1261
1024void 1262void
1025rxvt_term::ROW_r (int row_number, SV *new_rend = 0, int start_col = 0, int start_ofs = 0, int max_len = MAX_COLS) 1263rxvt_term::ROW_r (int row_number, SV *new_rend = 0, int start_col = 0, int start_ofs = 0, int max_len = MAX_COLS)
1026 PPCODE: 1264 PPCODE:
1027{ 1265{
1028 if (!IN_RANGE_EXC (row_number, -THIS->nsaved, THIS->nrow)) 1266 if (!IN_RANGE_EXC (row_number, THIS->top_row, THIS->nrow))
1029 XSRETURN_EMPTY; 1267 XSRETURN_EMPTY;
1030 1268
1031 line_t &l = ROW(row_number); 1269 line_t &l = ROW(row_number);
1032 1270
1033 if (GIMME_V != G_VOID) 1271 if (GIMME_V != G_VOID)
1045 { 1283 {
1046 if (!SvROK (new_rend) || SvTYPE (SvRV (new_rend)) != SVt_PVAV) 1284 if (!SvROK (new_rend) || SvTYPE (SvRV (new_rend)) != SVt_PVAV)
1047 croak ("new_rend must be arrayref"); 1285 croak ("new_rend must be arrayref");
1048 1286
1049 AV *av = (AV *)SvRV (new_rend); 1287 AV *av = (AV *)SvRV (new_rend);
1050 int len = min (av_len (av) + 1 - start_ofs, max_len); 1288 int len = min (AvFILL (av) + 1 - start_ofs, max_len);
1051 1289
1052 if (!IN_RANGE_INC (start_col, 0, THIS->ncol - len)) 1290 if (start_col < 0 || start_col + len > THIS->ncol)
1053 croak ("new_rend array extends beyond horizontal margins"); 1291 croak ("new_rend array extends beyond horizontal margins");
1054 1292
1055 for (int col = start_col; col < start_col + len; col++) 1293 for (int col = start_col; col < start_col + len; col++)
1056 { 1294 {
1057 rend_t r = SvIV (*av_fetch (av, start_ofs + col - start_col, 1)) & ~RS_fontMask; 1295 rend_t r = SvIV (*av_fetch (av, start_ofs + col - start_col, 1)) & ~RS_fontMask;
1063 1301
1064int 1302int
1065rxvt_term::ROW_l (int row_number, int new_length = -1) 1303rxvt_term::ROW_l (int row_number, int new_length = -1)
1066 CODE: 1304 CODE:
1067{ 1305{
1068 if (!IN_RANGE_EXC (row_number, -THIS->nsaved, THIS->nrow)) 1306 if (!IN_RANGE_EXC (row_number, THIS->top_row, THIS->nrow))
1069 XSRETURN_EMPTY; 1307 XSRETURN_EMPTY;
1070 1308
1071 line_t &l = ROW(row_number); 1309 line_t &l = ROW(row_number);
1072 RETVAL = l.l; 1310 RETVAL = l.l;
1073 1311
1079 1317
1080bool 1318bool
1081rxvt_term::ROW_is_longer (int row_number, int new_is_longer = -1) 1319rxvt_term::ROW_is_longer (int row_number, int new_is_longer = -1)
1082 CODE: 1320 CODE:
1083{ 1321{
1084 if (!IN_RANGE_EXC (row_number, -THIS->nsaved, THIS->nrow)) 1322 if (!IN_RANGE_EXC (row_number, THIS->top_row, THIS->nrow))
1085 XSRETURN_EMPTY; 1323 XSRETURN_EMPTY;
1086 1324
1087 line_t &l = ROW(row_number); 1325 line_t &l = ROW(row_number);
1088 RETVAL = l.is_longer (); 1326 RETVAL = l.is_longer ();
1089 1327
1123 else 1361 else
1124 *r++ = *s; 1362 *r++ = *s;
1125 1363
1126 rxvt_pop_locale (); 1364 rxvt_pop_locale ();
1127 1365
1128 RETVAL = taint_if (wcs2sv (rstr, r - rstr), string); 1366 RETVAL = wcs2sv (rstr, r - rstr);
1129 1367
1130 delete [] rstr; 1368 delete [] rstr;
1131} 1369}
1132 OUTPUT: 1370 OUTPUT:
1133 RETVAL 1371 RETVAL
1159 else if (IS_COMPOSE (*s)) 1397 else if (IS_COMPOSE (*s))
1160 r += rxvt_composite.expand (*s, r); 1398 r += rxvt_composite.expand (*s, r);
1161 else 1399 else
1162 *r++ = *s; 1400 *r++ = *s;
1163 1401
1164 RETVAL = taint_if (wcs2sv (rstr, r - rstr), text); 1402 RETVAL = wcs2sv (rstr, r - rstr);
1165 1403
1166 delete [] rstr; 1404 delete [] rstr;
1167} 1405}
1168 OUTPUT: 1406 OUTPUT:
1169 RETVAL 1407 RETVAL
1191 1429
1192 if (!IN_RANGE_EXC (index, 0, NUM_RESOURCES)) 1430 if (!IN_RANGE_EXC (index, 0, NUM_RESOURCES))
1193 croak ("requested out-of-bound resource %s+%d,", name, index - rs->value); 1431 croak ("requested out-of-bound resource %s+%d,", name, index - rs->value);
1194 1432
1195 if (GIMME_V != G_VOID) 1433 if (GIMME_V != G_VOID)
1196 XPUSHs (THIS->rs [index] ? sv_2mortal (taint (newSVpv (THIS->rs [index], 0))) : &PL_sv_undef); 1434 XPUSHs (THIS->rs [index] ? sv_2mortal (newSVpv (THIS->rs [index], 0)) : &PL_sv_undef);
1197 1435
1198 if (newval) 1436 if (newval)
1199 { 1437 {
1200 if (SvOK (newval)) 1438 if (SvOK (newval))
1201 { 1439 {
1206 else 1444 else
1207 THIS->rs [index] = 0; 1445 THIS->rs [index] = 0;
1208 } 1446 }
1209} 1447}
1210 1448
1449const char *
1450rxvt_term::x_resource (const char *name)
1451
1211bool 1452bool
1212rxvt_term::option (U32 optval, int set = -1) 1453rxvt_term::option (U32 optval, int set = -1)
1213 CODE: 1454 CODE:
1214{ 1455{
1215 RETVAL = THIS->options & optval; 1456 RETVAL = THIS->options & optval;
1219 if (set) 1460 if (set)
1220 THIS->options |= optval; 1461 THIS->options |= optval;
1221 else 1462 else
1222 THIS->options &= ~optval; 1463 THIS->options &= ~optval;
1223 1464
1465 if (THIS->check_ev.is_active ()) // avoid doing this before START
1224 switch (optval) 1466 switch (optval)
1225 { 1467 {
1226 case Opt_skipBuiltinGlyphs: 1468 case Opt_skipBuiltinGlyphs:
1227 THIS->set_fonts (); 1469 THIS->set_fonts ();
1228 THIS->scr_remap_chars (); 1470 THIS->scr_remap_chars ();
1229 THIS->scr_touch (true); 1471 THIS->scr_touch (true);
1230 THIS->want_refresh = 1; 1472 THIS->want_refresh = 1;
1231 break; 1473 break;
1232 1474
1233 case Opt_cursorUnderline: 1475 case Opt_cursorUnderline:
1234 THIS->want_refresh = 1; 1476 THIS->want_refresh = 1;
1235 break; 1477 break;
1236 1478
1237# case Opt_scrollBar_floating: 1479# case Opt_scrollBar_floating:
1238# case Opt_scrollBar_right: 1480# case Opt_scrollBar_right:
1239# THIS->resize_all_windows (THIS->width, THIS->height, 1); 1481# THIS->resize_all_windows (THIS->width, THIS->height, 1);
1240# break; 1482# break;
1241 } 1483 }
1242 } 1484 }
1243} 1485}
1244 OUTPUT: 1486 OUTPUT:
1487 RETVAL
1488
1489bool
1490rxvt_term::parse_keysym (char *keysym, char *str)
1491 CODE:
1492 RETVAL = 0 < THIS->parse_keysym (keysym, str);
1493 THIS->keyboard->register_done ();
1494 OUTPUT:
1245 RETVAL 1495 RETVAL
1246 1496
1247void 1497void
1248rxvt_term::screen_cur (...) 1498rxvt_term::screen_cur (...)
1249 PROTOTYPE: $;$$ 1499 PROTOTYPE: $;$$
1266 PUSHs (sv_2mortal (newSViv (rc.col))); 1516 PUSHs (sv_2mortal (newSViv (rc.col)));
1267 } 1517 }
1268 1518
1269 if (items == 3) 1519 if (items == 3)
1270 { 1520 {
1271 rc.row = clamp (SvIV (ST (1)), -THIS->nsaved, THIS->nrow - 1); 1521 rc.row = SvIV (ST (1));
1272 rc.col = clamp (SvIV (ST (2)), 0, THIS->ncol - 1); 1522 rc.col = SvIV (ST (2));
1523
1524 if (ix == 2 && rc.col == 0)
1525 {
1526 rc.row--;
1527 rc.col = THIS->ncol;
1528 }
1529
1530 clamp_it (rc.col, 0, THIS->ncol);
1531 clamp_it (rc.row, THIS->top_row, THIS->nrow - 1);
1273 1532
1274 if (ix) 1533 if (ix)
1275 THIS->want_refresh = 1; 1534 THIS->want_refresh = 1;
1276 } 1535 }
1277} 1536}
1278 1537
1538char
1539rxvt_term::cur_charset ()
1540 CODE:
1541 RETVAL = THIS->charsets [THIS->screen.charset];
1542 OUTPUT:
1543 RETVAL
1544
1545#void
1546#rxvt_term::selection_clear ()
1547
1548void
1549rxvt_term::selection_make (Time eventtime, bool rect = false)
1550 CODE:
1551 THIS->selection.op = SELECTION_CONT;
1552 THIS->selection.rect = rect;
1553 THIS->selection_make (eventtime);
1554
1279int 1555int
1280rxvt_term::selection_grab (U32 eventtime) 1556rxvt_term::selection_grab (Time eventtime)
1281 1557
1282void 1558void
1283rxvt_term::selection (SV *newtext = 0) 1559rxvt_term::selection (SV *newtext = 0)
1284 PPCODE: 1560 PPCODE:
1285{ 1561{
1286 if (GIMME_V != G_VOID) 1562 if (GIMME_V != G_VOID)
1287 XPUSHs (THIS->selection.text 1563 XPUSHs (THIS->selection.text
1288 ? taint (sv_2mortal (wcs2sv (THIS->selection.text, THIS->selection.len))) 1564 ? sv_2mortal (wcs2sv (THIS->selection.text, THIS->selection.len))
1289 : &PL_sv_undef); 1565 : &PL_sv_undef);
1290 1566
1291 if (newtext) 1567 if (newtext)
1292 { 1568 {
1293 free (THIS->selection.text); 1569 free (THIS->selection.text);
1294 1570
1295 THIS->selection.text = sv2wcs (newtext); 1571 THIS->selection.text = sv2wcs (newtext);
1296 THIS->selection.len = wcslen (THIS->selection.text); 1572 THIS->selection.len = wcslen (THIS->selection.text);
1297 } 1573 }
1298} 1574}
1575
1576void
1577rxvt_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)
1578
1579void
1580rxvt_term::scr_xor_span (int beg_row, int beg_col, int end_row, int end_col, U32 rstyle = RS_RVid)
1581
1582void
1583rxvt_term::scr_bell ()
1299 1584
1300void 1585void
1301rxvt_term::scr_add_lines (SV *string) 1586rxvt_term::scr_add_lines (SV *string)
1302 CODE: 1587 CODE:
1303{ 1588{
1344 o->self = (HV *)SvRV (RETVAL); 1629 o->self = (HV *)SvRV (RETVAL);
1345} 1630}
1346 OUTPUT: 1631 OUTPUT:
1347 RETVAL 1632 RETVAL
1348 1633
1634#############################################################################
1635# Various X Utility Functions
1636#############################################################################
1637
1638void
1639rxvt_term::XListProperties (Window window)
1640 PPCODE:
1641{
1642 int count;
1643 Atom *props = XListProperties (THIS->display->display, window, &count);
1644
1645 EXTEND (SP, count);
1646 while (count--)
1647 PUSHs (newSVuv ((U32)props [count]));
1648
1649 XFree (props);
1650}
1651
1652void
1653rxvt_term::XGetWindowProperty (Window window, Atom property)
1654 PPCODE:
1655{
1656 Atom type;
1657 int format;
1658 unsigned long nitems;
1659 unsigned long bytes_after;
1660 unsigned char *prop;
1661
1662 XGetWindowProperty (THIS->display->display, window, property,
1663 0, 1<<24, 0, AnyPropertyType,
1664 &type, &format, &nitems, &bytes_after, &prop);
1665
1666 if (type != None)
1667 {
1668 int elemsize = format == 16 ? sizeof (short)
1669 : format == 32 ? sizeof (long)
1670 : 1;
1671
1672 EXTEND (SP, 3);
1673 PUSHs (newSVuv ((U32)type));
1674 PUSHs (newSViv (format));
1675 PUSHs (newSVpvn ((char *)prop, nitems * elemsize));
1676 XFree (prop);
1677 }
1678}
1679
1680void
1681rxvt_term::XChangeWindowProperty (Window window, Atom property, Atom type, int format, SV *data)
1682 CODE:
1683{
1684 STRLEN len;
1685 char *data_ = SvPVbyte (data, len);
1686
1687 int elemsize = format == 16 ? sizeof (short)
1688 : format == 32 ? sizeof (long)
1689 : 1;
1690
1691 XChangeProperty (THIS->display->display, window, property,
1692 type, format, PropModeReplace,
1693 (unsigned char *)data_, len / elemsize);
1694 XSync (THIS->display->display, 0);
1695}
1696
1697Atom
1698XInternAtom (rxvt_term *term, char *atom_name, int only_if_exists = FALSE)
1699 C_ARGS: term->display->display, atom_name, only_if_exists
1700
1701char *
1702XGetAtomName (rxvt_term *term, Atom atom)
1703 C_ARGS: term->display->display, atom
1704 CLEANUP:
1705 XFree (RETVAL);
1706
1707void
1708XDeleteProperty (rxvt_term *term, Window window, Atom property)
1709 C_ARGS: term->display->display, window, property
1710
1711Window
1712rxvt_term::DefaultRootWindow ()
1713 CODE:
1714 RETVAL = THIS->display->root;
1715 OUTPUT:
1716 RETVAL
1717
1718#if 0
1719
1720Window
1721XCreateSimpleWindow (rxvt_term *term, Window parent, int x, int y, unsigned int width, unsigned int height)
1722 C_ARGS: term->display->display, (Window)parent,
1723 x, y, width, height, 0,
1724 term->pix_colors_focused[Color_border],
1725 term->pix_colors_focused[Color_border]
1726
1727#endif
1728
1729void
1730XReparentWindow (rxvt_term *term, Window window, Window parent, int x = 0, int y = 0)
1731 C_ARGS: term->display->display, window, parent, x, y
1732
1733void
1734XMapWindow (rxvt_term *term, Window window)
1735 C_ARGS: term->display->display, window
1736
1737void
1738XUnmapWindow (rxvt_term *term, Window window)
1739 C_ARGS: term->display->display, window
1740
1741void
1742XMoveResizeWindow (rxvt_term *term, Window window, int x, int y, unsigned int width, unsigned int height)
1743 C_ARGS: term->display->display, (Window)window, x, y, width, height
1744
1745void
1746rxvt_term::XTranslateCoordinates (Window src, Window dst, int x, int y)
1747 PPCODE:
1748{
1749 int dx, dy;
1750 Window child;
1751
1752 if (XTranslateCoordinates (THIS->display->display, src, dst, x, y, &dx, &dy, &child))
1753 {
1754 EXTEND (SP, 3);
1755 PUSHs (newSViv (dx));
1756 PUSHs (newSViv (dy));
1757 PUSHs (newSVuv (child));
1758 }
1759}
1760
1761#############################################################################
1762# urxvt::overlay
1763#############################################################################
1764
1349MODULE = urxvt PACKAGE = urxvt::overlay 1765MODULE = urxvt PACKAGE = urxvt::overlay
1350 1766
1351void 1767void
1352overlay::set (int x, int y, SV *text, SV *rend = 0) 1768overlay::set (int x, int y, SV *text, SV *rend = 0)
1353 1769
1357void 1773void
1358overlay::hide () 1774overlay::hide ()
1359 1775
1360void 1776void
1361overlay::DESTROY () 1777overlay::DESTROY ()
1778
1779#############################################################################
1780# urxvt::watcher
1781#############################################################################
1782
1783MODULE = urxvt PACKAGE = urxvt::watcher
1784
1785CHAINED
1786perl_watcher::cb (SV *cb)
1787 CODE:
1788 THIS->cb (cb);
1789 OUTPUT:
1790 RETVAL
1791
1792#############################################################################
1793# urxvt::timer
1794#############################################################################
1362 1795
1363MODULE = urxvt PACKAGE = urxvt::timer 1796MODULE = urxvt PACKAGE = urxvt::timer
1364 1797
1365SV * 1798SV *
1366timer::new () 1799timer::new ()
1367 CODE: 1800 CODE:
1368 timer *w = new timer; 1801 timer *w = new timer;
1369 w->start (NOW); 1802 w->start (NOW);
1370 RETVAL = newSVptr ((void *)w, "urxvt::timer"); 1803 RETVAL = newSVptr ((void *)(perl_watcher *)w, "urxvt::timer");
1371 w->self = (HV *)SvRV (RETVAL); 1804 w->self = (HV *)SvRV (RETVAL);
1372 OUTPUT:
1373 RETVAL
1374
1375timer *
1376timer::cb (SV *cb)
1377 CODE:
1378 THIS->cb (cb);
1379 RETVAL = THIS;
1380 OUTPUT: 1805 OUTPUT:
1381 RETVAL 1806 RETVAL
1382 1807
1383NV 1808NV
1384timer::at () 1809timer::at ()
1385 CODE: 1810 CODE:
1386 RETVAL = THIS->at; 1811 RETVAL = THIS->at;
1387 OUTPUT: 1812 OUTPUT:
1388 RETVAL 1813 RETVAL
1389 1814
1390timer * 1815CHAINED
1391timer::interval (NV interval) 1816timer::interval (NV interval)
1392 CODE: 1817 CODE:
1393 THIS->interval = interval; 1818 THIS->interval = interval;
1819 OUTPUT:
1394 RETVAL = THIS; 1820 RETVAL
1395 OUTPUT:
1396 RETVAL
1397 1821
1398timer * 1822CHAINED
1399timer::set (NV tstamp) 1823timer::set (NV tstamp)
1400 CODE: 1824 CODE:
1401 THIS->set (tstamp); 1825 THIS->set (tstamp);
1826 OUTPUT:
1402 RETVAL = THIS; 1827 RETVAL
1403 OUTPUT:
1404 RETVAL
1405 1828
1406timer * 1829CHAINED
1407timer::start (NV tstamp = THIS->at) 1830timer::start (NV tstamp = THIS->at)
1408 CODE: 1831 CODE:
1409 THIS->start (tstamp); 1832 THIS->start (tstamp);
1833 OUTPUT:
1410 RETVAL = THIS; 1834 RETVAL
1411 OUTPUT:
1412 RETVAL
1413 1835
1414timer * 1836CHAINED
1837timer::after (NV delay)
1838 CODE:
1839 THIS->start (NOW + delay);
1840 OUTPUT:
1841 RETVAL
1842
1843CHAINED
1415timer::stop () 1844timer::stop ()
1416 CODE: 1845 CODE:
1417 THIS->stop (); 1846 THIS->stop ();
1418 RETVAL = THIS;
1419 OUTPUT: 1847 OUTPUT:
1420 RETVAL 1848 RETVAL
1421 1849
1422void 1850void
1423timer::DESTROY () 1851timer::DESTROY ()
1852
1853#############################################################################
1854# urxvt::iow
1855#############################################################################
1424 1856
1425MODULE = urxvt PACKAGE = urxvt::iow 1857MODULE = urxvt PACKAGE = urxvt::iow
1426 1858
1427SV * 1859SV *
1428iow::new () 1860iow::new ()
1429 CODE: 1861 CODE:
1430 iow *w = new iow; 1862 iow *w = new iow;
1431 RETVAL = newSVptr ((void *)w, "urxvt::iow"); 1863 RETVAL = newSVptr ((void *)(perl_watcher *)w, "urxvt::iow");
1432 w->self = (HV *)SvRV (RETVAL); 1864 w->self = (HV *)SvRV (RETVAL);
1433 OUTPUT: 1865 OUTPUT:
1434 RETVAL 1866 RETVAL
1435 1867
1436iow * 1868CHAINED
1437iow::cb (SV *cb)
1438 CODE:
1439 THIS->cb (cb);
1440 RETVAL = THIS;
1441 OUTPUT:
1442 RETVAL
1443
1444iow *
1445iow::fd (int fd) 1869iow::fd (int fd)
1446 CODE: 1870 CODE:
1447 THIS->fd = fd; 1871 THIS->fd = fd;
1872 OUTPUT:
1448 RETVAL = THIS; 1873 RETVAL
1449 OUTPUT:
1450 RETVAL
1451 1874
1452iow * 1875CHAINED
1453iow::events (short events) 1876iow::events (short events)
1454 CODE: 1877 CODE:
1455 THIS->events = events; 1878 THIS->events = events;
1879 OUTPUT:
1456 RETVAL = THIS; 1880 RETVAL
1457 OUTPUT:
1458 RETVAL
1459 1881
1460iow * 1882CHAINED
1461iow::start () 1883iow::start ()
1462 CODE: 1884 CODE:
1463 THIS->start (); 1885 THIS->start ();
1886 OUTPUT:
1464 RETVAL = THIS; 1887 RETVAL
1465 OUTPUT:
1466 RETVAL
1467 1888
1468iow * 1889CHAINED
1469iow::stop () 1890iow::stop ()
1470 CODE: 1891 CODE:
1471 THIS->stop (); 1892 THIS->stop ();
1472 RETVAL = THIS;
1473 OUTPUT: 1893 OUTPUT:
1474 RETVAL 1894 RETVAL
1475 1895
1476void 1896void
1477iow::DESTROY () 1897iow::DESTROY ()
1478 1898
1899#############################################################################
1900# urxvt::iw
1901#############################################################################
1479 1902
1903MODULE = urxvt PACKAGE = urxvt::iw
1904
1905SV *
1906iw::new ()
1907 CODE:
1908 iw *w = new iw;
1909 RETVAL = newSVptr ((void *)(perl_watcher *)w, "urxvt::iw");
1910 w->self = (HV *)SvRV (RETVAL);
1911 OUTPUT:
1912 RETVAL
1913
1914CHAINED
1915iw::start ()
1916 CODE:
1917 THIS->start ();
1918 OUTPUT:
1919 RETVAL
1920
1921CHAINED
1922iw::stop ()
1923 CODE:
1924 THIS->stop ();
1925 OUTPUT:
1926 RETVAL
1927
1928void
1929iw::DESTROY ()
1930
1931#############################################################################
1932# urxvt::pw
1933#############################################################################
1934
1935MODULE = urxvt PACKAGE = urxvt::pw
1936
1937SV *
1938pw::new ()
1939 CODE:
1940 pw *w = new pw;
1941 RETVAL = newSVptr ((void *)(perl_watcher *)w, "urxvt::pw");
1942 w->self = (HV *)SvRV (RETVAL);
1943 OUTPUT:
1944 RETVAL
1945
1946CHAINED
1947pw::start (int pid)
1948 CODE:
1949 THIS->start (pid);
1950 OUTPUT:
1951 RETVAL
1952
1953CHAINED
1954pw::stop ()
1955 CODE:
1956 THIS->stop ();
1957 OUTPUT:
1958 RETVAL
1959
1960void
1961pw::DESTROY ()
1962
1963

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines