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

Comparing EV/EV.xs (file contents):
Revision 1.138 by root, Wed Apr 14 00:17:22 2010 UTC vs.
Revision 1.159 by root, Mon Apr 2 20:12:15 2012 UTC

…		…
15	return s_fileno (fh, 0);	15	return s_fileno (fh, 0);
16	}	16	}
17		17
18	#define EV_STANDALONE 1	18	#define EV_STANDALONE 1
19	#define EV_PROTOTYPES 1	19	#define EV_PROTOTYPES 1
		20	#define EV_USE_CLOCK_SYSCALL 0 /* as long as we need pthreads anyways... */
20	#define EV_USE_NANOSLEEP EV_USE_MONOTONIC	21	#define EV_USE_NANOSLEEP EV_USE_MONOTONIC
		22	#define EV_USE_FLOOR 1
		23	#define EV_API_STATIC
21	#define EV_H <ev.h>	24	#define EV_H <ev.h>
22	#define EV_CONFIG_H error	25	#define EV_CONFIG_H error
23	#include "EV/EVAPI.h"	26	#include "EV/EVAPI.h"
24		27
25	#define EV_SELECT_IS_WINSOCKET 0	28	#define EV_SELECT_IS_WINSOCKET 0
…		…
29	# define fd_mask Perl_fd_mask	32	# define fd_mask Perl_fd_mask
30	#endif	33	#endif
31	/* due to bugs in OS X we have to use libev/ explicitly here */	34	/* due to bugs in OS X we have to use libev/ explicitly here */
32	#include "libev/ev.c"	35	#include "libev/ev.c"
33		36
34	#ifndef _WIN32	37	#if !defined _WIN32 && !defined _MINIX
35	# include <pthread.h>	38	# include <pthread.h>
36	#endif	39	#endif
37		40
38	#define e_loop(w) INT2PTR (struct ev_loop , SvIVX (((ev_watcher )(w))->loop))	41	#define e_loop(w) INT2PTR (struct ev_loop , SvIVX (((ev_watcher )(w))->loop))
39	#define e_flags(w) ((ev_watcher *)(w))->e_flags	42	#define e_flags(w) ((ev_watcher *)(w))->e_flags
…		…
120	*stash_idle,	123	*stash_idle,
121	*stash_prepare,	124	*stash_prepare,
122	*stash_check,	125	*stash_check,
123	*stash_embed,	126	*stash_embed,
124	*stash_fork,	127	*stash_fork,
		128	*stash_cleanup,
125	*stash_async;	129	*stash_async;
126		130
127	/////////////////////////////////////////////////////////////////////////////	131	/////////////////////////////////////////////////////////////////////////////
128	// Event	132	// Event
129		133
130	static void e_cb (EV_P_ ev_watcher *w, int revents);	134	static void e_cb (EV_P_ ev_watcher *w, int revents);
131		135
132	void *	136	static void *
133	e_new (int size, SV cb_sv, SV loop)	137	e_new (int size, SV cb_sv, SV loop)
134	{	138	{
135	SV *cv = cb_sv ? s_get_cv_croak (cb_sv) : 0;	139	SV *cv = cb_sv ? s_get_cv_croak (cb_sv) : 0;
136	ev_watcher *w;	140	ev_watcher *w;
137	SV *self = NEWSV (0, size);	141	SV *self = NEWSV (0, size);
…		…
207		211
208	if (expect_true (sv_events_cache))	212	if (expect_true (sv_events_cache))
209	{	213	{
210	sv_events = sv_events_cache; sv_events_cache = 0;	214	sv_events = sv_events_cache; sv_events_cache = 0;
211	SvIV_set (sv_events, revents);	215	SvIV_set (sv_events, revents);
		216	SvIOK_only (sv_events);
212	}	217	}
213	else	218	else
214	{	219	{
215	sv_events = newSViv (revents);	220	sv_events = newSViv (revents);
216	SvREADONLY_on (sv_events);	221	SvREADONLY_on (sv_events);
…		…
340	croak ("illegal file descriptor or filehandle (either no attached file descriptor or illegal value): %s", SvPV_nolen (fh));	345	croak ("illegal file descriptor or filehandle (either no attached file descriptor or illegal value): %s", SvPV_nolen (fh));
341		346
342	#define CHECK_SIG(sv,num) if ((num) < 0) \	347	#define CHECK_SIG(sv,num) if ((num) < 0) \
343	croak ("illegal signal number or name: %s", SvPV_nolen (sv));	348	croak ("illegal signal number or name: %s", SvPV_nolen (sv));
344		349
		350	static void
		351	default_fork (void)
		352	{
		353	ev_loop_fork (EV_DEFAULT_UC);
		354	}
		355
345	/////////////////////////////////////////////////////////////////////////////	356	/////////////////////////////////////////////////////////////////////////////
346	// XS interface functions	357	// XS interface functions
347		358
348	MODULE = EV PACKAGE = EV PREFIX = ev_	359	MODULE = EV PACKAGE = EV PREFIX = ev_
349		360
…		…
364	const_iv (EV_, UNDEF)	375	const_iv (EV_, UNDEF)
365	const_iv (EV_, NONE)	376	const_iv (EV_, NONE)
366	const_iv (EV_, READ)	377	const_iv (EV_, READ)
367	const_iv (EV_, WRITE)	378	const_iv (EV_, WRITE)
368	const_iv (EV_, IO)	379	const_iv (EV_, IO)
369	const_iv (EV_, TIMEOUT) /* deprecated */
370	const_iv (EV_, TIMER)	380	const_iv (EV_, TIMER)
371	const_iv (EV_, PERIODIC)	381	const_iv (EV_, PERIODIC)
372	const_iv (EV_, SIGNAL)	382	const_iv (EV_, SIGNAL)
373	const_iv (EV_, CHILD)	383	const_iv (EV_, CHILD)
374	const_iv (EV_, STAT)	384	const_iv (EV_, STAT)
375	const_iv (EV_, IDLE)	385	const_iv (EV_, IDLE)
376	const_iv (EV_, PREPARE)	386	const_iv (EV_, PREPARE)
377	const_iv (EV_, CHECK)	387	const_iv (EV_, CHECK)
378	const_iv (EV_, EMBED)	388	const_iv (EV_, EMBED)
379	const_iv (EV_, FORK)	389	const_iv (EV_, FORK)
		390	const_iv (EV_, CLEANUP)
380	const_iv (EV_, ASYNC)	391	const_iv (EV_, ASYNC)
381	const_iv (EV_, CUSTOM)	392	const_iv (EV_, CUSTOM)
382	const_iv (EV_, ERROR)	393	const_iv (EV_, ERROR)
383		394
384	const_iv (EV, LOOP_NONBLOCK)
385	const_iv (EV, LOOP_ONESHOT)
386
387	const_iv (EV, UNLOOP_CANCEL)	395	const_iv (EV, RUN_NOWAIT)
388	const_iv (EV, UNLOOP_ONE)	396	const_iv (EV, RUN_ONCE)
		397
		398	const_iv (EV, BREAK_CANCEL)
		399	const_iv (EV, BREAK_ONE)
389	const_iv (EV, UNLOOP_ALL)	400	const_iv (EV, BREAK_ALL)
390
391	const_iv (EV, BACKEND_SELECT)	401	const_iv (EV, BACKEND_SELECT)
392	const_iv (EV, BACKEND_POLL)	402	const_iv (EV, BACKEND_POLL)
393	const_iv (EV, BACKEND_EPOLL)	403	const_iv (EV, BACKEND_EPOLL)
394	const_iv (EV, BACKEND_KQUEUE)	404	const_iv (EV, BACKEND_KQUEUE)
395	const_iv (EV, BACKEND_DEVPOLL)	405	const_iv (EV, BACKEND_DEVPOLL)
396	const_iv (EV, BACKEND_PORT)	406	const_iv (EV, BACKEND_PORT)
397	const_iv (EV, BACKEND_ALL)	407	const_iv (EV, BACKEND_ALL)
		408	const_iv (EV, BACKEND_MASK)
398	const_iv (EV, FLAG_AUTO)	409	const_iv (EV, FLAG_AUTO)
399	const_iv (EV, FLAG_FORKCHECK)	410	const_iv (EV, FLAG_FORKCHECK)
400	const_iv (EV, FLAG_SIGNALFD)	411	const_iv (EV, FLAG_SIGNALFD)
		412	const_iv (EV, FLAG_NOSIGMASK)
401	const_iv (EV, FLAG_NOENV)	413	const_iv (EV, FLAG_NOENV)
402	const_iv (EV, FLAG_NOSIGFD) /* compatibility, always 0 */
403	const_iv (EV, FLAG_NOINOTIFY)	414	const_iv (EV, FLAG_NOINOTIFY)
404		415
405	const_iv (EV_, VERSION_MAJOR)	416	const_iv (EV_, VERSION_MAJOR)
406	const_iv (EV_, VERSION_MINOR)	417	const_iv (EV_, VERSION_MINOR)
		418	#if EV_COMPAT3
		419	const_iv (EV, FLAG_NOSIGFD) /* compatibility, always 0 */
		420	const_iv (EV_, TIMEOUT)
		421	const_iv (EV, LOOP_NONBLOCK)
		422	const_iv (EV, LOOP_ONESHOT)
		423	const_iv (EV, UNLOOP_CANCEL)
		424	const_iv (EV, UNLOOP_ONE)
		425	const_iv (EV, UNLOOP_ALL)
		426	#endif
407	};	427	};
408		428
409	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )	429	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ > const_iv; civ--)
410	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));	430	newCONSTSUB (stash, (char *)civ[-1].name, newSViv (civ[-1].iv));
411		431
412	stash_loop = gv_stashpv ("EV::Loop" , 1);	432	stash_loop = gv_stashpv ("EV::Loop" , 1);
413	stash_watcher = gv_stashpv ("EV::Watcher" , 1);	433	stash_watcher = gv_stashpv ("EV::Watcher" , 1);
414	stash_io = gv_stashpv ("EV::IO" , 1);	434	stash_io = gv_stashpv ("EV::IO" , 1);
415	stash_timer = gv_stashpv ("EV::Timer" , 1);	435	stash_timer = gv_stashpv ("EV::Timer" , 1);
…		…
420	stash_check = gv_stashpv ("EV::Check" , 1);	440	stash_check = gv_stashpv ("EV::Check" , 1);
421	stash_child = gv_stashpv ("EV::Child" , 1);	441	stash_child = gv_stashpv ("EV::Child" , 1);
422	stash_embed = gv_stashpv ("EV::Embed" , 1);	442	stash_embed = gv_stashpv ("EV::Embed" , 1);
423	stash_stat = gv_stashpv ("EV::Stat" , 1);	443	stash_stat = gv_stashpv ("EV::Stat" , 1);
424	stash_fork = gv_stashpv ("EV::Fork" , 1);	444	stash_fork = gv_stashpv ("EV::Fork" , 1);
		445	stash_cleanup = gv_stashpv ("EV::Cleanup" , 1);
425	stash_async = gv_stashpv ("EV::Async" , 1);	446	stash_async = gv_stashpv ("EV::Async" , 1);
426		447
427	{	448	{
428	SV *sv = perl_get_sv ("EV::API", TRUE);	449	SV *sv = perl_get_sv ("EV::API", TRUE);
429	perl_get_sv ("EV::API", TRUE); /* silence 5.10 warning */	450	perl_get_sv ("EV::API", TRUE); /* silence 5.10 warning */
…		…
448	evapi.now = ev_now;	469	evapi.now = ev_now;
449	evapi.now_update = ev_now_update;	470	evapi.now_update = ev_now_update;
450	evapi.suspend = ev_suspend;	471	evapi.suspend = ev_suspend;
451	evapi.resume = ev_resume;	472	evapi.resume = ev_resume;
452	evapi.backend = ev_backend;	473	evapi.backend = ev_backend;
453	evapi.unloop = ev_unloop;	474	evapi.break_ = ev_break;
454	evapi.invoke_pending = ev_invoke_pending;	475	evapi.invoke_pending = ev_invoke_pending;
455	evapi.pending_count = ev_pending_count;	476	evapi.pending_count = ev_pending_count;
456	evapi.verify = ev_verify;	477	evapi.verify = ev_verify;
457	evapi.set_loop_release_cb = ev_set_loop_release_cb;	478	evapi.set_loop_release_cb = ev_set_loop_release_cb;
458	evapi.set_invoke_pending_cb= ev_set_invoke_pending_cb;	479	evapi.set_invoke_pending_cb= ev_set_invoke_pending_cb;
459	evapi.ref = ev_ref;	480	evapi.ref = ev_ref;
460	evapi.unref = ev_unref;	481	evapi.unref = ev_unref;
461	evapi.loop = ev_loop;	482	evapi.run = ev_run;
462	evapi.once = ev_once;	483	evapi.once = ev_once;
463	evapi.io_start = ev_io_start;	484	evapi.io_start = ev_io_start;
464	evapi.io_stop = ev_io_stop;	485	evapi.io_stop = ev_io_stop;
465	evapi.timer_start = ev_timer_start;	486	evapi.timer_start = ev_timer_start;
466	evapi.timer_stop = ev_timer_stop;	487	evapi.timer_stop = ev_timer_stop;
…		…
474	evapi.idle_stop = ev_idle_stop;	495	evapi.idle_stop = ev_idle_stop;
475	evapi.prepare_start = ev_prepare_start;	496	evapi.prepare_start = ev_prepare_start;
476	evapi.prepare_stop = ev_prepare_stop;	497	evapi.prepare_stop = ev_prepare_stop;
477	evapi.check_start = ev_check_start;	498	evapi.check_start = ev_check_start;
478	evapi.check_stop = ev_check_stop;	499	evapi.check_stop = ev_check_stop;
		500	#if EV_CHILD_ENABLE
479	evapi.child_start = ev_child_start;	501	evapi.child_start = ev_child_start;
480	evapi.child_stop = ev_child_stop;	502	evapi.child_stop = ev_child_stop;
		503	#endif
481	evapi.stat_start = ev_stat_start;	504	evapi.stat_start = ev_stat_start;
482	evapi.stat_stop = ev_stat_stop;	505	evapi.stat_stop = ev_stat_stop;
483	evapi.stat_stat = ev_stat_stat;	506	evapi.stat_stat = ev_stat_stat;
484	evapi.embed_start = ev_embed_start;	507	evapi.embed_start = ev_embed_start;
485	evapi.embed_stop = ev_embed_stop;	508	evapi.embed_stop = ev_embed_stop;
486	evapi.embed_sweep = ev_embed_sweep;	509	evapi.embed_sweep = ev_embed_sweep;
487	evapi.fork_start = ev_fork_start;	510	evapi.fork_start = ev_fork_start;
488	evapi.fork_stop = ev_fork_stop;	511	evapi.fork_stop = ev_fork_stop;
		512	evapi.cleanup_start = ev_cleanup_start;
		513	evapi.cleanup_stop = ev_cleanup_stop;
489	evapi.async_start = ev_async_start;	514	evapi.async_start = ev_async_start;
490	evapi.async_stop = ev_async_stop;	515	evapi.async_stop = ev_async_stop;
491	evapi.async_send = ev_async_send;	516	evapi.async_send = ev_async_send;
492	evapi.clear_pending = ev_clear_pending;	517	evapi.clear_pending = ev_clear_pending;
493	evapi.invoke = ev_invoke;	518	evapi.invoke = ev_invoke;
494		519
495	sv_setiv (sv, (IV)&evapi);	520	sv_setiv (sv, (IV)&evapi);
496	SvREADONLY_on (sv);	521	SvREADONLY_on (sv);
497	}	522	}
498	#ifndef _WIN32	523	#if !defined _WIN32 && !defined _MINIX
499	pthread_atfork (0, 0, ev_default_fork);	524	pthread_atfork (0, 0, default_fork);
500	#endif	525	#endif
501	}	526	}
502		527
503	SV *ev_default_loop (unsigned int flags = 0)	528	SV *ev_default_loop (unsigned int flags = 0)
504	CODE:	529	CODE:
…		…
518	OUTPUT:	543	OUTPUT:
519	RETVAL	544	RETVAL
520		545
521	void ev_default_destroy ()	546	void ev_default_destroy ()
522	CODE:	547	CODE:
523	ev_default_destroy ();	548	ev_loop_destroy (EV_DEFAULT_UC);
524	SvREFCNT_dec (default_loop_sv);	549	SvREFCNT_dec (default_loop_sv);
525	default_loop_sv = 0;	550	default_loop_sv = 0;
526		551
527	unsigned int ev_supported_backends ()	552	unsigned int ev_supported_backends ()
528		553
…		…
532		557
533	void ev_sleep (NV interval)	558	void ev_sleep (NV interval)
534		559
535	NV ev_time ()	560	NV ev_time ()
536		561
		562	void ev_feed_signal (SV *signal)
		563	CODE:
		564	{
		565	Signal signum = s_signum (signal);
		566	CHECK_SIG (signal, signum);
		567
		568	ev_feed_signal (signum);
		569	}
		570
537	NV ev_now ()	571	NV ev_now ()
538	C_ARGS: evapi.default_loop	572	C_ARGS: evapi.default_loop
539		573
540	void ev_now_update ()	574	void ev_now_update ()
541	C_ARGS: evapi.default_loop	575	C_ARGS: evapi.default_loop
…		…
548		582
549	unsigned int ev_backend ()	583	unsigned int ev_backend ()
550	C_ARGS: evapi.default_loop	584	C_ARGS: evapi.default_loop
551		585
552	void ev_verify ()	586	void ev_verify ()
		587	ALIAS:
		588	loop_verify = 1
553	C_ARGS: evapi.default_loop	589	C_ARGS: evapi.default_loop
554		590
555	unsigned int ev_iteration ()	591	unsigned int ev_iteration ()
		592	ALIAS:
		593	loop_count = 1
556	C_ARGS: evapi.default_loop	594	C_ARGS: evapi.default_loop
557		595
558	unsigned int ev_depth ()	596	unsigned int ev_depth ()
		597	ALIAS:
		598	loop_depth = 1
559	C_ARGS: evapi.default_loop	599	C_ARGS: evapi.default_loop
560		600
561	void ev_set_io_collect_interval (NV interval)	601	void ev_set_io_collect_interval (NV interval)
562	C_ARGS: evapi.default_loop, interval	602	C_ARGS: evapi.default_loop, interval
563		603
564	void ev_set_timeout_collect_interval (NV interval)	604	void ev_set_timeout_collect_interval (NV interval)
565	C_ARGS: evapi.default_loop, interval	605	C_ARGS: evapi.default_loop, interval
566		606
567	void ev_loop (int flags = 0)	607	void ev_run (int flags = 0)
		608	ALIAS:
		609	loop = 1
568	C_ARGS: evapi.default_loop, flags	610	C_ARGS: evapi.default_loop, flags
569		611
570	void ev_unloop (int how = EVUNLOOP_ONE)	612	void ev_break (int how = EVBREAK_ONE)
		613	ALIAS:
		614	unloop = 1
571	C_ARGS: evapi.default_loop, how	615	C_ARGS: evapi.default_loop, how
572		616
573	void ev_feed_fd_event (int fd, int revents = EV_NONE)	617	void ev_feed_fd_event (int fd, int revents = EV_NONE)
574	C_ARGS: evapi.default_loop, fd, revents	618	C_ARGS: evapi.default_loop, fd, revents
575		619
…		…
693	ev_fork_set (RETVAL);	737	ev_fork_set (RETVAL);
694	if (!ix) START (fork, RETVAL);	738	if (!ix) START (fork, RETVAL);
695	OUTPUT:	739	OUTPUT:
696	RETVAL	740	RETVAL
697		741
		742	ev_cleanup cleanup (SV cb)
		743	ALIAS:
		744	cleanup_ns = 1
		745	CODE:
		746	RETVAL = e_new (sizeof (ev_cleanup), cb, default_loop_sv);
		747	ev_cleanup_set (RETVAL);
		748	if (!ix) START (cleanup, RETVAL);
		749	OUTPUT:
		750	RETVAL
		751
698	ev_child child (int pid, int trace, SV cb)	752	ev_child child (int pid, int trace, SV cb)
699	ALIAS:	753	ALIAS:
700	child_ns = 1	754	child_ns = 1
701	CODE:	755	CODE:
		756	#if EV_CHILD_ENABLE
702	RETVAL = e_new (sizeof (ev_child), cb, default_loop_sv);	757	RETVAL = e_new (sizeof (ev_child), cb, default_loop_sv);
703	ev_child_set (RETVAL, pid, trace);	758	ev_child_set (RETVAL, pid, trace);
704	if (!ix) START (child, RETVAL);	759	if (!ix) START (child, RETVAL);
		760	#else
		761	croak ("EV::child watchers not supported on this platform");
		762	#endif
705	OUTPUT:	763	OUTPUT:
706	RETVAL	764	RETVAL
		765
707		766
708	ev_stat stat (SV path, NV interval, SV *cb)	767	ev_stat stat (SV path, NV interval, SV *cb)
709	ALIAS:	768	ALIAS:
710	stat_ns = 1	769	stat_ns = 1
711	CODE:	770	CODE:
…		…
714	ev_stat_set (RETVAL, SvPVbyte_nolen (e_fh (RETVAL)), interval);	773	ev_stat_set (RETVAL, SvPVbyte_nolen (e_fh (RETVAL)), interval);
715	if (!ix) START (stat, RETVAL);	774	if (!ix) START (stat, RETVAL);
716	OUTPUT:	775	OUTPUT:
717	RETVAL	776	RETVAL
718		777
		778	#ifndef EV_NO_LOOPS
		779
719	ev_embed embed (struct ev_loop loop, SV *cb = 0)	780	ev_embed embed (struct ev_loop loop, SV *cb = 0)
720	ALIAS:	781	ALIAS:
721	embed_ns = 1	782	embed_ns = 1
722	CODE:	783	CODE:
723	{	784	{
…		…
729	ev_embed_set (RETVAL, loop);	790	ev_embed_set (RETVAL, loop);
730	if (!ix) START (embed, RETVAL);	791	if (!ix) START (embed, RETVAL);
731	}	792	}
732	OUTPUT:	793	OUTPUT:
733	RETVAL	794	RETVAL
		795
		796	#endif
734		797
735	ev_async async (SV cb)	798	ev_async async (SV cb)
736	ALIAS:	799	ALIAS:
737	async_ns = 1	800	async_ns = 1
738	CODE:	801	CODE:
…		…
1077	void DESTROY (ev_fork *w)	1140	void DESTROY (ev_fork *w)
1078	CODE:	1141	CODE:
1079	STOP (fork, w);	1142	STOP (fork, w);
1080	e_destroy (w);	1143	e_destroy (w);
1081		1144
		1145	MODULE = EV PACKAGE = EV::Cleanup PREFIX = ev_cleanup_
		1146
		1147	void ev_cleanup_start (ev_cleanup *w)
		1148	CODE:
		1149	START (cleanup, w);
		1150
		1151	void ev_cleanup_stop (ev_cleanup *w)
		1152	CODE:
		1153	STOP (cleanup, w);
		1154
		1155	void DESTROY (ev_cleanup *w)
		1156	CODE:
		1157	STOP (cleanup, w);
		1158	e_destroy (w);
		1159
		1160	int keepalive (ev_watcher *w, int new_value = 0)
		1161	CODE:
		1162	RETVAL = 0;
		1163	OUTPUT:
		1164	RETVAL
		1165
1082	MODULE = EV PACKAGE = EV::Child PREFIX = ev_child_	1166	MODULE = EV PACKAGE = EV::Child PREFIX = ev_child_
		1167
		1168	#if EV_CHILD_ENABLE
1083		1169
1084	void ev_child_start (ev_child *w)	1170	void ev_child_start (ev_child *w)
1085	CODE:	1171	CODE:
1086	START (child, w);	1172	START (child, w);
1087		1173
…		…
1106	RETVAL = ix == 0 ? w->pid	1192	RETVAL = ix == 0 ? w->pid
1107	: ix == 1 ? w->rpid	1193	: ix == 1 ? w->rpid
1108	: w->rstatus;	1194	: w->rstatus;
1109	OUTPUT:	1195	OUTPUT:
1110	RETVAL	1196	RETVAL
		1197
		1198	#endif
1111		1199
1112	MODULE = EV PACKAGE = EV::Stat PREFIX = ev_stat_	1200	MODULE = EV PACKAGE = EV::Stat PREFIX = ev_stat_
1113		1201
1114	void ev_stat_start (ev_stat *w)	1202	void ev_stat_start (ev_stat *w)
1115	CODE:	1203	CODE:
…		…
1256	CODE:	1344	CODE:
1257	RETVAL = boolSV (ev_async_pending (w));	1345	RETVAL = boolSV (ev_async_pending (w));
1258	OUTPUT:	1346	OUTPUT:
1259	RETVAL	1347	RETVAL
1260		1348
		1349	#ifndef EV_NO_LOOPS
		1350
1261	MODULE = EV PACKAGE = EV::Loop PREFIX = ev_	1351	MODULE = EV PACKAGE = EV::Loop PREFIX = ev_
1262		1352
1263	SV new (SV klass, unsigned int flags = 0)	1353	SV new (SV klass, unsigned int flags = 0)
1264	CODE:	1354	CODE:
1265	{	1355	{
…		…
1273	OUTPUT:	1363	OUTPUT:
1274	RETVAL	1364	RETVAL
1275		1365
1276	void DESTROY (struct ev_loop *loop)	1366	void DESTROY (struct ev_loop *loop)
1277	CODE:	1367	CODE:
1278	if (loop != evapi.default_loop) /* global destruction sucks */	1368	/* 1. the default loop shouldn't be freed by destroying it'S pelr loop object */
		1369	/* 2. not doing so helps avoid many global destruction bugs in perl, too */
		1370	if (loop != evapi.default_loop)
1279	ev_loop_destroy (loop);	1371	ev_loop_destroy (loop);
1280		1372
1281	void ev_loop_fork (struct ev_loop *loop)	1373	void ev_loop_fork (struct ev_loop *loop)
1282		1374
		1375	NV ev_now (struct ev_loop *loop)
		1376
		1377	void ev_now_update (struct ev_loop *loop)
		1378
		1379	void ev_suspend (struct ev_loop *loop)
		1380
		1381	void ev_resume (struct ev_loop *loop)
		1382
		1383	void ev_set_io_collect_interval (struct ev_loop *loop, NV interval)
		1384
		1385	void ev_set_timeout_collect_interval (struct ev_loop *loop, NV interval)
		1386
		1387	unsigned int ev_backend (struct ev_loop *loop)
		1388
1283	void ev_verify (struct ev_loop *loop)	1389	void ev_verify (struct ev_loop *loop)
1284		1390	ALIAS:
1285	NV ev_now (struct ev_loop *loop)	1391	loop_verify = 1
1286
1287	void ev_now_update (struct ev_loop *loop)
1288
1289	void ev_suspend (struct ev_loop *loop)
1290
1291	void ev_resume (struct ev_loop *loop)
1292
1293	void ev_set_io_collect_interval (struct ev_loop *loop, NV interval)
1294
1295	void ev_set_timeout_collect_interval (struct ev_loop *loop, NV interval)
1296
1297	unsigned int ev_backend (struct ev_loop *loop)
1298		1392
1299	unsigned int ev_iteration (struct ev_loop *loop)	1393	unsigned int ev_iteration (struct ev_loop *loop)
		1394	ALIAS:
		1395	loop_count = 1
1300		1396
1301	unsigned int ev_depth (struct ev_loop *loop)	1397	unsigned int ev_depth (struct ev_loop *loop)
		1398	ALIAS:
		1399	loop_depth = 1
1302		1400
1303	void ev_loop (struct ev_loop *loop, int flags = 0)	1401	void ev_run (struct ev_loop *loop, int flags = 0)
		1402	ALIAS:
		1403	loop = 1
1304		1404
1305	void ev_unloop (struct ev_loop *loop, int how = 1)	1405	void ev_break (struct ev_loop *loop, int how = 1)
		1406	ALIAS:
		1407	unloop = 1
1306		1408
1307	void ev_feed_fd_event (struct ev_loop *loop, int fd, int revents = EV_NONE)	1409	void ev_feed_fd_event (struct ev_loop *loop, int fd, int revents = EV_NONE)
1308		1410
1309	unsigned int ev_pending_count (struct ev_loop *loop)	1411	unsigned int ev_pending_count (struct ev_loop *loop)
1310		1412
…		…
1421	ev_fork_set (RETVAL);	1523	ev_fork_set (RETVAL);
1422	if (!ix) START (fork, RETVAL);	1524	if (!ix) START (fork, RETVAL);
1423	OUTPUT:	1525	OUTPUT:
1424	RETVAL	1526	RETVAL
1425		1527
		1528	ev_cleanup cleanup (struct ev_loop loop, SV *cb)
		1529	ALIAS:
		1530	cleanup_ns = 1
		1531	CODE:
		1532	RETVAL = e_new (sizeof (ev_cleanup), cb, ST (0));
		1533	ev_cleanup_set (RETVAL);
		1534	if (!ix) START (cleanup, RETVAL);
		1535	OUTPUT:
		1536	RETVAL
		1537
1426	ev_child child (struct ev_loop loop, int pid, int trace, SV *cb)	1538	ev_child child (struct ev_loop loop, int pid, int trace, SV *cb)
1427	ALIAS:	1539	ALIAS:
1428	child_ns = 1	1540	child_ns = 1
1429	CODE:	1541	CODE:
		1542	#if EV_CHILD_ENABLE
1430	RETVAL = e_new (sizeof (ev_child), cb, ST (0));	1543	RETVAL = e_new (sizeof (ev_child), cb, ST (0));
1431	ev_child_set (RETVAL, pid, trace);	1544	ev_child_set (RETVAL, pid, trace);
1432	if (!ix) START (child, RETVAL);	1545	if (!ix) START (child, RETVAL);
		1546	#else
		1547	croak ("EV::child watchers not supported on this platform");
		1548	#endif
1433	OUTPUT:	1549	OUTPUT:
1434	RETVAL	1550	RETVAL
1435		1551
1436	ev_stat stat (struct ev_loop loop, SV path, NV interval, SV cb)	1552	ev_stat stat (struct ev_loop loop, SV path, NV interval, SV cb)
1437	ALIAS:	1553	ALIAS:
…		…
1478	SvOK (timeout) ? SvNV (timeout) : -1.,	1594	SvOK (timeout) ? SvNV (timeout) : -1.,
1479	e_once_cb,	1595	e_once_cb,
1480	newSVsv (cb)	1596	newSVsv (cb)
1481	);	1597	);
1482		1598
		1599	#endif
		1600

Diff Legend

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

Comparing EV/EV.xs (file contents): Revision 1.138 by root, Wed Apr 14 00:17:22 2010 UTC vs. Revision 1.159 by root, Mon Apr 2 20:12:15 2012 UTC

Diff Legend

Comparing EV/EV.xs (file contents):
Revision 1.138 by root, Wed Apr 14 00:17:22 2010 UTC vs.
Revision 1.159 by root, Mon Apr 2 20:12:15 2012 UTC