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

Comparing rxvt-unicode/src/rxvtperl.xs (file contents):
Revision 1.102 by root, Thu Jul 6 23:48:11 2006 UTC vs.
Revision 1.110 by root, Thu Dec 14 17:22:04 2006 UTC

…		…
117	#define newSVterm(term) SvREFCNT_inc ((SV *)(term)->perl.self)	117	#define newSVterm(term) SvREFCNT_inc ((SV *)(term)->perl.self)
118	#define SvTERM(sv) (rxvt_term *)SvPTR ((sv), "urxvt::term")	118	#define SvTERM(sv) (rxvt_term *)SvPTR ((sv), "urxvt::term")
119		119
120	/////////////////////////////////////////////////////////////////////////////	120	/////////////////////////////////////////////////////////////////////////////
121		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
244	/////////////////////////////////////////////////////////////////////////////
245
246	#define SvOVERLAY(sv) (overlay *)SvPTR (sv, "urxvt::overlay")	122	#define SvOVERLAY(sv) (overlay *)SvPTR (sv, "urxvt::overlay")
247		123
248	class overlay {	124	class overlay {
249	rxvt_term *THIS;	125	rxvt_term *THIS;
250	AV *overlay_av;	126	AV *overlay_av;
…		…
268	};	144	};
269		145
270	overlay::overlay (rxvt_term *THIS, int x_, int y_, int w_, int h_, rend_t rstyle, int border)	146	overlay::overlay (rxvt_term *THIS, int x_, int y_, int w_, int h_, rend_t rstyle, int border)
271	: THIS(THIS), x(x_), y(y_), w(w_), h(h_), border(border == 2), overlay_av (0)	147	: THIS(THIS), x(x_), y(y_), w(w_), h(h_), border(border == 2), overlay_av (0)
272	{	148	{
		149	if (w < 0) w = 0;
		150	if (h < 0) h = 0;
		151
273	if (border == 2)	152	if (border == 2)
274	{	153	{
275	w += 2;	154	w += 2;
276	h += 2;	155	h += 2;
277	}	156	}
…		…
422	}	301	}
423		302
424	THIS->want_refresh = 1;	303	THIS->want_refresh = 1;
425	}	304	}
426		305
		306	/////////////////////////////////////////////////////////////////////////////
		307
		308	#define IOM_CLASS "urxvt"
		309	#include <iom_perl.h>
427		310
428	/////////////////////////////////////////////////////////////////////////////	311	/////////////////////////////////////////////////////////////////////////////
429		312
430	struct rxvt_perl_interp rxvt_perl;	313	struct rxvt_perl_interp rxvt_perl;
431		314
…		…
791	const_iv (AnyModifier),	674	const_iv (AnyModifier),
792		675
793	const_iv (NoSymbol),	676	const_iv (NoSymbol),
794	const_iv (GrabModeSync),	677	const_iv (GrabModeSync),
795	const_iv (GrabModeAsync),	678	const_iv (GrabModeAsync),
796
797	const_iv (EVENT_NONE),
798	const_iv (EVENT_READ),
799	const_iv (EVENT_WRITE),
800		679
801	const_iv (NoEventMask),	680	const_iv (NoEventMask),
802	const_iv (KeyPressMask),	681	const_iv (KeyPressMask),
803	const_iv (KeyReleaseMask),	682	const_iv (KeyReleaseMask),
804	const_iv (ButtonPressMask),	683	const_iv (ButtonPressMask),
…		…
938	RETVAL	817	RETVAL
939		818
940	int	819	int
941	GET_CUSTOM (int rend)	820	GET_CUSTOM (int rend)
942	CODE:	821	CODE:
943	RETVAL = (rend && RS_customMask) >> RS_customShift;	822	RETVAL = (rend & RS_customMask) >> RS_customShift;
944	OUTPUT:	823	OUTPUT:
945	RETVAL	824	RETVAL
946		825
947	int	826	int
948	SET_CUSTOM (int rend, int new_value)	827	SET_CUSTOM (int rend, int new_value)
…		…
1119	CODE:	998	CODE:
1120	{	999	{
1121	wchar_t *wstr = sv2wcs (str);	1000	wchar_t *wstr = sv2wcs (str);
1122		1001
1123	rxvt_push_locale (THIS->locale);	1002	rxvt_push_locale (THIS->locale);
1124	RETVAL = wcswidth (wstr, wcslen (wstr));	1003	RETVAL = 0;
		1004	for (wchar_t wc = wstr; wc; wc++)
		1005	{
		1006	int w = WCWIDTH (*wc);
		1007
		1008	if (w)
		1009	RETVAL += max (w, 1);
		1010	}
1125	rxvt_pop_locale ();	1011	rxvt_pop_locale ();
1126		1012
1127	free (wstr);	1013	free (wstr);
1128	}	1014	}
1129	OUTPUT:	1015	OUTPUT:
…		…
1159	rxvt_pop_locale ();	1045	rxvt_pop_locale ();
1160		1046
1161	RETVAL = wcs2sv (wstr);	1047	RETVAL = wcs2sv (wstr);
1162	free (wstr);	1048	free (wstr);
1163	}	1049	}
		1050	OUTPUT:
		1051	RETVAL
		1052
		1053	char *
		1054	rxvt_term::locale ()
		1055	CODE:
		1056	RETVAL = THIS->locale;
