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

Comparing EV/EV.xs (file contents):
Revision 1.139 by root, Thu Apr 22 11:12:06 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;
…		…
486	evapi.embed_start = ev_embed_start;	507	evapi.embed_start = ev_embed_start;
487	evapi.embed_stop = ev_embed_stop;	508	evapi.embed_stop = ev_embed_stop;
488	evapi.embed_sweep = ev_embed_sweep;	509	evapi.embed_sweep = ev_embed_sweep;
489	evapi.fork_start = ev_fork_start;	510	evapi.fork_start = ev_fork_start;
490	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;
491	evapi.async_start = ev_async_start;	514	evapi.async_start = ev_async_start;
492	evapi.async_stop = ev_async_stop;	515	evapi.async_stop = ev_async_stop;
493	evapi.async_send = ev_async_send;	516	evapi.async_send = ev_async_send;
494	evapi.clear_pending = ev_clear_pending;	517	evapi.clear_pending = ev_clear_pending;
495	evapi.invoke = ev_invoke;	518	evapi.invoke = ev_invoke;
496		519
497	sv_setiv (sv, (IV)&evapi);	520	sv_setiv (sv, (IV)&evapi);
498	SvREADONLY_on (sv);	521	SvREADONLY_on (sv);
499	}	522	}
500	#ifndef _WIN32	523	#if !defined _WIN32 && !defined _MINIX
501	pthread_atfork (0, 0, ev_default_fork);	524	pthread_atfork (0, 0, default_fork);
502	#endif	525	#endif
503	}	526	}
504		527
505	SV *ev_default_loop (unsigned int flags = 0)	528	SV *ev_default_loop (unsigned int flags = 0)
506	CODE:	529	CODE:
…		…
520	OUTPUT:	543	OUTPUT:
521	RETVAL	544	RETVAL
522		545
523	void ev_default_destroy ()	546	void ev_default_destroy ()
524	CODE:	547	CODE:
525	ev_default_destroy ();	548	ev_loop_destroy (EV_DEFAULT_UC);
526	SvREFCNT_dec (default_loop_sv);	549	SvREFCNT_dec (default_loop_sv);
527	default_loop_sv = 0;	550	default_loop_sv = 0;
528		551
529	unsigned int ev_supported_backends ()	552	unsigned int ev_supported_backends ()
530		553
…		…
534		557
535	void ev_sleep (NV interval)	558	void ev_sleep (NV interval)
536		559
537	NV ev_time ()	560	NV ev_time ()
538		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
539	NV ev_now ()	571	NV ev_now ()
540	C_ARGS: evapi.default_loop	572	C_ARGS: evapi.default_loop
541		573
542	void ev_now_update ()	574	void ev_now_update ()
543	C_ARGS: evapi.default_loop	575	C_ARGS: evapi.default_loop
…		…
550		582
551	unsigned int ev_backend ()	583	unsigned int ev_backend ()
552	C_ARGS: evapi.default_loop	584	C_ARGS: evapi.default_loop
553		585
554	void ev_verify ()	586	void ev_verify ()
		587	ALIAS:
		588	loop_verify = 1
555	C_ARGS: evapi.default_loop	589	C_ARGS: evapi.default_loop
556		590
557	unsigned int ev_iteration ()	591	unsigned int ev_iteration ()
		592	ALIAS:
		593	loop_count = 1
558	C_ARGS: evapi.default_loop	594	C_ARGS: evapi.default_loop
559		595
560	unsigned int ev_depth ()	596	unsigned int ev_depth ()
		597	ALIAS:
		598	loop_depth = 1
561	C_ARGS: evapi.default_loop	599	C_ARGS: evapi.default_loop
562		600
563	void ev_set_io_collect_interval (NV interval)	601	void ev_set_io_collect_interval (NV interval)
564	C_ARGS: evapi.default_loop, interval	602	C_ARGS: evapi.default_loop, interval
565		603
566	void ev_set_timeout_collect_interval (NV interval)	604	void ev_set_timeout_collect_interval (NV interval)
567	C_ARGS: evapi.default_loop, interval	605	C_ARGS: evapi.default_loop, interval
568		606
569	void ev_loop (int flags = 0)	607	void ev_run (int flags = 0)
		608	ALIAS:
		609	loop = 1
570	C_ARGS: evapi.default_loop, flags	610	C_ARGS: evapi.default_loop, flags
571		611
572	void ev_unloop (int how = EVUNLOOP_ONE)	612	void ev_break (int how = EVBREAK_ONE)
		613	ALIAS:
		614	unloop = 1
573	C_ARGS: evapi.default_loop, how	615	C_ARGS: evapi.default_loop, how
574		616
575	void ev_feed_fd_event (int fd, int revents = EV_NONE)	617	void ev_feed_fd_event (int fd, int revents = EV_NONE)
576	C_ARGS: evapi.default_loop, fd, revents	618	C_ARGS: evapi.default_loop, fd, revents
577		619
…		…
695	ev_fork_set (RETVAL);	737	ev_fork_set (RETVAL);
696	if (!ix) START (fork, RETVAL);	738	if (!ix) START (fork, RETVAL);
697	OUTPUT:	739	OUTPUT:
698	RETVAL	740	RETVAL
699		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
		757	ev_child child (int pid, int trace, SV cb)
		758	ALIAS:
		759	child_ns = 1
		760	CODE:
700	#if EV_CHILD_ENABLE	761	#if EV_CHILD_ENABLE
701
702	ev_child child (int pid, int trace, SV cb)
703	ALIAS:
704	child_ns = 1
705	CODE:
706	RETVAL = e_new (sizeof (ev_child), cb, default_loop_sv);	762	RETVAL = e_new (sizeof (ev_child), cb, default_loop_sv);
707	ev_child_set (RETVAL, pid, trace);	763	ev_child_set (RETVAL, pid, trace);
708	if (!ix) START (child, RETVAL);	764	if (!ix) START (child, RETVAL);
709	OUTPUT:	765	#else
710	RETVAL	766	croak ("EV::child watchers not supported on this platform");
711
712	#endif	767	#endif
		768	OUTPUT:
		769	RETVAL
		770
713		771
714	ev_stat stat (SV path, NV interval, SV *cb)	772	ev_stat stat (SV path, NV interval, SV *cb)
715	ALIAS:	773	ALIAS:
716	stat_ns = 1	774	stat_ns = 1
717	CODE:	775	CODE:
…		…
720	ev_stat_set (RETVAL, SvPVbyte_nolen (e_fh (RETVAL)), interval);	778	ev_stat_set (RETVAL, SvPVbyte_nolen (e_fh (RETVAL)), interval);
721	if (!ix) START (stat, RETVAL);	779	if (!ix) START (stat, RETVAL);
722	OUTPUT:	780	OUTPUT:
723	RETVAL	781	RETVAL
724		782
		783	#ifndef EV_NO_LOOPS
		784
725	ev_embed embed (struct ev_loop loop, SV *cb = 0)	785	ev_embed embed (struct ev_loop loop, SV *cb = 0)
726	ALIAS:	786	ALIAS:
727	embed_ns = 1	787	embed_ns = 1
728	CODE:	788	CODE:
729	{	789	{
…		…
735	ev_embed_set (RETVAL, loop);	795	ev_embed_set (RETVAL, loop);
736	if (!ix) START (embed, RETVAL);	796	if (!ix) START (embed, RETVAL);
737	}	797	}
738	OUTPUT:	798	OUTPUT:
739	RETVAL	799	RETVAL
		800
		801	#endif
740		802
741	ev_async async (SV cb)	803	ev_async async (SV cb)
742	ALIAS:	804	ALIAS:
743	async_ns = 1	805	async_ns = 1
744	CODE:	806	CODE:
…		…
1082		1144
1083	void DESTROY (ev_fork *w)	1145	void DESTROY (ev_fork *w)
1084	CODE:	1146	CODE:
1085	STOP (fork, w);	1147	STOP (fork, w);
1086	e_destroy (w);	1148	e_destroy (w);
		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
