source: perlglue.xs @ 217a43e

barnowl_perlaimdebianowlrelease-1.10release-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since 217a43e was 83a9b63, checked in by Erik Nygren <nygren@mit.edu>, 22 years ago
Reverting. I'm a moron and didn't mean to commit this yet.
  • Property mode set to 100644
File size: 456 bytes
Line 
1static const char fileIdent[] = "$Id$";
2
3#include "EXTERN.h"
4#include "perl.h"
5#include "XSUB.h"
6
7/* Yeah, we should just include owl.h, but curses and perl don't play nice. */
8extern char *owl_function_command(char *cmd);
9extern void owl_free(void *x);
10
11MODULE = owl            PACKAGE = owl           
12
13char *
14command(cmd)
15        char *cmd
16        PREINIT:
17                char *rv = NULL;
18        CODE:
19                rv = owl_function_command(cmd);
20                RETVAL = rv;   
21        OUTPUT:
22                RETVAL
23        CLEANUP:
24                if (rv) owl_free(rv);
25
Note: See TracBrowser for help on using the repository browser.