Changeset 83a9b63 for perlglue.xs


Ignore:
Timestamp:
Jul 1, 2002, 6:47:05 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:
217a43e
Parents:
69da86b
Message:
Reverting.  I'm a moron and didn't mean to commit this yet.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perlglue.xs

    r69da86b r83a9b63  
     1static const char fileIdent[] = "$Id$";
     2
    13#include "EXTERN.h"
    24#include "perl.h"
     
    46
    57/* Yeah, we should just include owl.h, but curses and perl don't play nice. */
    6 extern char *owl_function_command(char *);
    7 extern void owl_free(void *);
    8 extern int owl_zwrite_create_and_send_from_line(char *, char *);
    9 extern char *owl_zwrite_create_and_send_from_line(char *);
     8extern char *owl_function_command(char *cmd);
     9extern void owl_free(void *x);
    1010
    1111MODULE = owl            PACKAGE = owl           
     
    2424                if (rv) owl_free(rv);
    2525
    26 void
    27 send_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 
    35 char *
    36 ztext_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.