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

Comparing rxvt-unicode/src/rxvtperl.xs (file contents):
Revision 1.100 by root, Mon Feb 20 20:44:22 2006 UTC vs.
Revision 1.117 by root, Thu Dec 13 18:24:36 2007 UTC

…		…
31	#include <cstddef>	31	#include <cstddef>
32	#include <cstdarg>	32	#include <cstdarg>
33		33
34	#include "unistd.h"	34	#include "unistd.h"
35		35
36	#include "iom.h"	36	#include "ev_cpp.h"
37	#include "rxvt.h"	37	#include "rxvt.h"
38	#include "keyboard.h"	38	#include "keyboard.h"
39	#include "rxvtutil.h"	39	#include "rxvtutil.h"
40	#include "rxvtperl.h"	40	#include "rxvtperl.h"
41		41
…		…
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	{
…		…
75		73
76	return sv;	74	return sv;
77	}	75	}
78		76
79	static SV *	77	static SV *
80	new_ref (HV hv, const char klass)
81	{
82	return sv_bless (newRV ((SV *)hv), gv_stashpv (klass, 1));
83	}
84
85	static SV *
86	newSVptr (void ptr, const char klass)	78	newSVptr (void ptr, const char klass)
87	{	79	{
88	HV *hv = newHV ();	80	HV *hv = newHV ();
89	sv_magic ((SV )hv, 0, PERL_MAGIC_ext, (char )ptr, 0);	81	sv_magic ((SV )hv, 0, PERL_MAGIC_ext, (char )ptr, 0);
90	return sv_bless (newRV_noinc ((SV *)hv), gv_stashpv (klass, 1));	82	return sv_bless (newRV_noinc ((SV *)hv), gv_stashpv (klass, 1));
…		…
114	return (long)mg->mg_ptr;	106	return (long)mg->mg_ptr;
115	}	107	}
116		108
117	#define newSVterm(term) SvREFCNT_inc ((SV *)(term)->perl.self)	109	#define newSVterm(term) SvREFCNT_inc ((SV *)(term)->perl.self)
118	#define SvTERM(sv) (rxvt_term *)SvPTR ((sv), "urxvt::term")	110	#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		111
244	/////////////////////////////////////////////////////////////////////////////	112	/////////////////////////////////////////////////////////////////////////////
245		113
246	#define SvOVERLAY(sv) (overlay *)SvPTR (sv, "urxvt::overlay")	114	#define SvOVERLAY(sv) (overlay *)SvPTR (sv, "urxvt::overlay")
247		115
…		…
268	};	136	};
269		137
270	overlay::overlay (rxvt_term *THIS, int x_, int y_, int w_, int h_, rend_t rstyle, int border)	138	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)	139	: THIS(THIS), x(x_), y(y_), w(w_), h(h_), border(border == 2), overlay_av (0)
272	{	140	{
		141	if (w < 0) w = 0;
		142	if (h < 0) h = 0;
		143
273	if (border == 2)	144	if (border == 2)
274	{	145	{
275	w += 2;	146	w += 2;
276	h += 2;	147	h += 2;
277	}	148	}
…		…
355		226
356	int i;	227	int i;
357		228
358	for (i = AvFILL (overlay_av); i >= 0; i--)	229	for (i = AvFILL (overlay_av); i >= 0; i--)
359	if (SvIV (*av_fetch (overlay_av, i, 1)) == (long)this)	230	if (SvIV (*av_fetch (overlay_av, i, 1)) == (long)this)
360	{
361	av_delete (overlay_av, i, G_DISCARD);
362	break;	231	break;
363	}
364		232
365	for (; i < AvFILL (overlay_av); i++)	233	for (; i < AvFILL (overlay_av); i++)
366	av_store (overlay_av, i, SvREFCNT_inc (*av_fetch (overlay_av, i + 1, 0)));	234	av_store (overlay_av, i, SvREFCNT_inc (*av_fetch (overlay_av, i + 1, 0)));
367		235
368	av_pop (overlay_av);	236	av_pop (overlay_av);
…		…
425	}	293	}
426		294
427	THIS->want_refresh = 1;	295	THIS->want_refresh = 1;
428	}	296	}
429		297
		298	/////////////////////////////////////////////////////////////////////////////
		299
		300	#define IOM_CLASS "urxvt"
		301	#define IOM_WARN rxvt_warn
		302	#include <iom_perl.h>
430		303
431	/////////////////////////////////////////////////////////////////////////////	304	/////////////////////////////////////////////////////////////////////////////
432		305
433	struct rxvt_perl_interp rxvt_perl;	306	struct rxvt_perl_interp rxvt_perl;
434		307
…		…
509		382
510	// pre-handling of some events	383	// pre-handling of some events
511	if (htype == HOOK_REFRESH_END)	384	if (htype == HOOK_REFRESH_END)
512	{	385	{
513	AV av = (AV )SvRV (hv_fetch ((HV )SvRV ((SV *)term->perl.self), "_overlay", 8, 0));	386	AV av = (AV )SvRV (hv_fetch ((HV )SvRV ((SV *)term->perl.self), "_overlay", 8, 0));
514		387
515	for (int i = 0; i <= AvFILL (av); i++)	388	for (int i = 0; i <= AvFILL (av); i++)
516	((overlay )SvIV (av_fetch (av, i, 0)))->swap ();	389	((overlay )SvIV (av_fetch (av, i, 0)))->swap ();
517	}	390	}
518		391
519	swap (perl_environ, environ);	392	swap (perl_environ, environ);
…		…
718		591
719	// post-handling of some events	592	// post-handling of some events
720	if (htype == HOOK_REFRESH_BEGIN)	593	if (htype == HOOK_REFRESH_BEGIN)
721	{	594	{
722	AV av = (AV )SvRV (hv_fetch ((HV )SvRV ((SV *)term->perl.self), "_overlay", 8, 0));	595	AV av = (AV )SvRV (hv_fetch ((HV )SvRV ((SV *)term->perl.self), "_overlay", 8, 0));
723		596
724	for (int i = AvFILL (av); i >= 0; i--)	597	for (int i = AvFILL (av); i >= 0; i--)
725	((overlay )SvIV (av_fetch (av, i, 0)))->swap ();	598	((overlay )SvIV (av_fetch (av, i, 0)))->swap ();
726	}	599	}
727	else if (htype == HOOK_DESTROY)	600	else if (htype == HOOK_DESTROY)
728	{	601	{
729	clearSVptr ((SV *)term->perl.self);	602	clearSVptr ((SV *)term->perl.self);
730	SvREFCNT_dec ((SV *)term->perl.self);	603	SvREFCNT_dec ((SV *)term->perl.self);
731		604
732	// don't allow further calls	605	// don't allow further calls
733	term->perl.self = 0;	606	term->perl.self = 0;
734	}	607	}
735		608
736	swap (perl_environ, environ);	609	swap (perl_environ, environ);
…		…
791	const_iv (Button3Mask),	664	const_iv (Button3Mask),
792	const_iv (Button4Mask),	665	const_iv (Button4Mask),
793	const_iv (Button5Mask),	666	const_iv (Button5Mask),
794	const_iv (AnyModifier),	667	const_iv (AnyModifier),
795		668
796	const_iv (EVENT_NONE),	669	const_iv (NoSymbol),
797	const_iv (EVENT_READ),	670	const_iv (GrabModeSync),
798	const_iv (EVENT_WRITE),	671	const_iv (GrabModeAsync),
799		672
800	const_iv (NoEventMask),	673	const_iv (NoEventMask),
801	const_iv (KeyPressMask),	674	const_iv (KeyPressMask),
802	const_iv (KeyReleaseMask),	675	const_iv (KeyReleaseMask),
803	const_iv (ButtonPressMask),	676	const_iv (ButtonPressMask),
…		…
902	_exit (int status)	775	_exit (int status)
903		776
904	NV	777	NV
905	NOW ()	778	NOW ()
906	CODE:	779	CODE:
907	RETVAL = NOW;	780	RETVAL = ev::now ();
908	OUTPUT:	781	OUTPUT:
909	RETVAL	782	RETVAL
910		783
911	int	784	int
912	GET_BASEFG (int rend)	785	GET_BASEFG (int rend)
…		…
937	RETVAL	810	RETVAL
938		811
939	int	812	int
940	GET_CUSTOM (int rend)	813	GET_CUSTOM (int rend)
941	CODE:	814	CODE:
942	RETVAL = (rend && RS_customMask) >> RS_customShift;	815	RETVAL = (rend & RS_customMask) >> RS_customShift;
943	OUTPUT:	816	OUTPUT:
944	RETVAL	817	RETVAL
945		818
946	int	819	int
947	SET_CUSTOM (int rend, int new_value)	820	SET_CUSTOM (int rend, int new_value)
…		…
984	for (int i = AvFILL (env) + 1; i--; )	857	for (int i = AvFILL (env) + 1; i--; )
985	envv->push_back (strdup (SvPVbyte_nolen (*av_fetch (env, i, 1))));	858	envv->push_back (strdup (SvPVbyte_nolen (*av_fetch (env, i, 1))));
986		859
987	envv->push_back (0);	860	envv->push_back (0);
988		861
989	bool success;
990
991	try	862	try
992	{	863	{
993	success = term->init (argv, envv);	864	term->init (argv, envv);
994	}	865	}
995	catch (const class rxvt_failure_exception &e)	866	catch (const class rxvt_failure_exception &e)
996	{
997	success = false;
998	}
999
1000	if (!success)
1001	{	867	{
1002	term->destroy ();	868	term->destroy ();
1003	croak ("error while initializing new terminal instance");	869	croak ("error while initializing new terminal instance");
1004	}	870	}
1005		871
…		…
1015	void	881	void
1016	rxvt_term::set_should_invoke (int htype, int inc)	882	rxvt_term::set_should_invoke (int htype, int inc)
1017	CODE:	883	CODE:
1018	THIS->perl.should_invoke [htype] += inc;	884	THIS->perl.should_invoke [htype] += inc;
1019		885
1020	void	886	int
1021	rxvt_term::grab_button (int button, U32 modifiers, Window window = THIS->vt)	887	rxvt_term::grab_button (int button, U32 modifiers, Window window = THIS->vt)
1022	CODE:	888	CODE:
1023	XGrabButton (THIS->dpy, button, modifiers, window, 1,	889	RETVAL = XGrabButton (THIS->dpy, button, modifiers, window, 1,
1024	ButtonPressMask \| ButtonReleaseMask \| EnterWindowMask \| LeaveWindowMask \| PointerMotionMask,	890	ButtonPressMask \| ButtonReleaseMask \| EnterWindowMask \| LeaveWindowMask \| PointerMotionMask,
1025	GrabModeSync, GrabModeSync, None, GRAB_CURSOR);	891	GrabModeSync, GrabModeSync, None, GRAB_CURSOR);
		892	OUTPUT: RETVAL
1026		893
1027	void	894	int
1028	rxvt_term::ungrab_button (int button, U32 modifiers, Window window = THIS->vt)	895	rxvt_term::ungrab_button (int button, U32 modifiers, Window window = THIS->vt)
1029	CODE:	896	CODE:
1030	XUngrabButton (THIS->dpy, button, modifiers, window);	897	RETVAL = XUngrabButton (THIS->dpy, button, modifiers, window);
		898	OUTPUT: RETVAL
1031		899
1032	#if 0
1033
1034	void	900	void
1035	XGrabKey (rxvt_term *THIS, int keycode, U32 modifiers, Window window = THIS->vt)	901	rxvt_term::XGrabKey (int keycode, U32 modifiers, Window window = THIS->vt, \
1036	C_ARGS:	902	int owner_events = 1, int pointer_mode = GrabModeAsync, int keyboard_mode = GrabModeAsync)
1037	THIS->dpy, keycode, modifiers, window, 1,	903	CODE:
1038	GrabModeSync, GrabModeSync	904	XGrabKey (THIS->dpy, keycode, modifiers, window, owner_events, pointer_mode, keyboard_mode);
1039		905
1040	void	906	void
1041	XUngrabKey (rxvt_term *THIS, int keycode, U32 modifiers, Window window = THIS->vt)	907	rxvt_term::XUngrabKey (int keycode, U32 modifiers, Window window = THIS->vt)
		908	CODE:
1042	C_ARGS: THIS->dpy, keycode, modifiers, window	909	XUngrabKey (THIS->dpy, keycode, modifiers, window);
1043		910
1044	#endif	911	void
		912	rxvt_term::XUngrabKeyboard (Time eventtime)
		913	CODE:
		914	XUngrabKeyboard (THIS->dpy, eventtime);
1045		915
1046	bool	916	bool
1047	rxvt_term::grab (Time eventtime, int sync = 0)	917	rxvt_term::grab (Time eventtime, int sync = 0)
1048	CODE:	918	CODE:
1049	{	919	{
…		…
1084	rxvt_term::ungrab ()	954	rxvt_term::ungrab ()
1085	CODE:	955	CODE:
1086	ungrab (THIS);	956	ungrab (THIS);
1087		957
1088	int	958	int
		959	rxvt_term::XStringToKeysym (char *string)
		960	CODE:
		961	RETVAL = XStringToKeysym (string);
		962	OUTPUT: RETVAL
		963
		964	char *
		965	rxvt_term::XKeysymToString (int sym)
		966	CODE:
		967	RETVAL = XKeysymToString (sym);
		968	OUTPUT: RETVAL
		969
		970	int
		971	rxvt_term::XKeysymToKeycode (int sym)
		972	CODE:
		973	RETVAL = XKeysymToKeycode (THIS->dpy, sym);
		974	OUTPUT: RETVAL
		975
		976	int
		977	rxvt_term::XKeycodeToKeysym (int code, int index)
		978	CODE:
		979	RETVAL = XKeycodeToKeysym (THIS->dpy, code, index);
		980	OUTPUT: RETVAL
		981
		982	int
1089	rxvt_term::strwidth (SV *str)	983	rxvt_term::strwidth (SV *str)
1090	CODE:	984	CODE:
1091	{	985	{
1092	wchar_t *wstr = sv2wcs (str);	986	wchar_t *wstr = sv2wcs (str);
1093		987
1094	rxvt_push_locale (THIS->locale);	988	rxvt_push_locale (THIS->locale);
1095	RETVAL = wcswidth (wstr, wcslen (wstr));	989	RETVAL = 0;
		990	for (wchar_t wc = wstr; wc; wc++)
		991	{
		992	int w = WCWIDTH (*wc);
		993
		994	if (w)
		995	RETVAL += max (w, 1);
		996	}
1096	rxvt_pop_locale ();	997	rxvt_pop_locale ();
1097		998
1098	free (wstr);	999	free (wstr);
1099	}	1000	}
1100	OUTPUT:	1001	OUTPUT:
…		…
1130	rxvt_pop_locale ();	1031	rxvt_pop_locale ();
1131		1032
1132	RETVAL = wcs2sv (wstr);	1033	RETVAL = wcs2sv (wstr);
1133	free (wstr);	1034	free (wstr);
1134	}	1035	}
		1036	OUTPUT:
		1037	RETVAL
		1038
		1039	char *
		1040	rxvt_term::locale ()
		1041	CODE:
		1042	RETVAL = THIS->locale;
