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

Comparing EV/EV.xs (file contents):
Revision 1.22 by root, Wed Oct 31 18:28:00 2007 UTC vs.
Revision 1.23 by root, Wed Oct 31 19:07:43 2007 UTC

23 *stash_timer, 23 *stash_timer,
24 *stash_periodic, 24 *stash_periodic,
25 *stash_signal, 25 *stash_signal,
26 *stash_idle, 26 *stash_idle,
27 *stash_prepare, 27 *stash_prepare,
28 *stash_check; 28 *stash_check,
29 *stash_child;
29 30
30static int 31static int
31sv_signum (SV *sig) 32sv_signum (SV *sig)
32{ 33{
33 int signum; 34 int signum;
244 stash_periodic = gv_stashpv ("EV::Periodic", 1); 245 stash_periodic = gv_stashpv ("EV::Periodic", 1);
245 stash_signal = gv_stashpv ("EV::Signal" , 1); 246 stash_signal = gv_stashpv ("EV::Signal" , 1);
246 stash_idle = gv_stashpv ("EV::Idle" , 1); 247 stash_idle = gv_stashpv ("EV::Idle" , 1);
247 stash_prepare = gv_stashpv ("EV::Prepare" , 1); 248 stash_prepare = gv_stashpv ("EV::Prepare" , 1);
248 stash_check = gv_stashpv ("EV::Check" , 1); 249 stash_check = gv_stashpv ("EV::Check" , 1);
250 stash_child = gv_stashpv ("EV::Child" , 1);
249 251
250 { 252 {
251 SV *sv = perl_get_sv ("EV::API", TRUE); 253 SV *sv = perl_get_sv ("EV::API", TRUE);
252 perl_get_sv ("EV::API", TRUE); /* silence 5.10 warning */ 254 perl_get_sv ("EV::API", TRUE); /* silence 5.10 warning */
253 255
378 evcheck_set (RETVAL); 380 evcheck_set (RETVAL);
379 if (!ix) evcheck_start (RETVAL); 381 if (!ix) evcheck_start (RETVAL);
380 OUTPUT: 382 OUTPUT:
381 RETVAL 383 RETVAL
382 384
385struct ev_child *child (SV *cb, int pid)
386 ALIAS:
387 check_ns = 1
388 CODE:
389 RETVAL = e_new (sizeof (struct ev_check), cb);
390 evchild (RETVAL, pid);
391 if (!ix) evchild_start (RETVAL);
392 OUTPUT:
393 RETVAL
394
383 395
384PROTOTYPES: DISABLE 396PROTOTYPES: DISABLE
385 397
386MODULE = EV PACKAGE = EV::Watcher PREFIX = ev_ 398MODULE = EV PACKAGE = EV::Watcher PREFIX = ev_
387 399
529MODULE = EV PACKAGE = EV::Check PREFIX = evcheck_ 541MODULE = EV PACKAGE = EV::Check PREFIX = evcheck_
530 542
531void evcheck_start (struct ev_check *w) 543void evcheck_start (struct ev_check *w)
532 544
533void evcheck_stop (struct ev_check *w) 545void evcheck_stop (struct ev_check *w)
546
547MODULE = EV PACKAGE = EV::Child PREFIX = evchild_
548
549void evchild_start (struct ev_child *w)
550
551void evchild_stop (struct ev_child *w)
552
553void set (struct ev_child *w, int pid)
554 CODE:
555{
556 int active = w->active;
557 if (active) evchild_stop (w);
558 evchild_set (w, pid);
559 if (active) evchild_start (w);
560}
534 561
535#if 0 562#if 0
536 563
537MODULE = EV PACKAGE = EV::DNS PREFIX = evdns_ 564MODULE = EV PACKAGE = EV::DNS PREFIX = evdns_
538 565

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines