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.43 by root, Sun Jan 8 08:49:20 2006 UTC vs.
Revision 1.53 by root, Tue Jan 10 04:49:54 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 "iom.h"
34#include "rxvt.h" 35#include "rxvt.h"
35#include "iom.h" 36#include "keyboard.h"
36#include "rxvtutil.h" 37#include "rxvtutil.h"
37#include "rxvtperl.h" 38#include "rxvtperl.h"
38 39
39#include "perlxsi.c" 40#include "perlxsi.c"
40 41
… …
428 429
429 perl_destruct (perl); 430 perl_destruct (perl);
430 perl_free (perl); 431 perl_free (perl);
431 perl = 0; 432 perl = 0;
432 } 433 }
434 }
435}
436
437static void
438ungrab (rxvt_term *THIS)
439{
440 if (THIS->perl.grabtime)
441 {
442 XUngrabKeyboard (THIS->display->display, THIS->perl.grabtime);
443 XUngrabPointer (THIS->display->display, THIS->perl.grabtime);
444 THIS->perl.grabtime = 0;
433 } 445 }
434} 446}
435 447
436bool 448bool
437rxvt_perl_interp::invoke (rxvt_term *term, hook_type htype, ...) 449rxvt_perl_interp::invoke (rxvt_term *term, hook_type htype, ...)
… …
448 return false; // perl not initialized for this instance 460 return false; // perl not initialized for this instance
449 else if (htype == HOOK_DESTROY) 461 else if (htype == HOOK_DESTROY)
450 { 462 {
451 // handled later 463 // handled later
452 } 464 }
453 else if (htype == HOOK_REFRESH_BEGIN || htype == HOOK_REFRESH_END) 465 else
454 { 466 {
455 HV *hv = (HV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, 0)); 467 if (htype == HOOK_REFRESH_BEGIN || htype == HOOK_REFRESH_END)
456
457 if (HvKEYS (hv))
458 { 468 {
469 HV *hv = (HV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, 0));
470
471 if (HvKEYS (hv))
472 {
459 hv_iterinit (hv); 473 hv_iterinit (hv);
460 474
461 while (HE *he = hv_iternext (hv)) 475 while (HE *he = hv_iternext (hv))
462 ((overlay *)SvIV (hv_iterval (hv, he)))->swap (); 476 ((overlay *)SvIV (hv_iterval (hv, he)))->swap ();
477 }
478
463 } 479 }
480
481 if (!should_invoke [htype])
482 return false;
464 } 483 }
465 else if (!should_invoke [htype])
466 return false;
467 484
468 dSP; 485 dSP;
469 va_list ap; 486 va_list ap;
470 487
471 va_start (ap, htype); 488 va_start (ap, htype);
… …
582 PUTBACK; 599 PUTBACK;
583 FREETMPS; 600 FREETMPS;
584 LEAVE; 601 LEAVE;
585 602
586 if (SvTRUE (ERRSV)) 603 if (SvTRUE (ERRSV))
604 {
587 rxvt_warn ("perl hook %d evaluation error: %s", htype, SvPV_nolen (ERRSV)); 605 rxvt_warn ("perl hook %d evaluation error: %s", htype, SvPV_nolen (ERRSV));
606 ungrab (term); // better lose the grab than the session
607 }
588 608
589 if (htype == HOOK_DESTROY) 609 if (htype == HOOK_DESTROY)
590 { 610 {
591 clearSVptr ((SV *)term->perl.self); 611 clearSVptr ((SV *)term->perl.self);
592 SvREFCNT_dec ((SV *)term->perl.self); 612 SvREFCNT_dec ((SV *)term->perl.self);
… …
607 627
608PROTOTYPES: ENABLE 628PROTOTYPES: ENABLE
609 629
610BOOT: 630BOOT:
611{ 631{
612 sv_setsv (get_sv ("urxvt::LIBDIR", 1), newSVpvn (LIBDIR, sizeof (LIBDIR) - 1)); 632 sv_setsv (get_sv ("urxvt::LIBDIR", 1), newSVpvn (LIBDIR, sizeof (LIBDIR) - 1));
633 sv_setsv (get_sv ("urxvt::RESNAME", 1), newSVpvn (RESNAME, sizeof (RESNAME) - 1));
634 sv_setsv (get_sv ("urxvt::RESCLASS", 1), newSVpvn (RESCLASS, sizeof (RESCLASS) - 1));
635 sv_setsv (get_sv ("urxvt::RXVTNAME", 1), newSVpvn (RXVTNAME, sizeof (RXVTNAME) - 1));
613 636
614 AV *hookname = get_av ("urxvt::HOOKNAME", 1); 637 AV *hookname = get_av ("urxvt::HOOKNAME", 1);
615# define def(sym) av_store (hookname, HOOK_ ## sym, newSVpv (# sym, 0)); 638# define def(sym) av_store (hookname, HOOK_ ## sym, newSVpv (# sym, 0));
616# include "hookinc.h" 639# include "hookinc.h"
617# undef def 640# undef def
… …
646 export_const_iv (Button2Mask); 669 export_const_iv (Button2Mask);
647 export_const_iv (Button3Mask); 670 export_const_iv (Button3Mask);
648 export_const_iv (Button4Mask); 671 export_const_iv (Button4Mask);
649 export_const_iv (Button5Mask); 672 export_const_iv (Button5Mask);
650 export_const_iv (AnyModifier); 673 export_const_iv (AnyModifier);
674
675 export_const_iv (EVENT_NONE);
676 export_const_iv (EVENT_READ);
677 export_const_iv (EVENT_WRITE);
651} 678}
652 679
653SV * 680SV *
654new (...) 681new (...)
655 CODE: 682 CODE:
… …
692 719
693void 720void
694fatal (const char *msg) 721fatal (const char *msg)
695 CODE: 722 CODE:
696 rxvt_fatal ("%s", msg); 723 rxvt_fatal ("%s", msg);
724
725SV *
726untaint (SV *sv)
727 CODE:
728 RETVAL = newSVsv (sv);
729 SvTAINTED_off (RETVAL);
730 OUTPUT:
731 RETVAL
732
733bool
734safe ()
735 CODE:
736 RETVAL = !rxvt_tainted ();
737 OUTPUT:
738 RETVAL
697 739
698NV 740NV
699NOW () 741NOW ()
700 CODE: 742 CODE:
701 RETVAL = NOW; 743 RETVAL = NOW;
… …
782} 824}
783 OUTPUT: 825 OUTPUT:
784 RETVAL 826 RETVAL
785 827
786void 828void
787rxvt_term::allow_events_async (U32 eventtime = THIS->perl.grabtime) 829rxvt_term::allow_events_async ()
788 CODE: 830 CODE:
789 XAllowEvents (THIS->display->display, AsyncBoth, eventtime); 831 XAllowEvents (THIS->display->display, AsyncBoth, THIS->perl.grabtime);
790 832
791void 833void
792rxvt_term::allow_events_sync (U32 eventtime = THIS->perl.grabtime) 834rxvt_term::allow_events_sync ()
793 CODE: 835 CODE:
794 XAllowEvents (THIS->display->display, SyncBoth, eventtime); 836 XAllowEvents (THIS->display->display, SyncBoth, THIS->perl.grabtime);
795 837
796void 838void
797rxvt_term::allow_events_replay (U32 eventtime = THIS->perl.grabtime) 839rxvt_term::allow_events_replay ()
798 CODE: 840 CODE:
799 XAllowEvents (THIS->display->display, ReplayPointer, eventtime); 841 XAllowEvents (THIS->display->display, ReplayPointer, THIS->perl.grabtime);
800 XAllowEvents (THIS->display->display, ReplayKeyboard, eventtime); 842 XAllowEvents (THIS->display->display, ReplayKeyboard, THIS->perl.grabtime);
801 843
802void 844void
803rxvt_term::ungrab (U32 eventtime = THIS->perl.grabtime) 845rxvt_term::ungrab ()
804 CODE: 846 CODE:
805 THIS->perl.grabtime = 0; 847 ungrab (THIS);
806 XUngrabKeyboard (THIS->display->display, eventtime);
807 XUngrabPointer (THIS->display->display, eventtime);
808 848
809int 849int
810rxvt_term::strwidth (SV *str) 850rxvt_term::strwidth (SV *str)
811 CODE: 851 CODE:
812{ 852{
… …
905 case 2: RETVAL = THIS->ModNumLockMask; break; 945 case 2: RETVAL = THIS->ModNumLockMask; break;
906 } 946 }
907 OUTPUT: 947 OUTPUT:
908 RETVAL 948 RETVAL
909 949
950char *
951rxvt_term::display_id ()
952 ALIAS:
953 display_id = 0
954 locale = 1
955 CODE:
956 switch (ix)
957 {
958 case 0: RETVAL = THIS->display->id; break;
959 case 1: RETVAL = THIS->locale; break;
960 }
961 OUTPUT:
962 RETVAL
963
964int
965rxvt_term::pty_ev_events (int events = EVENT_UNDEF)
966 CODE:
967 RETVAL = THIS->pty_ev.events;
968 if (events != EVENT_UNDEF)
969 THIS->pty_ev.set (events);
970 OUTPUT:
971 RETVAL
972
910U32 973U32
911rxvt_term::parent () 974rxvt_term::parent ()
912 CODE: 975 CODE:
913 RETVAL = (U32)THIS->parent [0]; 976 RETVAL = (U32)THIS->parent [0];
914 OUTPUT: 977 OUTPUT:
… …
1215 } 1278 }
1216} 1279}
1217 OUTPUT: 1280 OUTPUT:
1218 RETVAL 1281 RETVAL
1219 1282
1283bool
1284rxvt_term::parse_keysym (char *keysym, char *str)
1285 CODE:
1286 RETVAL = 0 < THIS->parse_keysym (keysym, str);
1287 THIS->keyboard->register_done ();
1288 OUTPUT:
1289 RETVAL
1290
1220void 1291void
1221rxvt_term::cur (...) 1292rxvt_term::screen_cur (...)
1222 PROTOTYPE: $;$$ 1293 PROTOTYPE: $;$$
1223 ALIAS: 1294 ALIAS:
1224 screen_cur = 0 1295 screen_cur = 0
1225 selection_beg = 1 1296 selection_beg = 1
1226 selection_end = 2 1297 selection_end = 2
… …
1247 if (ix) 1318 if (ix)
1248 THIS->want_refresh = 1; 1319 THIS->want_refresh = 1;
1249 } 1320 }
1250} 1321}
1251 1322
1323char
1324rxvt_term::cur_charset ()
1325 CODE:
1326 RETVAL = THIS->charsets [THIS->screen.charset];
1327 OUTPUT:
1328 RETVAL
1329
1252int 1330int
1253rxvt_term::selection_grab (U32 eventtime) 1331rxvt_term::selection_grab (U32 eventtime)
1254 1332
1255void 1333void
1256rxvt_term::selection (SV *newtext = 0) 1334rxvt_term::selection (SV *newtext = 0)
1257 PPCODE: 1335 PPCODE:
1258{ 1336{
1259 if (GIMME_V != G_VOID) 1337 if (GIMME_V != G_VOID)
1338 XPUSHs (THIS->selection.text
1260 XPUSHs (taint (sv_2mortal (wcs2sv (THIS->selection.text, THIS->selection.len)))); 1339 ? taint (sv_2mortal (wcs2sv (THIS->selection.text, THIS->selection.len)))
1340 : &PL_sv_undef);
1261 1341
1262 if (newtext) 1342 if (newtext)
1263 { 1343 {
1264 free (THIS->selection.text); 1344 free (THIS->selection.text);
1265 1345
1266 THIS->selection.text = sv2wcs (newtext); 1346 THIS->selection.text = sv2wcs (newtext);
1267 THIS->selection.len = wcslen (THIS->selection.text); 1347 THIS->selection.len = wcslen (THIS->selection.text);
1268 } 1348 }
1269} 1349}
1350
1351void
1352rxvt_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)
1353
1354void
1355rxvt_term::scr_xor_span (int beg_row, int beg_col, int end_row, int end_col, U32 rstyle = RS_RVid)
1356
1357void
1358rxvt_term::scr_bell ()
1270 1359
1271void 1360void
1272rxvt_term::scr_add_lines (SV *string) 1361rxvt_term::scr_add_lines (SV *string)
1273 CODE: 1362 CODE:
1274{ 1363{

Diff Legend

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