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.42 by root, Sun Jan 8 08:43:11 2006 UTC vs.
Revision 1.44 by root, Sun Jan 8 22:58:13 2006 UTC

… …
406 perl_free (perl); 406 perl_free (perl);
407 } 407 }
408} 408}
409 409
410void 410void
411rxvt_perl_interp::init (bool tainted) 411rxvt_perl_interp::init ()
412{ 412{
413 if (!perl) 413 if (!perl)
414 { 414 {
415 char *argv[] = { 415 char *argv[] = {
416 "", 416 "",
417 "-T",
417 "-edo '" LIBDIR "/urxvt.pm' or ($@ and die $@) or exit 1", 418 "-edo '" LIBDIR "/urxvt.pm' or ($@ and die $@) or exit 1",
418 "-T",
419 }; 419 };
420 420
421 perl = perl_alloc (); 421 perl = perl_alloc ();
422 perl_construct (perl); 422 perl_construct (perl);
423 423
424 if (perl_parse (perl, xs_init, 2 + !!tainted, argv, (char **)NULL) 424 if (perl_parse (perl, xs_init, 3, argv, (char **)NULL)
425 || perl_run (perl)) 425 || perl_run (perl))
426 { 426 {
427 rxvt_warn ("unable to initialize perl-interpreter, continuing without.\n"); 427 rxvt_warn ("unable to initialize perl-interpreter, continuing without.\n");
428 428
429 perl_destruct (perl); 429 perl_destruct (perl);
… …
782} 782}
783 OUTPUT: 783 OUTPUT:
784 RETVAL 784 RETVAL
785 785
786void 786void
787rxvt_term::allow_events_async (U32 eventtime = THIS->perl.grabtime) 787rxvt_term::allow_events_async ()
788 CODE: 788 CODE:
789 XAllowEvents (THIS->display->display, AsyncBoth, eventtime); 789 XAllowEvents (THIS->display->display, AsyncBoth, THIS->perl.grabtime);
790 790
791void 791void
792rxvt_term::allow_events_sync (U32 eventtime = THIS->perl.grabtime) 792rxvt_term::allow_events_sync ()
793 CODE: 793 CODE:
794 XAllowEvents (THIS->display->display, SyncBoth, eventtime); 794 XAllowEvents (THIS->display->display, SyncBoth, THIS->perl.grabtime);
795 795
796void 796void
797rxvt_term::allow_events_replay (U32 eventtime = THIS->perl.grabtime) 797rxvt_term::allow_events_replay ()
798 CODE: 798 CODE:
799 XAllowEvents (THIS->display->display, ReplayPointer, eventtime); 799 XAllowEvents (THIS->display->display, ReplayPointer, THIS->perl.grabtime);
800 XAllowEvents (THIS->display->display, ReplayKeyboard, eventtime); 800 XAllowEvents (THIS->display->display, ReplayKeyboard, THIS->perl.grabtime);
801 801
802void 802void
803rxvt_term::ungrab (U32 eventtime = THIS->perl.grabtime) 803rxvt_term::ungrab ()
804 CODE: 804 CODE:
805{
806 if (THIS->perl.grabtime)
807 {
808 XUngrabKeyboard (THIS->display->display, THIS->perl.grabtime);
809 XUngrabPointer (THIS->display->display, THIS->perl.grabtime);
805 THIS->perl.grabtime = 0; 810 THIS->perl.grabtime = 0;
806 XUngrabKeyboard (THIS->display->display, eventtime); 811 }
807 XUngrabPointer (THIS->display->display, eventtime); 812}
808 813
809int 814int
810rxvt_term::strwidth (SV *str) 815rxvt_term::strwidth (SV *str)
811 CODE: 816 CODE:
812{ 817{

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines