[ViewVC] Diff of: cvs/rxvt-unicode/src/rxvtperl.xs

Comparing rxvt-unicode/src/rxvtperl.xs (file contents):
Revision 1.30 by root, Fri Jan 6 05:28:55 2006 UTC vs.
Revision 1.56 by root, Thu Jan 12 00:35:39 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 "iom.h"
33	#include "rxvt.h"	35	#include "rxvt.h"
34	#include "iom.h"	36	#include "keyboard.h"
35	#include "rxvtutil.h"	37	#include "rxvtutil.h"
36	#include "rxvtperl.h"	38	#include "rxvtperl.h"
37		39
38	#include "perlxsi.c"	40	#include "perlxsi.c"
		41
		42	#if defined(HAVE_SCROLLBARS) \|\| defined(MENUBAR)
		43	# define GRAB_CURSOR THIS->leftptr_cursor
		44	#else
		45	# define GRAB_CURSOR None
		46	#endif
39		47
40	#undef LINENO	48	#undef LINENO
41	#define LINENO(n) MOD (THIS->term_start + int(n), THIS->total_rows)	49	#define LINENO(n) MOD (THIS->term_start + int(n), THIS->total_rows)
42	#undef ROW	50	#undef ROW
43	#define ROW(n) THIS->row_buf [LINENO (n)]	51	#define ROW(n) THIS->row_buf [LINENO (n)]
44		52
45	/////////////////////////////////////////////////////////////////////////////	53	/////////////////////////////////////////////////////////////////////////////
46		54
		55	static SV *
		56	taint (SV *sv)
		57	{
		58	SvTAINT (sv);
		59	return sv;
		60	}
		61
		62	static SV *
		63	taint_if (SV sv, SV src)
		64	{
		65	if (SvTAINTED (src))
		66	SvTAINT (sv);
		67
		68	return sv;
		69	}
		70
47	static wchar_t *	71	static wchar_t *
48	sv2wcs (SV *sv)	72	sv2wcs (SV *sv)
49	{	73	{
50	STRLEN len;	74	STRLEN len;
51	char *str = SvPVutf8 (sv, len);	75	char *str = SvPVutf8 (sv, len);
…		…
101	croak ("perl code used %s object, but C++ object is already destroyed, caught", klass);	125	croak ("perl code used %s object, but C++ object is already destroyed, caught", klass);
102		126
103	return (long)mg->mg_ptr;	127	return (long)mg->mg_ptr;
104	}	128	}
105		129
106	#define newSVterm(term) SvREFCNT_inc ((SV *)term->self)	130	#define newSVterm(term) SvREFCNT_inc ((SV *)term->perl.self)
107	#define SvTERM(sv) (rxvt_term *)SvPTR (sv, "urxvt::term")	131	#define SvTERM(sv) (rxvt_term *)SvPTR (sv, "urxvt::term")
108		132
109	/////////////////////////////////////////////////////////////////////////////	133	/////////////////////////////////////////////////////////////////////////////
110		134
111	struct perl_watcher	135	struct perl_watcher
…		…
290	void	314	void
291	overlay::show ()	315	overlay::show ()
292	{	316	{
293	char key[33]; sprintf (key, "%32lx", (long)this);	317	char key[33]; sprintf (key, "%32lx", (long)this);
294		318
295	HV hv = (HV )SvRV (hv_fetch ((HV )SvRV ((SV *)THIS->self), "_overlay", 8, 0));	319	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);	320	hv_store (hv, key, 32, newSViv ((long)this), 0);
297	}	321	}
298		322
299	void	323	void
300	overlay::hide ()	324	overlay::hide ()
301	{	325	{
302	SV *ovs = hv_fetch ((HV )SvRV ((SV *)THIS->self), "_overlay", 8, 0);	326	SV *ovs = hv_fetch ((HV )SvRV ((SV *)THIS->perl.self), "_overlay", 8, 0);
303		327
304	if (ovs)	328	if (ovs)
305	{	329	{
306	char key[33]; sprintf (key, "%32lx", (long)this);	330	char key[33]; sprintf (key, "%32lx", (long)this);
307		331
…		…
387	void	411	void
388	rxvt_perl_interp::init ()	412	rxvt_perl_interp::init ()
389	{	413	{
390	if (!perl)	414	if (!perl)
391	{	415	{
		416	temp_environ temp_environ(rxvt_environ);
		417
392	char *argv[] = {	418	char *argv[] = {
393	"",	419	"",
		420	"-T",
394	"-edo '" LIBDIR "/urxvt.pm' or ($@ and die $@) or exit 1",	421	"-edo '" LIBDIR "/urxvt.pm' or ($@ and die $@) or exit 1",
395	};	422	};
396		423
397	perl = perl_alloc ();	424	perl = perl_alloc ();
398	perl_construct (perl);	425	perl_construct (perl);
399		426
400	if (perl_parse (perl, xs_init, 2, argv, (char **)NULL)	427	if (perl_parse (perl, xs_init, 3, argv, (char **)NULL)
401	\|\| perl_run (perl))	428	\|\| perl_run (perl))
402	{	429	{
403	rxvt_warn ("unable to initialize perl-interpreter, continuing without.\n");	430	rxvt_warn ("unable to initialize perl-interpreter, continuing without.\n");
404		431
405	perl_destruct (perl);	432	perl_destruct (perl);
…		…
407	perl = 0;	434	perl = 0;
408	}	435	}
409	}	436	}
410	}	437	}
411		438
		439	static void
		440	ungrab (rxvt_term *THIS)
		441	{
		442	if (THIS->perl.grabtime)
		443	{
		444	XUngrabKeyboard (THIS->display->display, THIS->perl.grabtime);
		445	XUngrabPointer (THIS->display->display, THIS->perl.grabtime);
		446	THIS->perl.grabtime = 0;
		447	}
		448	}
		449
412	bool	450	bool
413	rxvt_perl_interp::invoke (rxvt_term *term, hook_type htype, ...)	451	rxvt_perl_interp::invoke (rxvt_term *term, hook_type htype, ...)
414	{	452	{
415	if (!perl)	453	if (!perl)
416	return false;	454	return false;
417		455
418	if (htype == HOOK_INIT) // first hook ever called	456	if (htype == HOOK_INIT) // first hook ever called
419	{	457	{
420	term->self = (void )newSVptr ((void )term, "urxvt::term");	458	term->perl.self = (void )newSVptr ((void )term, "urxvt::term");
421	hv_store ((HV )SvRV ((SV )term->self), "_overlay", 8, newRV_noinc ((SV *)newHV ()), 0);	459	hv_store ((HV )SvRV ((SV )term->perl.self), "_overlay", 8, newRV_noinc ((SV *)newHV ()), 0);
422	}	460	}
423	else if (!term->self)	461	else if (!term->perl.self)
424	return false; // perl not initialized for this instance	462	return false; // perl not initialized for this instance
425	else if (htype == HOOK_DESTROY)	463	else if (htype == HOOK_DESTROY)
426	{	464	{
427	// handled later	465	// handled later
428	}	466	}
429	else if (htype == HOOK_REFRESH_BEGIN \|\| htype == HOOK_REFRESH_END)	467	else
430	{	468	{
431	HV hv = (HV )SvRV (hv_fetch ((HV )SvRV ((SV *)term->self), "_overlay", 8, 0));	469	if (htype == HOOK_REFRESH_BEGIN \|\| htype == HOOK_REFRESH_END)
432
433	if (HvKEYS (hv))
434	{	470	{
		471	HV hv = (HV )SvRV (hv_fetch ((HV )SvRV ((SV *)term->perl.self), "_overlay", 8, 0));
		472
		473	if (HvKEYS (hv))
		474	{
435	hv_iterinit (hv);	475	hv_iterinit (hv);
436		476
437	while (HE *he = hv_iternext (hv))	477	while (HE *he = hv_iternext (hv))
438	((overlay *)SvIV (hv_iterval (hv, he)))->swap ();	478	((overlay *)SvIV (hv_iterval (hv, he)))->swap ();
		479	}
		480
439	}	481	}
		482
		483	if (!should_invoke [htype])
		484	return false;
440	}	485	}
441	else if (!should_invoke [htype])	486
442	return false;	487	temp_environ temp_environ(rxvt_environ);
443		488
444	dSP;	489	dSP;
445	va_list ap;	490	va_list ap;
446		491
447	va_start (ap, htype);	492	va_start (ap, htype);
…		…
465		510
466	case DT_LONG:	511	case DT_LONG:
467	XPUSHs (sv_2mortal (newSViv (va_arg (ap, long))));	512	XPUSHs (sv_2mortal (newSViv (va_arg (ap, long))));
468	break;	513	break;
469		514
470	case DT_STRING:	515	case DT_STR:
471	XPUSHs (sv_2mortal (newSVpv (va_arg (ap, char *), 0)));	516	XPUSHs (taint (sv_2mortal (newSVpv (va_arg (ap, char *), 0))));
472	break;	517	break;
473		518
474	case DT_STRING_LEN:	519	case DT_STR_LEN:
475	{	520	{
476	char str = va_arg (ap, char );	521	char str = va_arg (ap, char );
477	int len = va_arg (ap, int);	522	int len = va_arg (ap, int);
478		523
479	XPUSHs (sv_2mortal (newSVpvn (str, len)));	524	XPUSHs (taint (sv_2mortal (newSVpvn (str, len))));
480	}	525	}
481	break;	526	break;
		527
		528	case DT_WCS_LEN:
		529	{
		530	wchar_t wstr = va_arg (ap, wchar_t );
		531	int wlen = va_arg (ap, int);
		532
		533	XPUSHs (taint (sv_2mortal (wcs2sv (wstr, wlen))));
		534	}
		535	break;
482		536
483	case DT_XEVENT:	537	case DT_XEVENT:
484	{	538	{
485	XEvent xe = va_arg (ap, XEvent );	539	XEvent xe = va_arg (ap, XEvent );
486	HV *hv = newHV ();	540	HV *hv = newHV ();
…		…
530		584
531	XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));	585	XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));
532	}	586	}
533	break;	587	break;
534		588
535	case DT_USTRING_LEN:
536	{
537	unicode_t ustr = va_arg (ap, unicode_t );
538	int ulen = va_arg (ap, int);
539	wchar_t *wstr = new wchar_t [ulen];
540
541	for (int i = ulen; i--; )
542	wstr [i] = ustr [i];
543
544	XPUSHs (sv_2mortal (wcs2sv (wstr, ulen)));
545
546	delete [] wstr;
547	}
548
549	case DT_END:	589	case DT_END:
550	{	590	{
551	va_end (ap);	591	va_end (ap);
552		592
553	PUTBACK;	593	PUTBACK;
…		…
563	PUTBACK;	603	PUTBACK;
564	FREETMPS;	604	FREETMPS;
565	LEAVE;	605	LEAVE;
566		606
567	if (SvTRUE (ERRSV))	607	if (SvTRUE (ERRSV))
		608	{
568	rxvt_warn ("perl hook %d evaluation error: %s", htype, SvPV_nolen (ERRSV));	609	rxvt_warn ("perl hook %d evaluation error: %s", htype, SvPV_nolen (ERRSV));
		610	ungrab (term); // better lose the grab than the session
		611	}
569		612
570	if (htype == HOOK_DESTROY)	613	if (htype == HOOK_DESTROY)
571	{	614	{
572	clearSVptr ((SV *)term->self);	615	clearSVptr ((SV *)term->perl.self);
573	SvREFCNT_dec ((SV *)term->self);	616	SvREFCNT_dec ((SV *)term->perl.self);
574	}	617	}
575		618
576	return count;	619	return count;
577	}	620	}
578		621
…		…
588		631
589	PROTOTYPES: ENABLE	632	PROTOTYPES: ENABLE
590		633
591	BOOT:	634	BOOT:
592	{	635	{
593	# define export_const(name) newCONSTSUB (gv_stashpv ("urxvt", 1), # name, newSViv (name));	636	sv_setsv (get_sv ("urxvt::LIBDIR", 1), newSVpvn (LIBDIR, sizeof (LIBDIR) - 1));
		637	sv_setsv (get_sv ("urxvt::RESNAME", 1), newSVpvn (RESNAME, sizeof (RESNAME) - 1));
		638	sv_setsv (get_sv ("urxvt::RESCLASS", 1), newSVpvn (RESCLASS, sizeof (RESCLASS) - 1));
		639	sv_setsv (get_sv ("urxvt::RXVTNAME", 1), newSVpvn (RXVTNAME, sizeof (RXVTNAME) - 1));
		640
594	AV *hookname = get_av ("urxvt::HOOKNAME", 1);	641	AV *hookname = get_av ("urxvt::HOOKNAME", 1);
595	# define def(sym) av_store (hookname, HOOK_ ## sym, newSVpv (# sym, 0));	642	# define def(sym) av_store (hookname, HOOK_ ## sym, newSVpv (# sym, 0));
596	# include "hookinc.h"	643	# include "hookinc.h"
597	# undef def	644	# undef def
598		645
		646	HV *option = get_hv ("urxvt::OPTION", 1);
		647	# define def(name,val) hv_store (option, # name, sizeof (# name) - 1, newSVuv (Opt_ ## name), 0);
		648	# define nodef(name)
		649	# include "optinc.h"
		650	# undef nodef
		651	# undef def
		652
		653	HV *stash = gv_stashpv ("urxvt", 1);
		654	# define export_const_iv(name) newCONSTSUB (stash, # name, newSViv (name));
599	export_const (DEFAULT_RSTYLE);	655	export_const_iv (DEFAULT_RSTYLE);
600	export_const (OVERLAY_RSTYLE);	656	export_const_iv (OVERLAY_RSTYLE);
601	export_const (RS_Bold);	657	export_const_iv (RS_Bold);
602	export_const (RS_Italic);	658	export_const_iv (RS_Italic);
603	export_const (RS_Blink);	659	export_const_iv (RS_Blink);
604	export_const (RS_RVid);	660	export_const_iv (RS_RVid);
605	export_const (RS_Uline);	661	export_const_iv (RS_Uline);
606		662
607	sv_setpv (get_sv ("urxvt::LIBDIR", 1), LIBDIR);	663	export_const_iv (CurrentTime);
		664	export_const_iv (ShiftMask);
		665	export_const_iv (LockMask);
		666	export_const_iv (ControlMask);
		667	export_const_iv (Mod1Mask);
		668	export_const_iv (Mod2Mask);
		669	export_const_iv (Mod3Mask);
		670	export_const_iv (Mod4Mask);
		671	export_const_iv (Mod5Mask);
		672	export_const_iv (Button1Mask);
		673	export_const_iv (Button2Mask);
		674	export_const_iv (Button3Mask);
		675	export_const_iv (Button4Mask);
		676	export_const_iv (Button5Mask);
		677	export_const_iv (AnyModifier);
		678
		679	export_const_iv (EVENT_NONE);
		680	export_const_iv (EVENT_READ);
		681	export_const_iv (EVENT_WRITE);
608	}	682	}
		683
		684	void
		685	set_should_invoke (int htype, int value)
		686	CODE:
		687	rxvt_perl.should_invoke [htype] = value;
		688
		689	void
		690	warn (const char *msg)
		691	CODE:
		692	rxvt_warn ("%s", msg);
		693
		694	void
		695	fatal (const char *msg)
		696	CODE:
		697	rxvt_fatal ("%s", msg);
609		698
610	SV *	699	SV *
611	new (...)	700	untaint (SV *sv)
612	CODE:	701	CODE:
613	{	702	RETVAL = newSVsv (sv);
614	stringvec *argv = new stringvec;	703	SvTAINTED_off (RETVAL);
615	bool success;	704	OUTPUT:
616
617	for (int i = 0; i < items ;i++)
618	argv->push_back (strdup (SvPVbyte_nolen (ST (i))));
619
620	rxvt_term *term = new rxvt_term;
621
622	term->argv = argv;
623
624	try
625	{
626	if (!term->init (argv->size (), argv->begin ()))
627	term = 0;
628	}
629	catch (const class rxvt_failure_exception &e)
630	{
631	term->destroy ();
632	croak ("exception caught while initializing new terminal instance");
633	}
634
635	RETVAL = term && term->self ? newSVterm (term) : &PL_sv_undef;
636	}
637	OUTPUT:
638	RETVAL	705	RETVAL
639		706
640	void	707	bool
641	set_should_invoke (int htype, int value)	708	safe ()
642	CODE:	709	CODE:
643	rxvt_perl.should_invoke [htype] = value;	710	RETVAL = !rxvt_tainted ();
644		711	OUTPUT:
645	void	712	RETVAL
646	warn (const char *msg)
647	CODE:
648	rxvt_warn ("%s", msg);
649
650	void
651	fatal (const char *msg)
652	CODE:
653	rxvt_fatal ("%s", msg);
654		713
655	NV	714	NV
656	NOW ()	715	NOW ()
657	CODE:	716	CODE:
658	RETVAL = NOW;	717	RETVAL = NOW;
…		…
707	OUTPUT:	766	OUTPUT:
708	RETVAL	767	RETVAL
709		768
710	MODULE = urxvt PACKAGE = urxvt::term	769	MODULE = urxvt PACKAGE = urxvt::term
711		770
		771	SV *
		772	_new (...)
		773	CODE:
		774	{
		775	if (items < 1 \|\| !SvROK (ST (0)) \|\| SvTYPE (SvRV (ST (0))) != SVt_PVAV)
		776	croak ("first argument to urxvt::term->_new must be arrayref");
		777
		778	rxvt_term *term = new rxvt_term;
		779
		780	term->argv = new stringvec;
		781	term->envv = new stringvec;
		782
		783	for (int i = 1; i < items; i++)
		784	term->argv->push_back (strdup (SvPVbyte_nolen (ST (i))));
		785
		786	AV envv = (AV )SvRV (ST (0));
		787	for (int i = av_len (envv) + 1; i--; )
		788	term->envv->push_back (strdup (SvPVbyte_nolen (*av_fetch (envv, i, 1))));
		789
		790	term->envv->push_back (0);
		791
		792	bool success;
		793
		794	try
		795	{
		796	success = term->init (term->argv->size (), term->argv->begin ());
		797	}
		798	catch (const class rxvt_failure_exception &e)
		799	{
		800	success = false;
		801	}
		802
		803	if (!success)
		804	{
		805	term->destroy ();
		806	croak ("error while initializing new terminal instance");
		807	}
		808
		809	RETVAL = term && term->perl.self
		810	? newSVterm (term) : &PL_sv_undef;
		811	}
		812	OUTPUT:
		813	RETVAL
		814
712	void	815	void
713	rxvt_term::destroy ()	816	rxvt_term::destroy ()
		817
		818	void
		819	rxvt_term::grab_button (int button, U32 modifiers)
		820	CODE:
		821	XGrabButton (THIS->display->display, button, modifiers, THIS->vt, 1,
		822	ButtonPressMask \| ButtonReleaseMask \| EnterWindowMask \| LeaveWindowMask \| PointerMotionMask,
		823	GrabModeSync, GrabModeSync, None, GRAB_CURSOR);
		824
		825	bool
		826	rxvt_term::grab (U32 eventtime, int sync = 0)
		827	CODE:
		828	{
		829	int mode = sync ? GrabModeSync : GrabModeAsync;
		830
		831	THIS->perl.grabtime = 0;
		832
		833	if (!XGrabPointer (THIS->display->display, THIS->vt, 0,
		834	ButtonPressMask \| ButtonReleaseMask \| EnterWindowMask \| LeaveWindowMask \| PointerMotionMask,
		835	mode, mode, None, GRAB_CURSOR, eventtime))
		836	if (!XGrabKeyboard (THIS->display->display, THIS->vt, 0, mode, mode, eventtime))
		837	THIS->perl.grabtime = eventtime;
		838	else
		839	XUngrabPointer (THIS->display->display, eventtime);
		840
		841	RETVAL = !!THIS->perl.grabtime;
		842	}
		843	OUTPUT:
		844	RETVAL
		845
		846	void
		847	rxvt_term::allow_events_async ()
		848	CODE:
		849	XAllowEvents (THIS->display->display, AsyncBoth, THIS->perl.grabtime);
		850
		851	void
		852	rxvt_term::allow_events_sync ()
		853	CODE:
		854	XAllowEvents (THIS->display->display, SyncBoth, THIS->perl.grabtime);
		855
		856	void
		857	rxvt_term::allow_events_replay ()
		858	CODE:
		859	XAllowEvents (THIS->display->display, ReplayPointer, THIS->perl.grabtime);
		860	XAllowEvents (THIS->display->display, ReplayKeyboard, THIS->perl.grabtime);
		861
		862	void
		863	rxvt_term::ungrab ()
		864	CODE:
		865	ungrab (THIS);
714		866
715	int	867	int
716	rxvt_term::strwidth (SV *str)	868	rxvt_term::strwidth (SV *str)
717	CODE:	869	CODE:
718	{	870	{
…		…
737	char *mbstr = rxvt_wcstombs (wstr);	889	char *mbstr = rxvt_wcstombs (wstr);
738	rxvt_pop_locale ();	890	rxvt_pop_locale ();
739		891
740	free (wstr);	892	free (wstr);
741		893
742	RETVAL = newSVpv (mbstr, 0);	894	RETVAL = taint_if (newSVpv (mbstr, 0), str);
743	free (mbstr);	895	free (mbstr);
744	}	896	}
745	OUTPUT:	897	OUTPUT:
746	RETVAL	898	RETVAL
747		899
…		…
754		906
755	rxvt_push_locale (THIS->locale);	907	rxvt_push_locale (THIS->locale);
756	wchar_t *wstr = rxvt_mbstowcs (data, len);	908	wchar_t *wstr = rxvt_mbstowcs (data, len);
757	rxvt_pop_locale ();	909	rxvt_pop_locale ();
758		910
759	RETVAL = wcs2sv (wstr);	911	RETVAL = taint_if (wcs2sv (wstr), octets);
760	free (wstr);	912	free (wstr);
761	}	913	}
762	OUTPUT:	914	OUTPUT:
763	RETVAL	915	RETVAL
764		916
765	# very portable, especially on objects as opposed to pods	917	#define TERM_OFFSET(sym) offsetof (TermWin_t, sym)
766	#define TERM_OFFSET(sym) (((char )&((TermWin_t )0)->sym) - (char )(TermWin_t )0)
767		918
768	#define TERM_OFFSET_width TERM_OFFSET(width)	919	#define TERM_OFFSET_width TERM_OFFSET(width)
769	#define TERM_OFFSET_height TERM_OFFSET(height)	920	#define TERM_OFFSET_height TERM_OFFSET(height)
770	#define TERM_OFFSET_fwidth TERM_OFFSET(fwidth)	921	#define TERM_OFFSET_fwidth TERM_OFFSET(fwidth)
771	#define TERM_OFFSET_fheight TERM_OFFSET(fheight)	922	#define TERM_OFFSET_fheight TERM_OFFSET(fheight)
…		…
796	CODE:	947	CODE:
797	RETVAL = (int )((char *)THIS + ix);	948	RETVAL = (int )((char *)THIS + ix);
798	OUTPUT:	949	OUTPUT:
799	RETVAL	950	RETVAL
800		951
		952	unsigned int
		953	rxvt_term::ModLevel3Mask ()
		954	ALIAS:
		955	ModLevel3Mask = 0
		956	ModMetaMask = 1
		957	ModNumLockMask = 2
		958	CODE:
		959	switch (ix)
		960	{
		961	case 0: RETVAL = THIS->ModLevel3Mask; break;
		962	case 1: RETVAL = THIS->ModMetaMask; break;
		963	case 2: RETVAL = THIS->ModNumLockMask; break;
		964	}
		965	OUTPUT:
		966	RETVAL
		967
		968	char *
		969	rxvt_term::display_id ()
		970	ALIAS:
		971	display_id = 0
		972	locale = 1
		973	CODE:
		974	switch (ix)
		975	{
		976	case 0: RETVAL = THIS->display->id; break;
		977	case 1: RETVAL = THIS->locale; break;
		978	}
		979	OUTPUT:
		980	RETVAL
		981
		982	SV *
		983	rxvt_term::_env ()
		984	CODE:
		985	{
		986	if (THIS->envv)
		987	{
		988	AV *av = newAV ();
		989
		990	for (char **i = THIS->envv->begin (); i != THIS->envv->end (); ++i)
		991	if (*i)
		992	av_push (av, newSVpv (*i, 0));
		993
		994	RETVAL = newRV_noinc ((SV *)av);
		995	}
		996	else
		997	RETVAL = &PL_sv_undef;
		998	}
		999	OUTPUT:
		1000	RETVAL
		1001
		1002	int
		1003	rxvt_term::pty_ev_events (int events = EVENT_UNDEF)
		1004	CODE:
		1005	RETVAL = THIS->pty_ev.events;
		1006	if (events != EVENT_UNDEF)
		1007	THIS->pty_ev.set (events);
		1008	OUTPUT:
		1009	RETVAL
		1010
		1011	U32
		1012	rxvt_term::parent ()
		1013	CODE:
		1014	RETVAL = (U32)THIS->parent [0];
		1015	OUTPUT:
		1016	RETVAL
		1017
801	U32	1018	U32
802	rxvt_term::vt ()	1019	rxvt_term::vt ()
803	CODE:	1020	CODE:
804	RETVAL = THIS->vt;	1021	RETVAL = (U32)THIS->vt;
805	OUTPUT:	1022	OUTPUT:
806	RETVAL	1023	RETVAL
807		1024
808	U32	1025	U32
809	rxvt_term::rstyle (U32 new_rstyle = THIS->rstyle)	1026	rxvt_term::rstyle (U32 new_rstyle = THIS->rstyle)
…		…
846		1063
847	if (GIMME_V != G_VOID)	1064	if (GIMME_V != G_VOID)
848	{	1065	{
849	wchar_t *wstr = new wchar_t [THIS->ncol];	1066	wchar_t *wstr = new wchar_t [THIS->ncol];
850		1067
851	for (int col = 0; col <THIS->ncol; col++)	1068	for (int col = 0; col < THIS->ncol; col++)
852	wstr [col] = l.t [col];	1069	wstr [col] = l.t [col];
853		1070
854	XPUSHs (sv_2mortal (wcs2sv (wstr)));	1071	XPUSHs (taint (sv_2mortal (wcs2sv (wstr, THIS->ncol))));
855		1072
856	delete [] wstr;	1073	delete [] wstr;
857	}	1074	}
858		1075
859	if (new_text)	1076	if (new_text)
…		…
949	}	1166	}
950	OUTPUT:	1167	OUTPUT:
951	RETVAL	1168	RETVAL
952		1169
953	SV *	1170	SV *
954	rxvt_term::special_encode (SV *str)	1171	rxvt_term::special_encode (SV *string)
955	CODE:	1172	CODE:
956	abort ();//TODO	1173	{
		1174	wchar_t *wstr = sv2wcs (string);
		1175	int wlen = wcslen (wstr);
		1176	wchar_t *rstr = new wchar_t [wlen]; // cannot become longer
		1177
		1178	rxvt_push_locale (THIS->locale);
		1179
		1180	wchar_t *r = rstr;
		1181	for (wchar_t s = wstr; s; s++)
		1182	if (wcwidth (*s) == 0)
		1183	{
		1184	if (r == rstr)
		1185	croak ("leading combining character unencodable");
		1186
		1187	unicode_t n = rxvt_compose (r[-1], *s);
		1188	if (n == NOCHAR)
		1189	n = rxvt_composite.compose (r[-1], *s);
		1190
		1191	r[-1] = n;
		1192	}
		1193	#if !UNICODE_3
		1194	else if (*s >= 0x10000)
		1195	r++ = rxvt_composite.compose (s);
		1196	#endif
		1197	else
		1198	r++ = s;
		1199
		1200	rxvt_pop_locale ();
		1201
		1202	RETVAL = taint_if (wcs2sv (rstr, r - rstr), string);
		1203
		1204	delete [] rstr;
		1205	}
		1206	OUTPUT:
		1207	RETVAL
957		1208
958	SV *	1209	SV *
959	rxvt_term::special_decode (SV *str)	1210	rxvt_term::special_decode (SV *text)
960	CODE:	1211	CODE:
961	abort ();//TODO	1212	{
		1213	wchar_t *wstr = sv2wcs (text);
		1214	int wlen = wcslen (wstr);
		1215	int dlen = 0;
		1216
		1217	// find length
		1218	for (wchar_t s = wstr; s; s++)
		1219	if (*s == NOCHAR)
		1220	;
		1221	else if (IS_COMPOSE (*s))
		1222	dlen += rxvt_composite.expand (*s, 0);
		1223	else
		1224	dlen++;
		1225
		1226	wchar_t *rstr = new wchar_t [dlen];
		1227
		1228	// decode
		1229	wchar_t *r = rstr;
		1230	for (wchar_t s = wstr; s; s++)
		1231	if (*s == NOCHAR)
		1232	;
		1233	else if (IS_COMPOSE (*s))
		1234	r += rxvt_composite.expand (*s, r);
		1235	else
		1236	r++ = s;
		1237
		1238	RETVAL = taint_if (wcs2sv (rstr, r - rstr), text);
		1239
		1240	delete [] rstr;
		1241	}
		1242	OUTPUT:
		1243	RETVAL
962		1244
963	void	1245	void
964	rxvt_term::_resource (char name, int index, SV newval = 0)	1246	rxvt_term::_resource (char name, int index, SV newval = 0)
965	PPCODE:	1247	PPCODE:
966	{	1248	{
…		…
983		1265
984	if (!IN_RANGE_EXC (index, 0, NUM_RESOURCES))	1266	if (!IN_RANGE_EXC (index, 0, NUM_RESOURCES))
985	croak ("requested out-of-bound resource %s+%d,", name, index - rs->value);	1267	croak ("requested out-of-bound resource %s+%d,", name, index - rs->value);
986		1268
987	if (GIMME_V != G_VOID)	1269	if (GIMME_V != G_VOID)
988	XPUSHs (THIS->rs [index] ? sv_2mortal (newSVpv (THIS->rs [index], 0)) : &PL_sv_undef);	1270	XPUSHs (THIS->rs [index] ? sv_2mortal (taint (newSVpv (THIS->rs [index], 0))) : &PL_sv_undef);
989		1271
990	if (newval)	1272	if (newval)
991	{	1273	{
992	if (SvOK (newval))	1274	if (SvOK (newval))
993	{	1275	{
…		…
998	else	1280	else
999	THIS->rs [index] = 0;	1281	THIS->rs [index] = 0;
1000	}	1282	}
1001	}	1283	}
1002		1284
		1285	const char *
		1286	rxvt_term::x_resource (const char *name)
		1287	CLEANUP:
		1288	SvTAINTED_on (ST (0));
		1289
		1290	bool
		1291	rxvt_term::option (U32 optval, int set = -1)
		1292	CODE:
		1293	{
		1294	RETVAL = THIS->options & optval;
		1295
		1296	if (set >= 0)
		1297	{
		1298	if (set)
		1299	THIS->options \|= optval;
		1300	else
		1301	THIS->options &= ~optval;
		1302
		1303	switch (optval)
		1304	{
		1305	case Opt_skipBuiltinGlyphs:
		1306	THIS->set_fonts ();
		1307	THIS->scr_remap_chars ();
		1308	THIS->scr_touch (true);
		1309	THIS->want_refresh = 1;
		1310	break;
		1311
		1312	case Opt_cursorUnderline:
		1313	THIS->want_refresh = 1;
		1314	break;
		1315
		1316	# case Opt_scrollBar_floating:
		1317	# case Opt_scrollBar_right:
		1318	# THIS->resize_all_windows (THIS->width, THIS->height, 1);
		1319	# break;
		1320	}
		1321	}
		1322	}
		1323	OUTPUT:
		1324	RETVAL
		1325
		1326	bool
		1327	rxvt_term::parse_keysym (char keysym, char str)
		1328	CODE:
		1329	RETVAL = 0 < THIS->parse_keysym (keysym, str);
		1330	THIS->keyboard->register_done ();
		1331	OUTPUT:
		1332	RETVAL
		1333
1003	void	1334	void
1004	rxvt_term::cur (...)	1335	rxvt_term::screen_cur (...)
1005	PROTOTYPE: $;$$	1336	PROTOTYPE: $;$$
1006	ALIAS:	1337	ALIAS:
1007	screen_cur = 0	1338	screen_cur = 0
1008	selection_beg = 1	1339	selection_beg = 1
1009	selection_end = 2	1340	selection_end = 2
…		…
1030	if (ix)	1361	if (ix)
1031	THIS->want_refresh = 1;	1362	THIS->want_refresh = 1;
1032	}	1363	}
1033	}	1364	}
1034		1365
		1366	char
		1367	rxvt_term::cur_charset ()
		1368	CODE:
		1369	RETVAL = THIS->charsets [THIS->screen.charset];
		1370	OUTPUT:
		1371	RETVAL
		1372
