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

Comparing EV/EV.xs (file contents):
Revision 1.37 by root, Thu Nov 1 17:17:32 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"
13	#include "libev/event.h"
14	#include "libev/event.c"	18	#include "event.c"
15		19
		20	#ifndef WIN32
16	#define DNS_USE_GETTIMEOFDAY_FOR_ID 1	21	#define DNS_USE_GETTIMEOFDAY_FOR_ID 1
		22	#if !defined (WIN32) && !defined(__CYGWIN__)
17	#define HAVE_STRUCT_IN6_ADDR 1	23	# define HAVE_STRUCT_IN6_ADDR 1
		24	#endif
18	#define HAVE_STRTOK_R 1	25	#undef HAVE_STRTOK_R
		26	#undef strtok_r
		27	#define strtok_r fake_strtok_r
19	#include "libev/evdns.c"	28	#include "evdns.c"
		29	#endif
		30
		31	#ifndef WIN32
		32	# include <pthread.h>
		33	#endif
20		34
21	typedef int Signal;	35	typedef int Signal;
22		36
23	static struct EVAPI evapi;	37	static struct EVAPI evapi;
24		38
…		…
31	*stash_idle,	45	*stash_idle,
32	*stash_prepare,	46	*stash_prepare,
33	*stash_check,	47	*stash_check,
34	*stash_child;	48	*stash_child;
35		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
36	static int	56	static int
37	sv_signum (SV *sig)	57	sv_signum (SV *sig)
38	{	58	{
39	int signum;	59	int signum;
40		60
…		…
89	w->self = self;	109	w->self = self;
90		110
91	return (void *)w;	111	return (void *)w;
92	}	112	}
93		113
94	static void *	114	static void
95	e_destroy (void *w_)	115	e_destroy (void *w_)
96	{	116	{
97	struct ev_watcher *w = w_;	117	struct ev_watcher w = (struct ev_watcher )w_;
98		118
99	SvREFCNT_dec (w->fh ); w->fh = 0;	119	SvREFCNT_dec (w->fh ); w->fh = 0;
100	SvREFCNT_dec (w->cb_sv); w->cb_sv = 0;	120	SvREFCNT_dec (w->cb_sv); w->cb_sv = 0;
101	}	121	}
102		122
…		…
138	PUSHMARK (SP);	158	PUSHMARK (SP);
139	EXTEND (SP, 2);	159	EXTEND (SP, 2);
140	PUSHs (sv_self);	160	PUSHs (sv_self);
141	PUSHs (sv_events);	161	PUSHs (sv_events);
142		162
143	if (revents & EV_CHILD)
144	XPUSHs (sv_status = newSViv (((struct ev_child *)w)->status));
145
146	PUTBACK;	163	PUTBACK;
147	call_sv (w->cb_sv, G_DISCARD \| G_VOID \| G_EVAL);	164	call_sv (w->cb_sv, G_DISCARD \| G_VOID \| G_EVAL);
148	SP = PL_stack_base + mark; PUTBACK;	165	SP = PL_stack_base + mark; PUTBACK;
149		166
150	SvREFCNT_dec (sv_self);	167	SvREFCNT_dec (sv_self);
…		…
165	}	182	}
166		183
167	/////////////////////////////////////////////////////////////////////////////	184	/////////////////////////////////////////////////////////////////////////////
168	// DNS	185	// DNS
169		186
		187	#ifndef WIN32
170	static void	188	static void
171	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)
172	{	190	{
173	dSP;	191	dSP;
174	SV cb = (SV )arg;	192	SV cb = (SV )arg;
…		…
213	call_sv (get_sv ("EV::DIED", 1), G_DISCARD \| G_VOID \| G_EVAL \| G_KEEPERR);	231	call_sv (get_sv ("EV::DIED", 1), G_DISCARD \| G_VOID \| G_EVAL \| G_KEEPERR);
214	}	232	}
215		233
216	LEAVE;	234	LEAVE;
217	}	235	}
		236	#endif
218		237
219	#define CHECK_REPEAT(repeat) if (repeat < 0.) \	238	#define CHECK_REPEAT(repeat) if (repeat < 0.) \
220	croak (# repeat " value must be >= 0");	239	croak (# repeat " value must be >= 0");
221		240
222	#define CHECK_FD(fh,fd) if ((fd) < 0) \	241	#define CHECK_FD(fh,fd) if ((fd) < 0) \
…		…
229		248
230	PROTOTYPES: ENABLE	249	PROTOTYPES: ENABLE
231		250
232	BOOT:	251	BOOT:
233	{	252	{
234	int i;
235	HV *stash = gv_stashpv ("EV", 1);	253	HV *stash = gv_stashpv ("EV", 1);
236		254
237	static const struct {	255	static const struct {
238	const char *name;	256	const char *name;
239	IV iv;	257	IV iv;
240	} *civ, const_iv[] = {	258	} *civ, const_iv[] = {
241	# 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
242	const_iv (EV_, UNDEF)	263	const_iv (EV_, UNDEF)
243	const_iv (EV_, NONE)	264	const_iv (EV_, NONE)
244	const_iv (EV_, TIMEOUT)	265	const_iv (EV_, TIMEOUT)
245	const_iv (EV_, READ)	266	const_iv (EV_, READ)
246	const_iv (EV_, WRITE)	267	const_iv (EV_, WRITE)
…		…
250	const_iv (EV_, ERROR)	271	const_iv (EV_, ERROR)
251		272
252	const_iv (EV, LOOP_ONESHOT)	273	const_iv (EV, LOOP_ONESHOT)
253	const_iv (EV, LOOP_NONBLOCK)	274	const_iv (EV, LOOP_NONBLOCK)
254		275
255	const_iv (EV, METHOD_NONE)	276	const_iv (EV, METHOD_AUTO)
256	const_iv (EV, METHOD_SELECT)	277	const_iv (EV, METHOD_SELECT)
		278	const_iv (EV, METHOD_POLL)
257	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)
258	};	284	};
259		285
260	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; )
261	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));	287	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
262		288
…		…
277	/* the poor man's shared library emulator */	303	/* the poor man's shared library emulator */
278	evapi.ver = EV_API_VERSION;	304	evapi.ver = EV_API_VERSION;
279	evapi.rev = EV_API_REVISION;	305	evapi.rev = EV_API_REVISION;
280	evapi.sv_fileno = sv_fileno;	306	evapi.sv_fileno = sv_fileno;
281	evapi.sv_signum = sv_signum;	307	evapi.sv_signum = sv_signum;
282	evapi.now = &ev_now;	308	evapi.now = ev_now;
283	evapi.method = &ev_method;	309	evapi.method = ev_method;
284	evapi.loop_done = &ev_loop_done;	310	evapi.unloop = ev_unloop;
285	evapi.time = ev_time;	311	evapi.time = ev_time;
286	evapi.loop = ev_loop;	312	evapi.loop = ev_loop;
287	evapi.once = ev_once;	313	evapi.once = ev_once;
288	evapi.io_start = ev_io_start;	314	evapi.io_start = ev_io_start;
289	evapi.io_stop = ev_io_stop;	315	evapi.io_stop = ev_io_stop;
…		…
304	evapi.child_stop = ev_child_stop;	330	evapi.child_stop = ev_child_stop;
305		331
306	sv_setiv (sv, (IV)&evapi);	332	sv_setiv (sv, (IV)&evapi);
307	SvREADONLY_on (sv);	333	SvREADONLY_on (sv);
308	}	334	}
309		335	#ifndef WIN32
310	pthread_atfork (ev_fork_prepare, ev_fork_parent, ev_fork_child);	336	pthread_atfork (0, 0, ev_default_fork);
		337	#endif
