[ViewVC] Diff of: cvs/EV/EV.xs

Comparing EV/EV.xs (file contents):
Revision 1.35 by root, Thu Nov 1 13:33:12 2007 UTC vs.
Revision 1.58 by root, Wed Nov 7 13:27:56 2007 UTC

…		…
2	#include "perl.h"	2	#include "perl.h"
3	#include "XSUB.h"	3	#include "XSUB.h"
4		4
5	/#include <netinet/in.h>/	5	/#include <netinet/in.h>/
6		6
7	#define TIMEOUT_NONE HUGE_VAL
8
9	#define EV_PROTOTYPES 1	7	#define EV_PROTOTYPES 1
10	#include "EV/EVAPI.h"	8	#include "EV/EVAPI.h"
11		9
		10	/* fix perl api breakage */
		11	#undef signal
		12	#undef sigaction
		13
		14	#define EV_SELECT_USE_WIN32_HANDLES 0
		15	#define EV_SELECT_USE_FD_SET 0
		16	/* due to bugs in OS X we have to use libev/ explicitly here */
12	#include "libev/ev.c"	17	#include "libev/ev.c"
		18	#include "event.c"
		19
		20	#ifndef WIN32
		21	#define DNS_USE_GETTIMEOFDAY_FOR_ID 1
		22	#if !defined (WIN32) && !defined(__CYGWIN__)
		23	# define HAVE_STRUCT_IN6_ADDR 1
		24	#endif
		25	#undef HAVE_STRTOK_R
		26	#undef strtok_r
		27	#define strtok_r fake_strtok_r
		28	#include "evdns.c"
		29	#endif
		30
		31	#ifndef WIN32
		32	# include <pthread.h>
		33	#endif
13		34
14	typedef int Signal;	35	typedef int Signal;
15		36
16	static struct EVAPI evapi;	37	static struct EVAPI evapi;
17		38
…		…
24	*stash_idle,	45	*stash_idle,
25	*stash_prepare,	46	*stash_prepare,
26	*stash_check,	47	*stash_check,
27	*stash_child;	48	*stash_child;
28		49
		50	#ifndef SIG_SIZE
		51	/* kudos to Slaven Rezic for the idea */
		52	static char sig_size [] = { SIG_NUM };
		53	# define SIG_SIZE (sizeof (sig_size) + 1)
		54	#endif
		55
29	static int	56	static int
30	sv_signum (SV *sig)	57	sv_signum (SV *sig)
31	{	58	{
32	int signum;	59	int signum;
33		60
…		…
82	w->self = self;	109	w->self = self;
83		110
84	return (void *)w;	111	return (void *)w;
85	}	112	}
86		113
87	static void *	114	static void
88	e_destroy (void *w_)	115	e_destroy (void *w_)
89	{	116	{
90	struct ev_watcher *w = w_;	117	struct ev_watcher w = (struct ev_watcher )w_;
91		118
92	SvREFCNT_dec (w->fh ); w->fh = 0;	119	SvREFCNT_dec (w->fh ); w->fh = 0;
93	SvREFCNT_dec (w->cb_sv); w->cb_sv = 0;	120	SvREFCNT_dec (w->cb_sv); w->cb_sv = 0;
94	}	121	}
95		122
…		…
131	PUSHMARK (SP);	158	PUSHMARK (SP);
132	EXTEND (SP, 2);	159	EXTEND (SP, 2);
133	PUSHs (sv_self);	160	PUSHs (sv_self);
134	PUSHs (sv_events);	161	PUSHs (sv_events);
135		162
136	if (revents & EV_CHILD)
137	XPUSHs (sv_status = newSViv (((struct ev_child *)w)->status));
138
139	PUTBACK;	163	PUTBACK;
140	call_sv (w->cb_sv, G_DISCARD \| G_VOID \| G_EVAL);	164	call_sv (w->cb_sv, G_DISCARD \| G_VOID \| G_EVAL);
141	SP = PL_stack_base + mark; PUTBACK;	165	SP = PL_stack_base + mark; PUTBACK;
142		166
143	SvREFCNT_dec (sv_self);	167	SvREFCNT_dec (sv_self);
…		…
155	call_sv (get_sv ("EV::DIED", 1), G_DISCARD \| G_VOID \| G_EVAL \| G_KEEPERR);	179	call_sv (get_sv ("EV::DIED", 1), G_DISCARD \| G_VOID \| G_EVAL \| G_KEEPERR);
156	SP = PL_stack_base + mark; PUTBACK;	180	SP = PL_stack_base + mark; PUTBACK;
157	}	181	}
158	}	182	}
159		183
160	#if 0
161	/////////////////////////////////////////////////////////////////////////////	184	/////////////////////////////////////////////////////////////////////////////
162	// DNS	185	// DNS
163		186
		187	#ifndef WIN32
