[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.161 by root, Wed Dec 5 17:18:47 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	#if CLEANUP_ENABLED
		743
		744	ev_cleanup cleanup (SV cb)
		745	ALIAS:
		746	cleanup_ns = 1
		747	CODE:
		748	RETVAL = e_new (sizeof (ev_cleanup), cb, default_loop_sv);
		749	SvREFCNT_dec (RETVAL->loop); /* must not keep loop object alive */
		750	ev_cleanup_set (RETVAL);
		751	if (!ix) START (cleanup, RETVAL);
		752	OUTPUT:
		753	RETVAL
		754
		755	#endif
		756
698	ev_child child (int pid, int trace, SV cb)	757	ev_child child (int pid, int trace, SV cb)
699	ALIAS:	758	ALIAS:
700	child_ns = 1	759	child_ns = 1
701	CODE:	760	CODE:
		761	#if EV_CHILD_ENABLE
702	RETVAL = e_new (sizeof (ev_child), cb, default_loop_sv);	762	RETVAL = e_new (sizeof (ev_child), cb, default_loop_sv);
703	ev_child_set (RETVAL, pid, trace);	763	ev_child_set (RETVAL, pid, trace);
704	if (!ix) START (child, RETVAL);	764	if (!ix) START (child, RETVAL);
		765	#else
		766	croak ("EV::child watchers not supported on this platform");
		767	#endif
705	OUTPUT:	768	OUTPUT:
706	RETVAL	769	RETVAL
		770
707		771
708	ev_stat stat (SV path, NV interval, SV *cb)	772	ev_stat stat (SV path, NV interval, SV *cb)
709	ALIAS:	773	ALIAS:
710	stat_ns = 1	774	stat_ns = 1
711	CODE:	775	CODE:
…		…
714	ev_stat_set (RETVAL, SvPVbyte_nolen (e_fh (RETVAL)), interval);	778	ev_stat_set (RETVAL, SvPVbyte_nolen (e_fh (RETVAL)), interval);
715	if (!ix) START (stat, RETVAL);	779	if (!ix) START (stat, RETVAL);
716	OUTPUT:	780	OUTPUT:
717	RETVAL	781	RETVAL
718		782
		783	#ifndef EV_NO_LOOPS
		784
719	ev_embed embed (struct ev_loop loop, SV *cb = 0)	785	ev_embed embed (struct ev_loop loop, SV *cb = 0)
720	ALIAS:	786	ALIAS:
721	embed_ns = 1	787	embed_ns = 1
722	CODE:	788	CODE:
723	{	789	{
…		…
729	ev_embed_set (RETVAL, loop);	795	ev_embed_set (RETVAL, loop);
730	if (!ix) START (embed, RETVAL);	796	if (!ix) START (embed, RETVAL);
731	}	797	}
732	OUTPUT:	798	OUTPUT:
733	RETVAL	799	RETVAL
		800
		801	#endif
734		802
735	ev_async async (SV cb)	803	ev_async async (SV cb)
736	ALIAS:	804	ALIAS:
737	async_ns = 1	805	async_ns = 1
738	CODE:	806	CODE:
…		…
1077	void DESTROY (ev_fork *w)	1145	void DESTROY (ev_fork *w)
1078	CODE:	1146	CODE:
1079	STOP (fork, w);	1147	STOP (fork, w);
1080	e_destroy (w);	1148	e_destroy (w);
1081		1149
		1150	#if CLEANUP_ENABLED
		1151
		1152	MODULE = EV PACKAGE = EV::Cleanup PREFIX = ev_cleanup_
		1153
		1154	void ev_cleanup_start (ev_cleanup *w)
		1155	CODE:
		1156	START (cleanup, w);
		1157
		1158	void ev_cleanup_stop (ev_cleanup *w)
		1159	CODE:
		1160	STOP (cleanup, w);
		1161
		1162	void DESTROY (ev_cleanup *w)
		1163	CODE:
		1164	STOP (cleanup, w);
		1165	SvREFCNT_inc (w->loop); /* has been dec'ed on creation */
		1166	e_destroy (w);
		1167
		1168	int keepalive (ev_watcher w, SV new_value = 0)
		1169	CODE:
		1170	RETVAL = 1;
		1171	OUTPUT:
		1172	RETVAL
		1173
		1174	#endif
		1175
1082	MODULE = EV PACKAGE = EV::Child PREFIX = ev_child_	1176	MODULE = EV PACKAGE = EV::Child PREFIX = ev_child_
		1177
		1178	#if EV_CHILD_ENABLE
1083		1179
1084	void ev_child_start (ev_child *w)	1180	void ev_child_start (ev_child *w)
1085	CODE:	1181	CODE:
1086	START (child, w);	1182	START (child, w);
1087		1183
…		…
1106	RETVAL = ix == 0 ? w->pid	1202	RETVAL = ix == 0 ? w->pid
1107	: ix == 1 ? w->rpid	1203	: ix == 1 ? w->rpid
1108	: w->rstatus;	1204	: w->rstatus;
1109	OUTPUT:	1205	OUTPUT:
1110	RETVAL	1206	RETVAL
		1207
		1208	#endif
1111		1209
1112	MODULE = EV PACKAGE = EV::Stat PREFIX = ev_stat_	1210	MODULE = EV PACKAGE = EV::Stat PREFIX = ev_stat_
1113		1211
1114	void ev_stat_start (ev_stat *w)	1212	void ev_stat_start (ev_stat *w)
1115	CODE:	1213	CODE:
…		…
1256	CODE:	1354	CODE:
1257	RETVAL = boolSV (ev_async_pending (w));	1355	RETVAL = boolSV (ev_async_pending (w));
1258	OUTPUT:	1356	OUTPUT:
1259	RETVAL	1357	RETVAL
1260		1358
		1359	#ifndef EV_NO_LOOPS
		1360
1261	MODULE = EV PACKAGE = EV::Loop PREFIX = ev_	1361	MODULE = EV PACKAGE = EV::Loop PREFIX = ev_
1262		1362
1263	SV new (SV klass, unsigned int flags = 0)	1363	SV new (SV klass, unsigned int flags = 0)
1264	CODE:	1364	CODE:
1265	{	1365	{
…		…
1273	OUTPUT:	1373	OUTPUT:
1274	RETVAL	1374	RETVAL
1275		1375
1276	void DESTROY (struct ev_loop *loop)	1376	void DESTROY (struct ev_loop *loop)
1277	CODE:	1377	CODE:
1278	if (loop != evapi.default_loop) /* global destruction sucks */	1378	/* 1. the default loop shouldn't be freed by destroying it's perl loop object */
		1379	/* 2. not doing so helps avoid many global destruction bugs in perl, too */
		1380	if (loop != evapi.default_loop)
1279	ev_loop_destroy (loop);	1381	ev_loop_destroy (loop);
1280		1382
1281	void ev_loop_fork (struct ev_loop *loop)	1383	void ev_loop_fork (struct ev_loop *loop)
1282		1384
		1385	NV ev_now (struct ev_loop *loop)
		1386
		1387	void ev_now_update (struct ev_loop *loop)
		1388
		1389	void ev_suspend (struct ev_loop *loop)
		1390
		1391	void ev_resume (struct ev_loop *loop)
		1392
		1393	void ev_set_io_collect_interval (struct ev_loop *loop, NV interval)
		1394
		1395	void ev_set_timeout_collect_interval (struct ev_loop *loop, NV interval)
		1396
		1397	unsigned int ev_backend (struct ev_loop *loop)
		1398
1283	void ev_verify (struct ev_loop *loop)	1399	void ev_verify (struct ev_loop *loop)
1284		1400	ALIAS:
1285	NV ev_now (struct ev_loop *loop)	1401	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		1402
1299	unsigned int ev_iteration (struct ev_loop *loop)	1403	unsigned int ev_iteration (struct ev_loop *loop)
		1404	ALIAS:
		1405	loop_count = 1
1300		1406
1301	unsigned int ev_depth (struct ev_loop *loop)	1407	unsigned int ev_depth (struct ev_loop *loop)
		1408	ALIAS:
		1409	loop_depth = 1
1302		1410
1303	void ev_loop (struct ev_loop *loop, int flags = 0)	1411	void ev_run (struct ev_loop *loop, int flags = 0)
		1412	ALIAS:
		1413	loop = 1
1304		1414
1305	void ev_unloop (struct ev_loop *loop, int how = 1)	1415	void ev_break (struct ev_loop *loop, int how = 1)
		1416	ALIAS:
		1417	unloop = 1
1306		1418
1307	void ev_feed_fd_event (struct ev_loop *loop, int fd, int revents = EV_NONE)	1419	void ev_feed_fd_event (struct ev_loop *loop, int fd, int revents = EV_NONE)
1308		1420
1309	unsigned int ev_pending_count (struct ev_loop *loop)	1421	unsigned int ev_pending_count (struct ev_loop *loop)
1310		1422
…		…
1313	#if 0	1425	#if 0
1314		1426
1315	void ev_feed_signal_event (struct ev_loop loop, SV signal)	1427	void ev_feed_signal_event (struct ev_loop loop, SV signal)
1316	CODE:	1428	CODE:
1317	{	1429	{
1318	Signal signum = s_signum (signal);	1430	Signal signum = s_signum (signal);
1319	CHECK_SIG (signal, signum);	1431	CHECK_SIG (signal, signum);
1320		1432
1321	ev_feed_signal_event (loop, signum);	1433	ev_feed_signal_event (loop, signum);
1322	}	1434	}
1323		1435
…		…
1356	periodic_ns = 1	1468	periodic_ns = 1
1357	INIT:	1469	INIT:
1358	CHECK_REPEAT (interval);	1470	CHECK_REPEAT (interval);
1359	CODE:	1471	CODE:
1360	{	1472	{
1361	ev_periodic *w;	1473	ev_periodic *w;
1362	w = e_new (sizeof (ev_periodic), cb, ST (0));	1474	w = e_new (sizeof (ev_periodic), cb, ST (0));
1363	e_fh (w) = SvTRUE (reschedule_cb) ? newSVsv (reschedule_cb) : 0;	1475	e_fh (w) = SvTRUE (reschedule_cb) ? newSVsv (reschedule_cb) : 0;
1364	ev_periodic_set (w, at, interval, e_fh (w) ? e_periodic_cb : 0);	1476	ev_periodic_set (w, at, interval, e_fh (w) ? e_periodic_cb : 0);
1365	RETVAL = e_bless ((ev_watcher *)w, stash_periodic);	1477	RETVAL = e_bless ((ev_watcher *)w, stash_periodic);
1366	if (!ix) START (periodic, w);	1478	if (!ix) START (periodic, w);
…		…
1371	ev_signal signal (struct ev_loop loop, SV signal, SV cb)	1483	ev_signal signal (struct ev_loop loop, SV signal, SV cb)
1372	ALIAS:	1484	ALIAS:
1373	signal_ns = 1	1485	signal_ns = 1
1374	CODE:	1486	CODE:
1375	{	1487	{
1376	Signal signum = s_signum (signal);	1488	Signal signum = s_signum (signal);
1377	CHECK_SIG (signal, signum);	1489	CHECK_SIG (signal, signum);
1378		1490
1379	RETVAL = e_new (sizeof (ev_signal), cb, ST (0));	1491	RETVAL = e_new (sizeof (ev_signal), cb, ST (0));
1380	ev_signal_set (RETVAL, signum);	1492	ev_signal_set (RETVAL, signum);
1381	if (!ix) START_SIGNAL (RETVAL);	1493	if (!ix) START_SIGNAL (RETVAL);
…		…
1421	ev_fork_set (RETVAL);	1533	ev_fork_set (RETVAL);
1422	if (!ix) START (fork, RETVAL);	1534	if (!ix) START (fork, RETVAL);
1423	OUTPUT:	1535	OUTPUT:
1424	RETVAL	1536	RETVAL
1425		1537
		1538	#if CLEANUP_ENABLED
		1539
		1540	ev_cleanup cleanup (struct ev_loop loop, SV *cb)
		1541	ALIAS:
		1542	cleanup_ns = 1
		1543	CODE:
		1544	RETVAL = e_new (sizeof (ev_cleanup), cb, ST (0));
		1545	SvREFCNT_dec (RETVAL->loop); /* must not keep loop object alive */
		1546	ev_cleanup_set (RETVAL);
		1547	if (!ix) START (cleanup, RETVAL);
		1548	OUTPUT:
		1549	RETVAL
		1550
		1551	#endif
		1552
1426	ev_child child (struct ev_loop loop, int pid, int trace, SV *cb)	1553	ev_child child (struct ev_loop loop, int pid, int trace, SV *cb)
1427	ALIAS:	1554	ALIAS:
1428	child_ns = 1	1555	child_ns = 1
1429	CODE:	1556	CODE:
		1557	#if EV_CHILD_ENABLE
1430	RETVAL = e_new (sizeof (ev_child), cb, ST (0));	1558	RETVAL = e_new (sizeof (ev_child), cb, ST (0));
1431	ev_child_set (RETVAL, pid, trace);	1559	ev_child_set (RETVAL, pid, trace);
1432	if (!ix) START (child, RETVAL);	1560	if (!ix) START (child, RETVAL);
		1561	#else
		1562	croak ("EV::child watchers not supported on this platform");
		1563	#endif
1433	OUTPUT:	1564	OUTPUT:
1434	RETVAL	1565	RETVAL
1435		1566
1436	ev_stat stat (struct ev_loop loop, SV path, NV interval, SV cb)	1567	ev_stat stat (struct ev_loop loop, SV path, NV interval, SV cb)
1437	ALIAS:	1568	ALIAS:
…		…
1478	SvOK (timeout) ? SvNV (timeout) : -1.,	1609	SvOK (timeout) ? SvNV (timeout) : -1.,
1479	e_once_cb,	1610	e_once_cb,
1480	newSVsv (cb)	1611	newSVsv (cb)
1481	);	1612	);
1482		1613
		1614	#endif
		1615

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.161 by root, Wed Dec 5 17:18:47 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.161 by root, Wed Dec 5 17:18:47 2012 UTC