Changeset 6922edd for owl.h

Timestamp:

Oct 26, 2006, 11:14:41 AM (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:

4c46dfd

Parents:

bc220b2

Message:

Adding the ability to install real commands from perl.

File:

• owl.h (modified) (3 diffs)

owl.h

@@ -41 +41 @@
 #define INC_OWL_H
 
-/* Perl and curses don't play nice. */
-#ifndef OWL_PERL
-#include <curses.h>
-#else
-#define WINDOW void
-#endif
-
 #include <sys/param.h>
 #include <EXTERN.h>
@@ -62 +55 @@
 #ifdef HAVE_COM_ERR_H
 #include <com_err.h>
+#endif
+
+/* Perl and curses don't play nice. */
+#ifdef OWL_PERL
+typedef void WINDOW;
+#include <perl.h>
+#include "XSUB.h"
+#else
+#include <curses.h>
+typedef void SV;
 #endif
 
@@ -305 +308 @@
   void (*cmd_ctxv_fn)(void *ctx);               /* takes no args */
   void (*cmd_ctxi_fn)(void *ctx, int i);        /* takes an int as an arg */
+  SV *cmd_perl;                                /* Perl closure that takes a list of args */
 } owl_cmd;