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

Comparing EV/EV.xs (file contents):
Revision 1.75 by root, Fri Nov 23 12:22:26 2007 UTC vs.
Revision 1.88 by root, Sat Dec 8 04:02:30 2007 UTC

20/* due to bugs in OS X we have to use libev/ explicitly here */ 20/* due to bugs in OS X we have to use libev/ explicitly here */
21#include "libev/ev.c" 21#include "libev/ev.c"
22#include "event.c" 22#include "event.c"
23 23
24#ifndef _WIN32 24#ifndef _WIN32
25#define DNS_USE_GETTIMEOFDAY_FOR_ID 1
26#if !defined (WIN32) && !defined(__CYGWIN__)
27# define HAVE_STRUCT_IN6_ADDR 1
28#endif
29#undef HAVE_STRTOK_R
30#undef strtok_r
31#define strtok_r fake_strtok_r
32#include "evdns.h"
33#include "evdns.c"
34#endif
35
36#ifndef _WIN32
37# include <pthread.h> 25# include <pthread.h>
38#endif 26#endif
27
28#define WFLAG_KEEPALIVE 1
29
30#define UNREF(w) \
31 if (!((w)->flags & WFLAG_KEEPALIVE) \
32 && !ev_is_active (w)) \
33 ev_unref ();
34
35#define REF(w) \
36 if (!((w)->flags & WFLAG_KEEPALIVE) \
37 && ev_is_active (w)) \
38 ev_ref ();
39
40#define START(type,w) \
41 do { \
42 UNREF (w); \
43 ev_ ## type ## _start (w); \
44 } while (0)
45
46#define STOP(type,w) \
47 do { \
48 REF (w); \
49 ev_ ## type ## _stop (w); \
50 } while (0)
51
52#define RESET(type,w,seta) \
53 do { \
54 int active = ev_is_active (w); \
55 if (active) STOP (type, w); \
56 ev_ ## type ## _set seta; \
57 if (active) START (type, w); \
58 } while (0)
39 59
40typedef int Signal; 60typedef int Signal;
41 61
42static struct EVAPI evapi; 62static struct EVAPI evapi;
43 63
45 *stash_watcher, 65 *stash_watcher,
46 *stash_io, 66 *stash_io,
47 *stash_timer, 67 *stash_timer,
48 *stash_periodic, 68 *stash_periodic,
49 *stash_signal, 69 *stash_signal,
70 *stash_child,
71 *stash_stat,
50 *stash_idle, 72 *stash_idle,
51 *stash_prepare, 73 *stash_prepare,
52 *stash_check, 74 *stash_check,
53 *stash_child; 75 *stash_embed,
76 *stash_fork;
54 77
55#ifndef SIG_SIZE 78#ifndef SIG_SIZE
56/* kudos to Slaven Rezic for the idea */ 79/* kudos to Slaven Rezic for the idea */
57static char sig_size [] = { SIG_NUM }; 80static char sig_size [] = { SIG_NUM };
58# define SIG_SIZE (sizeof (sig_size) + 1) 81# define SIG_SIZE (sizeof (sig_size) + 1)
59#endif 82#endif
60 83
61static int 84static Signal
62sv_signum (SV *sig) 85sv_signum (SV *sig)
63{ 86{
64 int signum; 87 Signal signum;
65 88
66 SvGETMAGIC (sig); 89 SvGETMAGIC (sig);
67 90
68 for (signum = 1; signum < SIG_SIZE; ++signum) 91 for (signum = 1; signum < SIG_SIZE; ++signum)
69 if (strEQ (SvPV_nolen (sig), PL_sig_name [signum])) 92 if (strEQ (SvPV_nolen (sig), PL_sig_name [signum]))
70 return signum; 93 return signum;
71 94
72 if (SvIV (sig) > 0) 95 signum = SvIV (sig);
96
97 if (signum > 0 && signum < SIG_SIZE)
73 return SvIV (sig); 98 return signum;
74 99
75 return -1; 100 return -1;
76} 101}
77 102
78///////////////////////////////////////////////////////////////////////////// 103/////////////////////////////////////////////////////////////////////////////
79// Event 104// Event
80 105
81static void e_cb (struct ev_watcher *w, int revents); 106static void e_cb (ev_watcher *w, int revents);
82 107
83static int 108static int
84sv_fileno (SV *fh) 109sv_fileno (SV *fh)
85{ 110{
86 SvGETMAGIC (fh); 111 SvGETMAGIC (fh);
98} 123}
99 124
100static void * 125static void *
101e_new (int size, SV *cb_sv) 126e_new (int size, SV *cb_sv)
102{ 127{
103 struct ev_watcher *w; 128 ev_watcher *w;
104 SV *self = NEWSV (0, size); 129 SV *self = NEWSV (0, size);
105 SvPOK_only (self); 130 SvPOK_only (self);
106 SvCUR_set (self, size); 131 SvCUR_set (self, size);
107 132
108 w = (struct ev_watcher *)SvPVX (self); 133 w = (ev_watcher *)SvPVX (self);
109 134
110 ev_init (w, e_cb); 135 ev_init (w, e_cb);
111 136
137 w->flags = WFLAG_KEEPALIVE;
112 w->data = 0; 138 w->data = 0;
113 w->fh = 0; 139 w->fh = 0;
114 w->cb_sv = newSVsv (cb_sv); 140 w->cb_sv = newSVsv (cb_sv);
115 w->self = self; 141 w->self = self;
116 142
118} 144}
119 145
120static void 146static void
121e_destroy (void *w_) 147e_destroy (void *w_)
122{ 148{
123 struct ev_watcher *w = (struct ev_watcher *)w_; 149 ev_watcher *w = (ev_watcher *)w_;
124 150
125 SvREFCNT_dec (w->fh ); w->fh = 0; 151 SvREFCNT_dec (w->fh ); w->fh = 0;
126 SvREFCNT_dec (w->cb_sv); w->cb_sv = 0; 152 SvREFCNT_dec (w->cb_sv); w->cb_sv = 0;
127 SvREFCNT_dec (w->data ); w->data = 0; 153 SvREFCNT_dec (w->data ); w->data = 0;
128} 154}
129 155
130static SV * 156static SV *
131e_bless (struct ev_watcher *w, HV *stash) 157e_bless (ev_watcher *w, HV *stash)
132{ 158{
133 SV *rv; 159 SV *rv;
134 160
135 if (SvOBJECT (w->self)) 161 if (SvOBJECT (w->self))
136 rv = newRV_inc (w->self); 162 rv = newRV_inc (w->self);
145} 171}
146 172
147static SV *sv_events_cache; 173static SV *sv_events_cache;
148 174
149static void 175static void
150e_cb (struct ev_watcher *w, int revents) 176e_cb (ev_watcher *w, int revents)
151{ 177{
152 dSP; 178 dSP;
153 I32 mark = SP - PL_stack_base; 179 I32 mark = SP - PL_stack_base;
154 SV *sv_self, *sv_events; 180 SV *sv_self, *sv_events;
155 181
178 else 204 else
179 sv_events_cache = sv_events; 205 sv_events_cache = sv_events;
180 206
181 if (SvTRUE (ERRSV)) 207 if (SvTRUE (ERRSV))
182 { 208 {
209 SPAGAIN;
183 PUSHMARK (SP); 210 PUSHMARK (SP);
184 PUTBACK; 211 PUTBACK;
185 call_sv (get_sv ("EV::DIED", 1), G_DISCARD | G_VOID | G_EVAL | G_KEEPERR); 212 call_sv (get_sv ("EV::DIED", 1), G_DISCARD | G_VOID | G_EVAL | G_KEEPERR);
186 } 213 }
187 214
217 else 244 else
218 sv_events_cache = sv_events; 245 sv_events_cache = sv_events;
219 246
220 if (SvTRUE (ERRSV)) 247 if (SvTRUE (ERRSV))
221 { 248 {
249 SPAGAIN;
222 PUSHMARK (SP); 250 PUSHMARK (SP);
223 PUTBACK; 251 PUTBACK;
224 call_sv (get_sv ("EV::DIED", 1), G_DISCARD | G_VOID | G_EVAL | G_KEEPERR); 252 call_sv (get_sv ("EV::DIED", 1), G_DISCARD | G_VOID | G_EVAL | G_KEEPERR);
225 } 253 }
226 254
227 SP = PL_stack_base + mark; 255 SP = PL_stack_base + mark;
228 PUTBACK; 256 PUTBACK;
229} 257}
230 258
231static ev_tstamp 259static ev_tstamp
232e_periodic_cb (struct ev_periodic *w, ev_tstamp now) 260e_periodic_cb (ev_periodic *w, ev_tstamp now)
233{ 261{
234 ev_tstamp retval; 262 ev_tstamp retval;
235 int count; 263 int count;
236 dSP; 264 dSP;
237 265
269 LEAVE; 297 LEAVE;
270 298
271 return retval; 299 return retval;
272} 300}
273 301
274/////////////////////////////////////////////////////////////////////////////
275// DNS
276
277#ifndef _WIN32
278static void
279dns_cb (int result, char type, int count, int ttl, void *addresses, void *arg)
280{
281 dSP;
282 SV *cb = (SV *)arg;
283
284 ENTER;
285 SAVETMPS;
286 PUSHMARK (SP);
287 EXTEND (SP, count + 3);
288 PUSHs (sv_2mortal (newSViv (result)));
289
290 if (result == DNS_ERR_NONE && ttl >= 0)
291 {
292 int i;
293
294 PUSHs (sv_2mortal (newSViv (type)));
295 PUSHs (sv_2mortal (newSViv (ttl)));
296
297 for (i = 0; i < count; ++i)
298 switch (type)
299 {
300 case DNS_IPv6_AAAA:
301 PUSHs (sv_2mortal (newSVpvn (i * 16 + (char *)addresses, 16)));
302 break;
303 case DNS_IPv4_A:
304 PUSHs (sv_2mortal (newSVpvn (i * 4 + (char *)addresses, 4)));
305 break;
306 case DNS_PTR:
307 PUSHs (sv_2mortal (newSVpv (*(char **)addresses, 0)));
308 break;
309 }
310 }
311
312 PUTBACK;
313 call_sv (sv_2mortal (cb), G_DISCARD | G_VOID | G_EVAL);
314
315 FREETMPS;
316
317 if (SvTRUE (ERRSV))
318 {
319 PUSHMARK (SP);
320 PUTBACK;
321 call_sv (get_sv ("EV::DIED", 1), G_DISCARD | G_VOID | G_EVAL | G_KEEPERR);
322 }
323
324 LEAVE;
325}
326#endif
327
328#define CHECK_REPEAT(repeat) if (repeat < 0.) \ 302#define CHECK_REPEAT(repeat) if (repeat < 0.) \
329 croak (# repeat " value must be >= 0"); 303 croak (# repeat " value must be >= 0");
330 304
331#define CHECK_FD(fh,fd) if ((fd) < 0) \ 305#define CHECK_FD(fh,fd) if ((fd) < 0) \
332 croak ("illegal file descriptor or filehandle (either no attached file descriptor or illegal value): %s", SvPV_nolen (fh)); 306 croak ("illegal file descriptor or filehandle (either no attached file descriptor or illegal value): %s", SvPV_nolen (fh));
307
308#define CHECK_SIG(sv,num) if ((num) < 0) \
309 croak ("illegal signal number or name: %s", SvPV_nolen (sv));
333 310
334///////////////////////////////////////////////////////////////////////////// 311/////////////////////////////////////////////////////////////////////////////
335// XS interface functions 312// XS interface functions
336 313
337MODULE = EV PACKAGE = EV PREFIX = ev_ 314MODULE = EV PACKAGE = EV PREFIX = ev_
371 const_iv (EV, BACKEND_KQUEUE) 348 const_iv (EV, BACKEND_KQUEUE)
372 const_iv (EV, BACKEND_DEVPOLL) 349 const_iv (EV, BACKEND_DEVPOLL)
373 const_iv (EV, BACKEND_PORT) 350 const_iv (EV, BACKEND_PORT)
374 const_iv (EV, FLAG_AUTO) 351 const_iv (EV, FLAG_AUTO)
375 const_iv (EV, FLAG_NOENV) 352 const_iv (EV, FLAG_NOENV)
353 const_iv (EV, FLAG_FORKCHECK)
376 }; 354 };
377 355
378 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 356 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
379 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 357 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
380 358
381 stash_watcher = gv_stashpv ("EV::Watcher" , 1); 359 stash_watcher = gv_stashpv ("EV::Watcher" , 1);
382 stash_io = gv_stashpv ("EV::Io" , 1); 360 stash_io = gv_stashpv ("EV::IO" , 1);
383 stash_timer = gv_stashpv ("EV::Timer" , 1); 361 stash_timer = gv_stashpv ("EV::Timer" , 1);
384 stash_periodic = gv_stashpv ("EV::Periodic", 1); 362 stash_periodic = gv_stashpv ("EV::Periodic", 1);
385 stash_signal = gv_stashpv ("EV::Signal" , 1); 363 stash_signal = gv_stashpv ("EV::Signal" , 1);
386 stash_idle = gv_stashpv ("EV::Idle" , 1); 364 stash_idle = gv_stashpv ("EV::Idle" , 1);
387 stash_prepare = gv_stashpv ("EV::Prepare" , 1); 365 stash_prepare = gv_stashpv ("EV::Prepare" , 1);
388 stash_check = gv_stashpv ("EV::Check" , 1); 366 stash_check = gv_stashpv ("EV::Check" , 1);
389 stash_child = gv_stashpv ("EV::Child" , 1); 367 stash_child = gv_stashpv ("EV::Child" , 1);
368 stash_embed = gv_stashpv ("EV::Embed" , 1);
369 stash_stat = gv_stashpv ("EV::Stat" , 1);
390 370
391 { 371 {
392 SV *sv = perl_get_sv ("EV::API", TRUE); 372 SV *sv = perl_get_sv ("EV::API", TRUE);
393 perl_get_sv ("EV::API", TRUE); /* silence 5.10 warning */ 373 perl_get_sv ("EV::API", TRUE); /* silence 5.10 warning */
394 374
398 evapi.sv_fileno = sv_fileno; 378 evapi.sv_fileno = sv_fileno;
399 evapi.sv_signum = sv_signum; 379 evapi.sv_signum = sv_signum;
400 evapi.now = ev_now; 380 evapi.now = ev_now;
401 evapi.backend = ev_backend; 381 evapi.backend = ev_backend;
402 evapi.unloop = ev_unloop; 382 evapi.unloop = ev_unloop;
383 evapi.ref = ev_ref;
384 evapi.unref = ev_unref;
403 evapi.time = ev_time; 385 evapi.time = ev_time;
404 evapi.loop = ev_loop; 386 evapi.loop = ev_loop;
405 evapi.once = ev_once; 387 evapi.once = ev_once;
406 evapi.io_start = ev_io_start; 388 evapi.io_start = ev_io_start;
407 evapi.io_stop = ev_io_stop; 389 evapi.io_stop = ev_io_stop;
418 evapi.prepare_stop = ev_prepare_stop; 400 evapi.prepare_stop = ev_prepare_stop;
419 evapi.check_start = ev_check_start; 401 evapi.check_start = ev_check_start;
420 evapi.check_stop = ev_check_stop; 402 evapi.check_stop = ev_check_stop;
421 evapi.child_start = ev_child_start; 403 evapi.child_start = ev_child_start;
422 evapi.child_stop = ev_child_stop; 404 evapi.child_stop = ev_child_stop;
405 evapi.stat_start = ev_stat_start;
406 evapi.stat_stop = ev_stat_stop;
407 evapi.stat_stat = ev_stat_stat;
408 evapi.clear_pending = ev_clear_pending;
423 409
424 sv_setiv (sv, (IV)&evapi); 410 sv_setiv (sv, (IV)&evapi);
425 SvREADONLY_on (sv); 411 SvREADONLY_on (sv);
426 } 412 }
427#ifndef _WIN32 413#ifndef _WIN32
435 421
436NV ev_time () 422NV ev_time ()
437 423
438unsigned int ev_default_loop (unsigned int flags = ev_supported_backends ()) 424unsigned int ev_default_loop (unsigned int flags = ev_supported_backends ())
439 425
426unsigned int ev_loop_count ()
427
440void ev_loop (int flags = 0) 428void ev_loop (int flags = 0)
441 429
442void ev_unloop (int how = 1) 430void ev_unloop (int how = 1)
443 431
444struct ev_io *io (SV *fh, int events, SV *cb) 432ev_io *io (SV *fh, int events, SV *cb)
445 ALIAS: 433 ALIAS:
446 io_ns = 1 434 io_ns = 1
447 CODE: 435 CODE:
448{ 436{
449 int fd = sv_fileno (fh); 437 int fd = sv_fileno (fh);
450 CHECK_FD (fh, fd); 438 CHECK_FD (fh, fd);
451 439
452 RETVAL = e_new (sizeof (struct ev_io), cb); 440 RETVAL = e_new (sizeof (ev_io), cb);
453 RETVAL->fh = newSVsv (fh); 441 RETVAL->fh = newSVsv (fh);
454 ev_io_set (RETVAL, fd, events); 442 ev_io_set (RETVAL, fd, events);
455 if (!ix) ev_io_start (RETVAL); 443 if (!ix) START (io, RETVAL);
456} 444}
457 OUTPUT: 445 OUTPUT:
458 RETVAL 446 RETVAL
459 447
460struct ev_timer *timer (NV after, NV repeat, SV *cb) 448ev_timer *timer (NV after, NV repeat, SV *cb)
461 ALIAS: 449 ALIAS:
462 timer_ns = 1 450 timer_ns = 1
463 INIT: 451 INIT:
464 CHECK_REPEAT (repeat); 452 CHECK_REPEAT (repeat);
465 CODE: 453 CODE:
466 RETVAL = e_new (sizeof (struct ev_timer), cb); 454 RETVAL = e_new (sizeof (ev_timer), cb);
467 ev_timer_set (RETVAL, after, repeat); 455 ev_timer_set (RETVAL, after, repeat);
468 if (!ix) ev_timer_start (RETVAL); 456 if (!ix) START (timer, RETVAL);
469 OUTPUT: 457 OUTPUT:
470 RETVAL 458 RETVAL
471 459
472SV *periodic (NV at, NV interval, SV *reschedule_cb, SV *cb) 460SV *periodic (NV at, NV interval, SV *reschedule_cb, SV *cb)
473 ALIAS: 461 ALIAS:
474 periodic_ns = 1 462 periodic_ns = 1
475 INIT: 463 INIT:
476 CHECK_REPEAT (interval); 464 CHECK_REPEAT (interval);
477 CODE: 465 CODE:
478{ 466{
479 struct ev_periodic *w; 467 ev_periodic *w;
480 w = e_new (sizeof (struct ev_periodic), cb); 468 w = e_new (sizeof (ev_periodic), cb);
481 w->fh = SvTRUE (reschedule_cb) ? newSVsv (reschedule_cb) : 0; 469 w->fh = SvTRUE (reschedule_cb) ? newSVsv (reschedule_cb) : 0;
482 ev_periodic_set (w, at, interval, w->fh ? e_periodic_cb : 0); 470 ev_periodic_set (w, at, interval, w->fh ? e_periodic_cb : 0);
483 RETVAL = e_bless ((struct ev_watcher *)w, stash_periodic); 471 RETVAL = e_bless ((ev_watcher *)w, stash_periodic);
484 if (!ix) ev_periodic_start (w); 472 if (!ix) START (periodic, w);
485} 473}
486 OUTPUT: 474 OUTPUT:
487 RETVAL 475 RETVAL
488 476
489struct ev_signal *signal (Signal signum, SV *cb) 477ev_signal *signal (SV *signal, SV *cb)
490 ALIAS: 478 ALIAS:
491 signal_ns = 1 479 signal_ns = 1
492 CODE: 480 CODE:
481{
482 Signal signum = sv_signum (signal);
483 CHECK_SIG (signal, signum);
484
493 RETVAL = e_new (sizeof (struct ev_signal), cb); 485 RETVAL = e_new (sizeof (ev_signal), cb);
494 ev_signal_set (RETVAL, signum); 486 ev_signal_set (RETVAL, signum);
495 if (!ix) ev_signal_start (RETVAL); 487 if (!ix) START (signal, RETVAL);
488}
496 OUTPUT: 489 OUTPUT:
497 RETVAL 490 RETVAL
498 491
499struct ev_idle *idle (SV *cb) 492ev_idle *idle (SV *cb)
500 ALIAS: 493 ALIAS:
501 idle_ns = 1 494 idle_ns = 1
502 CODE: 495 CODE:
503 RETVAL = e_new (sizeof (struct ev_idle), cb); 496 RETVAL = e_new (sizeof (ev_idle), cb);
504 ev_idle_set (RETVAL); 497 ev_idle_set (RETVAL);
505 if (!ix) ev_idle_start (RETVAL); 498 if (!ix) START (idle, RETVAL);
506 OUTPUT: 499 OUTPUT:
507 RETVAL 500 RETVAL
508 501
509struct ev_prepare *prepare (SV *cb) 502ev_prepare *prepare (SV *cb)
510 ALIAS: 503 ALIAS:
511 prepare_ns = 1 504 prepare_ns = 1
512 CODE: 505 CODE:
513 RETVAL = e_new (sizeof (struct ev_prepare), cb); 506 RETVAL = e_new (sizeof (ev_prepare), cb);
514 ev_prepare_set (RETVAL); 507 ev_prepare_set (RETVAL);
515 if (!ix) ev_prepare_start (RETVAL); 508 if (!ix) START (prepare, RETVAL);
516 OUTPUT: 509 OUTPUT:
517 RETVAL 510 RETVAL
518 511
519struct ev_check *check (SV *cb) 512ev_check *check (SV *cb)
520 ALIAS: 513 ALIAS:
521 check_ns = 1 514 check_ns = 1
522 CODE: 515 CODE:
523 RETVAL = e_new (sizeof (struct ev_check), cb); 516 RETVAL = e_new (sizeof (ev_check), cb);
524 ev_check_set (RETVAL); 517 ev_check_set (RETVAL);
525 if (!ix) ev_check_start (RETVAL); 518 if (!ix) START (check, RETVAL);
526 OUTPUT: 519 OUTPUT:
527 RETVAL 520 RETVAL
528 521
529struct ev_child *child (int pid, SV *cb) 522ev_child *child (int pid, SV *cb)
530 ALIAS: 523 ALIAS:
531 child_ns = 1 524 child_ns = 1
532 CODE: 525 CODE:
533 RETVAL = e_new (sizeof (struct ev_child), cb); 526 RETVAL = e_new (sizeof (ev_child), cb);
534 ev_child_set (RETVAL, pid); 527 ev_child_set (RETVAL, pid);
535 if (!ix) ev_child_start (RETVAL); 528 if (!ix) START (child, RETVAL);
536 OUTPUT: 529 OUTPUT:
537 RETVAL 530 RETVAL
538 531
532ev_stat *stat (SV *path, NV interval, SV *cb)
533 ALIAS:
534 stat_ns = 1
535 CODE:
536 RETVAL = e_new (sizeof (ev_stat), cb);
537 RETVAL->fh = newSVsv (path);
538 ev_stat_set (RETVAL, SvPVbyte_nolen (RETVAL->fh), interval);
539 if (!ix) START (stat, RETVAL);
540 OUTPUT:
541 RETVAL
542
539void once (SV *fh, int events, NV timeout, SV *cb) 543void once (SV *fh, int events, SV *timeout, SV *cb)
540 CODE: 544 CODE:
541 ev_once (sv_fileno (fh), events, timeout, e_once_cb, newSVsv (cb)); 545 ev_once (
546 sv_fileno (fh), events,
547 SvOK (timeout) ? SvNV (timeout) : -1.,
548 e_once_cb,
549 newSVsv (cb)
550 );
542 551
543PROTOTYPES: DISABLE 552PROTOTYPES: DISABLE
544 553
545MODULE = EV PACKAGE = EV::Watcher PREFIX = ev_ 554MODULE = EV PACKAGE = EV::Watcher PREFIX = ev_
546 555
547int ev_is_active (struct ev_watcher *w) 556int ev_is_active (ev_watcher *w)
548 557
558int ev_is_pending (ev_watcher *w)
559
560int keepalive (ev_watcher *w, int new_value = 0)
561 CODE:
562{
563 RETVAL = w->flags & WFLAG_KEEPALIVE;
564 new_value = new_value ? WFLAG_KEEPALIVE : 0;
565
566 if (items > 1 && ((new_value ^ w->flags) & WFLAG_KEEPALIVE))
567 {
568 REF (w);
569 w->flags = (w->flags & ~WFLAG_KEEPALIVE) | new_value;
570 UNREF (w);
571 }
572}
573 OUTPUT:
574 RETVAL
575
549SV *cb (struct ev_watcher *w, SV *new_cb = 0) 576SV *cb (ev_watcher *w, SV *new_cb = 0)
550 CODE: 577 CODE:
551{ 578{
552 RETVAL = newSVsv (w->cb_sv); 579 RETVAL = newSVsv (w->cb_sv);
553 580
554 if (items > 1) 581 if (items > 1)
555 sv_setsv (w->cb_sv, new_cb); 582 sv_setsv (w->cb_sv, new_cb);
556} 583}
557 OUTPUT: 584 OUTPUT:
558 RETVAL 585 RETVAL
559 586
560SV *data (struct ev_watcher *w, SV *new_data = 0) 587SV *data (ev_watcher *w, SV *new_data = 0)
561 CODE: 588 CODE:
562{ 589{
563 RETVAL = w->data ? newSVsv (w->data) : &PL_sv_undef; 590 RETVAL = w->data ? newSVsv (w->data) : &PL_sv_undef;
564}
565 OUTPUT:
566 RETVAL
567 591
592 if (items > 1)
593 {
594 SvREFCNT_dec (w->data);
595 w->data = newSVsv (new_data);
596 }
597}
598 OUTPUT:
599 RETVAL
600
568void trigger (struct ev_watcher *w, int revents = EV_NONE) 601void trigger (ev_watcher *w, int revents = EV_NONE)
569 CODE: 602 CODE:
570 w->cb (w, revents); 603 w->cb (w, revents);
571 604
572int priority (struct ev_watcher *w, int new_priority = 0) 605int priority (ev_watcher *w, int new_priority = 0)
573 CODE: 606 CODE:
574{ 607{
575 RETVAL = w->priority; 608 RETVAL = w->priority;
576 609
577 if (items > 1) 610 if (items > 1)
578 { 611 {
579 int active = ev_is_active (w); 612 int active = ev_is_active (w);
580
581 if (new_priority < EV_MINPRI || new_priority > EV_MAXPRI)
582 croak ("watcher priority out of range, value must be between %d and %d, inclusive", EV_MINPRI, EV_MAXPRI);
583 613
584 if (active) 614 if (active)
585 { 615 {
586 /* grrr. */ 616 /* grrr. */
587 PUSHMARK (SP); 617 PUSHMARK (SP);
588 XPUSHs (ST (0)); 618 XPUSHs (ST (0));
619 PUTBACK;
589 call_method ("stop", G_DISCARD | G_VOID); 620 call_method ("stop", G_DISCARD | G_VOID);
590 } 621 }
591 622
592 ev_set_priority (w, new_priority); 623 ev_set_priority (w, new_priority);
593 624
594 if (active) 625 if (active)
595 { 626 {
596 PUSHMARK (SP); 627 PUSHMARK (SP);
597 XPUSHs (ST (0)); 628 XPUSHs (ST (0));
629 PUTBACK;
598 call_method ("start", G_DISCARD | G_VOID); 630 call_method ("start", G_DISCARD | G_VOID);
599 } 631 }
600 } 632 }
601} 633}
602 OUTPUT: 634 OUTPUT:
603 RETVAL 635 RETVAL
604 636
605MODULE = EV PACKAGE = EV::Io PREFIX = ev_io_ 637MODULE = EV PACKAGE = EV::IO PREFIX = ev_io_
606 638
607void ev_io_start (struct ev_io *w) 639void ev_io_start (ev_io *w)
640 CODE:
641 START (io, w);
608 642
609void ev_io_stop (struct ev_io *w) 643void ev_io_stop (ev_io *w)
644 CODE:
645 STOP (io, w);
610 646
611void DESTROY (struct ev_io *w) 647void DESTROY (ev_io *w)
612 CODE: 648 CODE:
613 ev_io_stop (w); 649 STOP (io, w);
614 e_destroy (w); 650 e_destroy (w);
615 651
616void set (struct ev_io *w, SV *fh, int events) 652void set (ev_io *w, SV *fh, int events)
617 CODE: 653 CODE:
618{ 654{
619 int active = ev_is_active (w);
620 int fd = sv_fileno (fh); 655 int fd = sv_fileno (fh);
621 CHECK_FD (fh, fd); 656 CHECK_FD (fh, fd);
622 657
623 if (active) ev_io_stop (w);
624
625 sv_setsv (w->fh, fh); 658 sv_setsv (w->fh, fh);
626 ev_io_set (w, fd, events); 659 RESET (io, w, (w, fd, events));
627
628 if (active) ev_io_start (w);
629} 660}
630 661
631SV *fh (struct ev_io *w, SV *new_fh = 0) 662SV *fh (ev_io *w, SV *new_fh = 0)
632 CODE: 663 CODE:
633{ 664{
634 RETVAL = newSVsv (w->fh);
635
636 if (items > 1) 665 if (items > 1)
637 { 666 {
638 int active = ev_is_active (w); 667 int fd = sv_fileno (new_fh);
639 if (active) ev_io_stop (w); 668 CHECK_FD (new_fh, fd);
640 669
641 sv_setsv (w->fh, new_fh); 670 RETVAL = w->fh;
642 ev_io_set (w, sv_fileno (w->fh), w->events); 671 w->fh = newSVsv (new_fh);
643 672
644 if (active) ev_io_start (w); 673 RESET (io, w, (w, fd, w->events));
645 } 674 }
675 else
676 RETVAL = newSVsv (w->fh);
646} 677}
647 OUTPUT: 678 OUTPUT:
648 RETVAL 679 RETVAL
649 680
650int events (struct ev_io *w, int new_events = EV_UNDEF) 681int events (ev_io *w, int new_events = EV_UNDEF)
651 CODE: 682 CODE:
652{ 683{
653 RETVAL = w->events; 684 RETVAL = w->events;
685
686 if (items > 1)
687 RESET (io, w, (w, w->fd, new_events));
688}
689 OUTPUT:
690 RETVAL
691
692MODULE = EV PACKAGE = EV::Signal PREFIX = ev_signal_
693
694void ev_signal_start (ev_signal *w)
695 CODE:
696 START (signal, w);
697
698void ev_signal_stop (ev_signal *w)
699 CODE:
700 STOP (signal, w);
701
702void DESTROY (ev_signal *w)
703 CODE:
704 STOP (signal, w);
705 e_destroy (w);
706
707void set (ev_signal *w, SV *signal)
708 CODE:
709{
710 Signal signum = sv_signum (signal);
711 CHECK_SIG (signal, signum);
712
713 RESET (signal, w, (w, signum));
714}
715
716int signal (ev_signal *w, SV *new_signal = 0)
717 CODE:
718{
719 RETVAL = w->signum;
654 720
655 if (items > 1) 721 if (items > 1)
656 { 722 {
657 int active = ev_is_active (w); 723 Signal signum = sv_signum (new_signal);
658 if (active) ev_io_stop (w); 724 CHECK_SIG (new_signal, signum);
659 725
660 ev_io_set (w, w->fd, new_events); 726 RESET (signal, w, (w, signum));
661
662 if (active) ev_io_start (w);
663 } 727 }
664} 728}
665 OUTPUT: 729 OUTPUT:
666 RETVAL 730 RETVAL
667 731
668MODULE = EV PACKAGE = EV::Signal PREFIX = ev_signal_ 732MODULE = EV PACKAGE = EV::Timer PREFIX = ev_timer_
669 733
670void ev_signal_start (struct ev_signal *w) 734void ev_timer_start (ev_timer *w)
671 735 INIT:
672void ev_signal_stop (struct ev_signal *w) 736 CHECK_REPEAT (w->repeat);
673
674void DESTROY (struct ev_signal *w)
675 CODE: 737 CODE:
676 ev_signal_stop (w); 738 START (timer, w);
739
740void ev_timer_stop (ev_timer *w)
741 CODE:
742 STOP (timer, w);
743
744void ev_timer_again (ev_timer *w)
745 INIT:
746 CHECK_REPEAT (w->repeat);
747 CODE:
748 REF (w);
749 ev_timer_again (w);
750 UNREF (w);
751
752void DESTROY (ev_timer *w)
753 CODE:
754 STOP (timer, w);
677 e_destroy (w); 755 e_destroy (w);
678 756
679void set (struct ev_signal *w, SV *signal) 757void set (ev_timer *w, NV after, NV repeat = 0.)
758 INIT:
759 CHECK_REPEAT (repeat);
680 CODE: 760 CODE:
681{ 761 RESET (timer, w, (w, after, repeat));
682 Signal signum = sv_signum (signal); /* may croak here */
683 int active = ev_is_active (w);
684 762
685 if (active) ev_signal_stop (w); 763MODULE = EV PACKAGE = EV::Periodic PREFIX = ev_periodic_
686 764
687 ev_signal_set (w, signum); 765void ev_periodic_start (ev_periodic *w)
688 766 INIT:
689 if (active) ev_signal_start (w); 767 CHECK_REPEAT (w->interval);
690}
691
692int signal (struct ev_signal *w, SV *new_signal = 0)
693 CODE: 768 CODE:
769 START (periodic, w);
770
771void ev_periodic_stop (ev_periodic *w)
772 CODE:
773 STOP (periodic, w);
774
775void ev_periodic_again (ev_periodic *w)
776 CODE:
777 REF (w);
778 ev_periodic_again (w);
779 UNREF (w);
780
781void DESTROY (ev_periodic *w)
782 CODE:
783 STOP (periodic, w);
784 e_destroy (w);
785
786void set (ev_periodic *w, NV at, NV interval = 0., SV *reschedule_cb = &PL_sv_undef)
787 INIT:
788 CHECK_REPEAT (interval);
789 CODE:
694{ 790{
791 SvREFCNT_dec (w->fh);
792 w->fh = SvTRUE (reschedule_cb) ? newSVsv (reschedule_cb) : 0;
793
794 RESET (periodic, w, (w, at, interval, w->fh ? e_periodic_cb : 0));
795}
796
797MODULE = EV PACKAGE = EV::Idle PREFIX = ev_idle_
798
799void ev_idle_start (ev_idle *w)
800 CODE:
801 START (idle, w);
802
803void ev_idle_stop (ev_idle *w)
804 CODE:
805 STOP (idle, w);
806
807void DESTROY (ev_idle *w)
808 CODE:
809 STOP (idle, w);
810 e_destroy (w);
811
812MODULE = EV PACKAGE = EV::Prepare PREFIX = ev_check_
813
814void ev_prepare_start (ev_prepare *w)
815 CODE:
816 START (prepare, w);
817
818void ev_prepare_stop (ev_prepare *w)
819 CODE:
820 STOP (prepare, w);
821
822void DESTROY (ev_prepare *w)
823 CODE:
824 STOP (prepare, w);
825 e_destroy (w);
826
827MODULE = EV PACKAGE = EV::Check PREFIX = ev_check_
828
829void ev_check_start (ev_check *w)
830 CODE:
831 START (check, w);
832
833void ev_check_stop (ev_check *w)
834 CODE:
835 STOP (check, w);
836
837void DESTROY (ev_check *w)
838 CODE:
839 STOP (check, w);
840 e_destroy (w);
841
842MODULE = EV PACKAGE = EV::Child PREFIX = ev_child_
843
844void ev_child_start (ev_child *w)
845 CODE:
846 START (child, w);
847
848void ev_child_stop (ev_child *w)
849 CODE:
850 STOP (child, w);
851
852void DESTROY (ev_child *w)
853 CODE:
854 STOP (child, w);
855 e_destroy (w);
856
857void set (ev_child *w, int pid)
858 CODE:
859 RESET (child, w, (w, pid));
860
861int pid (ev_child *w, int new_pid = 0)
862 CODE:
863{
695 RETVAL = w->signum; 864 RETVAL = w->pid;
865
866 if (items > 1)
867 RESET (child, w, (w, new_pid));
868}
869 OUTPUT:
870 RETVAL
871
872
873int rstatus (ev_child *w)
874 ALIAS:
875 rpid = 1
876 CODE:
877 RETVAL = ix ? w->rpid : w->rstatus;
878 OUTPUT:
879 RETVAL
880
881MODULE = EV PACKAGE = EV::Stat PREFIX = ev_stat_
882
883void ev_stat_start (ev_stat *w)
884 CODE:
885 START (stat, w);
886
887void ev_stat_stop (ev_stat *w)
888 CODE:
889 STOP (stat, w);
890
891void DESTROY (ev_stat *w)
892 CODE:
893 STOP (stat, w);
894 e_destroy (w);
895
896void set (ev_stat *w, SV *path, NV interval)
897 CODE:
898{
899 sv_setsv (w->fh, path);
900 RESET (stat, w, (w, SvPVbyte_nolen (w->fh), interval));
901}
902
903SV *path (ev_stat *w, SV *new_path = 0)
904 CODE:
905{
906 RETVAL = SvREFCNT_inc (w->fh);
696 907
697 if (items > 1) 908 if (items > 1)
698 { 909 {
699 Signal signum = sv_signum (new_signal); /* may croak here */ 910 SvREFCNT_dec (w->fh);
700 int active = ev_is_active (w); 911 w->fh = newSVsv (new_path);
701 if (active) ev_signal_stop (w); 912 RESET (stat, w, (w, SvPVbyte_nolen (w->fh), w->interval));
702
703 ev_signal_set (w, signum);
704
705 if (active) ev_signal_start (w);
706 } 913 }
707} 914}
708 OUTPUT: 915 OUTPUT:
709 RETVAL 916 RETVAL
710 917
711MODULE = EV PACKAGE = EV::Timer PREFIX = ev_timer_ 918NV interval (ev_stat *w, NV new_interval = 0.)
712
713void ev_timer_start (struct ev_timer *w)
714 INIT:
715 CHECK_REPEAT (w->repeat);
716
717void ev_timer_stop (struct ev_timer *w)
718
719void ev_timer_again (struct ev_timer *w)
720 INIT:
721 CHECK_REPEAT (w->repeat);
722
723void DESTROY (struct ev_timer *w)
724 CODE: 919 CODE:
725 ev_timer_stop (w);
726 e_destroy (w);
727
728void set (struct ev_timer *w, NV after, NV repeat = 0.)
729 INIT:
730 CHECK_REPEAT (repeat);
731 CODE:
732{ 920{
733 int active = ev_is_active (w);
734 if (active) ev_timer_stop (w);
735 ev_timer_set (w, after, repeat);
736 if (active) ev_timer_start (w);
737}
738
739MODULE = EV PACKAGE = EV::Periodic PREFIX = ev_periodic_
740
741void ev_periodic_start (struct ev_periodic *w)
742 INIT:
743 CHECK_REPEAT (w->interval);
744
745void ev_periodic_stop (struct ev_periodic *w)
746
747void ev_periodic_again (struct ev_periodic *w)
748
749void DESTROY (struct ev_periodic *w)
750 CODE:
751 ev_periodic_stop (w);
752 e_destroy (w);
753
754void set (struct ev_periodic *w, NV at, NV interval = 0., SV *reschedule_cb = &PL_sv_undef)
755 INIT:
756 CHECK_REPEAT (interval);
757 CODE:
758{
759 int active = ev_is_active (w);
760 if (active) ev_periodic_stop (w);
761
762 SvREFCNT_dec (w->fh);
763 w->fh = SvTRUE (reschedule_cb) ? newSVsv (reschedule_cb) : 0;
764 ev_periodic_set (w, at, interval, w->fh ? e_periodic_cb : 0);
765
766 if (active) ev_periodic_start (w);
767}
768
769MODULE = EV PACKAGE = EV::Idle PREFIX = ev_idle_
770
771void ev_idle_start (struct ev_idle *w)
772
773void ev_idle_stop (struct ev_idle *w)
774
775void DESTROY (struct ev_idle *w)
776 CODE:
777 ev_idle_stop (w);
778 e_destroy (w);
779
780MODULE = EV PACKAGE = EV::Prepare PREFIX = ev_check_
781
782void ev_prepare_start (struct ev_prepare *w)
783
784void ev_prepare_stop (struct ev_prepare *w)
785
786void DESTROY (struct ev_prepare *w)
787 CODE:
788 ev_prepare_stop (w);
789 e_destroy (w);
790
791MODULE = EV PACKAGE = EV::Check PREFIX = ev_check_
792
793void ev_check_start (struct ev_check *w)
794
795void ev_check_stop (struct ev_check *w)
796
797void DESTROY (struct ev_check *w)
798 CODE:
799 ev_check_stop (w);
800 e_destroy (w);
801
802MODULE = EV PACKAGE = EV::Child PREFIX = ev_child_
803
804void ev_child_start (struct ev_child *w)
805
806void ev_child_stop (struct ev_child *w)
807
808void DESTROY (struct ev_child *w)
809 CODE:
810 ev_child_stop (w);
811 e_destroy (w);
812
813void set (struct ev_child *w, int pid)
814 CODE:
815{
816 int active = ev_is_active (w);
817 if (active) ev_child_stop (w);
818
819 ev_child_set (w, pid);
820
821 if (active) ev_child_start (w);
822}
823
824int pid (struct ev_child *w, int new_pid = 0)
825 CODE:
826{
827 RETVAL = w->pid; 921 RETVAL = w->interval;
828 922
829 if (items > 1) 923 if (items > 1)
924 RESET (stat, w, (w, SvPVbyte_nolen (w->fh), new_interval));
925}
926 OUTPUT:
927 RETVAL
928
929void prev (ev_stat *w)
930 ALIAS:
931 stat = 1
932 attr = 2
933 PPCODE:
934{
935 ev_statdata *s = ix ? &w->attr : &w->prev;
936
937 if (ix == 1)
938 ev_stat_stat (w);
939 else if (!s->st_nlink)
940 errno = ENOENT;
941
942 PL_statcache.st_dev = s->st_nlink;
943 PL_statcache.st_ino = s->st_ino;
944 PL_statcache.st_mode = s->st_mode;
945 PL_statcache.st_nlink = s->st_nlink;
946 PL_statcache.st_uid = s->st_uid;
947 PL_statcache.st_gid = s->st_gid;
948 PL_statcache.st_rdev = s->st_rdev;
949 PL_statcache.st_size = s->st_size;
950 PL_statcache.st_atime = s->st_atime;
951 PL_statcache.st_mtime = s->st_mtime;
952 PL_statcache.st_ctime = s->st_ctime;
953
954 if (GIMME_V == G_SCALAR)
955 XPUSHs (boolSV (s->st_nlink));
956 else if (GIMME_V == G_ARRAY && s->st_nlink)
830 { 957 {
831 int active = ev_is_active (w); 958 EXTEND (SP, 13);
832 if (active) ev_child_stop (w); 959 PUSHs (sv_2mortal (newSViv (s->st_dev)));
833 960 PUSHs (sv_2mortal (newSViv (s->st_ino)));
834 ev_child_set (w, new_pid); 961 PUSHs (sv_2mortal (newSVuv (s->st_mode)));
835 962 PUSHs (sv_2mortal (newSVuv (s->st_nlink)));
836 if (active) ev_child_start (w); 963 PUSHs (sv_2mortal (newSViv (s->st_uid)));
964 PUSHs (sv_2mortal (newSViv (s->st_gid)));
965 PUSHs (sv_2mortal (newSViv (s->st_rdev)));
966 PUSHs (sv_2mortal (newSVnv ((NV)s->st_size)));
967 PUSHs (sv_2mortal (newSVnv (s->st_atime)));
968 PUSHs (sv_2mortal (newSVnv (s->st_mtime)));
969 PUSHs (sv_2mortal (newSVnv (s->st_ctime)));
970 PUSHs (sv_2mortal (newSVuv (4096)));
971 PUSHs (sv_2mortal (newSVnv ((NV)((s->st_size + 4095) / 4096))));
837 } 972 }
838} 973}
839 OUTPUT:
840 RETVAL
841
842
843int rstatus (struct ev_child *w)
844 ALIAS:
845 rpid = 1
846 CODE:
847 RETVAL = ix ? w->rpid : w->rstatus;
848 OUTPUT:
849 RETVAL
850
851#ifndef _WIN32
852
853MODULE = EV PACKAGE = EV::DNS PREFIX = evdns_
854
855BOOT:
856{
857 HV *stash = gv_stashpv ("EV::DNS", 1);
858
859 static const struct {
860 const char *name;
861 IV iv;
862 } *civ, const_iv[] = {
863# define const_iv(pfx, name) { # name, (IV) pfx ## name },
864 const_iv (DNS_, ERR_NONE)
865 const_iv (DNS_, ERR_FORMAT)
866 const_iv (DNS_, ERR_SERVERFAILED)
867 const_iv (DNS_, ERR_NOTEXIST)
868 const_iv (DNS_, ERR_NOTIMPL)
869 const_iv (DNS_, ERR_REFUSED)
870 const_iv (DNS_, ERR_TRUNCATED)
871 const_iv (DNS_, ERR_UNKNOWN)
872 const_iv (DNS_, ERR_TIMEOUT)
873 const_iv (DNS_, ERR_SHUTDOWN)
874 const_iv (DNS_, IPv4_A)
875 const_iv (DNS_, PTR)
876 const_iv (DNS_, IPv6_AAAA)
877 const_iv (DNS_, QUERY_NO_SEARCH)
878 const_iv (DNS_, OPTION_SEARCH)
879 const_iv (DNS_, OPTION_NAMESERVERS)
880 const_iv (DNS_, OPTION_MISC)
881 const_iv (DNS_, OPTIONS_ALL)
882 const_iv (DNS_, NO_SEARCH)
883 };
884
885 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
886 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
887}
888
889int evdns_init ()
890
891void evdns_shutdown (int fail_requests = 1)
892
893const char *evdns_err_to_string (int err)
894
895int evdns_nameserver_add (U32 address)
896
897int evdns_count_nameservers ()
898
899int evdns_clear_nameservers_and_suspend ()
900
901int evdns_resume ()
902
903int evdns_nameserver_ip_add (char *ip_as_string)
904
905int evdns_resolve_ipv4 (const char *name, int flags, SV *cb)
906 C_ARGS: name, flags, dns_cb, (void *)SvREFCNT_inc (cb)
907
908int evdns_resolve_ipv6 (const char *name, int flags, SV *cb)
909 C_ARGS: name, flags, dns_cb, (void *)SvREFCNT_inc (cb)
910
911int evdns_resolve_reverse (SV *addr, int flags, SV *cb)
912 ALIAS:
913 evdns_resolve_reverse_ipv6 = 1
914 CODE:
915{
916 STRLEN len;
917 char *data = SvPVbyte (addr, len);
918 if (len != (ix ? 16 : 4))
919 croak ("ipv4/ipv6 address to be resolved must be given as 4/16 byte octet string");
920
921 RETVAL = ix
922 ? evdns_resolve_reverse_ipv6 ((struct in6_addr *)data, flags, dns_cb, (void *)SvREFCNT_inc (cb))
923 : evdns_resolve_reverse ((struct in_addr *)data, flags, dns_cb, (void *)SvREFCNT_inc (cb));
924}
925 OUTPUT:
926 RETVAL
927
928int evdns_set_option (char *option, char *val, int flags)
929
930int evdns_resolv_conf_parse (int flags, const char *filename)
931
932#ifdef _WIN32
933
934int evdns_config_windows_nameservers ()
935
936#endif
937
938void evdns_search_clear ()
939
940void evdns_search_add (char *domain)
941
942void evdns_search_ndots_set (int ndots)
943 974
944#if 0 975#if 0
945 976
946MODULE = EV PACKAGE = EV::HTTP PREFIX = evhttp_ 977MODULE = EV PACKAGE = EV::HTTP PREFIX = evhttp_
947 978
981 1012
982#void DESTROY (struct evhttp_request *req); 1013#void DESTROY (struct evhttp_request *req);
983 1014
984#endif 1015#endif
985 1016
986#endif
987 1017
988 1018
989 1019
990 1020
991 1021

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines