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.26 by root, Thu Jan 5 21:21:49 2006 UTC vs.
Revision 1.71 by root, Tue Jan 17 16:22:41 2006 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-2005 Marc Lehmann <pcg@goof.com> 6 * Copyright (c) 2005-2006 Marc Lehmann <pcg@goof.com>
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.
… …
26#include <XSUB.h> 26#include <XSUB.h>
27#undef line_t 27#undef line_t
28 28
29#include "../config.h" 29#include "../config.h"
30 30
31#include <cstddef>
31#include <cstdarg> 32#include <cstdarg>
32 33
34#include "unistd.h"
35
36#include "iom.h"
33#include "rxvt.h" 37#include "rxvt.h"
34#include "iom.h" 38#include "keyboard.h"
35#include "rxvtutil.h" 39#include "rxvtutil.h"
36#include "rxvtperl.h" 40#include "rxvtperl.h"
37 41
38#include "perlxsi.c" 42#include "perlxsi.c"
43
44#ifdef HAVE_SCROLLBARS
45# define GRAB_CURSOR THIS->leftptr_cursor
46#else
47# define GRAB_CURSOR None
48#endif
39 49
40#undef LINENO 50#undef LINENO
41#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)
42#undef ROW 52#undef ROW
43#define ROW(n) THIS->row_buf [LINENO (n)] 53#define ROW(n) THIS->row_buf [LINENO (n)]
44 54
55#define ENABLE_PERL_FRILLS 1
56
45///////////////////////////////////////////////////////////////////////////// 57/////////////////////////////////////////////////////////////////////////////
46 58
47static wchar_t * 59static wchar_t *
48sv2wcs (SV *sv) 60sv2wcs (SV *sv)
49{ 61{
… …
101 croak ("perl code used %s object, but C++ object is already destroyed, caught", klass); 113 croak ("perl code used %s object, but C++ object is already destroyed, caught", klass);
102 114
103 return (long)mg->mg_ptr; 115 return (long)mg->mg_ptr;
104} 116}
105 117
106#define newSVterm(term) SvREFCNT_inc ((SV *)term->self) 118#define newSVterm(term) SvREFCNT_inc ((SV *)term->perl.self)
107#define SvTERM(sv) (rxvt_term *)SvPTR (sv, "urxvt::term") 119#define SvTERM(sv) (rxvt_term *)SvPTR (sv, "urxvt::term")
108 120
109///////////////////////////////////////////////////////////////////////////// 121/////////////////////////////////////////////////////////////////////////////
110 122
111struct perl_watcher 123struct perl_watcher
… …
290void 302void
291overlay::show () 303overlay::show ()
292{ 304{
293 char key[33]; sprintf (key, "%32lx", (long)this); 305 char key[33]; sprintf (key, "%32lx", (long)this);
294 306
295 HV *hv = (HV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)THIS->self), "_overlay", 8, 0)); 307 HV *hv = (HV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)THIS->perl.self), "_overlay", 8, 0));
296 hv_store (hv, key, 32, newSViv ((long)this), 0); 308 hv_store (hv, key, 32, newSViv ((long)this), 0);
297} 309}
298 310
299void 311void
300overlay::hide () 312overlay::hide ()
301{ 313{
302 SV **ovs = hv_fetch ((HV *)SvRV ((SV *)THIS->self), "_overlay", 8, 0); 314 SV **ovs = hv_fetch ((HV *)SvRV ((SV *)THIS->perl.self), "_overlay", 8, 0);
303 315
304 if (ovs) 316 if (ovs)
305 { 317 {
306 char key[33]; sprintf (key, "%32lx", (long)this); 318 char key[33]; sprintf (key, "%32lx", (long)this);
307 319
… …
321 for (int y = ov_h; y--; ) 333 for (int y = ov_h; y--; )
322 { 334 {
323 text_t *t1 = text [y]; 335 text_t *t1 = text [y];
324 rend_t *r1 = rend [y]; 336 rend_t *r1 = rend [y];
325 337
326 text_t *t2 = ROW(y + ov_y - THIS->view_start).t + ov_x; 338 text_t *t2 = ROW(y + ov_y + THIS->view_start).t + ov_x;
327 rend_t *r2 = ROW(y + ov_y - THIS->view_start).r + ov_x; 339 rend_t *r2 = ROW(y + ov_y + THIS->view_start).r + ov_x;
328 340
329 for (int x = ov_w; x--; ) 341 for (int x = ov_w; x--; )
330 { 342 {
331 text_t t = *t1; *t1++ = *t2; *t2++ = t; 343 text_t t = *t1; *t1++ = *t2; *t2++ = t;
332 rend_t r = *r1; *r1++ = *r2; *r2++ = SET_FONT (r, THIS->fontset [GET_STYLE (r)]->find_font (t)); 344 rend_t r = *r1; *r1++ = *r2; *r2++ = SET_FONT (r, THIS->fontset [GET_STYLE (r)]->find_font (t));
… …
369 381
370struct rxvt_perl_interp rxvt_perl; 382struct rxvt_perl_interp rxvt_perl;
371 383
372static PerlInterpreter *perl; 384static PerlInterpreter *perl;
373 385
374rxvt_perl_interp::rxvt_perl_interp ()
375{
376}
377
378rxvt_perl_interp::~rxvt_perl_interp () 386rxvt_perl_interp::~rxvt_perl_interp ()
379{ 387{
380 if (perl) 388 if (perl)
381 { 389 {
382 perl_destruct (perl); 390 perl_destruct (perl);
383 perl_free (perl); 391 perl_free (perl);
384 } 392 }
385} 393}
386 394
387void 395void
388rxvt_perl_interp::init () 396rxvt_perl_interp::init (rxvt_term *term)
389{ 397{
390 if (!perl) 398 if (!perl)
391 { 399 {
400 rxvt_push_locale (""); // perl init destroys current locale
401
402 perl_environ = rxvt_environ;
403 swap (perl_environ, environ);
404
392 char *argv[] = { 405 char *argv[] = {
393 "", 406 "",
394 "-edo '" LIBDIR "/urxvt.pm' or ($@ and die $@) or exit 1", 407 "-edo '" LIBDIR "/urxvt.pm' or ($@ and die $@) or exit 1",
395 }; 408 };
396 409
… …
404 417
405 perl_destruct (perl); 418 perl_destruct (perl);
406 perl_free (perl); 419 perl_free (perl);
407 perl = 0; 420 perl = 0;
408 } 421 }
422
423 swap (perl_environ, environ);
424
425 rxvt_pop_locale ();
426 }
427
428 if (perl)
429 {
430 // runs outside of perls ENV
431 term->perl.self = (void *)newSVptr ((void *)term, "urxvt::term");
432 hv_store ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, newRV_noinc ((SV *)newHV ()), 0);
433 }
434}
435
436static void
437ungrab (rxvt_term *THIS)
438{
439 if (THIS->perl.grabtime)
440 {
441 XUngrabKeyboard (THIS->display->display, THIS->perl.grabtime);
442 XUngrabPointer (THIS->display->display, THIS->perl.grabtime);
443 THIS->perl.grabtime = 0;
444 }
445}
446
447static void
448swap_overlays (rxvt_term *term)
449{
450 HV *hv = (HV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, 0));
451
452 if (HvKEYS (hv))
453 {
454 hv_iterinit (hv);
455
456 while (HE *he = hv_iternext (hv))
457 ((overlay *)SvIV (hv_iterval (hv, he)))->swap ();
409 } 458 }
410} 459}
411 460
412bool 461bool
413rxvt_perl_interp::invoke (rxvt_term *term, hook_type htype, ...) 462rxvt_perl_interp::invoke (rxvt_term *term, hook_type htype, ...)
414{ 463{
415 if (!perl) 464 if (!perl || !term->perl.self)
416 return false; 465 return false;
417 466
418 if (htype == HOOK_INIT) // first hook ever called 467 // pre-handling of some events
468 if (htype == HOOK_REFRESH_END)
469 swap_overlays (term);
470
471 swap (perl_environ, environ);
472
473 bool event_consumed;
474
475 if (htype == HOOK_INIT || htype == HOOK_DESTROY // must be called always
476 || term->perl.should_invoke [htype])
477 try
419 { 478 {
420 term->self = (void *)newSVptr ((void *)term, "urxvt::term"); 479 dSP;
421 hv_store ((HV *)SvRV ((SV *)term->self), "_overlay", 8, newRV_noinc ((SV *)newHV ()), 0); 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 (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 (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 (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 goto call;
581
582 default:
583 rxvt_fatal ("FATAL: unable to pass data type %d\n", dt);
584 }
585 }
586
587 call:
588 va_end (ap);
589
590 PUTBACK;
591 int count = call_pv ("urxvt::invoke", G_ARRAY | G_EVAL);
592 SPAGAIN;
593
594 if (count)
595 {
596 SV *status = POPs;
597 count = SvTRUE (status);
598 }
599
600 PUTBACK;
601 FREETMPS;
602 LEAVE;
603
604 if (SvTRUE (ERRSV))
605 {
606 rxvt_warn ("perl hook %d evaluation error: %s", htype, SvPV_nolen (ERRSV));
607 ungrab (term); // better lose the grab than the session
608 }
609
610 event_consumed = !!count;
422 } 611 }
423 else if (!term->self) 612 catch (...)
424 return false; // perl not initialized for this instance 613 {
614 swap (perl_environ, environ);
615 throw;
616 }
617 else
618 event_consumed = false;
619
620 // post-handling of some events
621 if (htype == HOOK_REFRESH_BEGIN)
622 swap_overlays (term);
425 else if (htype == HOOK_DESTROY) 623 else if (htype == HOOK_DESTROY)
426 { 624 {
427 // handled later 625 clearSVptr ((SV *)term->perl.self);
626 SvREFCNT_dec ((SV *)term->perl.self);
428 } 627 }
429 else if (htype == HOOK_REFRESH_BEGIN || htype == HOOK_REFRESH_END)
430 {
431 HV *hv = (HV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)term->self), "_overlay", 8, 0));
432 628
433 if (HvKEYS (hv)) 629 swap (perl_environ, environ);
434 {
435 hv_iterinit (hv);
436 630
437 while (HE *he = hv_iternext (hv)) 631 return event_consumed;
438 ((overlay *)SvIV (hv_iterval (hv, he)))->swap ();
439 }
440 }
441 else if (!should_invoke [htype])
442 return false;
443
444 dSP;
445 va_list ap;
446
447 va_start (ap, htype);
448
449 ENTER;
450 SAVETMPS;
451
452 PUSHMARK (SP);
453
454 XPUSHs (sv_2mortal (newSVterm (term)));
455 XPUSHs (sv_2mortal (newSViv (htype)));
456
457 for (;;) {
458 data_type dt = (data_type)va_arg (ap, int);
459
460 switch (dt)
461 {
462 case DT_INT:
463 XPUSHs (sv_2mortal (newSViv (va_arg (ap, int))));
464 break;
465
466 case DT_LONG:
467 XPUSHs (sv_2mortal (newSViv (va_arg (ap, long))));
468 break;
469
470 case DT_STRING:
471 XPUSHs (sv_2mortal (newSVpv (va_arg (ap, char *), 0)));
472 break;
473
474 case DT_USTRING_LEN:
475 {
476 unicode_t *ustr = va_arg (ap, unicode_t *);
477 int ulen = va_arg (ap, int);
478 wchar_t *wstr = new wchar_t [ulen];
479
480 for (int i = ulen; i--; )
481 wstr [i] = ustr [i];
482
483 XPUSHs (sv_2mortal (wcs2sv (wstr, ulen)));
484
485 delete [] wstr;
486 }
487
488 case DT_END:
489 {
490 va_end (ap);
491
492 PUTBACK;
493 int count = call_pv ("urxvt::invoke", G_ARRAY | G_EVAL);
494 SPAGAIN;
495
496 if (count)
497 {
498 SV *status = POPs;
499 count = SvTRUE (status);
500 }
501
502 PUTBACK;
503 FREETMPS;
504 LEAVE;
505
506 if (SvTRUE (ERRSV))
507 rxvt_warn ("perl hook %d evaluation error: %s", htype, SvPV_nolen (ERRSV));
508
509 if (htype == HOOK_DESTROY)
510 {
511 clearSVptr ((SV *)term->self);
512 SvREFCNT_dec ((SV *)term->self);
513 }
514
515 return count;
516 }
517
518 default:
519 rxvt_fatal ("FATAL: unable to pass data type %d\n", dt);
520 }
521 }
522} 632}
523 633
524///////////////////////////////////////////////////////////////////////////// 634/////////////////////////////////////////////////////////////////////////////
525 635
526MODULE = urxvt PACKAGE = urxvt 636MODULE = urxvt PACKAGE = urxvt
527 637
528PROTOTYPES: ENABLE 638PROTOTYPES: ENABLE
529 639
530BOOT: 640BOOT:
531{ 641{
532# define export_const(name) newCONSTSUB (gv_stashpv ("urxvt", 1), # name, newSViv (name)); 642 sv_setsv (get_sv ("urxvt::LIBDIR", 1), newSVpvn (LIBDIR, sizeof (LIBDIR) - 1));
643 sv_setsv (get_sv ("urxvt::RESNAME", 1), newSVpvn (RESNAME, sizeof (RESNAME) - 1));
644 sv_setsv (get_sv ("urxvt::RESCLASS", 1), newSVpvn (RESCLASS, sizeof (RESCLASS) - 1));
645 sv_setsv (get_sv ("urxvt::RXVTNAME", 1), newSVpvn (RXVTNAME, sizeof (RXVTNAME) - 1));
646
533 AV *hookname = get_av ("urxvt::HOOKNAME", 1); 647 AV *hookname = get_av ("urxvt::HOOKNAME", 1);
534# define def(sym) av_store (hookname, HOOK_ ## sym, newSVpv (# sym, 0)); 648# define def(sym) av_store (hookname, HOOK_ ## sym, newSVpv (# sym, 0));
535# include "hookinc.h" 649# include "hookinc.h"
536# undef def 650# undef def
537 651
652 HV *option = get_hv ("urxvt::OPTION", 1);
653# define def(name,val) hv_store (option, # name, sizeof (# name) - 1, newSVuv (Opt_ ## name), 0);
654# define nodef(name)
655# include "optinc.h"
656# undef nodef
657# undef def
658
659 HV *stash = gv_stashpv ("urxvt", 1);
660 struct {
661 const char *name;
662 IV iv;
663 } *civ, const_iv[] = {
664# define const_iv(name) { # name, (IV)name }
538 export_const (DEFAULT_RSTYLE); 665 const_iv (DEFAULT_RSTYLE),
539 export_const (OVERLAY_RSTYLE); 666 const_iv (OVERLAY_RSTYLE),
540 export_const (RS_Bold); 667 const_iv (RS_Bold),
541 export_const (RS_Italic); 668 const_iv (RS_Italic),
542 export_const (RS_Blink); 669 const_iv (RS_Blink),
543 export_const (RS_RVid); 670 const_iv (RS_RVid),
544 export_const (RS_Uline); 671 const_iv (RS_Uline),
545 672
546 sv_setpv (get_sv ("urxvt::LIBDIR", 1), LIBDIR); 673 const_iv (CurrentTime),
547} 674 const_iv (ShiftMask),
675 const_iv (LockMask),
676 const_iv (ControlMask),
677 const_iv (Mod1Mask),
678 const_iv (Mod2Mask),
679 const_iv (Mod3Mask),
680 const_iv (Mod4Mask),
681 const_iv (Mod5Mask),
682 const_iv (Button1Mask),
683 const_iv (Button2Mask),
684 const_iv (Button3Mask),
685 const_iv (Button4Mask),
686 const_iv (Button5Mask),
687 const_iv (AnyModifier),
548 688
549void 689 const_iv (EVENT_NONE),
550set_should_invoke (int htype, int value) 690 const_iv (EVENT_READ),
551 CODE: 691 const_iv (EVENT_WRITE),
552 rxvt_perl.should_invoke [htype] = value; 692
693 const_iv (NoEventMask),
694 const_iv (KeyPressMask),
695 const_iv (KeyReleaseMask),
696 const_iv (ButtonPressMask),
697 const_iv (ButtonReleaseMask),
698 const_iv (EnterWindowMask),
699 const_iv (LeaveWindowMask),
700 const_iv (PointerMotionMask),
701 const_iv (PointerMotionHintMask),
702 const_iv (Button1MotionMask),
703 const_iv (Button2MotionMask),
704 const_iv (Button3MotionMask),
705 const_iv (Button4MotionMask),
706 const_iv (Button5MotionMask),
707 const_iv (ButtonMotionMask),
708 const_iv (KeymapStateMask),
709 const_iv (ExposureMask),
710 const_iv (VisibilityChangeMask),
711 const_iv (StructureNotifyMask),
712 const_iv (ResizeRedirectMask),
713 const_iv (SubstructureNotifyMask),
714 const_iv (SubstructureRedirectMask),
715 const_iv (FocusChangeMask),
716 const_iv (PropertyChangeMask),
717 const_iv (ColormapChangeMask),
718 const_iv (OwnerGrabButtonMask),
719
720 const_iv (KeyPress),
721 const_iv (KeyRelease),
722 const_iv (ButtonPress),
723 const_iv (ButtonRelease),
724 const_iv (MotionNotify),
725 const_iv (EnterNotify),
726 const_iv (LeaveNotify),
727 const_iv (FocusIn),
728 const_iv (FocusOut),
729 const_iv (KeymapNotify),
730 const_iv (Expose),
731 const_iv (GraphicsExpose),
732 const_iv (NoExpose),
733 const_iv (VisibilityNotify),
734 const_iv (CreateNotify),
735 const_iv (DestroyNotify),
736 const_iv (UnmapNotify),
737 const_iv (MapNotify),
738 const_iv (MapRequest),
739 const_iv (ReparentNotify),
740 const_iv (ConfigureNotify),
741 const_iv (ConfigureRequest),
742 const_iv (GravityNotify),
743 const_iv (ResizeRequest),
744 const_iv (CirculateNotify),
745 const_iv (CirculateRequest),
746 const_iv (PropertyNotify),
747 const_iv (SelectionClear),
748 const_iv (SelectionRequest),
749 const_iv (SelectionNotify),
750 const_iv (ColormapNotify),
751 const_iv (ClientMessage),
752 const_iv (MappingNotify),
753 };
754
755 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]);
756 civ-- > const_iv; )
757 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
758}
553 759
554void 760void
555warn (const char *msg) 761warn (const char *msg)
556 CODE: 762 CODE:
557 rxvt_warn ("%s", msg); 763 rxvt_warn ("%s", msg);
558 764
559void 765void
560fatal (const char *msg) 766fatal (const char *msg)
561 CODE: 767 CODE:
562 rxvt_fatal ("%s", msg); 768 rxvt_fatal ("%s", msg);
769
770void
771_exit (int status)
563 772
564NV 773NV
565NOW () 774NOW ()
566 CODE: 775 CODE:
567 RETVAL = NOW; 776 RETVAL = NOW;
… …
615} 824}
616 OUTPUT: 825 OUTPUT:
617 RETVAL 826 RETVAL
618 827
619MODULE = urxvt PACKAGE = urxvt::term 828MODULE = urxvt PACKAGE = urxvt::term
829
830SV *
831_new (...)
832 CODE:
833{
834 if (items < 1 || !SvROK (ST (0)) || SvTYPE (SvRV (ST (0))) != SVt_PVAV)
835 croak ("first argument to urxvt::term->_new must be arrayref");
836
837 rxvt_term *term = new rxvt_term;
838
839 term->argv = new stringvec;
840 term->envv = new stringvec;
841
842 for (int i = 1; i < items; i++)
843 term->argv->push_back (strdup (SvPVbyte_nolen (ST (i))));
844
845 AV *envv = (AV *)SvRV (ST (0));
846 for (int i = av_len (envv) + 1; i--; )
847 term->envv->push_back (strdup (SvPVbyte_nolen (*av_fetch (envv, i, 1))));
848
849 term->envv->push_back (0);
850
851 bool success;
852
853 try
854 {
855 success = term->init (term->argv->size (), term->argv->begin ());
856 }
857 catch (const class rxvt_failure_exception &e)
858 {
859 success = false;
860 }
861
862 if (!success)
863 {
864 term->destroy ();
865 croak ("error while initializing new terminal instance");
866 }
867
868 RETVAL = term && term->perl.self
869 ? newSVterm (term) : &PL_sv_undef;
870}
871 OUTPUT:
872 RETVAL
873
874void
875rxvt_term::destroy ()
876
877#if ENABLE_PERL_FRILLS
878
879void
880rxvt_term::XListProperties (U32 window)
881 PPCODE:
882{
883 int count;
884 Atom *props = XListProperties (THIS->display->display, (Window)window, &count);
885
886 EXTEND (SP, count);
887 while (count--)
888 PUSHs (newSVuv ((U32)props [count]));
889
890 XFree (props);
891}
892
893void
894rxvt_term::XGetWindowProperty (U32 window, U32 property)
895 PPCODE:
896{
897 Atom type;
898 int format;
899 unsigned long nitems;
900 unsigned long bytes_after;
901 unsigned char *prop;
902 XGetWindowProperty (THIS->display->display, (Window)window, (Atom)property,
903 0, 1<<30, 0, AnyPropertyType,
904 &type, &format, &nitems, &bytes_after, &prop);
905 if (type != None)
906 {
907 EXTEND (SP, 3);
908 PUSHs (newSVuv ((U32)type));
909 PUSHs (newSViv (format));
910 PUSHs (newSVpvn ((char *)prop, nitems * format / 8));
911 XFree (prop);
912 }
913}
914
915void
916rxvt_term::XChangeWindowProperty (U32 window, U32 property, U32 type, int format, SV *data)
917 CODE:
918{
919 STRLEN len;
920 char *data_ = SvPVbyte (data, len);
921
922 XChangeProperty (THIS->display->display, (Window)window, (Atom)property,
923 type, format, PropModeReplace,
924 (unsigned char *)data, len * 8 / format);
925}
926
927void
928rxvt_term::XDeleteProperty (U32 window, U32 property)
929 CODE:
930 XDeleteProperty (THIS->display->display, (Window)window, (Atom)property);
931
932U32
933rxvt_term::DefaultRootWindow ()
934 CODE:
935 RETVAL = (U32)THIS->display->root;
936 OUTPUT:
937 RETVAL
938
939U32
940rxvt_term::XCreateSimpleWindow (U32 parent, int x, int y, unsigned int width, unsigned int height)
941 CODE:
942 RETVAL = XCreateSimpleWindow (THIS->display->display, (Window)parent,
943 x, y, width, height, 0,
944 THIS->pix_colors_focused[Color_border],
945 THIS->pix_colors_focused[Color_border]);
946 OUTPUT:
947 RETVAL
948
949void
950rxvt_term::XReparentWindow (U32 window, U32 parent, int x = 0, int y = 0)
951 CODE:
952 XReparentWindow (THIS->display->display, (Window)window, (Window)parent, x, y);
953
954void
955rxvt_term::XMapWindow (U32 window)
956 CODE:
957 XMapWindow (THIS->display->display, (Window)window);
958
959void
960rxvt_term::XUnmapWindow (U32 window)
961 CODE:
962 XUnmapWindow (THIS->display->display, (Window)window);
963
964#endif
965
966void
967rxvt_term::set_should_invoke (int htype, int inc)
968 CODE:
969 THIS->perl.should_invoke [htype] += inc;
970
971void
972rxvt_term::grab_button (int button, U32 modifiers)
973 CODE:
974 XGrabButton (THIS->display->display, button, modifiers, THIS->vt, 1,
975 ButtonPressMask | ButtonReleaseMask | EnterWindowMask | LeaveWindowMask | PointerMotionMask,
976 GrabModeSync, GrabModeSync, None, GRAB_CURSOR);
977
978bool
979rxvt_term::grab (U32 eventtime, int sync = 0)
980 CODE:
981{
982 int mode = sync ? GrabModeSync : GrabModeAsync;
983
984 THIS->perl.grabtime = 0;
985
986 if (!XGrabPointer (THIS->display->display, THIS->vt, 0,
987 ButtonPressMask | ButtonReleaseMask | EnterWindowMask | LeaveWindowMask | PointerMotionMask,
988 mode, mode, None, GRAB_CURSOR, eventtime))
989 if (!XGrabKeyboard (THIS->display->display, THIS->vt, 0, mode, mode, eventtime))
990 THIS->perl.grabtime = eventtime;
991 else
992 XUngrabPointer (THIS->display->display, eventtime);
993
994 RETVAL = !!THIS->perl.grabtime;
995}
996 OUTPUT:
997 RETVAL
998
999void
1000rxvt_term::allow_events_async ()
1001 CODE:
1002 XAllowEvents (THIS->display->display, AsyncBoth, THIS->perl.grabtime);
1003
1004void
1005rxvt_term::allow_events_sync ()
1006 CODE:
1007 XAllowEvents (THIS->display->display, SyncBoth, THIS->perl.grabtime);
1008
1009void
1010rxvt_term::allow_events_replay ()
1011 CODE:
1012 XAllowEvents (THIS->display->display, ReplayPointer, THIS->perl.grabtime);
1013 XAllowEvents (THIS->display->display, ReplayKeyboard, THIS->perl.grabtime);
1014
1015void
1016rxvt_term::ungrab ()
1017 CODE:
1018 ungrab (THIS);
620 1019
621int 1020int
622rxvt_term::strwidth (SV *str) 1021rxvt_term::strwidth (SV *str)
623 CODE: 1022 CODE:
624{ 1023{
… …
666 free (wstr); 1065 free (wstr);
667} 1066}
668 OUTPUT: 1067 OUTPUT:
669 RETVAL 1068 RETVAL
670 1069
671# very portable, especially on objects as opposed to pods 1070#define TERM_OFFSET(sym) offsetof (TermWin_t, sym)
672#define TERM_OFFSET(sym) (((char *)&((TermWin_t *)0)->sym) - (char *)(TermWin_t *)0)
673 1071
674#define TERM_OFFSET_width TERM_OFFSET(width) 1072#define TERM_OFFSET_width TERM_OFFSET(width)
675#define TERM_OFFSET_height TERM_OFFSET(height) 1073#define TERM_OFFSET_height TERM_OFFSET(height)
676#define TERM_OFFSET_fwidth TERM_OFFSET(fwidth) 1074#define TERM_OFFSET_fwidth TERM_OFFSET(fwidth)
677#define TERM_OFFSET_fheight TERM_OFFSET(fheight) 1075#define TERM_OFFSET_fheight TERM_OFFSET(fheight)
… …
680#define TERM_OFFSET_ncol TERM_OFFSET(ncol) 1078#define TERM_OFFSET_ncol TERM_OFFSET(ncol)
681#define TERM_OFFSET_focus TERM_OFFSET(focus) 1079#define TERM_OFFSET_focus TERM_OFFSET(focus)
682#define TERM_OFFSET_mapped TERM_OFFSET(mapped) 1080#define TERM_OFFSET_mapped TERM_OFFSET(mapped)
683#define TERM_OFFSET_saveLines TERM_OFFSET(saveLines) 1081#define TERM_OFFSET_saveLines TERM_OFFSET(saveLines)
684#define TERM_OFFSET_total_rows TERM_OFFSET(total_rows) 1082#define TERM_OFFSET_total_rows TERM_OFFSET(total_rows)
685#define TERM_OFFSET_nsaved TERM_OFFSET(nsaved) 1083#define TERM_OFFSET_top_row TERM_OFFSET(top_row)
686 1084
687int 1085int
688rxvt_term::width () 1086rxvt_term::width ()
689 ALIAS: 1087 ALIAS:
690 width = TERM_OFFSET_width 1088 width = TERM_OFFSET_width
… …
696 ncol = TERM_OFFSET_ncol 1094 ncol = TERM_OFFSET_ncol
697 focus = TERM_OFFSET_focus 1095 focus = TERM_OFFSET_focus
698 mapped = TERM_OFFSET_mapped 1096 mapped = TERM_OFFSET_mapped
699 saveLines = TERM_OFFSET_saveLines 1097 saveLines = TERM_OFFSET_saveLines
700 total_rows = TERM_OFFSET_total_rows 1098 total_rows = TERM_OFFSET_total_rows
701 nsaved = TERM_OFFSET_nsaved 1099 top_row = TERM_OFFSET_top_row
702 CODE: 1100 CODE:
703 RETVAL = *(int *)((char *)THIS + ix); 1101 RETVAL = *(int *)((char *)THIS + ix);
704 OUTPUT: 1102 OUTPUT:
705 RETVAL 1103 RETVAL
1104
1105unsigned int
1106rxvt_term::ModLevel3Mask ()
1107 ALIAS:
1108 ModLevel3Mask = 0
1109 ModMetaMask = 1
1110 ModNumLockMask = 2
1111 CODE:
1112 switch (ix)
1113 {
1114 case 0: RETVAL = THIS->ModLevel3Mask; break;
1115 case 1: RETVAL = THIS->ModMetaMask; break;
1116 case 2: RETVAL = THIS->ModNumLockMask; break;
1117 }
1118 OUTPUT:
1119 RETVAL
1120
1121char *
1122rxvt_term::display_id ()
1123 ALIAS:
1124 display_id = 0
1125 locale = 1
1126 CODE:
1127 switch (ix)
1128 {
1129 case 0: RETVAL = THIS->display->id; break;
1130 case 1: RETVAL = THIS->locale; break;
1131 }
1132 OUTPUT:
1133 RETVAL
1134
1135SV *
1136rxvt_term::_env ()
1137 CODE:
1138{
1139 if (THIS->envv)
1140 {
1141 AV *av = newAV ();
1142
1143 for (char **i = THIS->envv->begin (); i != THIS->envv->end (); ++i)
1144 if (*i)
1145 av_push (av, newSVpv (*i, 0));
1146
1147 RETVAL = newRV_noinc ((SV *)av);
1148 }
1149 else
1150 RETVAL = &PL_sv_undef;
1151}
1152 OUTPUT:
1153 RETVAL
1154
1155int
1156rxvt_term::pty_ev_events (int events = EVENT_UNDEF)
1157 CODE:
1158 RETVAL = THIS->pty_ev.events;
1159 if (events != EVENT_UNDEF)
1160 THIS->pty_ev.set (events);
1161 OUTPUT:
1162 RETVAL
1163
1164U32
1165rxvt_term::parent ()
1166 CODE:
1167 RETVAL = (U32)THIS->parent [0];
1168 OUTPUT:
1169 RETVAL
1170
1171U32
1172rxvt_term::vt ()
1173 CODE:
1174 RETVAL = (U32)THIS->vt;
1175 OUTPUT:
1176 RETVAL
1177
1178void
1179rxvt_term::vt_emask_add (U32 emask)
1180 CODE:
1181 THIS->vt_emask_perl |= emask;
1182 THIS->vt_select_input ();
706 1183
707U32 1184U32
708rxvt_term::rstyle (U32 new_rstyle = THIS->rstyle) 1185rxvt_term::rstyle (U32 new_rstyle = THIS->rstyle)
709 CODE: 1186 CODE:
710{
711 RETVAL = THIS->rstyle; 1187 RETVAL = THIS->rstyle;
712 THIS->rstyle = new_rstyle; 1188 THIS->rstyle = new_rstyle;
713}
714 OUTPUT: 1189 OUTPUT:
715 RETVAL 1190 RETVAL
716 1191
717int 1192int
718rxvt_term::view_start (int newval = -1) 1193rxvt_term::view_start (int newval = 1)
1194 PROTOTYPE: $;$
719 CODE: 1195 CODE:
720{ 1196{
721 RETVAL = THIS->view_start; 1197 RETVAL = THIS->view_start;
722 1198
723 if (newval >= 0) 1199 if (newval <= 0)
724 { 1200 THIS->scr_changeview (max (newval, THIS->top_row));
725 THIS->view_start = min (newval, THIS->nsaved);
726 THIS->scr_changeview (RETVAL);
727 }
728} 1201}
729 OUTPUT: 1202 OUTPUT:
730 RETVAL 1203 RETVAL
731 1204
732void 1205void
733rxvt_term::want_refresh () 1206rxvt_term::want_refresh ()
734 CODE: 1207 CODE:
735 THIS->want_refresh = 1; 1208 THIS->want_refresh = 1;
736 1209
737void 1210void
738rxvt_term::ROW_t (int row_number, SV *new_text = 0, int start_col = 0) 1211rxvt_term::ROW_t (int row_number, SV *new_text = 0, int start_col = 0, int start_ofs = 0, int max_len = MAX_COLS)
739 PPCODE: 1212 PPCODE:
740{ 1213{
741 if (!IN_RANGE_EXC (row_number, -THIS->nsaved, THIS->nrow)) 1214 if (!IN_RANGE_EXC (row_number, THIS->top_row, THIS->nrow))
742 XSRETURN_EMPTY; 1215 XSRETURN_EMPTY;
743 1216
744 line_t &l = ROW(row_number); 1217 line_t &l = ROW(row_number);
745 1218
746 if (GIMME_V != G_VOID) 1219 if (GIMME_V != G_VOID)
747 { 1220 {
748 wchar_t *wstr = new wchar_t [THIS->ncol]; 1221 wchar_t *wstr = new wchar_t [THIS->ncol];
749 1222
750 for (int col = 0; col <THIS->ncol; col++) 1223 for (int col = 0; col < THIS->ncol; col++)
751 wstr [col] = l.t [col]; 1224 wstr [col] = l.t [col];
752 1225
753 XPUSHs (sv_2mortal (wcs2sv (wstr))); 1226 XPUSHs (sv_2mortal (wcs2sv (wstr, THIS->ncol)));
754 1227
755 delete [] wstr; 1228 delete [] wstr;
756 } 1229 }
757 1230
758 if (new_text) 1231 if (new_text)
759 { 1232 {
760 wchar_t *wstr = sv2wcs (new_text); 1233 wchar_t *wstr = sv2wcs (new_text);
761 1234
762 int len = wcslen (wstr); 1235 int len = min (wcslen (wstr) - start_ofs, max_len);
763 1236
764 if (!IN_RANGE_INC (start_col, 0, THIS->ncol - len)) 1237 if (!IN_RANGE_INC (start_col, 0, THIS->ncol - len))
765 { 1238 {
766 free (wstr); 1239 free (wstr);
767 croak ("new_text extends beyond horizontal margins"); 1240 croak ("new_text extends beyond horizontal margins");
768 } 1241 }
769 1242
770 for (int col = start_col; col < start_col + len; col++) 1243 for (int col = start_col; col < start_col + len; col++)
771 { 1244 {
772 l.t [col] = wstr [col - start_col]; 1245 l.t [col] = wstr [start_ofs + col - start_col];
773 l.r [col] = SET_FONT (l.r [col], THIS->fontset [GET_STYLE (l.r [col])]->find_font (l.t [col])); 1246 l.r [col] = SET_FONT (l.r [col], THIS->fontset [GET_STYLE (l.r [col])]->find_font (l.t [col]));
774 } 1247 }
775 1248
776 free (wstr); 1249 free (wstr);
777 } 1250 }
778} 1251}
779 1252
780void 1253void
781rxvt_term::ROW_r (int row_number, SV *new_rend = 0, int start_col = 0) 1254rxvt_term::ROW_r (int row_number, SV *new_rend = 0, int start_col = 0, int start_ofs = 0, int max_len = MAX_COLS)
782 PPCODE: 1255 PPCODE:
783{ 1256{
784 if (!IN_RANGE_EXC (row_number, -THIS->nsaved, THIS->nrow)) 1257 if (!IN_RANGE_EXC (row_number, THIS->top_row, THIS->nrow))
785 XSRETURN_EMPTY; 1258 XSRETURN_EMPTY;
786 1259
787 line_t &l = ROW(row_number); 1260 line_t &l = ROW(row_number);
788 1261
789 if (GIMME_V != G_VOID) 1262 if (GIMME_V != G_VOID)
… …
801 { 1274 {
802 if (!SvROK (new_rend) || SvTYPE (SvRV (new_rend)) != SVt_PVAV) 1275 if (!SvROK (new_rend) || SvTYPE (SvRV (new_rend)) != SVt_PVAV)
803 croak ("new_rend must be arrayref"); 1276 croak ("new_rend must be arrayref");
804 1277
805 AV *av = (AV *)SvRV (new_rend); 1278 AV *av = (AV *)SvRV (new_rend);
806 int len = av_len (av) + 1; 1279 int len = min (av_len (av) + 1 - start_ofs, max_len);
807 1280
808 if (!IN_RANGE_INC (start_col, 0, THIS->ncol - len)) 1281 if (!IN_RANGE_INC (start_col, 0, THIS->ncol - len))
809 croak ("new_rend array extends beyond horizontal margins"); 1282 croak ("new_rend array extends beyond horizontal margins");
810 1283
811 for (int col = start_col; col < start_col + len; col++) 1284 for (int col = start_col; col < start_col + len; col++)
812 { 1285 {
813 rend_t r = SvIV (*av_fetch (av, col - start_col, 1)) & ~RS_fontMask; 1286 rend_t r = SvIV (*av_fetch (av, start_ofs + col - start_col, 1)) & ~RS_fontMask;
814 1287
815 l.r [col] = SET_FONT (r, THIS->fontset [GET_STYLE (r)]->find_font (l.t [col])); 1288 l.r [col] = SET_FONT (r, THIS->fontset [GET_STYLE (r)]->find_font (l.t [col]));
816 } 1289 }
817 } 1290 }
818} 1291}
819 1292
820int 1293int
821rxvt_term::ROW_l (int row_number, int new_length = -1) 1294rxvt_term::ROW_l (int row_number, int new_length = -1)
822 CODE: 1295 CODE:
823{ 1296{
824 if (!IN_RANGE_EXC (row_number, -THIS->nsaved, THIS->nrow)) 1297 if (!IN_RANGE_EXC (row_number, THIS->top_row, THIS->nrow))
825 XSRETURN_EMPTY; 1298 XSRETURN_EMPTY;
826 1299
827 line_t &l = ROW(row_number); 1300 line_t &l = ROW(row_number);
828 RETVAL = l.l; 1301 RETVAL = l.l;
829 1302
… …
835 1308
836bool 1309bool
837rxvt_term::ROW_is_longer (int row_number, int new_is_longer = -1) 1310rxvt_term::ROW_is_longer (int row_number, int new_is_longer = -1)
838 CODE: 1311 CODE:
839{ 1312{
840 if (!IN_RANGE_EXC (row_number, -THIS->nsaved, THIS->nrow)) 1313 if (!IN_RANGE_EXC (row_number, THIS->top_row, THIS->nrow))
841 XSRETURN_EMPTY; 1314 XSRETURN_EMPTY;
842 1315
843 line_t &l = ROW(row_number); 1316 line_t &l = ROW(row_number);
844 RETVAL = l.is_longer (); 1317 RETVAL = l.is_longer ();
845 1318
… …
848} 1321}
849 OUTPUT: 1322 OUTPUT:
850 RETVAL 1323 RETVAL
851 1324
852SV * 1325SV *
853rxvt_term::special_encode (SV *str) 1326rxvt_term::special_encode (SV *string)
854 CODE: 1327 CODE:
855 abort ();//TODO 1328{
1329 wchar_t *wstr = sv2wcs (string);
1330 int wlen = wcslen (wstr);
1331 wchar_t *rstr = new wchar_t [wlen]; // cannot become longer
1332
1333 rxvt_push_locale (THIS->locale);
1334
1335 wchar_t *r = rstr;
1336 for (wchar_t *s = wstr; *s; s++)
1337 if (wcwidth (*s) == 0)
1338 {
1339 if (r == rstr)
1340 croak ("leading combining character unencodable");
1341
1342 unicode_t n = rxvt_compose (r[-1], *s);
1343 if (n == NOCHAR)
1344 n = rxvt_composite.compose (r[-1], *s);
1345
1346 r[-1] = n;
1347 }
1348#if !UNICODE_3
1349 else if (*s >= 0x10000)
1350 *r++ = rxvt_composite.compose (*s);
1351#endif
1352 else
1353 *r++ = *s;
1354
1355 rxvt_pop_locale ();
1356
1357 RETVAL = wcs2sv (rstr, r - rstr);
1358
1359 delete [] rstr;
1360}
1361 OUTPUT:
1362 RETVAL
856 1363
857SV * 1364SV *
858rxvt_term::special_decode (SV *str) 1365rxvt_term::special_decode (SV *text)
859 CODE: 1366 CODE:
860 abort ();//TODO 1367{
1368 wchar_t *wstr = sv2wcs (text);
1369 int wlen = wcslen (wstr);
1370 int dlen = 0;
1371
1372 // find length
1373 for (wchar_t *s = wstr; *s; s++)
1374 if (*s == NOCHAR)
1375 ;
1376 else if (IS_COMPOSE (*s))
1377 dlen += rxvt_composite.expand (*s, 0);
1378 else
1379 dlen++;
1380
1381 wchar_t *rstr = new wchar_t [dlen];
1382
1383 // decode
1384 wchar_t *r = rstr;
1385 for (wchar_t *s = wstr; *s; s++)
1386 if (*s == NOCHAR)
1387 ;
1388 else if (IS_COMPOSE (*s))
1389 r += rxvt_composite.expand (*s, r);
1390 else
1391 *r++ = *s;
1392
1393 RETVAL = wcs2sv (rstr, r - rstr);
1394
1395 delete [] rstr;
1396}
1397 OUTPUT:
1398 RETVAL
861 1399
862void 1400void
863rxvt_term::_resource (char *name, int index, SV *newval = 0) 1401rxvt_term::_resource (char *name, int index, SV *newval = 0)
864 PPCODE: 1402 PPCODE:
865{ 1403{
… …
897 else 1435 else
898 THIS->rs [index] = 0; 1436 THIS->rs [index] = 0;
899 } 1437 }
900} 1438}
901 1439
1440const char *
1441rxvt_term::x_resource (const char *name)
1442
1443bool
1444rxvt_term::option (U32 optval, int set = -1)
1445 CODE:
1446{
1447 RETVAL = THIS->options & optval;
1448
1449 if (set >= 0)
1450 {
1451 if (set)
1452 THIS->options |= optval;
1453 else
1454 THIS->options &= ~optval;
1455
1456 switch (optval)
1457 {
1458 case Opt_skipBuiltinGlyphs:
1459 THIS->set_fonts ();
1460 THIS->scr_remap_chars ();
1461 THIS->scr_touch (true);
1462 THIS->want_refresh = 1;
1463 break;
1464
1465 case Opt_cursorUnderline:
1466 THIS->want_refresh = 1;
1467 break;
1468
1469# case Opt_scrollBar_floating:
1470# case Opt_scrollBar_right:
1471# THIS->resize_all_windows (THIS->width, THIS->height, 1);
1472# break;
1473 }
1474 }
1475}
1476 OUTPUT:
1477 RETVAL
1478
1479bool
1480rxvt_term::parse_keysym (char *keysym, char *str)
1481 CODE:
1482 RETVAL = 0 < THIS->parse_keysym (keysym, str);
1483 THIS->keyboard->register_done ();
1484 OUTPUT:
1485 RETVAL
1486
902void 1487void
903rxvt_term::cur (...) 1488rxvt_term::screen_cur (...)
904 PROTOTYPE: $;$$ 1489 PROTOTYPE: $;$$
905 ALIAS: 1490 ALIAS:
906 screen_cur = 0 1491 screen_cur = 0
907 selection_beg = 1 1492 selection_beg = 1
908 selection_end = 2 1493 selection_end = 2
… …
921 PUSHs (sv_2mortal (newSViv (rc.col))); 1506 PUSHs (sv_2mortal (newSViv (rc.col)));
922 } 1507 }
923 1508
924 if (items == 3) 1509 if (items == 3)
925 { 1510 {
926 rc.row = clamp (SvIV (ST (1)), -THIS->nsaved, THIS->nrow - 1); 1511 rc.row = clamp (SvIV (ST (1)), THIS->top_row, THIS->nrow - 1);
927 rc.col = clamp (SvIV (ST (2)), 0, THIS->ncol - 1); 1512 rc.col = clamp (SvIV (ST (2)), 0, THIS->ncol - 1);
928 1513
929 if (ix) 1514 if (ix)
930 THIS->want_refresh = 1; 1515 THIS->want_refresh = 1;
931 } 1516 }
932} 1517}
933 1518
1519char
1520rxvt_term::cur_charset ()
1521 CODE:
1522 RETVAL = THIS->charsets [THIS->screen.charset];
1523 OUTPUT:
1524 RETVAL
1525
1526#void
1527#rxvt_term::selection_clear ()
1528
1529void
1530rxvt_term::selection_make (U32 eventtime, bool rect = false)
1531 CODE:
1532 THIS->selection.op = SELECTION_CONT;
1533 THIS->selection.rect = rect;
1534 THIS->selection_make (eventtime);
1535
934int 1536int
935rxvt_term::selection_grab (int eventtime = CurrentTime) 1537rxvt_term::selection_grab (U32 eventtime)
936 1538
937void 1539void
938rxvt_term::selection (SV *newtext = 0) 1540rxvt_term::selection (SV *newtext = 0)
939 PPCODE: 1541 PPCODE:
940{ 1542{
941 if (GIMME_V != G_VOID) 1543 if (GIMME_V != G_VOID)
1544 XPUSHs (THIS->selection.text
942 XPUSHs (sv_2mortal (wcs2sv (THIS->selection.text, THIS->selection.len))); 1545 ? sv_2mortal (wcs2sv (THIS->selection.text, THIS->selection.len))
1546 : &PL_sv_undef);
943 1547
944 if (newtext) 1548 if (newtext)
945 { 1549 {
946 free (THIS->selection.text); 1550 free (THIS->selection.text);
947 1551
… …
949 THIS->selection.len = wcslen (THIS->selection.text); 1553 THIS->selection.len = wcslen (THIS->selection.text);
950 } 1554 }
951} 1555}
952 1556
953void 1557void
1558rxvt_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)
1559
1560void
1561rxvt_term::scr_xor_span (int beg_row, int beg_col, int end_row, int end_col, U32 rstyle = RS_RVid)
1562
1563void
1564rxvt_term::scr_bell ()
1565
1566void
954rxvt_term::scr_add_lines (SV *string) 1567rxvt_term::scr_add_lines (SV *string)
955 CODE: 1568 CODE:
956{ 1569{
957 wchar_t *wstr = sv2wcs (string); 1570 wchar_t *wstr = sv2wcs (string);
958 int wlen = wcslen (wstr);
959 unicode_t *ustr = new unicode_t [wlen];
960 int nlines = 0;
961
962 for (int i = wlen; i--; )
963 {
964 ustr [i] = wstr [i];
965 nlines += ustr [i] == '\012';
966 }
967
968 THIS->scr_add_lines (ustr, nlines, wlen); 1571 THIS->scr_add_lines (wstr, wcslen (wstr));
969
970 free (wstr); 1572 free (wstr);
971 delete [] ustr;
972} 1573}
973 1574
974void 1575void
975rxvt_term::tt_write (SV *octets) 1576rxvt_term::tt_write (SV *octets)
976 INIT: 1577 INIT:
977 STRLEN len; 1578 STRLEN len;
978 char *str = SvPVbyte (octets, len); 1579 char *str = SvPVbyte (octets, len);
979 C_ARGS: 1580 C_ARGS:
980 str, len 1581 str, len
981 1582
1583void
1584rxvt_term::cmd_parse (SV *octets)
1585 CODE:
1586{
1587 STRLEN len;
1588 char *str = SvPVbyte (octets, len);
1589
1590 char *old_cmdbuf_ptr = THIS->cmdbuf_ptr;
1591 char *old_cmdbuf_endp = THIS->cmdbuf_endp;
1592
1593 THIS->cmdbuf_ptr = str;
1594 THIS->cmdbuf_endp = str + len;
1595
1596 rxvt_push_locale (THIS->locale);
1597 THIS->cmd_parse ();
1598 rxvt_pop_locale ();
1599
1600 THIS->cmdbuf_ptr = old_cmdbuf_ptr;
1601 THIS->cmdbuf_endp = old_cmdbuf_endp;
1602}
1603
982SV * 1604SV *
983rxvt_term::overlay (int x, int y, int w, int h, int rstyle = OVERLAY_RSTYLE, int border = 2) 1605rxvt_term::overlay (int x, int y, int w, int h, int rstyle = OVERLAY_RSTYLE, int border = 2)
984 CODE: 1606 CODE:
985{ 1607{
986 overlay *o = new overlay (THIS, x, y, w, h, rstyle, border); 1608 overlay *o = new overlay (THIS, x, y, w, h, rstyle, border);

Diff Legend

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