source: perlglue.xs @ 8f44c6b

barnowl_perlaimdebianowlrelease-1.10release-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since 8f44c6b was 1fd0b25, checked in by James M. Kretchmar <kretch@mit.edu>, 22 years ago
Added the 'search' command. '/' is a keybinding for 'search' '?' is a keybinding for 'search -r' Fixed stristr, which was completely broken renamed owl_fmtext_ztext_stylestrip to owl_function_ztext_styletsrip and put it in functions.c
  • Property mode set to 100644
File size: 891 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 *);
9extern void owl_free(void *);
10extern int owl_zwrite_create_and_send_from_line(char *, char *);
11extern char *owl_function_ztext_stylestrip(char *);
12
13MODULE = owl            PACKAGE = owl           
14
15char *
16command(cmd)
17        char *cmd
18        PREINIT:
19                char *rv = NULL;
20        CODE:
21                rv = owl_function_command(cmd);
22                RETVAL = rv;   
23        OUTPUT:
24                RETVAL
25        CLEANUP:
26                if (rv) owl_free(rv);
27
28void
29send_zwrite(cmd,msg)
30        char *cmd
31        char *msg
32        PREINIT:
33                int i;
34        CODE:
35                i = owl_zwrite_create_and_send_from_line(cmd, msg);
36
37char *
38ztext_stylestrip(ztext)
39        char *ztext
40        PREINIT:
41                char *rv = NULL;
42        CODE:
43                rv = owl_function_ztext_stylestrip(ztext);
44                RETVAL = rv;
45        OUTPUT:
46                RETVAL
47        CLEANUP:
48                if (rv) owl_free(rv);
49
Note: See TracBrowser for help on using the repository browser.