Changeset 7df7be2 for perlglue.xs
- Timestamp:
- Jun 11, 2011, 6:31:32 PM (13 years ago)
- Children:
- f21bc36
- Parents:
- b9d22f7
- git-author:
- David Benjamin <davidben@mit.edu> (05/24/11 00:36:51)
- git-committer:
- David Benjamin <davidben@mit.edu> (06/11/11 18:31:32)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perlglue.xs
r3b8a563 r7df7be2 515 515 owl_select_add_perl_io_dispatch(fd, mode, newSVsv(cb)); 516 516 517 IV518 add_timer(after, interval, cb, name = NULL)519 int after520 int interval521 SV *cb522 const char *name523 PREINIT:524 SV *ref;525 owl_timer *t;526 CODE:527 ref = sv_rvweaken(newSVsv(cb));528 t = owl_select_add_timer(name,529 after,530 interval,531 owl_perlconfig_perl_timer,532 owl_perlconfig_perl_timer_destroy,533 ref);534 owl_function_debugmsg("Created timer %s: %p", t->name ? t->name : "(unnamed)", t);535 RETVAL = (IV)t;536 OUTPUT:537 RETVAL538 539 void540 remove_timer(timer)541 IV timer542 PREINIT:543 owl_timer *t;544 CODE:545 t = (owl_timer*)timer;546 owl_function_debugmsg("Freeing timer %s: %p", t->name ? t->name : "(unnamed)", t);547 owl_select_remove_timer(t);548 549 517 MODULE = BarnOwl PACKAGE = BarnOwl::Editwin 550 518
Note: See TracChangeset
for help on using the changeset viewer.