1135	OUTPUT:	1043	OUTPUT:
1136	RETVAL	1044	RETVAL
1137		1045
1138	#define TERM_OFFSET(sym) offsetof (TermWin_t, sym)	1046	#define TERM_OFFSET(sym) offsetof (TermWin_t, sym)
1139		1047
…		…
1224	if (*i)	1132	if (*i)
1225	PUSHs (sv_2mortal (newSVpv (*i, 0)));	1133	PUSHs (sv_2mortal (newSVpv (*i, 0)));
1226	}	1134	}
1227		1135
1228	int	1136	int
1229	rxvt_term::pty_ev_events (int events = EVENT_UNDEF)	1137	rxvt_term::pty_ev_events (int events = ev::UNDEF)
1230	CODE:	1138	CODE:
1231	RETVAL = THIS->pty_ev.events;	1139	RETVAL = THIS->pty_ev.events;
1232	if (events != EVENT_UNDEF)	1140	if (events != ev::UNDEF)
1233	THIS->pty_ev.set (events);	1141	THIS->pty_ev.set (events);
1234	OUTPUT:	1142	OUTPUT:
1235	RETVAL	1143	RETVAL
1236		1144
1237	int	1145	int
…		…
1480	SV *	1388	SV *
1481	rxvt_term::special_decode (SV *text)	1389	rxvt_term::special_decode (SV *text)
1482	CODE:	1390	CODE:
1483	{	1391	{
1484	wchar_t *wstr = sv2wcs (text);	1392	wchar_t *wstr = sv2wcs (text);
1485	int wlen = wcslen (wstr);
1486	int dlen = 0;	1393	int dlen = 0;
1487		1394
1488	// find length	1395	// find length
1489	for (wchar_t s = wstr; s; s++)	1396	for (wchar_t s = wstr; s; s++)
1490	if (*s == NOCHAR)	1397	if (*s == NOCHAR)
…		…
1553		1460
1554	const char *	1461	const char *
1555	rxvt_term::x_resource (const char *name)	1462	rxvt_term::x_resource (const char *name)
1556		1463
1557	bool	1464	bool
1558	rxvt_term::option (U32 optval, int set = -1)	1465	rxvt_term::option (U8 optval, int set = -1)
1559	CODE:	1466	CODE:
1560	{	1467	{
1561	RETVAL = THIS->options & optval;	1468	RETVAL = THIS->option (optval);
1562		1469
1563	if (set >= 0)	1470	if (set >= 0)
1564	{	1471	{
1565	if (set)
1566	THIS->options \|= optval;	1472	THIS->set_option (optval, set);
1567	else
1568	THIS->options &= ~optval;
1569		1473
1570	if (THIS->check_ev.is_active ()) // avoid doing this before START	1474	if (THIS->prepare_ev.is_active ()) // avoid doing this before START
1571	switch (optval)	1475	switch (optval)
1572	{	1476	{
1573	case Opt_skipBuiltinGlyphs:	1477	case Opt_skipBuiltinGlyphs:
1574	THIS->set_fonts ();	1478	THIS->set_fonts ();
1575	THIS->scr_remap_chars ();	1479	THIS->scr_remap_chars ();
…		…
1761	Atom *props = XListProperties (THIS->dpy, window, &count);	1665	Atom *props = XListProperties (THIS->dpy, window, &count);
1762		1666
1763	EXTEND (SP, count);	1667	EXTEND (SP, count);
1764	while (count--)	1668	while (count--)
1765	PUSHs (newSVuv ((U32)props [count]));	1669	PUSHs (newSVuv ((U32)props [count]));
1766		1670
1767	XFree (props);	1671	XFree (props);
1768	}	1672	}
1769		1673
1770	void	1674	void
1771	rxvt_term::XGetWindowProperty (Window window, Atom property)	1675	rxvt_term::XGetWindowProperty (Window window, Atom property)
…		…
1900	overlay::hide ()	1804	overlay::hide ()
1901		1805
1902	void	1806	void
1903	overlay::DESTROY ()	1807	overlay::DESTROY ()
1904		1808
1905	#############################################################################	1809	INCLUDE: $PERL <iom_perl.xs -pe s/IOM_MODULE/urxvt/g,s/IOM_CLASS/urxvt/g \|
1906	# urxvt::watcher
1907	#############################################################################
1908		1810
1909	MODULE = urxvt PACKAGE = urxvt::watcher
1910
1911	CHAINED
1912	perl_watcher::cb (SV *cb)
1913	CODE:
1914	THIS->cb (cb);
1915	OUTPUT:
1916	RETVAL
1917
1918	#############################################################################
1919	# urxvt::timer
1920	#############################################################################
1921
1922	MODULE = urxvt PACKAGE = urxvt::timer
1923
1924	SV *
1925	timer::new ()
1926	CODE:
1927	timer *w = new timer;
1928	w->start (NOW);
1929	RETVAL = newSVptr ((void )(perl_watcher )w, "urxvt::timer");
1930	w->self = (HV *)SvRV (RETVAL);
1931	OUTPUT:
1932	RETVAL
1933
1934	NV
1935	timer::at ()
1936	CODE:
1937	RETVAL = THIS->at;
1938	OUTPUT:
1939	RETVAL
1940
1941	CHAINED
1942	timer::interval (NV interval)
1943	CODE:
1944	THIS->interval = interval;
1945	OUTPUT:
1946	RETVAL
1947
1948	CHAINED
1949	timer::set (NV tstamp)
1950	CODE:
1951	THIS->set (tstamp);
1952	OUTPUT:
1953	RETVAL
1954
1955	CHAINED
1956	timer::start (NV tstamp = THIS->at)
1957	CODE:
1958	THIS->start (tstamp);
1959	OUTPUT:
1960	RETVAL
1961
1962	CHAINED
1963	timer::after (NV delay)
1964	CODE:
1965	THIS->start (NOW + delay);
1966	OUTPUT:
1967	RETVAL
1968
1969	CHAINED
1970	timer::stop ()
1971	CODE:
1972	THIS->stop ();
1973	OUTPUT:
1974	RETVAL
1975
1976	void
1977	timer::DESTROY ()
1978
1979	#############################################################################
1980	# urxvt::iow
1981	#############################################################################
1982
1983	MODULE = urxvt PACKAGE = urxvt::iow
1984
1985	SV *
1986	iow::new ()
1987	CODE:
1988	iow *w = new iow;
1989	RETVAL = newSVptr ((void )(perl_watcher )w, "urxvt::iow");
1990	w->self = (HV *)SvRV (RETVAL);
1991	OUTPUT:
1992	RETVAL
1993
1994	CHAINED
1995	iow::fd (int fd)
1996	CODE:
1997	THIS->fd = fd;
1998	OUTPUT:
1999	RETVAL
2000
2001	CHAINED
2002	iow::events (short events)
2003	CODE:
2004	THIS->events = events;
2005	OUTPUT:
2006	RETVAL
2007
2008	CHAINED
2009	iow::start ()
2010	CODE:
2011	THIS->start ();
2012	OUTPUT:
2013	RETVAL
2014
2015	CHAINED
2016	iow::stop ()
2017	CODE:
2018	THIS->stop ();
2019	OUTPUT:
2020	RETVAL
2021
2022	void
2023	iow::DESTROY ()
2024
2025	#############################################################################
2026	# urxvt::iw
2027	#############################################################################
2028
2029	MODULE = urxvt PACKAGE = urxvt::iw
2030
2031	SV *
2032	iw::new ()
2033	CODE:
2034	iw *w = new iw;
2035	RETVAL = newSVptr ((void )(perl_watcher )w, "urxvt::iw");
2036	w->self = (HV *)SvRV (RETVAL);
2037	OUTPUT:
2038	RETVAL
2039
2040	CHAINED
2041	iw::start ()
2042	CODE:
2043	THIS->start ();
2044	OUTPUT:
2045	RETVAL
2046
2047	CHAINED
2048	iw::stop ()
2049	CODE:
2050	THIS->stop ();
2051	OUTPUT:
2052	RETVAL
2053
2054	void
2055	iw::DESTROY ()
2056
2057	#############################################################################
2058	# urxvt::pw
2059	#############################################################################
2060
2061	MODULE = urxvt PACKAGE = urxvt::pw
2062
2063	SV *
2064	pw::new ()
2065	CODE:
2066	pw *w = new pw;
2067	RETVAL = newSVptr ((void )(perl_watcher )w, "urxvt::pw");
2068	w->self = (HV *)SvRV (RETVAL);
2069	OUTPUT:
2070	RETVAL
2071
2072	CHAINED
2073	pw::start (int pid)
2074	CODE:
2075	THIS->start (pid);
2076	OUTPUT:
2077	RETVAL
2078
2079	CHAINED
2080	pw::stop ()
2081	CODE:
2082	THIS->stop ();
2083	OUTPUT:
2084	RETVAL
2085
2086	void
2087	pw::DESTROY ()
2088
2089

Diff Legend

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

Comparing rxvt-unicode/src/rxvtperl.xs (file contents): Revision 1.100 by root, Mon Feb 20 20:44:22 2006 UTC vs. Revision 1.117 by root, Thu Dec 13 18:24:36 2007 UTC

Diff Legend

Comparing rxvt-unicode/src/rxvtperl.xs (file contents):
Revision 1.100 by root, Mon Feb 20 20:44:22 2006 UTC vs.
Revision 1.117 by root, Thu Dec 13 18:24:36 2007 UTC