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

Comparing rxvt-unicode/src/rxvtperl.xs (file contents):
Revision 1.103 by root, Mon Aug 7 21:38:24 2006 UTC vs.
Revision 1.111 by root, Thu Dec 14 17:33:53 2006 UTC

…		…
50	#undef LINENO	50	#undef LINENO
51	#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)
52	#undef ROW	52	#undef ROW
53	#define ROW(n) THIS->row_buf [LINENO (n)]	53	#define ROW(n) THIS->row_buf [LINENO (n)]
54		54
55	typedef int CHAINED UNUSED;
56
57	/////////////////////////////////////////////////////////////////////////////	55	/////////////////////////////////////////////////////////////////////////////
58		56
59	static wchar_t *	57	static wchar_t *
60	sv2wcs (SV *sv)	58	sv2wcs (SV *sv)
61	{	59	{
…		…
114	return (long)mg->mg_ptr;	112	return (long)mg->mg_ptr;
115	}	113	}
116		114
117	#define newSVterm(term) SvREFCNT_inc ((SV *)(term)->perl.self)	115	#define newSVterm(term) SvREFCNT_inc ((SV *)(term)->perl.self)
118	#define SvTERM(sv) (rxvt_term *)SvPTR ((sv), "urxvt::term")	116	#define SvTERM(sv) (rxvt_term *)SvPTR ((sv), "urxvt::term")
119
120	/////////////////////////////////////////////////////////////////////////////
121
122	#define SvWATCHER(sv) (perl_watcher *)SvPTR (sv, "urxvt::watcher")
123
124	struct perl_watcher
125	{
126	SV *cbsv;
127	HV *self;
128
129	perl_watcher ()
130	: cbsv (0)
131	{
132	}
133
134	~perl_watcher ()
135	{
136	SvREFCNT_dec (cbsv);
137	}
138
139	void cb (SV *cb)
140	{
141	SvREFCNT_dec (cbsv);
142	cbsv = newSVsv (cb);
143	}
144
145	void invoke (const char type, SV self, int arg = -1);
146	};
147
148	void
149	perl_watcher::invoke (const char type, SV self, int arg)
150	{
151	dSP;
152
153	ENTER;
154	SAVETMPS;
155
156	PUSHMARK (SP);
157
158	XPUSHs (sv_2mortal (self));
159
160	if (arg >= 0)
161	XPUSHs (sv_2mortal (newSViv (arg)));
162
163	PUTBACK;
164	call_sv (cbsv, G_VOID \| G_EVAL \| G_DISCARD);
165	SPAGAIN;
166
167	PUTBACK;
168	FREETMPS;
169	LEAVE;
170
171	if (SvTRUE (ERRSV))
172	rxvt_warn ("%s callback evaluation error: %s", type, SvPV_nolen (ERRSV));
173	}
174
175	#define newSVtimer(timer) new_ref ((timer)->self, "urxvt::timer")
176	#define SvTIMER(sv) (timer )(perl_watcher )SvPTR ((sv), "urxvt::timer")
177
178	struct timer : perl_watcher, time_watcher
179	{
180	tstamp interval;
181
182	timer ()
183	: time_watcher (this, &timer::execute)
184	{
185	}
186
187	void execute (time_watcher &w)
188	{
189	if (interval)
190	start (at + interval);
191
192	invoke ("urxvt::timer", newSVtimer (this));
193	}
194	};
195
196	#define newSViow(iow) new_ref ((iow)->self, "urxvt::iow")
197	#define SvIOW(sv) (iow )(perl_watcher )SvPTR ((sv), "urxvt::iow")
198
199	struct iow : perl_watcher, io_watcher
200	{
201	iow ()
202	: io_watcher (this, &iow::execute)
203	{
204	}
205
206	void execute (io_watcher &w, short revents)
207	{
208	invoke ("urxvt::iow", newSViow (this), revents);
209	}
210	};
211
212	#define newSViw(iw) new_ref ((iw)->self, "urxvt::iw")
213	#define SvIW(sv) (iw )(perl_watcher )SvPTR ((sv), "urxvt::iw")
214
215	struct iw : perl_watcher, idle_watcher
216	{
217	iw ()
218	: idle_watcher (this, &iw::execute)
219	{
220	}
221
222	void execute (idle_watcher &w)
223	{
224	invoke ("urxvt::iw", newSViw (this));
225	}
226	};
227
228	#define newSVpw(pw) new_ref ((pw)->self, "urxvt::pw")
229	#define SvPW(sv) (pw )(perl_watcher )SvPTR ((sv), "urxvt::pw")
230
231	struct pw : perl_watcher, child_watcher
232	{
233	pw ()
234	: child_watcher (this, &pw::execute)
235	{
236	}
237
238	void execute (child_watcher &w, int status)
239	{
240	invoke ("urxvt::pw", newSVpw (this), status);
241	}
242	};
243		117
244	/////////////////////////////////////////////////////////////////////////////	118	/////////////////////////////////////////////////////////////////////////////
245		119
246	#define SvOVERLAY(sv) (overlay *)SvPTR (sv, "urxvt::overlay")	120	#define SvOVERLAY(sv) (overlay *)SvPTR (sv, "urxvt::overlay")
247		121
…		…
425	}	299	}
426		300
427	THIS->want_refresh = 1;	301	THIS->want_refresh = 1;
428	}	302	}
429		303
		304	/////////////////////////////////////////////////////////////////////////////
		305
		306	#define IOM_CLASS "urxvt"
		307	#include <iom_perl.h>
430		308
431	/////////////////////////////////////////////////////////////////////////////	309	/////////////////////////////////////////////////////////////////////////////
432		310
433	struct rxvt_perl_interp rxvt_perl;	311	struct rxvt_perl_interp rxvt_perl;
434		312
…		…
794	const_iv (AnyModifier),	672	const_iv (AnyModifier),
795		673
796	const_iv (NoSymbol),	674	const_iv (NoSymbol),
797	const_iv (GrabModeSync),	675	const_iv (GrabModeSync),
798	const_iv (GrabModeAsync),	676	const_iv (GrabModeAsync),
799
800	const_iv (EVENT_NONE),
801	const_iv (EVENT_READ),
802	const_iv (EVENT_WRITE),
803		677
804	const_iv (NoEventMask),	678	const_iv (NoEventMask),
805	const_iv (KeyPressMask),	679	const_iv (KeyPressMask),
806	const_iv (KeyReleaseMask),	680	const_iv (KeyReleaseMask),
807	const_iv (ButtonPressMask),	681	const_iv (ButtonPressMask),
…		…
941	RETVAL	815	RETVAL
942		816
943	int	817	int
944	GET_CUSTOM (int rend)	818	GET_CUSTOM (int rend)
945	CODE:	819	CODE:
946	RETVAL = (rend && RS_customMask) >> RS_customShift;	820	RETVAL = (rend & RS_customMask) >> RS_customShift;
947	OUTPUT:	821	OUTPUT:
948	RETVAL	822	RETVAL
949		823
950	int	824	int
951	SET_CUSTOM (int rend, int new_value)	825	SET_CUSTOM (int rend, int new_value)
…		…
1122	CODE:	996	CODE:
1123	{	997	{
1124	wchar_t *wstr = sv2wcs (str);	998	wchar_t *wstr = sv2wcs (str);
1125		999
1126	rxvt_push_locale (THIS->locale);	1000	rxvt_push_locale (THIS->locale);
1127	RETVAL = wcswidth (wstr, wcslen (wstr));	1001	RETVAL = 0;
		1002	for (wchar_t wc = wstr; wc; wc++)
		1003	{
		1004	int w = WCWIDTH (*wc);
		1005
		1006	if (w)
		1007	RETVAL += max (w, 1);
		1008	}
1128	rxvt_pop_locale ();	1009	rxvt_pop_locale ();
1129		1010
1130	free (wstr);	1011	free (wstr);
1131	}	1012	}
1132	OUTPUT:	1013	OUTPUT:
…		…
1162	rxvt_pop_locale ();	1043	rxvt_pop_locale ();
1163		1044
1164	RETVAL = wcs2sv (wstr);	1045	RETVAL = wcs2sv (wstr);
1165	free (wstr);	1046	free (wstr);
1166	}	1047	}
		1048	OUTPUT:
		1049	RETVAL
		1050
		1051	char *
		1052	rxvt_term::locale ()
		1053	CODE:
		1054	RETVAL = THIS->locale;
