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

Comparing EV/EV.xs (file contents):
Revision 1.9 by root, Mon Oct 29 07:24:37 2007 UTC vs.
Revision 1.10 by root, Mon Oct 29 07:56:03 2007 UTC

… …
24#define EV_UNDEF -1 24#define EV_UNDEF -1
25 25
26#define TIMEOUT_NONE HUGE_VAL 26#define TIMEOUT_NONE HUGE_VAL
27 27
28typedef struct event_base *Base; 28typedef struct event_base *Base;
29typedef int Signal;
29 30
30static HV *stash_base, *stash_event; 31static HV *stash_base, *stash_event;
31 32
32static double tv_get (struct timeval *tv) 33static double tv_get (struct timeval *tv)
33{ 34{
… …
37static void tv_set (struct timeval *tv, double val) 38static void tv_set (struct timeval *tv, double val)
38{ 39{
39 tv->tv_sec = (long)val; 40 tv->tv_sec = (long)val;
40 tv->tv_usec = (long)((val - (double)tv->tv_sec) * 1e6); 41 tv->tv_usec = (long)((val - (double)tv->tv_sec) * 1e6);
41 42
43}
44
45static int
46sv_signum (SV *sig)
47{
48 int signum;
49
50 if (SvIV (sig) > 0)
51 return SvIV (sig);
52
53 for (signum = 1; signum < SIG_SIZE; ++signum)
54 if (strEQ (SvPV_nolen (sig), PL_sig_name [signum]))
55 return signum;
56
57 return -1;
42} 58}
43 59
44///////////////////////////////////////////////////////////////////////////// 60/////////////////////////////////////////////////////////////////////////////
45// Event 61// Event
46 62
… …
253 269
254MODULE = EV PACKAGE = EV PREFIX = event_ 270MODULE = EV PACKAGE = EV PREFIX = event_
255 271
256BOOT: 272BOOT:
257{ 273{
274 int i;
258 HV *stash = gv_stashpv ("EV", 1); 275 HV *stash = gv_stashpv ("EV", 1);
259 276
260 static const struct { 277 static const struct {
261 const char *name; 278 const char *name;
262 IV iv; 279 IV iv;
… …
370 RETVAL->abstime = 1; 387 RETVAL->abstime = 1;
371 if (!ix) e_start (RETVAL); 388 if (!ix) e_start (RETVAL);
372 OUTPUT: 389 OUTPUT:
373 RETVAL 390 RETVAL
374 391
375Event signal (SV *signal, SV *cb) 392Event signal (Signal signum, SV *cb)
376 ALIAS: 393 ALIAS:
377 signal_ns = 1 394 signal_ns = 1
378 CODE: 395 CODE:
379 RETVAL = e_new (signal, EV_SIGNAL | EV_PERSIST, cb); 396 RETVAL = e_new (ST (0), EV_SIGNAL | EV_PERSIST, cb);
397 RETVAL->ev.ev_fd = signum;
380 if (!ix) e_start (RETVAL); 398 if (!ix) e_start (RETVAL);
381 OUTPUT: 399 OUTPUT:
382 RETVAL 400 RETVAL
383 401
384PROTOTYPES: DISABLE 402PROTOTYPES: DISABLE
… …
455 sv_setsv (ev->cb, new_cb); 473 sv_setsv (ev->cb, new_cb);
456 OUTPUT: 474 OUTPUT:
457 RETVAL 475 RETVAL
458 476
459SV *fh (Event ev, SV *new_fh = 0) 477SV *fh (Event ev, SV *new_fh = 0)
460 ALIAS:
461 signal = 1
462 CODE: 478 CODE:
463 RETVAL = newSVsv (ev->fh); 479 RETVAL = newSVsv (ev->fh);
464 if (items > 1) 480 if (items > 1)
465 { 481 {
466 if (ev->active) event_del (&ev->ev); 482 if (ev->active) event_del (&ev->ev);
467 sv_setsv (ev->fh, new_fh); 483 sv_setsv (ev->fh, new_fh);
468 ev->ev.ev_fd = sv_fileno (ev->fh); 484 ev->ev.ev_fd = sv_fileno (ev->fh);
469 ev->ev.ev_events = signal ? ev->ev.ev_events | EV_SIGNAL : ev->ev.ev_events & ~EV_SIGNAL; 485 ev->ev.ev_events &= ev->ev.ev_events & ~EV_SIGNAL;
470 if (ev->active) event_add (&ev->ev, e_tv (ev)); 486 if (ev->active) event_add (&ev->ev, e_tv (ev));
471 } 487 }
488 OUTPUT:
489 RETVAL
490
491SV *signal (Event ev, SV *new_signal = 0)
492 CODE:
493{
494 Signal signum;
495
496 if (items > 1)
497 signum = sv_signum (new_signal); /* may croak here */
498
499 RETVAL = newSVsv (ev->fh);
500
501 if (items > 1)
502 {
503 if (ev->active) event_del (&ev->ev);
504 sv_setsv (ev->fh, new_signal);
505 ev->ev.ev_fd = signum;
506 ev->ev.ev_events |= EV_SIGNAL;
507 if (ev->active) event_add (&ev->ev, e_tv (ev));
508 }
509}
472 OUTPUT: 510 OUTPUT:
473 RETVAL 511 RETVAL
474 512
475short events (Event ev, short new_events = EV_UNDEF) 513short events (Event ev, short new_events = EV_UNDEF)
476 CODE: 514 CODE:

Diff Legend

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