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.51 by root, Mon Jan 9 23:00:07 2006 UTC vs.
Revision 1.54 by root, Wed Jan 11 00:59:58 2006 UTC

… …
627 627
628PROTOTYPES: ENABLE 628PROTOTYPES: ENABLE
629 629
630BOOT: 630BOOT:
631{ 631{
632 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));
633 636
634 AV *hookname = get_av ("urxvt::HOOKNAME", 1); 637 AV *hookname = get_av ("urxvt::HOOKNAME", 1);
635# define def(sym) av_store (hookname, HOOK_ ## sym, newSVpv (# sym, 0)); 638# define def(sym) av_store (hookname, HOOK_ ## sym, newSVpv (# sym, 0));
636# include "hookinc.h" 639# include "hookinc.h"
637# undef def 640# undef def
… …
672 export_const_iv (EVENT_NONE); 675 export_const_iv (EVENT_NONE);
673 export_const_iv (EVENT_READ); 676 export_const_iv (EVENT_READ);
674 export_const_iv (EVENT_WRITE); 677 export_const_iv (EVENT_WRITE);
675} 678}
676 679
677SV *
678new (...)
679 CODE:
680{
681 stringvec *argv = new stringvec;
682 bool success;
683
684 for (int i = 0; i < items ;i++)
685 argv->push_back (strdup (SvPVbyte_nolen (ST (i))));
686
687 rxvt_term *term = new rxvt_term;
688
689 term->argv = argv;
690
691 try
692 {
693 if (!term->init (argv->size (), argv->begin ()))
694 term = 0;
695 }
696 catch (const class rxvt_failure_exception &e)
697 {
698 term->destroy ();
699 croak ("exception caught while initializing new terminal instance");
700 }
701
702 RETVAL = term && term->perl.self ? newSVterm (term) : &PL_sv_undef;
703}
704 OUTPUT:
705 RETVAL
706
707void 680void
708set_should_invoke (int htype, int value) 681set_should_invoke (int htype, int value)
709 CODE: 682 CODE:
710 rxvt_perl.should_invoke [htype] = value; 683 rxvt_perl.should_invoke [htype] = value;
711 684
… …
788} 761}
789 OUTPUT: 762 OUTPUT:
790 RETVAL 763 RETVAL
791 764
792MODULE = urxvt PACKAGE = urxvt::term 765MODULE = urxvt PACKAGE = urxvt::term
766
767SV *
768_new (...)
769 CODE:
770{
771 if (items < 1 || !SvROK (ST (0)) || SvTYPE (SvRV (ST (0))) != SVt_PVAV)
772 croak ("first argument to urxvt::term->_new must be arrayref");
773
774 rxvt_term *term = new rxvt_term;
775
776 term->argv = new stringvec;
777 term->envv = new stringvec;
778
779 for (int i = 1; i < items; i++)
780 term->argv->push_back (strdup (SvPVbyte_nolen (ST (i))));
781
782 AV *envv = (AV *)SvRV (ST (0));
783 for (int i = av_len (envv) + 1; i--; )
784 term->envv->push_back (strdup (SvPVbyte_nolen (*av_fetch (envv, i, 1))));
785
786 term->envv->push_back (0);
787
788 bool success;
789
790 try
791 {
792 success = term->init (term->argv->size (), term->argv->begin ());
793 }
794 catch (const class rxvt_failure_exception &e)
795 {
796 success = false;
797 }
798
799 if (!success)
800 {
801 term->destroy ();
802 croak ("error while initializing new terminal instance");
803 }
804
805 RETVAL = term && term->perl.self
806 ? newSVterm (term) : &PL_sv_undef;
807}
808 OUTPUT:
809 RETVAL
793 810
794void 811void
795rxvt_term::destroy () 812rxvt_term::destroy ()
796 813
797void 814void
… …
956 case 1: RETVAL = THIS->locale; break; 973 case 1: RETVAL = THIS->locale; break;
957 } 974 }
958 OUTPUT: 975 OUTPUT:
959 RETVAL 976 RETVAL
960 977
978SV *
979rxvt_term::_env ()
980 CODE:
981{
982 if (THIS->envv)
983 {
984 AV *av = newAV ();
985
986 for (char **i = THIS->envv->begin (); i != THIS->envv->end (); ++i)
987 if (*i)
988 av_push (av, newSVpv (*i, 0));
989
990 RETVAL = newRV_noinc ((SV *)av);
991 }
992 else
993 RETVAL = &PL_sv_undef;
994}
995 OUTPUT:
996 RETVAL
997
961int 998int
962rxvt_term::pty_ev_events (int events = EVENT_UNDEF) 999rxvt_term::pty_ev_events (int events = EVENT_UNDEF)
963 CODE: 1000 CODE:
964 RETVAL = THIS->pty_ev.events; 1001 RETVAL = THIS->pty_ev.events;
965 if (events != EVENT_UNDEF) 1002 if (events != EVENT_UNDEF)
… …
1315 if (ix) 1352 if (ix)
1316 THIS->want_refresh = 1; 1353 THIS->want_refresh = 1;
1317 } 1354 }
1318} 1355}
1319 1356
1357char
1358rxvt_term::cur_charset ()
1359 CODE:
1360 RETVAL = THIS->charsets [THIS->screen.charset];
1361 OUTPUT:
1362 RETVAL
1363
1320int 1364int
1321rxvt_term::selection_grab (U32 eventtime) 1365rxvt_term::selection_grab (U32 eventtime)
1322 1366
1323void 1367void
1324rxvt_term::selection (SV *newtext = 0) 1368rxvt_term::selection (SV *newtext = 0)

Diff Legend

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