311	}	338	}
312		339
313	NV ev_now ()	340	NV ev_now ()
314	CODE:
315	RETVAL = ev_now;
316	OUTPUT:
317	RETVAL
318		341
319	int ev_method ()	342	int ev_method ()
320	CODE:
321	RETVAL = ev_method;
322	OUTPUT:
323	RETVAL
324		343
325	NV ev_time ()	344	NV ev_time ()
326		345
327	void ev_init (int flags = 0)	346	int ev_default_loop (int methods = EVMETHOD_AUTO)
328		347
329	void ev_loop (int flags = 0)	348	void ev_loop (int flags = 0)
330		349
331	void ev_loop_done (int value = 1)	350	void ev_unloop (int how = 1)
332	CODE:
333	ev_loop_done = value;
334		351
335	struct ev_io io (SV fh, int events, SV *cb)	352	struct ev_io io (SV fh, int events, SV *cb)
336	ALIAS:	353	ALIAS:
337	io_ns = 1	354	io_ns = 1
338	CODE:	355	CODE:
…		…
414		431
415	struct ev_child child (int pid, SV cb)	432	struct ev_child child (int pid, SV cb)
416	ALIAS:	433	ALIAS:
417	check_ns = 1	434	check_ns = 1
418	CODE:	435	CODE:
419	RETVAL = e_new (sizeof (struct ev_check), cb);	436	RETVAL = e_new (sizeof (struct ev_child), cb);
420	ev_child_set (RETVAL, pid);	437	ev_child_set (RETVAL, pid);
421	if (!ix) ev_child_start (RETVAL);	438	if (!ix) ev_child_start (RETVAL);
422	OUTPUT:	439	OUTPUT:
423	RETVAL	440	RETVAL
424		441
…		…
442		459
443	void trigger (struct ev_watcher *w, int revents = EV_NONE)	460	void trigger (struct ev_watcher *w, int revents = EV_NONE)
444	CODE:	461	CODE:
445	w->cb (w, revents);	462	w->cb (w, revents);
446		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
447	MODULE = EV PACKAGE = EV::Io PREFIX = ev_io_	497	MODULE = EV PACKAGE = EV::Io PREFIX = ev_io_
448		498
449	void ev_io_start (struct ev_io *w)	499	void ev_io_start (struct ev_io *w)
450		500
451	void ev_io_stop (struct ev_io *w)	501	void ev_io_stop (struct ev_io *w)
…		…
456	e_destroy (w);	506	e_destroy (w);
457		507
458	void set (struct ev_io w, SV fh, int events)	508	void set (struct ev_io w, SV fh, int events)
459	CODE:	509	CODE:
460	{	510	{
461	int active = w->active;	511	int active = ev_is_active (w);
462	int fd = sv_fileno (fh);	512	int fd = sv_fileno (fh);
463	CHECK_FD (fh, fd);	513	CHECK_FD (fh, fd);
464		514
465	if (active) ev_io_stop (w);	515	if (active) ev_io_stop (w);
466		516
…		…
475	{	525	{
476	RETVAL = newSVsv (w->fh);	526	RETVAL = newSVsv (w->fh);
477		527
478	if (items > 1)	528	if (items > 1)
479	{	529	{
480	int active = w->active;	530	int active = ev_is_active (w);
481	if (active) ev_io_stop (w);	531	if (active) ev_io_stop (w);
482		532
483	sv_setsv (w->fh, new_fh);	533	sv_setsv (w->fh, new_fh);
484	ev_io_set (w, sv_fileno (w->fh), w->events);	534	ev_io_set (w, sv_fileno (w->fh), w->events);
485		535
…		…
494	{	544	{
495	RETVAL = w->events;	545	RETVAL = w->events;
496		546
497	if (items > 1)	547	if (items > 1)
498	{	548	{
499	int active = w->active;	549	int active = ev_is_active (w);
500	if (active) ev_io_stop (w);	550	if (active) ev_io_stop (w);
501		551
502	ev_io_set (w, w->fd, new_events);	552	ev_io_set (w, w->fd, new_events);
503		553
504	if (active) ev_io_start (w);	554	if (active) ev_io_start (w);
…		…
516	void DESTROY (struct ev_signal *w)	566	void DESTROY (struct ev_signal *w)
517	CODE:	567	CODE:
518	ev_signal_stop (w);	568	ev_signal_stop (w);
519	e_destroy (w);	569	e_destroy (w);
520		570
521	void set (struct ev_signal w, SV signal = 0)	571	void set (struct ev_signal w, SV signal)
522	CODE:	572	CODE:
523	{	573	{
524	Signal signum = sv_signum (signal); /* may croak here */	574	Signal signum = sv_signum (signal); /* may croak here */
525	int active = w->active;	575	int active = ev_is_active (w);
526		576
527	if (active) ev_signal_stop (w);	577	if (active) ev_signal_stop (w);
		578
528	ev_signal_set (w, signum);	579	ev_signal_set (w, signum);
		580
529	if (active) ev_signal_start (w);	581	if (active) ev_signal_start (w);
530	}	582	}
531		583
532	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
533		602
534	MODULE = EV PACKAGE = EV::Timer PREFIX = ev_timer_	603	MODULE = EV PACKAGE = EV::Timer PREFIX = ev_timer_
535		604
536	void ev_timer_start (struct ev_timer *w)	605	void ev_timer_start (struct ev_timer *w)
537	INIT:	606	INIT:
…		…
551	void set (struct ev_timer *w, NV after, NV repeat = 0.)	620	void set (struct ev_timer *w, NV after, NV repeat = 0.)
552	INIT:	621	INIT:
553	CHECK_REPEAT (repeat);	622	CHECK_REPEAT (repeat);
554	CODE:	623	CODE:
555	{	624	{
556	int active = w->active;	625	int active = ev_is_active (w);
557	if (active) ev_timer_stop (w);	626	if (active) ev_timer_stop (w);
558	ev_timer_set (w, after, repeat);	627	ev_timer_set (w, after, repeat);
559	if (active) ev_timer_start (w);	628	if (active) ev_timer_start (w);
560	}	629	}
561		630
…		…
575	void set (struct ev_periodic *w, NV at, NV interval = 0.)	644	void set (struct ev_periodic *w, NV at, NV interval = 0.)
576	INIT:	645	INIT:
577	CHECK_REPEAT (interval);	646	CHECK_REPEAT (interval);
578	CODE:	647	CODE:
579	{	648	{
580	int active = w->active;	649	int active = ev_is_active (w);
581	if (active) ev_periodic_stop (w);	650	if (active) ev_periodic_stop (w);
		651
582	ev_periodic_set (w, at, interval);	652	ev_periodic_set (w, at, interval);
		653
583	if (active) ev_periodic_start (w);	654	if (active) ev_periodic_start (w);
584	}	655	}
585		656
586	MODULE = EV PACKAGE = EV::Idle PREFIX = ev_idle_	657	MODULE = EV PACKAGE = EV::Idle PREFIX = ev_idle_
587		658
…		…
628	e_destroy (w);	699	e_destroy (w);
629		700
630	void set (struct ev_child *w, int pid)	701	void set (struct ev_child *w, int pid)
631	CODE:	702	CODE:
632	{	703	{
633	int active = w->active;	704	int active = ev_is_active (w);
634	if (active) ev_child_stop (w);	705	if (active) ev_child_stop (w);
		706
635	ev_child_set (w, pid);	707	ev_child_set (w, pid);
		708
636	if (active) ev_child_start (w);	709	if (active) ev_child_start (w);
637	}	710	}
638		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
639	int status (struct ev_child *w)	731	int rstatus (struct ev_child *w)
		732	ALIAS:
		733	rpid = 1
640	CODE:	734	CODE:
641	RETVAL = w->status;	735	RETVAL = ix ? w->rpid : w->rstatus;
642	OUTPUT:	736	OUTPUT:
643	RETVAL	737	RETVAL
		738
		739	#ifndef WIN32
644		740
645	MODULE = EV PACKAGE = EV::DNS PREFIX = evdns_	741	MODULE = EV PACKAGE = EV::DNS PREFIX = evdns_
646		742
647	BOOT:	743	BOOT:
648	{	744	{
…		…
773		869
774	#void DESTROY (struct evhttp_request *req);	870	#void DESTROY (struct evhttp_request *req);
775		871
776	#endif	872	#endif
777		873
		874	#endif
778		875
779		876
780		877
781		878
782		879

Diff Legend

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

Comparing EV/EV.xs (file contents): Revision 1.37 by root, Thu Nov 1 17:17:32 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.37 by root, Thu Nov 1 17:17:32 2007 UTC vs.
Revision 1.58 by root, Wed Nov 7 13:27:56 2007 UTC