Changeset 074bdaa for perlglue.xs

Timestamp:

Jun 22, 2011, 12:37:21 AM (13 years ago)

Author:

David Benjamin <davidben@mit.edu>

Branches:

master, release-1.10, release-1.8, release-1.9

Children:

bcde7926

Parents:

58f4fb2

git-author:

David Benjamin <davidben@mit.edu> (05/24/11 00:36:51)

git-committer:

David Benjamin <davidben@mit.edu> (06/22/11 00:37:21)

Message:

Replace BarnOwl::Timer with a perl wrapper over AnyEvent

This also allows us to kill owl_timer altogether.

File:

• perlglue.xs (modified) (1 diff)

perlglue.xs

@@ -515 +515 @@
         owl_select_add_perl_io_dispatch(fd, mode, newSVsv(cb));
 
-IV
-add_timer(after, interval, cb, name = NULL)
-        int after
-        int interval
-        SV *cb
-        const char *name
-        PREINIT:
-                SV *ref;
-                owl_timer *t;
-        CODE:
-                ref = sv_rvweaken(newSVsv(cb));
-                t = owl_select_add_timer(name,
-                                         after,
-                                         interval,
-                                         owl_perlconfig_perl_timer,
-                                         owl_perlconfig_perl_timer_destroy,
-                                         ref);
-                owl_function_debugmsg("Created timer %s: %p", t->name ? t->name : "(unnamed)", t);
-        RETVAL = (IV)t;
-        OUTPUT:
-                RETVAL
-
-void
-remove_timer(timer)
-        IV timer
-        PREINIT:
-                owl_timer *t;
-        CODE:
-                t = (owl_timer*)timer;
-                owl_function_debugmsg("Freeing timer %s: %p", t->name ? t->name : "(unnamed)", t);
-                owl_select_remove_timer(t);
-
 MODULE = BarnOwl                PACKAGE = BarnOwl::Editwin