Changeset 6922edd for owl.h


Ignore:
Timestamp:
Oct 26, 2006, 11:14:41 AM (14 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, barnowl_perlaim, debian, 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:
1 edited

Legend:

Unmodified
Added
Removed
  • owl.h

    r4211f50b r6922edd  
    4141#define INC_OWL_H
    4242
    43 /* Perl and curses don't play nice. */
    44 #ifndef OWL_PERL
    45 #include <curses.h>
    46 #else
    47 #define WINDOW void
    48 #endif
    49 
    5043#include <sys/param.h>
    5144#include <EXTERN.h>
     
    6255#ifdef HAVE_COM_ERR_H
    6356#include <com_err.h>
     57#endif
     58
     59/* Perl and curses don't play nice. */
     60#ifdef OWL_PERL
     61typedef void WINDOW;
     62#include <perl.h>
     63#include "XSUB.h"
     64#else
     65#include <curses.h>
     66typedef void SV;
    6467#endif
    6568
     
    305308  void (*cmd_ctxv_fn)(void *ctx);               /* takes no args */
    306309  void (*cmd_ctxi_fn)(void *ctx, int i);        /* takes an int as an arg */
     310  SV *cmd_perl;                                /* Perl closure that takes a list of args */
    307311} owl_cmd;
    308312
Note: See TracChangeset for help on using the changeset viewer.