Changeset 1631825 for perlglue.xs

Timestamp:

Dec 17, 2008, 3:24:26 PM (16 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

f36cd97

Parents:

c675b39

Message:

Implement a perl timer class and minimal interface.

I will document this and add a better API (perhaps through an AnyEvent
impl) in later commits.

File:

• perlglue.xs (modified) (1 diff)

perlglue.xs

@@ -399 +399 @@
                                       desc,
                                       ival);
+
+IV
+add_timer(after, interval, cb)
+        int after
+        int interval
+        SV *cb
+        PREINIT:
+                SV *ref;
+                owl_timer *t;
+        CODE:
+                ref = sv_rvweaken(newSVsv(cb));
+                t = owl_select_add_timer(after,
+                                         interval,
+                                         owl_perlconfig_perl_timer,
+                                         owl_perlconfig_perl_timer_destroy,
+                                         ref);
+        owl_function_debugmsg("Created timer %p", 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 %p", t);
+                                owl_select_remove_timer(t);