1035	int	1373	int
1036	rxvt_term::selection_grab (int eventtime = CurrentTime)	1374	rxvt_term::selection_grab (U32 eventtime)
1037		1375
1038	void	1376	void
1039	rxvt_term::selection (SV *newtext = 0)	1377	rxvt_term::selection (SV *newtext = 0)
1040	PPCODE:	1378	PPCODE:
1041	{	1379	{
1042	if (GIMME_V != G_VOID)	1380	if (GIMME_V != G_VOID)
		1381	XPUSHs (THIS->selection.text
1043	XPUSHs (sv_2mortal (wcs2sv (THIS->selection.text, THIS->selection.len)));	1382	? taint (sv_2mortal (wcs2sv (THIS->selection.text, THIS->selection.len)))
		1383	: &PL_sv_undef);
1044		1384
1045	if (newtext)	1385	if (newtext)
1046	{	1386	{
1047	free (THIS->selection.text);	1387	free (THIS->selection.text);
1048		1388
…		…
1050	THIS->selection.len = wcslen (THIS->selection.text);	1390	THIS->selection.len = wcslen (THIS->selection.text);
1051	}	1391	}
1052	}	1392	}
1053		1393
1054	void	1394	void
		1395	rxvt_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)
		1396
		1397	void
		1398	rxvt_term::scr_xor_span (int beg_row, int beg_col, int end_row, int end_col, U32 rstyle = RS_RVid)
		1399
		1400	void
		1401	rxvt_term::scr_bell ()
		1402
		1403	void
