Changeset ffc4df6 for select.c

Timestamp:

Oct 27, 2009, 12:41:17 AM (15 years ago)

Author:

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

Branches:

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

Children:

18fdd5f9

Parents:

df0138f

git-author:

Alejandro R. Sedeño <asedeno@mit.edu> (10/24/09 14:56:01)

git-committer:

Alejandro R. Sedeño <asedeno@mit.edu> (10/27/09 00:41:17)

Message:

Switch perl API to new I/O Dispatch API.

Signed-off-by: Alejandro R. Sedeño <asedeno@mit.edu>

File:

• select.c (modified) (1 diff)

select.c

@@ -156 +156 @@
 {
   return owl_list_get_size(owl_global_get_dispatchlist(&g));
-}
-
-int owl_select_add_perl_dispatch(int fd, SV *cb)
-{
-  int elt;
-  owl_dispatch *d;
-  elt = owl_select_find_dispatch(fd);
-  if (elt != -1) {
-    d = owl_list_get_element(owl_global_get_dispatchlist(&g), elt);
-    if (d->cfunc != owl_perlconfig_dispatch) {
-      /* don't mess with non-perl dispatch functions from here. */
-      return 1;
-    }
-  }
-
-  d = owl_malloc(sizeof(owl_dispatch));
-  d->fd = fd;
-  d->cfunc = owl_perlconfig_dispatch;
-  d->destroy = owl_perlconfig_dispatch_free;
-  d->data = cb;
-  owl_select_add_dispatch(d);
-  return 0;
-}
-
-int owl_select_remove_perl_dispatch(int fd)
-{
-  int elt;
-  owl_dispatch *d;
-  
-  elt = owl_select_find_dispatch(fd);
-  if (elt != -1) {
-    d = owl_list_get_element(owl_global_get_dispatchlist(&g), elt);
-    if (d->cfunc == owl_perlconfig_dispatch) {
-      owl_select_remove_dispatch_at(elt);
-      return 0;
-    }
-  }
-  return 1;
 }