1167	OUTPUT:	1055	OUTPUT:
1168	RETVAL	1056	RETVAL
1169		1057
1170	#define TERM_OFFSET(sym) offsetof (TermWin_t, sym)	1058	#define TERM_OFFSET(sym) offsetof (TermWin_t, sym)
1171		1059
…		…
1932	overlay::hide ()	1820	overlay::hide ()
1933		1821
1934	void	1822	void
1935	overlay::DESTROY ()	1823	overlay::DESTROY ()
1936		1824
1937	#############################################################################	1825	INCLUDE: $PERL <iom_perl.xs -pe s/IOM_MODULE/urxvt/g,s/IOM_CLASS/urxvt/g \|
1938	# urxvt::watcher
1939	#############################################################################
1940		1826
1941	MODULE = urxvt PACKAGE = urxvt::watcher
1942
1943	CHAINED
1944	perl_watcher::cb (SV *cb)
1945	CODE:
1946	THIS->cb (cb);
1947	OUTPUT:
1948	RETVAL
1949
1950	#############################################################################
1951	# urxvt::timer
1952	#############################################################################
1953
1954	MODULE = urxvt PACKAGE = urxvt::timer
1955
1956	SV *
1957	timer::new ()
1958	CODE:
1959	timer *w = new timer;
1960	w->start (NOW);
1961	RETVAL = newSVptr ((void )(perl_watcher )w, "urxvt::timer");
1962	w->self = (HV *)SvRV (RETVAL);
1963	OUTPUT:
1964	RETVAL
1965
1966	NV
1967	timer::at ()
1968	CODE:
1969	RETVAL = THIS->at;
1970	OUTPUT:
1971	RETVAL
1972
1973	CHAINED
1974	timer::interval (NV interval)
1975	CODE:
1976	THIS->interval = interval;
1977	OUTPUT:
1978	RETVAL
1979
1980	CHAINED
1981	timer::set (NV tstamp)
1982	CODE:
1983	THIS->set (tstamp);
1984	OUTPUT:
1985	RETVAL
1986
1987	CHAINED
1988	timer::start (NV tstamp = THIS->at)
1989	CODE:
1990	THIS->start (tstamp);
1991	OUTPUT:
1992	RETVAL
1993
1994	CHAINED
1995	timer::after (NV delay)
1996	CODE:
1997	THIS->start (NOW + delay);
1998	OUTPUT:
1999	RETVAL
2000
2001	CHAINED
2002	timer::stop ()
2003	CODE:
2004	THIS->stop ();
2005	OUTPUT:
2006	RETVAL
2007
2008	void
2009	timer::DESTROY ()
2010
2011	#############################################################################
2012	# urxvt::iow
2013	#############################################################################
2014
2015	MODULE = urxvt PACKAGE = urxvt::iow
2016
2017	SV *
2018	iow::new ()
2019	CODE:
2020	iow *w = new iow;
2021	RETVAL = newSVptr ((void )(perl_watcher )w, "urxvt::iow");
2022	w->self = (HV *)SvRV (RETVAL);
2023	OUTPUT:
2024	RETVAL
2025
2026	CHAINED
2027	iow::fd (int fd)
2028	CODE:
2029	THIS->fd = fd;
2030	OUTPUT:
2031	RETVAL
2032
2033	CHAINED
2034	iow::events (short events)
2035	CODE:
2036	THIS->events = events;
2037	OUTPUT:
2038	RETVAL
2039
2040	CHAINED
2041	iow::start ()
2042	CODE:
2043	THIS->start ();
2044	OUTPUT:
2045	RETVAL
2046
2047	CHAINED
2048	iow::stop ()
2049	CODE:
2050	THIS->stop ();
2051	OUTPUT:
2052	RETVAL
2053
2054	void
2055	iow::DESTROY ()
2056
2057	#############################################################################
2058	# urxvt::iw
2059	#############################################################################
2060
2061	MODULE = urxvt PACKAGE = urxvt::iw
2062
2063	SV *
2064	iw::new ()
2065	CODE:
2066	iw *w = new iw;
2067	RETVAL = newSVptr ((void )(perl_watcher )w, "urxvt::iw");
2068	w->self = (HV *)SvRV (RETVAL);
2069	OUTPUT:
2070	RETVAL
2071
2072	CHAINED
2073	iw::start ()
2074	CODE:
2075	THIS->start ();
2076	OUTPUT:
2077	RETVAL
2078
2079	CHAINED
2080	iw::stop ()
2081	CODE:
2082	THIS->stop ();
2083	OUTPUT:
2084	RETVAL
2085
2086	void
2087	iw::DESTROY ()
2088
2089	#############################################################################
2090	# urxvt::pw
2091	#############################################################################
2092
2093	MODULE = urxvt PACKAGE = urxvt::pw
2094
2095	SV *
2096	pw::new ()
2097	CODE:
2098	pw *w = new pw;
2099	RETVAL = newSVptr ((void )(perl_watcher )w, "urxvt::pw");
2100	w->self = (HV *)SvRV (RETVAL);
2101	OUTPUT:
2102	RETVAL
2103
2104	CHAINED
2105	pw::start (int pid)
2106	CODE:
2107	THIS->start (pid);
2108	OUTPUT:
2109	RETVAL
2110
2111	CHAINED
2112	pw::stop ()
2113	CODE:
2114	THIS->stop ();
2115	OUTPUT:
2116	RETVAL
2117
2118	void
2119	pw::DESTROY ()
2120
2121

Diff Legend

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

Comparing rxvt-unicode/src/rxvtperl.xs (file contents): Revision 1.103 by root, Mon Aug 7 21:38:24 2006 UTC vs. Revision 1.111 by root, Thu Dec 14 17:33:53 2006 UTC

Diff Legend

Comparing rxvt-unicode/src/rxvtperl.xs (file contents):
Revision 1.103 by root, Mon Aug 7 21:38:24 2006 UTC vs.
Revision 1.111 by root, Thu Dec 14 17:33:53 2006 UTC