source: perlglue.xs @ 69da86b

barnowl_perlaimdebianowlrelease-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since 69da86b was 69da86b, checked in by Erik Nygren <nygren@mit.edu>, 18 years ago
*** empty log message ***
  • Property mode set to 100644
File size: 855 bytes
Line 
1#include "EXTERN.h"
2#include "perl.h"
3#include "XSUB.h"
4
5/* Yeah, we should just include owl.h, but curses and perl don't play nice. */
6extern char *owl_function_command(char *);
7extern void owl_free(void *);
8extern int owl_zwrite_create_and_send_from_line(char *, char *);
9extern char *owl_zwrite_create_and_send_from_line(char *);
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
26void
27send_zwrite(cmd,msg)
28        char *cmd
29        char *msg
30        PREINIT:
31                int i;
32        CODE:
33                i = owl_zwrite_create_and_send_from_line(cmd, msg);
34
35char *
36ztext_stylestrip(ztext)
37        char *ztext
38        PREINIT:
39                char *rv = NULL;
40        CODE:
41                rv = owl_fmtext_ztext_stylestrip(ztext);
42                RETVAL = rv;
43        OUTPUT:
44                RETVAL
45        CLEANUP:
46                if (rv) owl_free(rv);
47
Note: See TracBrowser for help on using the repository browser.