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

Comparing EV/EV.xs (file contents):
Revision 1.34 by root, Thu Nov 1 12:11:07 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	#define EV_USE_EPOLL 1
9
10	#define EV_PROTOTYPES 1	7	#define EV_PROTOTYPES 1
11	#include "EV/EVAPI.h"	8	#include "EV/EVAPI.h"
12		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 */
13	#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
14		34
15	typedef int Signal;	35	typedef int Signal;
16		36
17	static struct EVAPI evapi;	37	static struct EVAPI evapi;
18		38
…		…
25	*stash_idle,	45	*stash_idle,
26	*stash_prepare,	46	*stash_prepare,
27	*stash_check,	47	*stash_check,
28	*stash_child;	48	*stash_child;
29		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
30	static int	56	static int
31	sv_signum (SV *sig)	57	sv_signum (SV *sig)
32	{	58	{
33	int signum;	59	int signum;
34		60
…		…
83	w->self = self;	109	w->self = self;
84		110
85	return (void *)w;	111	return (void *)w;
86	}	112	}
87		113
88	static void *	114	static void
89	e_destroy (void *w_)	115	e_destroy (void *w_)
90	{	116	{
91	struct ev_watcher *w = w_;	117	struct ev_watcher w = (struct ev_watcher )w_;
92		118
93	SvREFCNT_dec (w->fh ); w->fh = 0;	119	SvREFCNT_dec (w->fh ); w->fh = 0;
94	SvREFCNT_dec (w->cb_sv); w->cb_sv = 0;	120	SvREFCNT_dec (w->cb_sv); w->cb_sv = 0;
95	}	121	}
96		122
…		…
132	PUSHMARK (SP);	158	PUSHMARK (SP);
133	EXTEND (SP, 2);	159	EXTEND (SP, 2);
134	PUSHs (sv_self);	160	PUSHs (sv_self);
135	PUSHs (sv_events);	161	PUSHs (sv_events);
136		162
137	if (revents & EV_CHILD)
138	XPUSHs (sv_status = newSViv (((struct ev_child *)w)->status));
139
140	PUTBACK;	163	PUTBACK;
141	call_sv (w->cb_sv, G_DISCARD \| G_VOID \| G_EVAL);	164	call_sv (w->cb_sv, G_DISCARD \| G_VOID \| G_EVAL);
142	SP = PL_stack_base + mark; PUTBACK;	165	SP = PL_stack_base + mark; PUTBACK;
143		166
144	SvREFCNT_dec (sv_self);	167	SvREFCNT_dec (sv_self);
…		…
156	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);
157	SP = PL_stack_base + mark; PUTBACK;	180	SP = PL_stack_base + mark; PUTBACK;
158	}	181	}
159	}	182	}
160		183
161	#if 0
162	/////////////////////////////////////////////////////////////////////////////	184	/////////////////////////////////////////////////////////////////////////////
163	// DNS	185	// DNS
164		186
		187	#ifndef WIN32
165	static void	188	static void
166	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)
167	{	190	{
168	dSP;	191	dSP;
169	SV cb = (SV )arg;	192	SV cb = (SV )arg;
…		…
225		248
226	PROTOTYPES: ENABLE	249	PROTOTYPES: ENABLE
227		250
228	BOOT:	251	BOOT:
229	{	252	{
230	int i;
231	HV *stash = gv_stashpv ("EV", 1);	253	HV *stash = gv_stashpv ("EV", 1);
232		254
233	static const struct {	255	static const struct {
234	const char *name;	256	const char *name;
235	IV iv;	257	IV iv;
236	} *civ, const_iv[] = {	258	} *civ, const_iv[] = {
237	# 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
238	const_iv (EV_, UNDEF)	263	const_iv (EV_, UNDEF)
239	const_iv (EV_, NONE)	264	const_iv (EV_, NONE)
240	const_iv (EV_, TIMEOUT)	265	const_iv (EV_, TIMEOUT)
241	const_iv (EV_, READ)	266	const_iv (EV_, READ)
242	const_iv (EV_, WRITE)	267	const_iv (EV_, WRITE)
…		…
246	const_iv (EV_, ERROR)	271	const_iv (EV_, ERROR)
247		272
248	const_iv (EV, LOOP_ONESHOT)	273	const_iv (EV, LOOP_ONESHOT)
249	const_iv (EV, LOOP_NONBLOCK)	274	const_iv (EV, LOOP_NONBLOCK)
250		275
251	const_iv (EV, METHOD_NONE)	276	const_iv (EV, METHOD_AUTO)
252	const_iv (EV, METHOD_SELECT)	277	const_iv (EV, METHOD_SELECT)
		278	const_iv (EV, METHOD_POLL)
253	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)
254	};	284	};
255		285
256	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; )
257	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));	287	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
258		288
…		…
273	/* the poor man's shared library emulator */	303	/* the poor man's shared library emulator */
274	evapi.ver = EV_API_VERSION;	304	evapi.ver = EV_API_VERSION;
275	evapi.rev = EV_API_REVISION;	305	evapi.rev = EV_API_REVISION;
276	evapi.sv_fileno = sv_fileno;	306	evapi.sv_fileno = sv_fileno;
277	evapi.sv_signum = sv_signum;	307	evapi.sv_signum = sv_signum;
278	evapi.now = &ev_now;	308	evapi.now = ev_now;
279	evapi.method = &ev_method;	309	evapi.method = ev_method;
280	evapi.loop_done = &ev_loop_done;	310	evapi.unloop = ev_unloop;
281	evapi.time = ev_time;	311	evapi.time = ev_time;
282	evapi.loop = ev_loop;	312	evapi.loop = ev_loop;
283	evapi.once = ev_once;	313	evapi.once = ev_once;
284	evapi.io_start = ev_io_start;	314	evapi.io_start = ev_io_start;
285	evapi.io_stop = ev_io_stop;	315	evapi.io_stop = ev_io_stop;
…		…
300	evapi.child_stop = ev_child_stop;	330	evapi.child_stop = ev_child_stop;
301		331
302	sv_setiv (sv, (IV)&evapi);	332	sv_setiv (sv, (IV)&evapi);
303	SvREADONLY_on (sv);	333	SvREADONLY_on (sv);
304	}	334	}
305		335	#ifndef WIN32
306	pthread_atfork (ev_fork_prepare, ev_fork_parent, ev_fork_child);	336	pthread_atfork (0, 0, ev_default_fork);
		337	#endif