164	static void	188	static void
165	dns_cb (int result, char type, int count, int ttl, void addresses, void arg)	189	dns_cb (int result, char type, int count, int ttl, void addresses, void arg)
166	{	190	{
167	dSP;	191	dSP;
168	SV cb = (SV )arg;	192	SV cb = (SV )arg;
…		…
224		248
225	PROTOTYPES: ENABLE	249	PROTOTYPES: ENABLE
226		250
227	BOOT:	251	BOOT:
228	{	252	{
229	int i;
230	HV *stash = gv_stashpv ("EV", 1);	253	HV *stash = gv_stashpv ("EV", 1);
231		254
232	static const struct {	255	static const struct {
233	const char *name;	256	const char *name;
234	IV iv;	257	IV iv;
235	} *civ, const_iv[] = {	258	} *civ, const_iv[] = {
236	# define const_iv(pfx, name) { # name, (IV) pfx ## name },	259	# define const_iv(pfx, name) { # name, (IV) pfx ## name },
		260	const_iv (EV_, MINPRI)
		261	const_iv (EV_, MAXPRI)
		262
237	const_iv (EV_, UNDEF)	263	const_iv (EV_, UNDEF)
238	const_iv (EV_, NONE)	264	const_iv (EV_, NONE)
239	const_iv (EV_, TIMEOUT)	265	const_iv (EV_, TIMEOUT)
240	const_iv (EV_, READ)	266	const_iv (EV_, READ)
241	const_iv (EV_, WRITE)	267	const_iv (EV_, WRITE)
…		…
245	const_iv (EV_, ERROR)	271	const_iv (EV_, ERROR)
246		272
247	const_iv (EV, LOOP_ONESHOT)	273	const_iv (EV, LOOP_ONESHOT)
248	const_iv (EV, LOOP_NONBLOCK)	274	const_iv (EV, LOOP_NONBLOCK)
249		275
250	const_iv (EV, METHOD_NONE)	276	const_iv (EV, METHOD_AUTO)
251	const_iv (EV, METHOD_SELECT)	277	const_iv (EV, METHOD_SELECT)
		278	const_iv (EV, METHOD_POLL)
252	const_iv (EV, METHOD_EPOLL)	279	const_iv (EV, METHOD_EPOLL)
		280	const_iv (EV, METHOD_KQUEUE)
		281	const_iv (EV, METHOD_DEVPOLL)
		282	const_iv (EV, METHOD_PORT)
		283	const_iv (EV, METHOD_ANY)
253	};	284	};
254		285
255	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )	286	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
256	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));	287	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
257		288
…		…
272	/* the poor man's shared library emulator */	303	/* the poor man's shared library emulator */
273	evapi.ver = EV_API_VERSION;	304	evapi.ver = EV_API_VERSION;
274	evapi.rev = EV_API_REVISION;	305	evapi.rev = EV_API_REVISION;
275	evapi.sv_fileno = sv_fileno;	306	evapi.sv_fileno = sv_fileno;
276	evapi.sv_signum = sv_signum;	307	evapi.sv_signum = sv_signum;
277	evapi.now = &ev_now;	308	evapi.now = ev_now;
278	evapi.method = &ev_method;	309	evapi.method = ev_method;
279	evapi.loop_done = &ev_loop_done;	310	evapi.unloop = ev_unloop;
280	evapi.time = ev_time;	311	evapi.time = ev_time;
281	evapi.loop = ev_loop;	312	evapi.loop = ev_loop;
282	evapi.once = ev_once;	313	evapi.once = ev_once;
283	evapi.io_start = ev_io_start;	314	evapi.io_start = ev_io_start;
284	evapi.io_stop = ev_io_stop;	315	evapi.io_stop = ev_io_stop;
…		…
299	evapi.child_stop = ev_child_stop;	330	evapi.child_stop = ev_child_stop;
300		331
301	sv_setiv (sv, (IV)&evapi);	332	sv_setiv (sv, (IV)&evapi);
302	SvREADONLY_on (sv);	333	SvREADONLY_on (sv);
303	}	334	}
304		335	#ifndef WIN32
305	pthread_atfork (ev_fork_prepare, ev_fork_parent, ev_fork_child);	336	pthread_atfork (0, 0, ev_default_fork);
		337	#endif
306	}	338	}
307		339
308	NV ev_now ()	340	NV ev_now ()
309	CODE:
310	RETVAL = ev_now;
311	OUTPUT:
312	RETVAL
313		341
314	int ev_method ()	342	int ev_method ()
315	CODE:
316	RETVAL = ev_method;
317	OUTPUT:
318	RETVAL
319		343
320	NV ev_time ()	344	NV ev_time ()
321		345
322	void ev_init (int flags = 0)	346	int ev_default_loop (int methods = EVMETHOD_AUTO)
323		347
324	void ev_loop (int flags = 0)	348	void ev_loop (int flags = 0)
325		349
326	void ev_loop_done (int value = 1)	350	void ev_unloop (int how = 1)
327	CODE:
328	ev_loop_done = value;
329		351
330	struct ev_io io (SV fh, int events, SV *cb)	352	struct ev_io io (SV fh, int events, SV *cb)
331	ALIAS:	353	ALIAS:
332	io_ns = 1	354	io_ns = 1
333	CODE:	355	CODE:
…		…
409		431
410	struct ev_child child (int pid, SV cb)	432	struct ev_child child (int pid, SV cb)
411	ALIAS:	433	ALIAS:
412	check_ns = 1	434	check_ns = 1
413	CODE:	435	CODE:
414	RETVAL = e_new (sizeof (struct ev_check), cb);	436	RETVAL = e_new (sizeof (struct ev_child), cb);
415	ev_child_set (RETVAL, pid);	437	ev_child_set (RETVAL, pid);
416	if (!ix) ev_child_start (RETVAL);	438	if (!ix) ev_child_start (RETVAL);
417	OUTPUT:	439	OUTPUT:
418	RETVAL	440	RETVAL
419		441
…		…
437		459
438	void trigger (struct ev_watcher *w, int revents = EV_NONE)	460	void trigger (struct ev_watcher *w, int revents = EV_NONE)
439	CODE:	461	CODE:
440	w->cb (w, revents);	462	w->cb (w, revents);
441		463
		464	int priority (struct ev_watcher *w, int new_priority = 0)
		465	CODE:
		466	{
		467	RETVAL = w->priority;
		468
		469	if (items > 1)
		470	{
		471	int active = ev_is_active (w);
		472
		473	if (new_priority < EV_MINPRI \|\| new_priority > EV_MAXPRI)
		474	croak ("watcher priority out of range, value must be between %d and %d, inclusive", EV_MINPRI, EV_MAXPRI);
		475
		476	if (active)
		477	{
		478	/* grrr. */
		479	PUSHMARK (SP);
		480	XPUSHs (ST (0));
		481	call_method ("stop", G_DISCARD \| G_VOID);
		482	}
		483
		484	ev_set_priority (w, new_priority);
		485
		486	if (active)
		487	{
		488	PUSHMARK (SP);
		489	XPUSHs (ST (0));
		490	call_method ("start", G_DISCARD \| G_VOID);
		491	}
		492	}
		493	}
		494	OUTPUT:
		495	RETVAL
		496
442	MODULE = EV PACKAGE = EV::Io PREFIX = ev_io_	497	MODULE = EV PACKAGE = EV::Io PREFIX = ev_io_
443		498
444	void ev_io_start (struct ev_io *w)	499	void ev_io_start (struct ev_io *w)
445		500
446	void ev_io_stop (struct ev_io *w)	501	void ev_io_stop (struct ev_io *w)
…		…
451	e_destroy (w);	506	e_destroy (w);
452		507
453	void set (struct ev_io w, SV fh, int events)	508	void set (struct ev_io w, SV fh, int events)
454	CODE:	509	CODE:
455	{	510	{
456	int active = w->active;	511	int active = ev_is_active (w);
457	int fd = sv_fileno (fh);	512	int fd = sv_fileno (fh);
458	CHECK_FD (fh, fd);	513	CHECK_FD (fh, fd);
459		514
460	if (active) ev_io_stop (w);	515	if (active) ev_io_stop (w);
461		516
…		…
470	{	525	{
471	RETVAL = newSVsv (w->fh);	526	RETVAL = newSVsv (w->fh);
472		527
473	if (items > 1)	528	if (items > 1)
474	{	529	{
475	int active = w->active;	530	int active = ev_is_active (w);
476	if (active) ev_io_stop (w);	531	if (active) ev_io_stop (w);
477		532
478	sv_setsv (w->fh, new_fh);	533	sv_setsv (w->fh, new_fh);
479	ev_io_set (w, sv_fileno (w->fh), w->events);	534	ev_io_set (w, sv_fileno (w->fh), w->events);
480		535
…		…
482	}	537	}
483	}	538	}
484	OUTPUT:	539	OUTPUT:
485	RETVAL	540	RETVAL
486		541
487	short events (struct ev_io *w, short new_events = EV_UNDEF)	542	int events (struct ev_io *w, int new_events = EV_UNDEF)
488	CODE:	543	CODE:
489	{	544	{
490	RETVAL = w->events;	545	RETVAL = w->events;
491		546
492	if (items > 1)	547	if (items > 1)
493	{	548	{
494	int active = w->active;	549	int active = ev_is_active (w);
495	if (active) ev_io_stop (w);	550	if (active) ev_io_stop (w);
496		551
497	ev_io_set (w, w->fd, new_events);	552	ev_io_set (w, w->fd, new_events);
498		553
499	if (active) ev_io_start (w);	554	if (active) ev_io_start (w);
…		…
511	void DESTROY (struct ev_signal *w)	566	void DESTROY (struct ev_signal *w)
512	CODE:	567	CODE:
513	ev_signal_stop (w);	568	ev_signal_stop (w);
514	e_destroy (w);	569	e_destroy (w);
515		570
516	void set (struct ev_signal w, SV signal = 0)	571	void set (struct ev_signal w, SV signal)
517	CODE:	572	CODE:
518	{	573	{
519	Signal signum = sv_signum (signal); /* may croak here */	574	Signal signum = sv_signum (signal); /* may croak here */
520	int active = w->active;	575	int active = ev_is_active (w);
521		576
522	if (active) ev_signal_stop (w);	577	if (active) ev_signal_stop (w);
		578
523	ev_signal_set (w, signum);	579	ev_signal_set (w, signum);
		580
524	if (active) ev_signal_start (w);	581	if (active) ev_signal_start (w);
525	}	582	}
526		583
527	MODULE = EV PACKAGE = EV::Time	584	int signal (struct ev_signal w, SV new_signal = 0)
		585	CODE:
		586	{
		587	RETVAL = w->signum;
		588
		589	if (items > 1)
		590	{
		591	Signal signum = sv_signum (new_signal); /* may croak here */
		592	int active = ev_is_active (w);
		593	if (active) ev_signal_stop (w);
		594
		595	ev_signal_set (w, signum);
		596
		597	if (active) ev_signal_start (w);
		598	}
		599	}
		600	OUTPUT:
		601	RETVAL
528		602
529	MODULE = EV PACKAGE = EV::Timer PREFIX = ev_timer_	603	MODULE = EV PACKAGE = EV::Timer PREFIX = ev_timer_
530		604
531	void ev_timer_start (struct ev_timer *w)	605	void ev_timer_start (struct ev_timer *w)
532	INIT:	606	INIT:
…		…
546	void set (struct ev_timer *w, NV after, NV repeat = 0.)	620	void set (struct ev_timer *w, NV after, NV repeat = 0.)
547	INIT:	621	INIT:
548	CHECK_REPEAT (repeat);	622	CHECK_REPEAT (repeat);
549	CODE:	623	CODE:
550	{	624	{
551	int active = w->active;	625	int active = ev_is_active (w);
552	if (active) ev_timer_stop (w);	626	if (active) ev_timer_stop (w);
553	ev_timer_set (w, after, repeat);	627	ev_timer_set (w, after, repeat);
554	if (active) ev_timer_start (w);	628	if (active) ev_timer_start (w);
555	}	629	}
556		630
…		…
570	void set (struct ev_periodic *w, NV at, NV interval = 0.)	644	void set (struct ev_periodic *w, NV at, NV interval = 0.)
571	INIT:	645	INIT:
572	CHECK_REPEAT (interval);	646	CHECK_REPEAT (interval);
573	CODE:	647	CODE:
574	{	648	{
575	int active = w->active;	649	int active = ev_is_active (w);
576	if (active) ev_periodic_stop (w);	650	if (active) ev_periodic_stop (w);
		651
577	ev_periodic_set (w, at, interval);	652	ev_periodic_set (w, at, interval);
		653
578	if (active) ev_periodic_start (w);	654	if (active) ev_periodic_start (w);
579	}	655	}
580		656
581	MODULE = EV PACKAGE = EV::Idle PREFIX = ev_idle_	657	MODULE = EV PACKAGE = EV::Idle PREFIX = ev_idle_
582		658
…		…
623	e_destroy (w);	699	e_destroy (w);
624		700
625	void set (struct ev_child *w, int pid)	701	void set (struct ev_child *w, int pid)
626	CODE:	702	CODE:
627	{	703	{
628	int active = w->active;	704	int active = ev_is_active (w);
629	if (active) ev_child_stop (w);	705	if (active) ev_child_stop (w);
		706
630	ev_child_set (w, pid);	707	ev_child_set (w, pid);
		708
631	if (active) ev_child_start (w);	709	if (active) ev_child_start (w);
632	}	710	}
633		711
		712	int pid (struct ev_child *w, int new_pid = 0)
		713	CODE:
		714	{
		715	RETVAL = w->pid;
		716
		717	if (items > 1)
		718	{
		719	int active = ev_is_active (w);
		720	if (active) ev_child_stop (w);
		721
		722	ev_child_set (w, new_pid);
		723
		724	if (active) ev_child_start (w);
		725	}
		726	}
		727	OUTPUT:
		728	RETVAL
		729
		730
634	int status (struct ev_child *w)	731	int rstatus (struct ev_child *w)
		732	ALIAS:
		733	rpid = 1
635	CODE:	734	CODE:
636	RETVAL = w->status;	735	RETVAL = ix ? w->rpid : w->rstatus;
637	OUTPUT:	736	OUTPUT:
638	RETVAL	737	RETVAL
639		738
640	#if 0	739	#ifndef WIN32
641		740
642	MODULE = EV PACKAGE = EV::DNS PREFIX = evdns_	741	MODULE = EV PACKAGE = EV::DNS PREFIX = evdns_
643		742
644	BOOT:	743	BOOT:
645	{	744	{
…		…
728		827
729	void evdns_search_add (char *domain)	828	void evdns_search_add (char *domain)
730		829
731	void evdns_search_ndots_set (int ndots)	830	void evdns_search_ndots_set (int ndots)
732		831
		832	#if 0
733		833
734	MODULE = EV PACKAGE = EV::HTTP PREFIX = evhttp_	834	MODULE = EV PACKAGE = EV::HTTP PREFIX = evhttp_
735		835
736	BOOT:	836	BOOT:
737	{	837	{
…		…
769		869
770	#void DESTROY (struct evhttp_request *req);	870	#void DESTROY (struct evhttp_request *req);
771		871
772	#endif	872	#endif
773		873
		874	#endif
774		875
775		876
776		877
777		878
778		879

Diff Legend

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

Comparing EV/EV.xs (file contents): Revision 1.35 by root, Thu Nov 1 13:33:12 2007 UTC vs. Revision 1.58 by root, Wed Nov 7 13:27:56 2007 UTC

Diff Legend

Comparing EV/EV.xs (file contents):
Revision 1.35 by root, Thu Nov 1 13:33:12 2007 UTC vs.
Revision 1.58 by root, Wed Nov 7 13:27:56 2007 UTC