Changeset db8b00b for perlconfig.c

Timestamp:

Oct 27, 2006, 3:07:59 PM (18 years ago)

Author:

Nelson Elhage <nelhage@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:

bbd2fdc

Parents:

e74c01c

Message:

Exposing edit window hooks to perl

File:

• perlconfig.c (modified) (1 diff)

perlconfig.c

@@ -378 +378 @@
   SvREFCNT_dec(cmd);
 }
+
+void owl_perlconfig_edit_callback(owl_editwin *e)
+{
+  SV *cb = (SV*)(e->cbdata);
+  if(cb == NULL) {
+    owl_function_error("Perl callback is NULL!");
+  }
+
+  dSP;
+
+  ENTER;
+  SAVETMPS;
+
+  PUSHMARK(SP);
+  XPUSHs(sv_2mortal(newSVpv(owl_editwin_get_text(e), 0)));
+  PUTBACK;
+  
+  call_sv(cb, G_DISCARD);
+
+  FREETMPS;
+  LEAVE;
+
+  SvREFCNT_dec(cb);
+  e->cbdata = NULL;
+}