307	}	338	}
308		339
309	NV ev_now ()	340	NV ev_now ()
310	CODE:
311	RETVAL = ev_now;
312	OUTPUT:
313	RETVAL
314		341
315	int ev_method ()	342	int ev_method ()
316	CODE:
317	RETVAL = ev_method;
318	OUTPUT:
319	RETVAL
320		343
321	NV ev_time ()	344	NV ev_time ()
322		345
323	void ev_init (int flags = 0)	346	int ev_default_loop (int methods = EVMETHOD_AUTO)
324		347
325	void ev_loop (int flags = 0)	348	void ev_loop (int flags = 0)
326		349
327	void ev_loop_done (int value = 1)	350	void ev_unloop (int how = 1)
328	CODE:
329	ev_loop_done = value;
330		351
331	struct ev_io io (SV fh, int events, SV *cb)	352	struct ev_io io (SV fh, int events, SV *cb)
332	ALIAS:	353	ALIAS:
333	io_ns = 1	354	io_ns = 1
334	CODE:	355	CODE:
…		…
410		431
411	struct ev_child child (int pid, SV cb)	432	struct ev_child child (int pid, SV cb)
412	ALIAS:	433	ALIAS:
413	check_ns = 1	434	check_ns = 1
414	CODE:	435	CODE:
415	RETVAL = e_new (sizeof (struct ev_check), cb);	436	RETVAL = e_new (sizeof (struct ev_child), cb);
416	ev_child_set (RETVAL, pid);	437	ev_child_set (RETVAL, pid);
417	if (!ix) ev_child_start (RETVAL);	438	if (!ix) ev_child_start (RETVAL);
418	OUTPUT:	439	OUTPUT:
419	RETVAL	440	RETVAL
420		441
…		…
438		459
439	void trigger (struct ev_watcher *w, int revents = EV_NONE)	460	void trigger (struct ev_watcher *w, int revents = EV_NONE)
440	CODE:	461	CODE:
441	w->cb (w, revents);	462	w->cb (w, revents);
442		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
443	MODULE = EV PACKAGE = EV::Io PREFIX = ev_io_	497	MODULE = EV PACKAGE = EV::Io PREFIX = ev_io_
444		498
445	void ev_io_start (struct ev_io *w)	499	void ev_io_start (struct ev_io *w)
446		500
447	void ev_io_stop (struct ev_io *w)	501	void ev_io_stop (struct ev_io *w)
…		…
452	e_destroy (w);	506	e_destroy (w);
453		507
454	void set (struct ev_io w, SV fh, int events)	508	void set (struct ev_io w, SV fh, int events)
455	CODE:	509	CODE:
456	{	510	{
457	int active = w->active;	511	int active = ev_is_active (w);
458	int fd = sv_fileno (fh);	512	int fd = sv_fileno (fh);
459	CHECK_FD (fh, fd);	513	CHECK_FD (fh, fd);
460		514
461	if (active) ev_io_stop (w);	515	if (active) ev_io_stop (w);
462		516
…		…
471	{	525	{
472	RETVAL = newSVsv (w->fh);	526	RETVAL = newSVsv (w->fh);
473		527
474	if (items > 1)	528	if (items > 1)
475	{	529	{
476	int active = w->active;	530	int active = ev_is_active (w);
477	if (active) ev_io_stop (w);	531	if (active) ev_io_stop (w);
478		532
479	sv_setsv (w->fh, new_fh);	533	sv_setsv (w->fh, new_fh);
480	ev_io_set (w, sv_fileno (w->fh), w->events);	534	ev_io_set (w, sv_fileno (w->fh), w->events);
481		535
…		…
483	}	537	}
484	}	538	}
485	OUTPUT:	539	OUTPUT:
486	RETVAL	540	RETVAL
487		541
488	short events (struct ev_io *w, short new_events = EV_UNDEF)	542	int events (struct ev_io *w, int new_events = EV_UNDEF)
489	CODE:	543	CODE:
490	{	544	{
491	RETVAL = w->events;	545	RETVAL = w->events;
492		546
493	if (items > 1)	547	if (items > 1)
494	{	548	{
495	int active = w->active;	549	int active = ev_is_active (w);
496	if (active) ev_io_stop (w);	550	if (active) ev_io_stop (w);
497		551
498	ev_io_set (w, w->fd, new_events);	552	ev_io_set (w, w->fd, new_events);
499		553
500	if (active) ev_io_start (w);	554	if (active) ev_io_start (w);
…		…
512	void DESTROY (struct ev_signal *w)	566	void DESTROY (struct ev_signal *w)
513	CODE:	567	CODE:
514	ev_signal_stop (w);	568	ev_signal_stop (w);
515	e_destroy (w);	569	e_destroy (w);
516		570
517	void set (struct ev_signal w, SV signal = 0)	571	void set (struct ev_signal w, SV signal)
518	CODE:	572	CODE:
519	{	573	{
520	Signal signum = sv_signum (signal); /* may croak here */	574	Signal signum = sv_signum (signal); /* may croak here */
521	int active = w->active;	575	int active = ev_is_active (w);
522		576
523	if (active) ev_signal_stop (w);	577	if (active) ev_signal_stop (w);
		578
524	ev_signal_set (w, signum);	579	ev_signal_set (w, signum);
		580
525	if (active) ev_signal_start (w);	581	if (active) ev_signal_start (w);
526	}	582	}
527		583
528	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
529		602
530	MODULE = EV PACKAGE = EV::Timer PREFIX = ev_timer_	603	MODULE = EV PACKAGE = EV::Timer PREFIX = ev_timer_
531		604
532	void ev_timer_start (struct ev_timer *w)	605	void ev_timer_start (struct ev_timer *w)
533	INIT:	606	INIT:
…		…
547	void set (struct ev_timer *w, NV after, NV repeat = 0.)	620	void set (struct ev_timer *w, NV after, NV repeat = 0.)
548	INIT:	621	INIT:
549	CHECK_REPEAT (repeat);	622	CHECK_REPEAT (repeat);
550	CODE:	623	CODE:
551	{	624	{
552	int active = w->active;	625	int active = ev_is_active (w);
553	if (active) ev_timer_stop (w);	626	if (active) ev_timer_stop (w);
554	ev_timer_set (w, after, repeat);	627	ev_timer_set (w, after, repeat);
555	if (active) ev_timer_start (w);	628	if (active) ev_timer_start (w);
556	}	629	}
557		630
…		…
571	void set (struct ev_periodic *w, NV at, NV interval = 0.)	644	void set (struct ev_periodic *w, NV at, NV interval = 0.)
572	INIT:	645	INIT:
573	CHECK_REPEAT (interval);	646	CHECK_REPEAT (interval);
574	CODE:	647	CODE:
575	{	648	{
576	int active = w->active;	649	int active = ev_is_active (w);
577	if (active) ev_periodic_stop (w);	650	if (active) ev_periodic_stop (w);
		651
578	ev_periodic_set (w, at, interval);	652	ev_periodic_set (w, at, interval);
		653
579	if (active) ev_periodic_start (w);	654	if (active) ev_periodic_start (w);
580	}	655	}
581		656
582	MODULE = EV PACKAGE = EV::Idle PREFIX = ev_idle_	657	MODULE = EV PACKAGE = EV::Idle PREFIX = ev_idle_
583		658
…		…
624	e_destroy (w);	699	e_destroy (w);
625		700
626	void set (struct ev_child *w, int pid)	701	void set (struct ev_child *w, int pid)
627	CODE:	702	CODE:
628	{	703	{
629	int active = w->active;	704	int active = ev_is_active (w);
630	if (active) ev_child_stop (w);	705	if (active) ev_child_stop (w);
		706
631	ev_child_set (w, pid);	707	ev_child_set (w, pid);
		708
632	if (active) ev_child_start (w);	709	if (active) ev_child_start (w);
633	}	710	}
634		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
635	int status (struct ev_child *w)	731	int rstatus (struct ev_child *w)
		732	ALIAS:
		733	rpid = 1
636	CODE:	734	CODE:
637	RETVAL = w->status;	735	RETVAL = ix ? w->rpid : w->rstatus;
638	OUTPUT:	736	OUTPUT:
639	RETVAL	737	RETVAL
640		738
641	#if 0	739	#ifndef WIN32
642		740
643	MODULE = EV PACKAGE = EV::DNS PREFIX = evdns_	741	MODULE = EV PACKAGE = EV::DNS PREFIX = evdns_
644		742
645	BOOT:	743	BOOT:
646	{	744	{
…		…
729		827
730	void evdns_search_add (char *domain)	828	void evdns_search_add (char *domain)
731		829
732	void evdns_search_ndots_set (int ndots)	830	void evdns_search_ndots_set (int ndots)
733		831
		832	#if 0
734		833
735	MODULE = EV PACKAGE = EV::HTTP PREFIX = evhttp_	834	MODULE = EV PACKAGE = EV::HTTP PREFIX = evhttp_
736		835
737	BOOT:	836	BOOT:
738	{	837	{
…		…
770		869
771	#void DESTROY (struct evhttp_request *req);	870	#void DESTROY (struct evhttp_request *req);
772		871
773	#endif	872	#endif
774		873
		874	#endif
775		875
776		876
777		877
778		878
779		879

Diff Legend

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

Comparing EV/EV.xs (file contents): Revision 1.34 by root, Thu Nov 1 12:11:07 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.34 by root, Thu Nov 1 12:11:07 2007 UTC vs.
Revision 1.58 by root, Wed Nov 7 13:27:56 2007 UTC