1164	OUTPUT:	1057	OUTPUT:
1165	RETVAL	1058	RETVAL
1166		1059
1167	#define TERM_OFFSET(sym) offsetof (TermWin_t, sym)	1060	#define TERM_OFFSET(sym) offsetof (TermWin_t, sym)
1168		1061
…		…
1929	overlay::hide ()	1822	overlay::hide ()
1930		1823
1931	void	1824	void
1932	overlay::DESTROY ()	1825	overlay::DESTROY ()
1933		1826
1934	#############################################################################	1827	INCLUDE: $PERL <iom_perl.xs -pe s/IOM_MODULE/urxvt/g,s/IOM_CLASS/urxvt/g \|
1935	# urxvt::watcher
1936	#############################################################################
1937		1828
1938	MODULE = urxvt PACKAGE = urxvt::watcher
1939
1940	CHAINED
1941	perl_watcher::cb (SV *cb)
1942	CODE:
1943	THIS->cb (cb);
1944	OUTPUT:
1945	RETVAL
1946
1947	#############################################################################
1948	# urxvt::timer
1949	#############################################################################
1950
1951	MODULE = urxvt PACKAGE = urxvt::timer
1952
1953	SV *
1954	timer::new ()
1955	CODE:
1956	timer *w = new timer;
1957	w->start (NOW);
1958	RETVAL = newSVptr ((void )(perl_watcher )w, "urxvt::timer");
1959	w->self = (HV *)SvRV (RETVAL);
1960	OUTPUT:
1961	RETVAL
1962
1963	NV
1964	timer::at ()
1965	CODE:
1966	RETVAL = THIS->at;
1967	OUTPUT:
1968	RETVAL
1969
1970	CHAINED
1971	timer::interval (NV interval)
1972	CODE:
1973	THIS->interval = interval;
1974	OUTPUT:
1975	RETVAL
1976
1977	CHAINED
1978	timer::set (NV tstamp)
1979	CODE:
1980	THIS->set (tstamp);
1981	OUTPUT:
1982	RETVAL
1983
1984	CHAINED
1985	timer::start (NV tstamp = THIS->at)
1986	CODE:
1987	THIS->start (tstamp);
1988	OUTPUT:
1989	RETVAL
1990
1991	CHAINED
1992	timer::after (NV delay)
1993	CODE:
1994	THIS->start (NOW + delay);
1995	OUTPUT:
1996	RETVAL
1997
1998	CHAINED
1999	timer::stop ()
2000	CODE:
2001	THIS->stop ();
2002	OUTPUT:
2003	RETVAL
2004
2005	void
2006	timer::DESTROY ()
2007
2008	#############################################################################
2009	# urxvt::iow
2010	#############################################################################
2011
2012	MODULE = urxvt PACKAGE = urxvt::iow
2013
2014	SV *
2015	iow::new ()
2016	CODE:
2017	iow *w = new iow;
2018	RETVAL = newSVptr ((void )(perl_watcher )w, "urxvt::iow");
2019	w->self = (HV *)SvRV (RETVAL);
2020	OUTPUT:
2021	RETVAL
2022
2023	CHAINED
2024	iow::fd (int fd)
2025	CODE:
2026	THIS->fd = fd;
2027	OUTPUT:
2028	RETVAL
2029
2030	CHAINED
2031	iow::events (short events)
2032	CODE:
2033	THIS->events = events;
2034	OUTPUT:
2035	RETVAL
2036
2037	CHAINED
2038	iow::start ()
2039	CODE:
2040	THIS->start ();
2041	OUTPUT:
2042	RETVAL
2043
2044	CHAINED
2045	iow::stop ()
2046	CODE:
2047	THIS->stop ();
2048	OUTPUT:
2049	RETVAL
2050
2051	void
2052	iow::DESTROY ()
2053
2054	#############################################################################
2055	# urxvt::iw
2056	#############################################################################
2057
2058	MODULE = urxvt PACKAGE = urxvt::iw
2059
2060	SV *
2061	iw::new ()
2062	CODE:
2063	iw *w = new iw;
2064	RETVAL = newSVptr ((void )(perl_watcher )w, "urxvt::iw");
2065	w->self = (HV *)SvRV (RETVAL);
2066	OUTPUT:
2067	RETVAL
2068
2069	CHAINED
2070	iw::start ()
2071	CODE:
2072	THIS->start ();
2073	OUTPUT:
2074	RETVAL
2075
2076	CHAINED
2077	iw::stop ()
2078	CODE:
2079	THIS->stop ();
2080	OUTPUT:
2081	RETVAL
2082
2083	void
2084	iw::DESTROY ()
2085
2086	#############################################################################
2087	# urxvt::pw
2088	#############################################################################
2089
2090	MODULE = urxvt PACKAGE = urxvt::pw
2091
2092	SV *
2093	pw::new ()
2094	CODE:
2095	pw *w = new pw;
2096	RETVAL = newSVptr ((void )(perl_watcher )w, "urxvt::pw");
2097	w->self = (HV *)SvRV (RETVAL);
2098	OUTPUT:
2099	RETVAL
2100
2101	CHAINED
2102	pw::start (int pid)
2103	CODE:
2104	THIS->start (pid);
2105	OUTPUT:
2106	RETVAL
2107
2108	CHAINED
2109	pw::stop ()
2110	CODE:
2111	THIS->stop ();
2112	OUTPUT:
2113	RETVAL
2114
2115	void
2116	pw::DESTROY ()
2117
2118

Diff Legend

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

Comparing rxvt-unicode/src/rxvtperl.xs (file contents): Revision 1.102 by root, Thu Jul 6 23:48:11 2006 UTC vs. Revision 1.110 by root, Thu Dec 14 17:22:04 2006 UTC

Diff Legend

Comparing rxvt-unicode/src/rxvtperl.xs (file contents):
Revision 1.102 by root, Thu Jul 6 23:48:11 2006 UTC vs.
Revision 1.110 by root, Thu Dec 14 17:22:04 2006 UTC