1055	rxvt_term::scr_add_lines (SV *string)	1404	rxvt_term::scr_add_lines (SV *string)
1056	CODE:	1405	CODE:
1057	{	1406	{
1058	wchar_t *wstr = sv2wcs (string);	1407	wchar_t *wstr = sv2wcs (string);
1059	int wlen = wcslen (wstr);
1060	unicode_t *ustr = new unicode_t [wlen];
1061	int nlines = 0;
1062
1063	for (int i = wlen; i--; )
1064	{
1065	ustr [i] = wstr [i];
1066	nlines += ustr [i] == '\012';
1067	}
1068
1069	THIS->scr_add_lines (ustr, nlines, wlen);	1408	THIS->scr_add_lines (wstr, wcslen (wstr));
1070
1071	free (wstr);	1409	free (wstr);
1072	delete [] ustr;
1073	}	1410	}
1074		1411
1075	void	1412	void
1076	rxvt_term::tt_write (SV *octets)	1413	rxvt_term::tt_write (SV *octets)
1077	INIT:	1414	INIT:
…		…
1091	char *old_cmdbuf_endp = THIS->cmdbuf_endp;	1428	char *old_cmdbuf_endp = THIS->cmdbuf_endp;
1092		1429
1093	THIS->cmdbuf_ptr = str;	1430	THIS->cmdbuf_ptr = str;
1094	THIS->cmdbuf_endp = str + len;	1431	THIS->cmdbuf_endp = str + len;
1095		1432
		1433	rxvt_push_locale (THIS->locale);
1096	THIS->cmd_parse ();	1434	THIS->cmd_parse ();
		1435	rxvt_pop_locale ();
1097		1436
1098	THIS->cmdbuf_ptr = old_cmdbuf_ptr;	1437	THIS->cmdbuf_ptr = old_cmdbuf_ptr;
1099	THIS->cmdbuf_endp = old_cmdbuf_endp;	1438	THIS->cmdbuf_endp = old_cmdbuf_endp;
1100	}	1439	}
1101		1440

Diff Legend

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

Comparing rxvt-unicode/src/rxvtperl.xs (file contents): Revision 1.30 by root, Fri Jan 6 05:28:55 2006 UTC vs. Revision 1.56 by root, Thu Jan 12 00:35:39 2006 UTC

Diff Legend

Comparing rxvt-unicode/src/rxvtperl.xs (file contents):
Revision 1.30 by root, Fri Jan 6 05:28:55 2006 UTC vs.
Revision 1.56 by root, Thu Jan 12 00:35:39 2006 UTC