Changeset 9c7a701 for perlglue.xs

Timestamp:

Feb 15, 2008, 12:56:49 AM (17 years ago)

Author:

Alejandro R. Sedeño <asedeno@mit.edu>

Branches:

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

Children:

18a54ee

Parents:

a6a4155

Message:

Initial select() changes.
stdin, zephyr, jabber, and irc are checked and have dispatch functions.
aim is hacked in -- not entirely pretty, but documented and isolated.
We still want timers.

File:

• perlglue.xs (modified) (1 diff)

perlglue.xs

@@ -342 +342 @@
                                       desc,
                                       ival);
+
+void
+add_dispatch(fd, cb)
+        int fd
+        SV * cb
+        CODE:
+        SvREFCNT_inc(cb);
+        owl_select_add_perl_dispatch(fd, cb);
+
+void
+remove_dispatch(fd)
+        int fd
+        CODE:
+        owl_select_remove_perl_dispatch(fd);