ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/EV/EV.xs
(Generate patch)

Comparing EV/EV.xs (file contents):
Revision 1.168 by root, Fri Jan 10 08:28:42 2014 UTC vs.
Revision 1.172 by root, Sat Sep 17 02:28:30 2016 UTC

37# define fd_mask Perl_fd_mask 37# define fd_mask Perl_fd_mask
38#endif 38#endif
39/* due to bugs in OS X we have to use libev/ explicitly here */ 39/* due to bugs in OS X we have to use libev/ explicitly here */
40#include "libev/ev.c" 40#include "libev/ev.c"
41 41
42#if !defined _WIN32 && !defined _MINIX 42#if !defined _WIN32 && !defined _MINIX && !EV_NO_ATFORK
43# include <pthread.h> 43# include <pthread.h>
44#endif 44#endif
45 45
46#define e_loop(w) INT2PTR (struct ev_loop *, SvIVX (((ev_watcher *)(w))->loop)) 46#define e_loop(w) INT2PTR (struct ev_loop *, SvIVX (((ev_watcher *)(w))->loop))
47#define e_flags(w) ((ev_watcher *)(w))->e_flags 47#define e_flags(w) ((ev_watcher *)(w))->e_flags
534 534
535 sv_setiv (sv, (IV)&evapi); 535 sv_setiv (sv, (IV)&evapi);
536 SvREADONLY_on (sv); 536 SvREADONLY_on (sv);
537 } 537 }
538#if !defined _WIN32 && !defined _MINIX && !EV_NO_ATFORK 538#if !defined _WIN32 && !defined _MINIX && !EV_NO_ATFORK
539#if __linux 539/* unfortunately, musl neither implements the linux standard base,
540/* nor makes itself detectable via macros. yeah, right... */
541#if __linux && (__GLIBC__ || __UCLIBC__)
540 int __register_atfork(void (*prepare) (void), void (*parent) (void), void (*child) (void), void * __dso_handle); 542 int __register_atfork(void (*prepare) (void), void (*parent) (void), void (*child) (void), void * __dso_handle);
541 __register_atfork (0, 0, default_fork, 0); 543 __register_atfork (0, 0, default_fork, 0);
542#else 544#else
543 pthread_atfork (0, 0, default_fork); 545 pthread_atfork (0, 0, default_fork);
544#endif 546#endif
580NV ev_time () 582NV ev_time ()
581 583
582void ev_feed_signal (SV *signal) 584void ev_feed_signal (SV *signal)
583 CODE: 585 CODE:
584{ 586{
585 Signal signum = s_signum (signal); 587 Signal signum = s_signum (signal);
586 CHECK_SIG (signal, signum); 588 CHECK_SIG (signal, signum);
587 589
588 ev_feed_signal (signum); 590 ev_feed_signal (signum);
589} 591}
590 592
692 periodic_ns = 1 694 periodic_ns = 1
693 INIT: 695 INIT:
694 CHECK_REPEAT (interval); 696 CHECK_REPEAT (interval);
695 CODE: 697 CODE:
696{ 698{
697 ev_periodic *w; 699 ev_periodic *w;
698 w = e_new (sizeof (ev_periodic), cb, default_loop_sv); 700 w = e_new (sizeof (ev_periodic), cb, default_loop_sv);
699 e_fh (w) = SvTRUE (reschedule_cb) ? newSVsv (reschedule_cb) : 0; 701 e_fh (w) = SvTRUE (reschedule_cb) ? newSVsv (reschedule_cb) : 0;
700 ev_periodic_set (w, at, interval, e_fh (w) ? e_periodic_cb : 0); 702 ev_periodic_set (w, at, interval, e_fh (w) ? e_periodic_cb : 0);
701 RETVAL = e_bless ((ev_watcher *)w, stash_periodic); 703 RETVAL = e_bless ((ev_watcher *)w, stash_periodic);
702 if (!ix) START (periodic, w); 704 if (!ix) START (periodic, w);
707ev_signal *signal (SV *signal, SV *cb) 709ev_signal *signal (SV *signal, SV *cb)
708 ALIAS: 710 ALIAS:
709 signal_ns = 1 711 signal_ns = 1
710 CODE: 712 CODE:
711{ 713{
712 Signal signum = s_signum (signal); 714 Signal signum = s_signum (signal);
713 CHECK_SIG (signal, signum); 715 CHECK_SIG (signal, signum);
714 716
715 RETVAL = e_new (sizeof (ev_signal), cb, default_loop_sv); 717 RETVAL = e_new (sizeof (ev_signal), cb, default_loop_sv);
716 ev_signal_set (RETVAL, signum); 718 ev_signal_set (RETVAL, signum);
717 if (!ix) START_SIGNAL (RETVAL); 719 if (!ix) START_SIGNAL (RETVAL);
1045 1047
1046void ev_timer_stop (ev_timer *w) 1048void ev_timer_stop (ev_timer *w)
1047 CODE: 1049 CODE:
1048 STOP (timer, w); 1050 STOP (timer, w);
1049 1051
1050void ev_timer_again (ev_timer *w) 1052void ev_timer_again (ev_timer *w, NV repeat = NO_INIT)
1051 INIT: 1053 CODE:
1054 if (items > 1)
1055 w->repeat = repeat;
1052 CHECK_REPEAT (w->repeat); 1056 CHECK_REPEAT (w->repeat);
1053 CODE:
1054 ev_timer_again (e_loop (w), w); 1057 ev_timer_again (e_loop (w), w);
1055 UNREF (w); 1058 UNREF (w);
1056 1059
1057NV ev_timer_remaining (ev_timer *w) 1060NV ev_timer_remaining (ev_timer *w)
1058 C_ARGS: e_loop (w), w 1061 C_ARGS: e_loop (w), w

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines