Changeset 69da86b for perlglue.xs


Ignore:
Timestamp:
Jul 1, 2002, 6:37:37 PM (18 years ago)
Author:
Erik Nygren <nygren@mit.edu>
Branches:
master, barnowl_perlaim, debian, owl, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
83a9b63
Parents:
507d5aa
Message:
*** empty log message ***
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perlglue.xs

    r8ee73f8d r69da86b  
    44
    55/* Yeah, we should just include owl.h, but curses and perl don't play nice. */
    6 extern char *owl_function_command(char *cmd);
    7 extern void owl_free(void *x);
     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 *);
    810
    911MODULE = owl            PACKAGE = owl           
     
    2224                if (rv) owl_free(rv);
    2325
     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 TracChangeset for help on using the changeset viewer.