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.24 by root, Wed Jan 4 21:37:55 2006 UTC vs.
Revision 1.32 by root, Fri Jan 6 18:33:30 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.
… …
51 char *str = SvPVutf8 (sv, len); 51 char *str = SvPVutf8 (sv, len);
52 return rxvt_utf8towcs (str, len); 52 return rxvt_utf8towcs (str, len);
53} 53}
54 54
55static SV * 55static SV *
56wcs2sv (wchar_t *wstr, int len = -1)
57{
58 char *str = rxvt_wcstoutf8 (wstr, len);
59
60 SV *sv = newSVpv (str, 0);
61 SvUTF8_on (sv);
62 free (str);
63
64 return sv;
65}
66
67static SV *
56new_ref (HV *hv, const char *klass) 68new_ref (HV *hv, const char *klass)
57{ 69{
58 return sv_bless (newRV ((SV *)hv), gv_stashpv (klass, 1)); 70 return sv_bless (newRV ((SV *)hv), gv_stashpv (klass, 1));
59} 71}
60 72
… …
453 465
454 case DT_LONG: 466 case DT_LONG:
455 XPUSHs (sv_2mortal (newSViv (va_arg (ap, long)))); 467 XPUSHs (sv_2mortal (newSViv (va_arg (ap, long))));
456 break; 468 break;
457 469
458 case DT_STRING: 470 case DT_STR:
459 XPUSHs (sv_2mortal (newSVpv (va_arg (ap, char *), 0))); 471 XPUSHs (sv_2mortal (newSVpv (va_arg (ap, char *), 0)));
472 break;
473
474 case DT_STR_LEN:
475 {
476 char *str = va_arg (ap, char *);
477 int len = va_arg (ap, int);
478
479 XPUSHs (sv_2mortal (newSVpvn (str, len)));
480 }
481 break;
482
483 case DT_WCS_LEN:
484 {
485 wchar_t *wstr = va_arg (ap, wchar_t *);
486 int wlen = va_arg (ap, int);
487
488 XPUSHs (sv_2mortal (wcs2sv (wstr, wlen)));
489 }
490
491 case DT_XEVENT:
492 {
493 XEvent *xe = va_arg (ap, XEvent *);
494 HV *hv = newHV ();
495
496# define set(name, sv) hv_store (hv, # name, sizeof (# name) - 1, sv, 0)
497# define setiv(name, val) hv_store (hv, # name, sizeof (# name) - 1, newSViv (val), 0)
498# undef set
499
500 setiv (type, xe->type);
501 setiv (send_event, xe->xany.send_event);
502 setiv (serial, xe->xany.serial);
503
504 switch (xe->type)
505 {
506 case KeyPress:
507 case KeyRelease:
508 case ButtonPress:
509 case ButtonRelease:
510 case MotionNotify:
511 setiv (time, xe->xmotion.time);
512 setiv (x, xe->xmotion.x);
513 setiv (y, xe->xmotion.y);
514 setiv (row, xe->xmotion.y / term->fheight);
515 setiv (col, xe->xmotion.x / term->fwidth);
516 setiv (x_root, xe->xmotion.x_root);
517 setiv (y_root, xe->xmotion.y_root);
518 setiv (state, xe->xmotion.state);
519 break;
520 }
521
522 switch (xe->type)
523 {
524 case KeyPress:
525 case KeyRelease:
526 setiv (keycode, xe->xkey.keycode);
527 break;
528
529 case ButtonPress:
530 case ButtonRelease:
531 setiv (button, xe->xbutton.button);
532 break;
533
534 case MotionNotify:
535 setiv (is_hint, xe->xmotion.is_hint);
536 break;
537 }
538
539 XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));
540 }
460 break; 541 break;
461 542
462 case DT_END: 543 case DT_END:
463 { 544 {
464 va_end (ap); 545 va_end (ap);
… …
518 export_const (RS_Uline); 599 export_const (RS_Uline);
519 600
520 sv_setpv (get_sv ("urxvt::LIBDIR", 1), LIBDIR); 601 sv_setpv (get_sv ("urxvt::LIBDIR", 1), LIBDIR);
521} 602}
522 603
604SV *
605new (...)
606 CODE:
607{
608 stringvec *argv = new stringvec;
609 bool success;
610
611 for (int i = 0; i < items ;i++)
612 argv->push_back (strdup (SvPVbyte_nolen (ST (i))));
613
614 rxvt_term *term = new rxvt_term;
615
616 term->argv = argv;
617
618 try
619 {
620 if (!term->init (argv->size (), argv->begin ()))
621 term = 0;
622 }
623 catch (const class rxvt_failure_exception &e)
624 {
625 term->destroy ();
626 croak ("exception caught while initializing new terminal instance");
627 }
628
629 RETVAL = term && term->self ? newSVterm (term) : &PL_sv_undef;
630}
631 OUTPUT:
632 RETVAL
633
523void 634void
524set_should_invoke (int htype, int value) 635set_should_invoke (int htype, int value)
525 CODE: 636 CODE:
526 rxvt_perl.should_invoke [htype] = value; 637 rxvt_perl.should_invoke [htype] = value;
527 638
… …
589} 700}
590 OUTPUT: 701 OUTPUT:
591 RETVAL 702 RETVAL
592 703
593MODULE = urxvt PACKAGE = urxvt::term 704MODULE = urxvt PACKAGE = urxvt::term
705
706void
707rxvt_term::destroy ()
594 708
595int 709int
596rxvt_term::strwidth (SV *str) 710rxvt_term::strwidth (SV *str)
597 CODE: 711 CODE:
598{ 712{
… …
634 748
635 rxvt_push_locale (THIS->locale); 749 rxvt_push_locale (THIS->locale);
636 wchar_t *wstr = rxvt_mbstowcs (data, len); 750 wchar_t *wstr = rxvt_mbstowcs (data, len);
637 rxvt_pop_locale (); 751 rxvt_pop_locale ();
638 752
639 char *str = rxvt_wcstoutf8 (wstr); 753 RETVAL = wcs2sv (wstr);
640 free (wstr); 754 free (wstr);
641
642 RETVAL = newSVpv (str, 0);
643 SvUTF8_on (RETVAL);
644 free (str);
645} 755}
646 OUTPUT: 756 OUTPUT:
647 RETVAL 757 RETVAL
648 758
649# very portable, especially on objects as opposed to pods 759# very portable, especially on objects as opposed to pods
… …
681 RETVAL = *(int *)((char *)THIS + ix); 791 RETVAL = *(int *)((char *)THIS + ix);
682 OUTPUT: 792 OUTPUT:
683 RETVAL 793 RETVAL
684 794
685U32 795U32
796rxvt_term::parent ()
797 CODE:
798 RETVAL = (U32)THIS->parent [0];
799 OUTPUT:
800 RETVAL
801
802U32
803rxvt_term::vt ()
804 CODE:
805 RETVAL = (U32)THIS->vt;
806 OUTPUT:
807 RETVAL
808
809U32
686rxvt_term::screen_rstyle (U32 new_rstyle = THIS->screen.s_rstyle) 810rxvt_term::rstyle (U32 new_rstyle = THIS->rstyle)
687 CODE: 811 CODE:
688{ 812{
689 RETVAL = THIS->screen.s_rstyle; 813 RETVAL = THIS->rstyle;
690 THIS->screen.s_rstyle = new_rstyle; 814 THIS->rstyle = new_rstyle;
691} 815}
692 OUTPUT: 816 OUTPUT:
693 RETVAL 817 RETVAL
694 818
695int 819int
… …
711rxvt_term::want_refresh () 835rxvt_term::want_refresh ()
712 CODE: 836 CODE:
713 THIS->want_refresh = 1; 837 THIS->want_refresh = 1;
714 838
715void 839void
716rxvt_term::ROW_t (int row_number, SV *new_text = 0, int start_col = 0) 840rxvt_term::ROW_t (int row_number, SV *new_text = 0, int start_col = 0, int start_ofs = 0, int max_len = MAX_COLS)
717 PPCODE: 841 PPCODE:
718{ 842{
719 if (!IN_RANGE_EXC (row_number, -THIS->nsaved, THIS->nrow)) 843 if (!IN_RANGE_EXC (row_number, -THIS->nsaved, THIS->nrow))
720 XSRETURN_EMPTY; 844 XSRETURN_EMPTY;
721 845
… …
726 wchar_t *wstr = new wchar_t [THIS->ncol]; 850 wchar_t *wstr = new wchar_t [THIS->ncol];
727 851
728 for (int col = 0; col <THIS->ncol; col++) 852 for (int col = 0; col <THIS->ncol; col++)
729 wstr [col] = l.t [col]; 853 wstr [col] = l.t [col];
730 854
731 char *str = rxvt_wcstoutf8 (wstr, THIS->ncol);
732 free (wstr);
733
734 SV *sv = newSVpv (str, 0);
735 SvUTF8_on (sv);
736 XPUSHs (sv_2mortal (sv)); 855 XPUSHs (sv_2mortal (wcs2sv (wstr)));
737 free (str); 856
857 delete [] wstr;
738 } 858 }
739 859
740 if (new_text) 860 if (new_text)
741 { 861 {
742 wchar_t *wstr = sv2wcs (new_text); 862 wchar_t *wstr = sv2wcs (new_text);
743 863
744 int len = wcslen (wstr); 864 int len = min (wcslen (wstr) - start_ofs, max_len);
745 865
746 if (!IN_RANGE_INC (start_col, 0, THIS->ncol - len)) 866 if (!IN_RANGE_INC (start_col, 0, THIS->ncol - len))
747 { 867 {
748 free (wstr); 868 free (wstr);
749 croak ("new_text extends beyond horizontal margins"); 869 croak ("new_text extends beyond horizontal margins");
750 } 870 }
751 871
752 for (int col = start_col; col < start_col + len; col++) 872 for (int col = start_col; col < start_col + len; col++)
753 { 873 {
754 l.t [col] = wstr [col - start_col]; 874 l.t [col] = wstr [start_ofs + col - start_col];
755 l.r [col] = SET_FONT (l.r [col], THIS->fontset [GET_STYLE (l.r [col])]->find_font (l.t [col])); 875 l.r [col] = SET_FONT (l.r [col], THIS->fontset [GET_STYLE (l.r [col])]->find_font (l.t [col]));
756 } 876 }
757 877
758 free (wstr); 878 free (wstr);
759 } 879 }
760} 880}
761 881
762void 882void
763rxvt_term::ROW_r (int row_number, SV *new_rend = 0, int start_col = 0) 883rxvt_term::ROW_r (int row_number, SV *new_rend = 0, int start_col = 0, int start_ofs = 0, int max_len = MAX_COLS)
764 PPCODE: 884 PPCODE:
765{ 885{
766 if (!IN_RANGE_EXC (row_number, -THIS->nsaved, THIS->nrow)) 886 if (!IN_RANGE_EXC (row_number, -THIS->nsaved, THIS->nrow))
767 XSRETURN_EMPTY; 887 XSRETURN_EMPTY;
768 888
… …
783 { 903 {
784 if (!SvROK (new_rend) || SvTYPE (SvRV (new_rend)) != SVt_PVAV) 904 if (!SvROK (new_rend) || SvTYPE (SvRV (new_rend)) != SVt_PVAV)
785 croak ("new_rend must be arrayref"); 905 croak ("new_rend must be arrayref");
786 906
787 AV *av = (AV *)SvRV (new_rend); 907 AV *av = (AV *)SvRV (new_rend);
788 int len = av_len (av) + 1; 908 int len = min (av_len (av) + 1 - start_ofs, max_len);
789 909
790 if (!IN_RANGE_INC (start_col, 0, THIS->ncol - len)) 910 if (!IN_RANGE_INC (start_col, 0, THIS->ncol - len))
791 croak ("new_rend array extends beyond horizontal margins"); 911 croak ("new_rend array extends beyond horizontal margins");
792 912
793 for (int col = start_col; col < start_col + len; col++) 913 for (int col = start_col; col < start_col + len; col++)
794 { 914 {
795 rend_t r = SvIV (*av_fetch (av, col - start_col, 1)) & ~RS_fontMask; 915 rend_t r = SvIV (*av_fetch (av, start_ofs + col - start_col, 1)) & ~RS_fontMask;
796 916
797 l.r [col] = SET_FONT (r, THIS->fontset [GET_STYLE (r)]->find_font (l.t [col])); 917 l.r [col] = SET_FONT (r, THIS->fontset [GET_STYLE (r)]->find_font (l.t [col]));
798 } 918 }
799 } 919 }
800} 920}
801 921
802int 922int
803rxvt_term::ROW_l (int row_number, int new_length = -2) 923rxvt_term::ROW_l (int row_number, int new_length = -1)
804 CODE: 924 CODE:
805{ 925{
806 if (!IN_RANGE_EXC (row_number, -THIS->nsaved, THIS->nrow)) 926 if (!IN_RANGE_EXC (row_number, -THIS->nsaved, THIS->nrow))
807 XSRETURN_EMPTY; 927 XSRETURN_EMPTY;
808 928
809 line_t &l = ROW(row_number); 929 line_t &l = ROW(row_number);
810 RETVAL = l.l < 0 ? THIS->ncol : l.l; 930 RETVAL = l.l;
811 931
812 if (new_length >= -1) 932 if (new_length >= 0)
813 l.l = new_length; 933 l.l = new_length;
814} 934}
815 OUTPUT: 935 OUTPUT:
816 RETVAL 936 RETVAL
817 937
818bool 938bool
819rxvt_term::ROW_is_longer (int row_number) 939rxvt_term::ROW_is_longer (int row_number, int new_is_longer = -1)
820 CODE: 940 CODE:
821{ 941{
822 if (!IN_RANGE_EXC (row_number, -THIS->nsaved, THIS->nrow)) 942 if (!IN_RANGE_EXC (row_number, -THIS->nsaved, THIS->nrow))
823 XSRETURN_EMPTY; 943 XSRETURN_EMPTY;
824 944
825 line_t &l = ROW(row_number); 945 line_t &l = ROW(row_number);
826 RETVAL = l.l < 0; 946 RETVAL = l.is_longer ();
947
948 if (new_is_longer >= 0)
949 l.is_longer (new_is_longer);
827} 950}
828 OUTPUT: 951 OUTPUT:
829 RETVAL 952 RETVAL
830 953
831SV * 954SV *
… …
916void 1039void
917rxvt_term::selection (SV *newtext = 0) 1040rxvt_term::selection (SV *newtext = 0)
918 PPCODE: 1041 PPCODE:
919{ 1042{
920 if (GIMME_V != G_VOID) 1043 if (GIMME_V != G_VOID)
921 { 1044 XPUSHs (sv_2mortal (wcs2sv (THIS->selection.text, THIS->selection.len)));
922 char *sel = rxvt_wcstoutf8 (THIS->selection.text, THIS->selection.len);
923 SV *sv = newSVpv (sel, 0);
924 SvUTF8_on (sv);
925 free (sel);
926 XPUSHs (sv_2mortal (sv));
927 }
928 1045
929 if (newtext) 1046 if (newtext)
930 { 1047 {
931 free (THIS->selection.text); 1048 free (THIS->selection.text);
932 1049
933 THIS->selection.text = sv2wcs (newtext); 1050 THIS->selection.text = sv2wcs (newtext);
934 THIS->selection.len = wcslen (THIS->selection.text); 1051 THIS->selection.len = wcslen (THIS->selection.text);
935 } 1052 }
1053}
1054
1055void
1056rxvt_term::scr_add_lines (SV *string)
1057 CODE:
1058{
1059 wchar_t *wstr = sv2wcs (string);
1060 THIS->scr_add_lines (wstr, wcslen (wstr));
1061 free (wstr);
936} 1062}
937 1063
938void 1064void
939rxvt_term::tt_write (SV *octets) 1065rxvt_term::tt_write (SV *octets)
940 INIT: 1066 INIT:
941 STRLEN len; 1067 STRLEN len;
942 char *str = SvPVbyte (octets, len); 1068 char *str = SvPVbyte (octets, len);
943 C_ARGS: 1069 C_ARGS:
944 str, len 1070 str, len
945 1071
1072void
1073rxvt_term::cmd_parse (SV *octets)
1074 CODE:
1075{
1076 STRLEN len;
1077 char *str = SvPVbyte (octets, len);
1078
1079 char *old_cmdbuf_ptr = THIS->cmdbuf_ptr;
1080 char *old_cmdbuf_endp = THIS->cmdbuf_endp;
1081
1082 THIS->cmdbuf_ptr = str;
1083 THIS->cmdbuf_endp = str + len;
1084
1085 THIS->cmd_parse ();
1086
1087 THIS->cmdbuf_ptr = old_cmdbuf_ptr;
1088 THIS->cmdbuf_endp = old_cmdbuf_endp;
1089}
1090
946SV * 1091SV *
947rxvt_term::overlay (int x, int y, int w, int h, int rstyle = OVERLAY_RSTYLE, int border = 2) 1092rxvt_term::overlay (int x, int y, int w, int h, int rstyle = OVERLAY_RSTYLE, int border = 2)
948 CODE: 1093 CODE:
949{ 1094{
950 overlay *o = new overlay (THIS, x, y, w, h, rstyle, border); 1095 overlay *o = new overlay (THIS, x, y, w, h, rstyle, border);

Diff Legend

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