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

Comparing EV/EV.xs (file contents):
Revision 1.139 by root, Thu Apr 22 11:12:06 2010 UTC vs.
Revision 1.155 by root, Sun Feb 20 02:56:23 2011 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
21#define EV_H <ev.h> 23#define EV_H <ev.h>
22#define EV_CONFIG_H error 24#define EV_CONFIG_H error
23#include "EV/EVAPI.h" 25#include "EV/EVAPI.h"
24 26
25#define EV_SELECT_IS_WINSOCKET 0 27#define EV_SELECT_IS_WINSOCKET 0
29# define fd_mask Perl_fd_mask 31# define fd_mask Perl_fd_mask
30#endif 32#endif
31/* due to bugs in OS X we have to use libev/ explicitly here */ 33/* due to bugs in OS X we have to use libev/ explicitly here */
32#include "libev/ev.c" 34#include "libev/ev.c"
33 35
34#ifndef _WIN32 36#if !defined(_WIN32) && !defined(_MINIX)
35# include <pthread.h> 37# include <pthread.h>
36#endif 38#endif
37 39
38#define e_loop(w) INT2PTR (struct ev_loop *, SvIVX (((ev_watcher *)(w))->loop)) 40#define e_loop(w) INT2PTR (struct ev_loop *, SvIVX (((ev_watcher *)(w))->loop))
39#define e_flags(w) ((ev_watcher *)(w))->e_flags 41#define e_flags(w) ((ev_watcher *)(w))->e_flags
120 *stash_idle, 122 *stash_idle,
121 *stash_prepare, 123 *stash_prepare,
122 *stash_check, 124 *stash_check,
123 *stash_embed, 125 *stash_embed,
124 *stash_fork, 126 *stash_fork,
127 *stash_cleanup,
125 *stash_async; 128 *stash_async;
126 129
127///////////////////////////////////////////////////////////////////////////// 130/////////////////////////////////////////////////////////////////////////////
128// Event 131// Event
129 132
207 210
208 if (expect_true (sv_events_cache)) 211 if (expect_true (sv_events_cache))
209 { 212 {
210 sv_events = sv_events_cache; sv_events_cache = 0; 213 sv_events = sv_events_cache; sv_events_cache = 0;
211 SvIV_set (sv_events, revents); 214 SvIV_set (sv_events, revents);
215 SvIOK_only (sv_events);
212 } 216 }
213 else 217 else
214 { 218 {
215 sv_events = newSViv (revents); 219 sv_events = newSViv (revents);
216 SvREADONLY_on (sv_events); 220 SvREADONLY_on (sv_events);
340 croak ("illegal file descriptor or filehandle (either no attached file descriptor or illegal value): %s", SvPV_nolen (fh)); 344 croak ("illegal file descriptor or filehandle (either no attached file descriptor or illegal value): %s", SvPV_nolen (fh));
341 345
342#define CHECK_SIG(sv,num) if ((num) < 0) \ 346#define CHECK_SIG(sv,num) if ((num) < 0) \
343 croak ("illegal signal number or name: %s", SvPV_nolen (sv)); 347 croak ("illegal signal number or name: %s", SvPV_nolen (sv));
344 348
349static void
350default_fork (void)
351{
352 ev_loop_fork (EV_DEFAULT_UC);
353}
354
345///////////////////////////////////////////////////////////////////////////// 355/////////////////////////////////////////////////////////////////////////////
346// XS interface functions 356// XS interface functions
347 357
348MODULE = EV PACKAGE = EV PREFIX = ev_ 358MODULE = EV PACKAGE = EV PREFIX = ev_
349 359
364 const_iv (EV_, UNDEF) 374 const_iv (EV_, UNDEF)
365 const_iv (EV_, NONE) 375 const_iv (EV_, NONE)
366 const_iv (EV_, READ) 376 const_iv (EV_, READ)
367 const_iv (EV_, WRITE) 377 const_iv (EV_, WRITE)
368 const_iv (EV_, IO) 378 const_iv (EV_, IO)
369 const_iv (EV_, TIMEOUT) /* deprecated */
370 const_iv (EV_, TIMER) 379 const_iv (EV_, TIMER)
371 const_iv (EV_, PERIODIC) 380 const_iv (EV_, PERIODIC)
372 const_iv (EV_, SIGNAL) 381 const_iv (EV_, SIGNAL)
373 const_iv (EV_, CHILD) 382 const_iv (EV_, CHILD)
374 const_iv (EV_, STAT) 383 const_iv (EV_, STAT)
375 const_iv (EV_, IDLE) 384 const_iv (EV_, IDLE)
376 const_iv (EV_, PREPARE) 385 const_iv (EV_, PREPARE)
377 const_iv (EV_, CHECK) 386 const_iv (EV_, CHECK)
378 const_iv (EV_, EMBED) 387 const_iv (EV_, EMBED)
379 const_iv (EV_, FORK) 388 const_iv (EV_, FORK)
389 const_iv (EV_, CLEANUP)
380 const_iv (EV_, ASYNC) 390 const_iv (EV_, ASYNC)
381 const_iv (EV_, CUSTOM) 391 const_iv (EV_, CUSTOM)
382 const_iv (EV_, ERROR) 392 const_iv (EV_, ERROR)
383 393
384 const_iv (EV, LOOP_NONBLOCK)
385 const_iv (EV, LOOP_ONESHOT)
386
387 const_iv (EV, UNLOOP_CANCEL) 394 const_iv (EV, RUN_NOWAIT)
388 const_iv (EV, UNLOOP_ONE) 395 const_iv (EV, RUN_ONCE)
396
397 const_iv (EV, BREAK_CANCEL)
398 const_iv (EV, BREAK_ONE)
389 const_iv (EV, UNLOOP_ALL) 399 const_iv (EV, BREAK_ALL)
390
391 const_iv (EV, BACKEND_SELECT) 400 const_iv (EV, BACKEND_SELECT)
392 const_iv (EV, BACKEND_POLL) 401 const_iv (EV, BACKEND_POLL)
393 const_iv (EV, BACKEND_EPOLL) 402 const_iv (EV, BACKEND_EPOLL)
394 const_iv (EV, BACKEND_KQUEUE) 403 const_iv (EV, BACKEND_KQUEUE)
395 const_iv (EV, BACKEND_DEVPOLL) 404 const_iv (EV, BACKEND_DEVPOLL)
396 const_iv (EV, BACKEND_PORT) 405 const_iv (EV, BACKEND_PORT)
397 const_iv (EV, BACKEND_ALL) 406 const_iv (EV, BACKEND_ALL)
407 const_iv (EV, BACKEND_MASK)
398 const_iv (EV, FLAG_AUTO) 408 const_iv (EV, FLAG_AUTO)
399 const_iv (EV, FLAG_FORKCHECK) 409 const_iv (EV, FLAG_FORKCHECK)
400 const_iv (EV, FLAG_SIGNALFD) 410 const_iv (EV, FLAG_SIGNALFD)
411 const_iv (EV, FLAG_NOSIGMASK)
401 const_iv (EV, FLAG_NOENV) 412 const_iv (EV, FLAG_NOENV)
402 const_iv (EV, FLAG_NOSIGFD) /* compatibility, always 0 */
403 const_iv (EV, FLAG_NOINOTIFY) 413 const_iv (EV, FLAG_NOINOTIFY)
404 414
405 const_iv (EV_, VERSION_MAJOR) 415 const_iv (EV_, VERSION_MAJOR)
406 const_iv (EV_, VERSION_MINOR) 416 const_iv (EV_, VERSION_MINOR)
417#if EV_COMPAT3
418 const_iv (EV, FLAG_NOSIGFD) /* compatibility, always 0 */
419 const_iv (EV_, TIMEOUT)
420 const_iv (EV, LOOP_NONBLOCK)
421 const_iv (EV, LOOP_ONESHOT)
422 const_iv (EV, UNLOOP_CANCEL)
423 const_iv (EV, UNLOOP_ONE)
424 const_iv (EV, UNLOOP_ALL)
425#endif
407 }; 426 };
408 427
409 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 428 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
410 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 429 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
411 430
420 stash_check = gv_stashpv ("EV::Check" , 1); 439 stash_check = gv_stashpv ("EV::Check" , 1);
421 stash_child = gv_stashpv ("EV::Child" , 1); 440 stash_child = gv_stashpv ("EV::Child" , 1);
422 stash_embed = gv_stashpv ("EV::Embed" , 1); 441 stash_embed = gv_stashpv ("EV::Embed" , 1);
423 stash_stat = gv_stashpv ("EV::Stat" , 1); 442 stash_stat = gv_stashpv ("EV::Stat" , 1);
424 stash_fork = gv_stashpv ("EV::Fork" , 1); 443 stash_fork = gv_stashpv ("EV::Fork" , 1);
444 stash_cleanup = gv_stashpv ("EV::Cleanup" , 1);
425 stash_async = gv_stashpv ("EV::Async" , 1); 445 stash_async = gv_stashpv ("EV::Async" , 1);
426 446
427 { 447 {
428 SV *sv = perl_get_sv ("EV::API", TRUE); 448 SV *sv = perl_get_sv ("EV::API", TRUE);
429 perl_get_sv ("EV::API", TRUE); /* silence 5.10 warning */ 449 perl_get_sv ("EV::API", TRUE); /* silence 5.10 warning */
448 evapi.now = ev_now; 468 evapi.now = ev_now;
449 evapi.now_update = ev_now_update; 469 evapi.now_update = ev_now_update;
450 evapi.suspend = ev_suspend; 470 evapi.suspend = ev_suspend;
451 evapi.resume = ev_resume; 471 evapi.resume = ev_resume;
452 evapi.backend = ev_backend; 472 evapi.backend = ev_backend;
453 evapi.unloop = ev_unloop; 473 evapi.break_ = ev_break;
454 evapi.invoke_pending = ev_invoke_pending; 474 evapi.invoke_pending = ev_invoke_pending;
455 evapi.pending_count = ev_pending_count; 475 evapi.pending_count = ev_pending_count;
456 evapi.verify = ev_verify; 476 evapi.verify = ev_verify;
457 evapi.set_loop_release_cb = ev_set_loop_release_cb; 477 evapi.set_loop_release_cb = ev_set_loop_release_cb;
458 evapi.set_invoke_pending_cb= ev_set_invoke_pending_cb; 478 evapi.set_invoke_pending_cb= ev_set_invoke_pending_cb;
459 evapi.ref = ev_ref; 479 evapi.ref = ev_ref;
460 evapi.unref = ev_unref; 480 evapi.unref = ev_unref;
461 evapi.loop = ev_loop; 481 evapi.run = ev_run;
462 evapi.once = ev_once; 482 evapi.once = ev_once;
463 evapi.io_start = ev_io_start; 483 evapi.io_start = ev_io_start;
464 evapi.io_stop = ev_io_stop; 484 evapi.io_stop = ev_io_stop;
465 evapi.timer_start = ev_timer_start; 485 evapi.timer_start = ev_timer_start;
466 evapi.timer_stop = ev_timer_stop; 486 evapi.timer_stop = ev_timer_stop;
486 evapi.embed_start = ev_embed_start; 506 evapi.embed_start = ev_embed_start;
487 evapi.embed_stop = ev_embed_stop; 507 evapi.embed_stop = ev_embed_stop;
488 evapi.embed_sweep = ev_embed_sweep; 508 evapi.embed_sweep = ev_embed_sweep;
489 evapi.fork_start = ev_fork_start; 509 evapi.fork_start = ev_fork_start;
490 evapi.fork_stop = ev_fork_stop; 510 evapi.fork_stop = ev_fork_stop;
511 evapi.cleanup_start = ev_cleanup_start;
512 evapi.cleanup_stop = ev_cleanup_stop;
491 evapi.async_start = ev_async_start; 513 evapi.async_start = ev_async_start;
492 evapi.async_stop = ev_async_stop; 514 evapi.async_stop = ev_async_stop;
493 evapi.async_send = ev_async_send; 515 evapi.async_send = ev_async_send;
494 evapi.clear_pending = ev_clear_pending; 516 evapi.clear_pending = ev_clear_pending;
495 evapi.invoke = ev_invoke; 517 evapi.invoke = ev_invoke;
496 518
497 sv_setiv (sv, (IV)&evapi); 519 sv_setiv (sv, (IV)&evapi);
498 SvREADONLY_on (sv); 520 SvREADONLY_on (sv);
499 } 521 }
500#ifndef _WIN32 522#if !defined(_WIN32) && !defined(_MINIX)
501 pthread_atfork (0, 0, ev_default_fork); 523 pthread_atfork (0, 0, default_fork);
502#endif 524#endif
503} 525}
504 526
505SV *ev_default_loop (unsigned int flags = 0) 527SV *ev_default_loop (unsigned int flags = 0)
506 CODE: 528 CODE:
520 OUTPUT: 542 OUTPUT:
521 RETVAL 543 RETVAL
522 544
523void ev_default_destroy () 545void ev_default_destroy ()
524 CODE: 546 CODE:
525 ev_default_destroy (); 547 ev_loop_destroy (EV_DEFAULT_UC);
526 SvREFCNT_dec (default_loop_sv); 548 SvREFCNT_dec (default_loop_sv);
527 default_loop_sv = 0; 549 default_loop_sv = 0;
528 550
529unsigned int ev_supported_backends () 551unsigned int ev_supported_backends ()
530 552
534 556
535void ev_sleep (NV interval) 557void ev_sleep (NV interval)
536 558
537NV ev_time () 559NV ev_time ()
538 560
561void ev_feed_signal (SV *signal)
562 CODE:
563{
564 Signal signum = s_signum (signal);
565 CHECK_SIG (signal, signum);
566
567 ev_feed_signal (signum);
568}
569
539NV ev_now () 570NV ev_now ()
540 C_ARGS: evapi.default_loop 571 C_ARGS: evapi.default_loop
541 572
542void ev_now_update () 573void ev_now_update ()
543 C_ARGS: evapi.default_loop 574 C_ARGS: evapi.default_loop
550 581
551unsigned int ev_backend () 582unsigned int ev_backend ()
552 C_ARGS: evapi.default_loop 583 C_ARGS: evapi.default_loop
553 584
554void ev_verify () 585void ev_verify ()
586 ALIAS:
587 loop_verify = 1
555 C_ARGS: evapi.default_loop 588 C_ARGS: evapi.default_loop
556 589
557unsigned int ev_iteration () 590unsigned int ev_iteration ()
591 ALIAS:
592 loop_count = 1
558 C_ARGS: evapi.default_loop 593 C_ARGS: evapi.default_loop
559 594
560unsigned int ev_depth () 595unsigned int ev_depth ()
596 ALIAS:
597 loop_depth = 1
561 C_ARGS: evapi.default_loop 598 C_ARGS: evapi.default_loop
562 599
563void ev_set_io_collect_interval (NV interval) 600void ev_set_io_collect_interval (NV interval)
564 C_ARGS: evapi.default_loop, interval 601 C_ARGS: evapi.default_loop, interval
565 602
566void ev_set_timeout_collect_interval (NV interval) 603void ev_set_timeout_collect_interval (NV interval)
567 C_ARGS: evapi.default_loop, interval 604 C_ARGS: evapi.default_loop, interval
568 605
569void ev_loop (int flags = 0) 606void ev_run (int flags = 0)
607 ALIAS:
608 loop = 1
570 C_ARGS: evapi.default_loop, flags 609 C_ARGS: evapi.default_loop, flags
571 610
572void ev_unloop (int how = EVUNLOOP_ONE) 611void ev_break (int how = EVBREAK_ONE)
612 ALIAS:
613 unloop = 1
573 C_ARGS: evapi.default_loop, how 614 C_ARGS: evapi.default_loop, how
574 615
575void ev_feed_fd_event (int fd, int revents = EV_NONE) 616void ev_feed_fd_event (int fd, int revents = EV_NONE)
576 C_ARGS: evapi.default_loop, fd, revents 617 C_ARGS: evapi.default_loop, fd, revents
577 618
695 ev_fork_set (RETVAL); 736 ev_fork_set (RETVAL);
696 if (!ix) START (fork, RETVAL); 737 if (!ix) START (fork, RETVAL);
697 OUTPUT: 738 OUTPUT:
698 RETVAL 739 RETVAL
699 740
741ev_cleanup *cleanup (SV *cb)
742 ALIAS:
743 cleanup_ns = 1
744 CODE:
745 RETVAL = e_new (sizeof (ev_cleanup), cb, default_loop_sv);
746 ev_cleanup_set (RETVAL);
747 if (!ix) START (cleanup, RETVAL);
748 OUTPUT:
749 RETVAL
750
751ev_child *child (int pid, int trace, SV *cb)
752 ALIAS:
753 child_ns = 1
754 CODE:
700#if EV_CHILD_ENABLE 755#if EV_CHILD_ENABLE
701
702ev_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); 756 RETVAL = e_new (sizeof (ev_child), cb, default_loop_sv);
707 ev_child_set (RETVAL, pid, trace); 757 ev_child_set (RETVAL, pid, trace);
708 if (!ix) START (child, RETVAL); 758 if (!ix) START (child, RETVAL);
709 OUTPUT: 759#else
710 RETVAL 760 croak ("EV::child watchers not supported on this platform");
711
712#endif 761#endif
762 OUTPUT:
763 RETVAL
764
713 765
714ev_stat *stat (SV *path, NV interval, SV *cb) 766ev_stat *stat (SV *path, NV interval, SV *cb)
715 ALIAS: 767 ALIAS:
716 stat_ns = 1 768 stat_ns = 1
717 CODE: 769 CODE:
720 ev_stat_set (RETVAL, SvPVbyte_nolen (e_fh (RETVAL)), interval); 772 ev_stat_set (RETVAL, SvPVbyte_nolen (e_fh (RETVAL)), interval);
721 if (!ix) START (stat, RETVAL); 773 if (!ix) START (stat, RETVAL);
722 OUTPUT: 774 OUTPUT:
723 RETVAL 775 RETVAL
724 776
777#ifndef EV_NO_LOOPS
778
725ev_embed *embed (struct ev_loop *loop, SV *cb = 0) 779ev_embed *embed (struct ev_loop *loop, SV *cb = 0)
726 ALIAS: 780 ALIAS:
727 embed_ns = 1 781 embed_ns = 1
728 CODE: 782 CODE:
729{ 783{
735 ev_embed_set (RETVAL, loop); 789 ev_embed_set (RETVAL, loop);
736 if (!ix) START (embed, RETVAL); 790 if (!ix) START (embed, RETVAL);
737} 791}
738 OUTPUT: 792 OUTPUT:
739 RETVAL 793 RETVAL
794
795#endif
740 796
741ev_async *async (SV *cb) 797ev_async *async (SV *cb)
742 ALIAS: 798 ALIAS:
743 async_ns = 1 799 async_ns = 1
744 CODE: 800 CODE:
1082 1138
1083void DESTROY (ev_fork *w) 1139void DESTROY (ev_fork *w)
1084 CODE: 1140 CODE:
1085 STOP (fork, w); 1141 STOP (fork, w);
1086 e_destroy (w); 1142 e_destroy (w);
1143
1144MODULE = EV PACKAGE = EV::Cleanup PREFIX = ev_cleanup_
1145
1146void ev_cleanup_start (ev_cleanup *w)
1147 CODE:
1148 START (cleanup, w);
1149
1150void ev_cleanup_stop (ev_cleanup *w)
1151 CODE:
1152 STOP (cleanup, w);
1153
1154void DESTROY (ev_cleanup *w)
1155 CODE:
1156 STOP (cleanup, w);
1157 e_destroy (w);
1158
1159int keepalive (ev_watcher *w, int new_value = 0)
1160 CODE:
1161 RETVAL = 0;
1162 OUTPUT:
1163 RETVAL
1087 1164
1088MODULE = EV PACKAGE = EV::Child PREFIX = ev_child_ 1165MODULE = EV PACKAGE = EV::Child PREFIX = ev_child_
1089 1166
1090#if EV_CHILD_ENABLE 1167#if EV_CHILD_ENABLE
1091 1168
1266 CODE: 1343 CODE:
1267 RETVAL = boolSV (ev_async_pending (w)); 1344 RETVAL = boolSV (ev_async_pending (w));
1268 OUTPUT: 1345 OUTPUT:
1269 RETVAL 1346 RETVAL
1270 1347
1348#ifndef EV_NO_LOOPS
1349
1271MODULE = EV PACKAGE = EV::Loop PREFIX = ev_ 1350MODULE = EV PACKAGE = EV::Loop PREFIX = ev_
1272 1351
1273SV *new (SV *klass, unsigned int flags = 0) 1352SV *new (SV *klass, unsigned int flags = 0)
1274 CODE: 1353 CODE:
1275{ 1354{
1283 OUTPUT: 1362 OUTPUT:
1284 RETVAL 1363 RETVAL
1285 1364
1286void DESTROY (struct ev_loop *loop) 1365void DESTROY (struct ev_loop *loop)
1287 CODE: 1366 CODE:
1288 if (loop != evapi.default_loop) /* global destruction sucks */ 1367 /* 1. the default loop shouldn't be freed by destroying it'S pelr loop object */
1368 /* 2. not doing so helps avoid many global destruction bugs in perl, too */
1369 if (loop != evapi.default_loop)
1289 ev_loop_destroy (loop); 1370 ev_loop_destroy (loop);
1290 1371
1291void ev_loop_fork (struct ev_loop *loop) 1372void ev_loop_fork (struct ev_loop *loop)
1292 1373
1374NV ev_now (struct ev_loop *loop)
1375
1376void ev_now_update (struct ev_loop *loop)
1377
1378void ev_suspend (struct ev_loop *loop)
1379
1380void ev_resume (struct ev_loop *loop)
1381
1382void ev_set_io_collect_interval (struct ev_loop *loop, NV interval)
1383
1384void ev_set_timeout_collect_interval (struct ev_loop *loop, NV interval)
1385
1386unsigned int ev_backend (struct ev_loop *loop)
1387
1293void ev_verify (struct ev_loop *loop) 1388void ev_verify (struct ev_loop *loop)
1294 1389 ALIAS:
1295NV ev_now (struct ev_loop *loop) 1390 loop_verify = 1
1296
1297void ev_now_update (struct ev_loop *loop)
1298
1299void ev_suspend (struct ev_loop *loop)
1300
1301void ev_resume (struct ev_loop *loop)
1302
1303void ev_set_io_collect_interval (struct ev_loop *loop, NV interval)
1304
1305void ev_set_timeout_collect_interval (struct ev_loop *loop, NV interval)
1306
1307unsigned int ev_backend (struct ev_loop *loop)
1308 1391
1309unsigned int ev_iteration (struct ev_loop *loop) 1392unsigned int ev_iteration (struct ev_loop *loop)
1393 ALIAS:
1394 loop_count = 1
1310 1395
1311unsigned int ev_depth (struct ev_loop *loop) 1396unsigned int ev_depth (struct ev_loop *loop)
1397 ALIAS:
1398 loop_depth = 1
1312 1399
1313void ev_loop (struct ev_loop *loop, int flags = 0) 1400void ev_run (struct ev_loop *loop, int flags = 0)
1401 ALIAS:
1402 loop = 1
1314 1403
1315void ev_unloop (struct ev_loop *loop, int how = 1) 1404void ev_break (struct ev_loop *loop, int how = 1)
1405 ALIAS:
1406 unloop = 1
1316 1407
1317void ev_feed_fd_event (struct ev_loop *loop, int fd, int revents = EV_NONE) 1408void ev_feed_fd_event (struct ev_loop *loop, int fd, int revents = EV_NONE)
1318 1409
1319unsigned int ev_pending_count (struct ev_loop *loop) 1410unsigned int ev_pending_count (struct ev_loop *loop)
1320 1411
1431 ev_fork_set (RETVAL); 1522 ev_fork_set (RETVAL);
1432 if (!ix) START (fork, RETVAL); 1523 if (!ix) START (fork, RETVAL);
1433 OUTPUT: 1524 OUTPUT:
1434 RETVAL 1525 RETVAL
1435 1526
1527ev_cleanup *cleanup (struct ev_loop *loop, SV *cb)
1528 ALIAS:
1529 cleanup_ns = 1
1530 CODE:
1531 RETVAL = e_new (sizeof (ev_cleanup), cb, ST (0));
1532 ev_cleanup_set (RETVAL);
1533 if (!ix) START (cleanup, RETVAL);
1534 OUTPUT:
1535 RETVAL
1536
1537ev_child *child (struct ev_loop *loop, int pid, int trace, SV *cb)
1538 ALIAS:
1539 child_ns = 1
1540 CODE:
1436#if EV_CHILD_ENABLE 1541#if EV_CHILD_ENABLE
1437
1438ev_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)); 1542 RETVAL = e_new (sizeof (ev_child), cb, ST (0));
1443 ev_child_set (RETVAL, pid, trace); 1543 ev_child_set (RETVAL, pid, trace);
1444 if (!ix) START (child, RETVAL); 1544 if (!ix) START (child, RETVAL);
1445 OUTPUT: 1545#else
1446 RETVAL 1546 croak ("EV::child watchers not supported on this platform");
1447
1448#endif 1547#endif
1548 OUTPUT:
1549 RETVAL
1449 1550
1450ev_stat *stat (struct ev_loop *loop, SV *path, NV interval, SV *cb) 1551ev_stat *stat (struct ev_loop *loop, SV *path, NV interval, SV *cb)
1451 ALIAS: 1552 ALIAS:
1452 stat_ns = 1 1553 stat_ns = 1
1453 CODE: 1554 CODE:
1492 SvOK (timeout) ? SvNV (timeout) : -1., 1593 SvOK (timeout) ? SvNV (timeout) : -1.,
1493 e_once_cb, 1594 e_once_cb,
1494 newSVsv (cb) 1595 newSVsv (cb)
1495 ); 1596 );
1496 1597
1598#endif
1599

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines