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.49 by root, Mon Jan 9 19:25:57 2006 UTC vs.
Revision 1.50 by root, Mon Jan 9 22:41:41 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
… …
459 return false; // perl not initialized for this instance 460 return false; // perl not initialized for this instance
460 else if (htype == HOOK_DESTROY) 461 else if (htype == HOOK_DESTROY)
461 { 462 {
462 // handled later 463 // handled later
463 } 464 }
464 else if (htype == HOOK_REFRESH_BEGIN || htype == HOOK_REFRESH_END) 465 else
465 { 466 {
466 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)
467
468 if (HvKEYS (hv))
469 { 468 {
469 HV *hv = (HV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, 0));
470
471 if (HvKEYS (hv))
472 {
470 hv_iterinit (hv); 473 hv_iterinit (hv);
471 474
472 while (HE *he = hv_iternext (hv)) 475 while (HE *he = hv_iternext (hv))
473 ((overlay *)SvIV (hv_iterval (hv, he)))->swap (); 476 ((overlay *)SvIV (hv_iterval (hv, he)))->swap ();
477 }
478
474 } 479 }
480
481 if (!should_invoke [htype])
482 return false;
475 } 483 }
476 else if (!should_invoke [htype])
477 return false;
478 484
479 dSP; 485 dSP;
480 va_list ap; 486 va_list ap;
481 487
482 va_start (ap, htype); 488 va_start (ap, htype);
… …
660 export_const_iv (Button2Mask); 666 export_const_iv (Button2Mask);
661 export_const_iv (Button3Mask); 667 export_const_iv (Button3Mask);
662 export_const_iv (Button4Mask); 668 export_const_iv (Button4Mask);
663 export_const_iv (Button5Mask); 669 export_const_iv (Button5Mask);
664 export_const_iv (AnyModifier); 670 export_const_iv (AnyModifier);
671
672 export_const_iv (EVENT_NONE);
673 export_const_iv (EVENT_READ);
674 export_const_iv (EVENT_WRITE);
665} 675}
666 676
667SV * 677SV *
668new (...) 678new (...)
669 CODE: 679 CODE:
… …
946 case 1: RETVAL = THIS->locale; break; 956 case 1: RETVAL = THIS->locale; break;
947 } 957 }
948 OUTPUT: 958 OUTPUT:
949 RETVAL 959 RETVAL
950 960
961int
962rxvt_term::pty_ev_events (int events = EVENT_UNDEF)
963 CODE:
964 RETVAL = THIS->pty_ev.events;
965 if (events != EVENT_UNDEF)
966 THIS->pty_ev.set (events);
967 OUTPUT:
968 RETVAL
969
951U32 970U32
952rxvt_term::parent () 971rxvt_term::parent ()
953 CODE: 972 CODE:
954 RETVAL = (U32)THIS->parent [0]; 973 RETVAL = (U32)THIS->parent [0];
955 OUTPUT: 974 OUTPUT:
… …
1256 } 1275 }
1257} 1276}
1258 OUTPUT: 1277 OUTPUT:
1259 RETVAL 1278 RETVAL
1260 1279
1280bool
1281rxvt_term::parse_keysym (char *keysym, char *str)
1282 CODE:
1283 RETVAL = 0 < THIS->parse_keysym (keysym, str);
1284 THIS->keyboard->register_done ();
1285 OUTPUT:
1286 RETVAL
1287
1261void 1288void
1262rxvt_term::screen_cur (...) 1289rxvt_term::screen_cur (...)
1263 PROTOTYPE: $;$$ 1290 PROTOTYPE: $;$$
1264 ALIAS: 1291 ALIAS:
1265 screen_cur = 0 1292 screen_cur = 0
… …
1310 THIS->selection.len = wcslen (THIS->selection.text); 1337 THIS->selection.len = wcslen (THIS->selection.text);
1311 } 1338 }
1312} 1339}
1313 1340
1314void 1341void
1342rxvt_term::scr_bell ()
1343
1344void
1315rxvt_term::scr_add_lines (SV *string) 1345rxvt_term::scr_add_lines (SV *string)
1316 CODE: 1346 CODE:
1317{ 1347{
1318 wchar_t *wstr = sv2wcs (string); 1348 wchar_t *wstr = sv2wcs (string);
1319 THIS->scr_add_lines (wstr, wcslen (wstr)); 1349 THIS->scr_add_lines (wstr, wcslen (wstr));

Diff Legend

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