Changeset df0138f for perlconfig.c

Timestamp:

Oct 27, 2009, 12:41:09 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:

ffc4df6

Parents:

f9d257b

git-author:

Alejandro R. Sedeño <asedeno@mit.edu> (10/20/09 20:20:12)

git-committer:

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

Message:

Add a new I/O Dispatch API

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

File:

• perlconfig.c (modified) (2 diffs)

perlconfig.c

@@ -510 +510 @@
 }
 
+void owl_perlconfig_io_dispatch_destroy(const owl_io_dispatch *d)
+{
+  SvREFCNT_dec(d->data);
+}
+
 void owl_perlconfig_edit_callback(owl_editwin *e)
 {
@@ -580 +585 @@
 }
 
+void owl_perlconfig_io_dispatch(const owl_io_dispatch *d, void *data)
+{
+  SV *cb = data;
+  dSP;
+  if(cb == NULL) {
+    owl_function_error("Perl callback is NULL!");
+    return;
+  }
+
+  ENTER;
+  SAVETMPS;
+
+  PUSHMARK(SP);
+  PUTBACK;
+
+  call_sv(cb, G_DISCARD|G_KEEPERR|G_EVAL);
+
+  if(SvTRUE(ERRSV)) {
+    owl_function_error("%s", SvPV_nolen(ERRSV));
+  }
+
+  FREETMPS;
+  LEAVE;
+}
+
 void owl_perlconfig_perl_timer(owl_timer *t, void *data)
 {