1087		1175
1088	MODULE = EV PACKAGE = EV::Child PREFIX = ev_child_	1176	MODULE = EV PACKAGE = EV::Child PREFIX = ev_child_
1089		1177
1090	#if EV_CHILD_ENABLE	1178	#if EV_CHILD_ENABLE
1091		1179
…		…
1266	CODE:	1354	CODE:
1267	RETVAL = boolSV (ev_async_pending (w));	1355	RETVAL = boolSV (ev_async_pending (w));
1268	OUTPUT:	1356	OUTPUT:
1269	RETVAL	1357	RETVAL
1270		1358
		1359	#ifndef EV_NO_LOOPS
		1360
1271	MODULE = EV PACKAGE = EV::Loop PREFIX = ev_	1361	MODULE = EV PACKAGE = EV::Loop PREFIX = ev_
1272		1362
1273	SV new (SV klass, unsigned int flags = 0)	1363	SV new (SV klass, unsigned int flags = 0)
1274	CODE:	1364	CODE:
1275	{	1365	{
…		…
1283	OUTPUT:	1373	OUTPUT:
1284	RETVAL	1374	RETVAL
1285		1375
1286	void DESTROY (struct ev_loop *loop)	1376	void DESTROY (struct ev_loop *loop)
1287	CODE:	1377	CODE:
1288	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)
1289	ev_loop_destroy (loop);	1381	ev_loop_destroy (loop);
1290		1382
1291	void ev_loop_fork (struct ev_loop *loop)	1383	void ev_loop_fork (struct ev_loop *loop)
1292		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
1293	void ev_verify (struct ev_loop *loop)	1399	void ev_verify (struct ev_loop *loop)
1294		1400	ALIAS:
1295	NV ev_now (struct ev_loop *loop)	1401	loop_verify = 1
1296
1297	void ev_now_update (struct ev_loop *loop)
1298
1299	void ev_suspend (struct ev_loop *loop)
1300
1301	void ev_resume (struct ev_loop *loop)
1302
1303	void ev_set_io_collect_interval (struct ev_loop *loop, NV interval)
1304
1305	void ev_set_timeout_collect_interval (struct ev_loop *loop, NV interval)
1306
1307	unsigned int ev_backend (struct ev_loop *loop)
1308		1402
1309	unsigned int ev_iteration (struct ev_loop *loop)	1403	unsigned int ev_iteration (struct ev_loop *loop)
		1404	ALIAS:
		1405	loop_count = 1
1310		1406
1311	unsigned int ev_depth (struct ev_loop *loop)	1407	unsigned int ev_depth (struct ev_loop *loop)
		1408	ALIAS:
		1409	loop_depth = 1
1312		1410
1313	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
1314		1414
1315	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
1316		1418
1317	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)
1318		1420
1319	unsigned int ev_pending_count (struct ev_loop *loop)	1421	unsigned int ev_pending_count (struct ev_loop *loop)
1320		1422
…		…
1323	#if 0	1425	#if 0
1324		1426
1325	void ev_feed_signal_event (struct ev_loop loop, SV signal)	1427	void ev_feed_signal_event (struct ev_loop loop, SV signal)
1326	CODE:	1428	CODE:
1327	{	1429	{
1328	Signal signum = s_signum (signal);	1430	Signal signum = s_signum (signal);
1329	CHECK_SIG (signal, signum);	1431	CHECK_SIG (signal, signum);
1330		1432
1331	ev_feed_signal_event (loop, signum);	1433	ev_feed_signal_event (loop, signum);
1332	}	1434	}
1333		1435
…		…
1366	periodic_ns = 1	1468	periodic_ns = 1
1367	INIT:	1469	INIT:
1368	CHECK_REPEAT (interval);	1470	CHECK_REPEAT (interval);
1369	CODE:	1471	CODE:
1370	{	1472	{
1371	ev_periodic *w;	1473	ev_periodic *w;
1372	w = e_new (sizeof (ev_periodic), cb, ST (0));	1474	w = e_new (sizeof (ev_periodic), cb, ST (0));
1373	e_fh (w) = SvTRUE (reschedule_cb) ? newSVsv (reschedule_cb) : 0;	1475	e_fh (w) = SvTRUE (reschedule_cb) ? newSVsv (reschedule_cb) : 0;
1374	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);
1375	RETVAL = e_bless ((ev_watcher *)w, stash_periodic);	1477	RETVAL = e_bless ((ev_watcher *)w, stash_periodic);
1376	if (!ix) START (periodic, w);	1478	if (!ix) START (periodic, w);
…		…
1381	ev_signal signal (struct ev_loop loop, SV signal, SV cb)	1483	ev_signal signal (struct ev_loop loop, SV signal, SV cb)
1382	ALIAS:	1484	ALIAS:
1383	signal_ns = 1	1485	signal_ns = 1
1384	CODE:	1486	CODE:
1385	{	1487	{
1386	Signal signum = s_signum (signal);	1488	Signal signum = s_signum (signal);
1387	CHECK_SIG (signal, signum);	1489	CHECK_SIG (signal, signum);
1388		1490
1389	RETVAL = e_new (sizeof (ev_signal), cb, ST (0));	1491	RETVAL = e_new (sizeof (ev_signal), cb, ST (0));
1390	ev_signal_set (RETVAL, signum);	1492	ev_signal_set (RETVAL, signum);
1391	if (!ix) START_SIGNAL (RETVAL);	1493	if (!ix) START_SIGNAL (RETVAL);
…		…
1431	ev_fork_set (RETVAL);	1533	ev_fork_set (RETVAL);
1432	if (!ix) START (fork, RETVAL);	1534	if (!ix) START (fork, RETVAL);
1433	OUTPUT:	1535	OUTPUT:
1434	RETVAL	1536	RETVAL
1435		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
		1553	ev_child child (struct ev_loop loop, int pid, int trace, SV *cb)
		1554	ALIAS:
		1555	child_ns = 1
		1556	CODE:
1436	#if EV_CHILD_ENABLE	1557	#if EV_CHILD_ENABLE
1437
1438	ev_child child (struct ev_loop loop, int pid, int trace, SV *cb)
1439	ALIAS:
1440	child_ns = 1
1441	CODE:
1442	RETVAL = e_new (sizeof (ev_child), cb, ST (0));	1558	RETVAL = e_new (sizeof (ev_child), cb, ST (0));
1443	ev_child_set (RETVAL, pid, trace);	1559	ev_child_set (RETVAL, pid, trace);
1444	if (!ix) START (child, RETVAL);	1560	if (!ix) START (child, RETVAL);
1445	OUTPUT:	1561	#else
1446	RETVAL	1562	croak ("EV::child watchers not supported on this platform");
1447
1448	#endif	1563	#endif
		1564	OUTPUT:
		1565	RETVAL
1449		1566
1450	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)
1451	ALIAS:	1568	ALIAS:
1452	stat_ns = 1	1569	stat_ns = 1
1453	CODE:	1570	CODE:
…		…
1492	SvOK (timeout) ? SvNV (timeout) : -1.,	1609	SvOK (timeout) ? SvNV (timeout) : -1.,
1493	e_once_cb,	1610	e_once_cb,
1494	newSVsv (cb)	1611	newSVsv (cb)
1495	);	1612	);
1496		1613
		1614	#endif
		1615

Diff Legend

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

Comparing EV/EV.xs (file contents): Revision 1.139 by root, Thu Apr 22 11:12:06 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.139 by root, Thu Apr 22 11:12:06 2010 UTC vs.
Revision 1.161 by root, Wed Dec 5 17:18:47 2012 UTC