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

Comparing EV/EV.xs (file contents):
Revision 1.17 by root, Wed Oct 31 11:52:11 2007 UTC vs.
Revision 1.19 by root, Wed Oct 31 11:59:54 2007 UTC

… …
210 } 210 }
211 211
212 LEAVE; 212 LEAVE;
213} 213}
214#endif 214#endif
215
216#define CHECK_REPEAT(repeat) if (repeat < 0.) \
217 croak (# repeat " value must be >= 0");
215 218
216///////////////////////////////////////////////////////////////////////////// 219/////////////////////////////////////////////////////////////////////////////
217// XS interface functions 220// XS interface functions
218 221
219MODULE = EV PACKAGE = EV PREFIX = ev_ 222MODULE = EV PACKAGE = EV PREFIX = ev_
… …
311void ev_loop_done (int value = 1) 314void ev_loop_done (int value = 1)
312 CODE: 315 CODE:
313 ev_loop_done = value; 316 ev_loop_done = value;
314 317
315struct ev_io *io (SV *fh, int events, SV *cb) 318struct ev_io *io (SV *fh, int events, SV *cb)
319 PROTOTYPE: $$&
316 ALIAS: 320 ALIAS:
317 io_ns = 1 321 io_ns = 1
318 CODE: 322 CODE:
319 RETVAL = e_new (sizeof (struct ev_io), cb); 323 RETVAL = e_new (sizeof (struct ev_io), cb);
320 RETVAL->fh = newSVsv (fh); 324 RETVAL->fh = newSVsv (fh);
… …
322 if (!ix) evio_start (RETVAL); 326 if (!ix) evio_start (RETVAL);
323 OUTPUT: 327 OUTPUT:
324 RETVAL 328 RETVAL
325 329
326struct ev_timer *timer (NV after, NV repeat, SV *cb) 330struct ev_timer *timer (NV after, NV repeat, SV *cb)
331 PROTOTYPE: $$&
327 ALIAS: 332 ALIAS:
328 timer_ns = 1 333 timer_ns = 1
334 INIT:
335 CHECK_REPEAT (repeat);
329 CODE: 336 CODE:
330 RETVAL = e_new (sizeof (struct ev_timer), cb); 337 RETVAL = e_new (sizeof (struct ev_timer), cb);
331 evtimer_set (RETVAL, after, repeat); 338 evtimer_set (RETVAL, after, repeat);
332 if (!ix) evtimer_start (RETVAL); 339 if (!ix) evtimer_start (RETVAL);
333 OUTPUT: 340 OUTPUT:
334 RETVAL 341 RETVAL
335 342
336struct ev_periodic *periodic (NV at, NV interval, SV *cb) 343struct ev_periodic *periodic (NV at, NV interval, SV *cb)
344 PROTOTYPE: $$&
337 ALIAS: 345 ALIAS:
338 periodic_ns = 1 346 periodic_ns = 1
347 INIT:
348 CHECK_REPEAT (interval);
339 CODE: 349 CODE:
340 RETVAL = e_new (sizeof (struct ev_periodic), cb); 350 RETVAL = e_new (sizeof (struct ev_periodic), cb);
341 evperiodic_set (RETVAL, at, interval); 351 evperiodic_set (RETVAL, at, interval);
342 if (!ix) evperiodic_start (RETVAL); 352 if (!ix) evperiodic_start (RETVAL);
343 OUTPUT: 353 OUTPUT:
344 RETVAL 354 RETVAL
345 355
346struct ev_signal *signal (Signal signum, SV *cb) 356struct ev_signal *signal (Signal signum, SV *cb)
357 PROTOTYPE: $&
347 ALIAS: 358 ALIAS:
348 signal_ns = 1 359 signal_ns = 1
349 CODE: 360 CODE:
350 RETVAL = e_new (sizeof (struct ev_signal), cb); 361 RETVAL = e_new (sizeof (struct ev_signal), cb);
351 evsignal_set (RETVAL, signum); 362 evsignal_set (RETVAL, signum);
352 if (!ix) evsignal_start (RETVAL); 363 if (!ix) evsignal_start (RETVAL);
353 OUTPUT: 364 OUTPUT:
354 RETVAL 365 RETVAL
355 366
356struct ev_idle *idle (SV *cb) 367struct ev_idle *idle (SV *cb)
368 PROTOTYPE: &
357 ALIAS: 369 ALIAS:
358 idle_ns = 1 370 idle_ns = 1
359 CODE: 371 CODE:
360 RETVAL = e_new (sizeof (struct ev_idle), cb); 372 RETVAL = e_new (sizeof (struct ev_idle), cb);
361 evidle_set (RETVAL); 373 evidle_set (RETVAL);
362 if (!ix) evidle_start (RETVAL); 374 if (!ix) evidle_start (RETVAL);
363 OUTPUT: 375 OUTPUT:
364 RETVAL 376 RETVAL
365 377
366struct ev_check *check (SV *cb) 378struct ev_check *check (SV *cb)
379 PROTOTYPE: &
367 ALIAS: 380 ALIAS:
368 check_ns = 1 381 check_ns = 1
369 CODE: 382 CODE:
370 RETVAL = e_new (sizeof (struct ev_check), cb); 383 RETVAL = e_new (sizeof (struct ev_check), cb);
371 evcheck_set (RETVAL); 384 evcheck_set (RETVAL);
… …
466MODULE = EV PACKAGE = EV::Time 479MODULE = EV PACKAGE = EV::Time
467 480
468MODULE = EV PACKAGE = EV::Timer PREFIX = evtimer_ 481MODULE = EV PACKAGE = EV::Timer PREFIX = evtimer_
469 482
470void evtimer_start (struct ev_timer *w) 483void evtimer_start (struct ev_timer *w)
484 INIT:
485 CHECK_REPEAT (w->repeat);
471 486
472void evtimer_stop (struct ev_timer *w) 487void evtimer_stop (struct ev_timer *w)
473 488
474void evtimer_again (struct ev_timer *w) 489void evtimer_again (struct ev_timer *w)
490 INIT:
491 CHECK_REPEAT (w->repeat);
475 492
476void set (struct ev_timer *w, NV after, NV repeat = 0.) 493void set (struct ev_timer *w, NV after, NV repeat = 0.)
494 INIT:
495 CHECK_REPEAT (repeat);
477 CODE: 496 CODE:
478{ 497{
479 int active = w->active; 498 int active = w->active;
480 if (active) evtimer_stop (w); 499 if (active) evtimer_stop (w);
481 evtimer_set (w, after, repeat); 500 evtimer_set (w, after, repeat);
… …
483} 502}
484 503
485MODULE = EV PACKAGE = EV::Periodic PREFIX = evperiodic_ 504MODULE = EV PACKAGE = EV::Periodic PREFIX = evperiodic_
486 505
487void evperiodic_start (struct ev_periodic *w) 506void evperiodic_start (struct ev_periodic *w)
507 INIT:
508 CHECK_REPEAT (w->interval);
488 509
489void evperiodic_stop (struct ev_periodic *w) 510void evperiodic_stop (struct ev_periodic *w)
490 511
491void set (struct ev_periodic *w, NV at, NV interval = 0.) 512void set (struct ev_periodic *w, NV at, NV interval = 0.)
513 INIT:
514 CHECK_REPEAT (interval);
492 CODE: 515 CODE:
493{ 516{
494 int active = w->active; 517 int active = w->active;
495 if (active) evperiodic_stop (w); 518 if (active) evperiodic_stop (w);
496 evperiodic_set (w, at, interval); 519 evperiodic_set (w, at, interval);

Diff Legend

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