Changeset 83a9b63 for perlglue.xs

Timestamp:

Jul 1, 2002, 6:47:05 PM (22 years ago)

Author:

Erik Nygren <nygren@mit.edu>

Branches:

master, barnowl_perlaim, debian, owl, release-1.10, 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:

• perlglue.xs (modified) (3 diffs)

perlglue.xs

@@ +1 @@
+static const char fileIdent[] = "$Id$";
+
 #include "EXTERN.h"
 #include "perl.h"
@@ -4 +6 @@
 
 /* Yeah, we should just include owl.h, but curses and perl don't play nice. */
-extern char *owl_function_command(char *);
-extern void owl_free(void *);
-extern int owl_zwrite_create_and_send_from_line(char *, char *);
-extern char *owl_zwrite_create_and_send_from_line(char *);
+extern char *owl_function_command(char *cmd);
+extern void owl_free(void *x);
 
 MODULE = owl            PACKAGE = owl           
@@ -24 +24 @@
                 if (rv) owl_free(rv);
 
-void
-send_zwrite(cmd,msg)
-        char *cmd
-        char *msg
-        PREINIT:
-                int i;
-        CODE:
-                i = owl_zwrite_create_and_send_from_line(cmd, msg);
-
-char *
-ztext_stylestrip(ztext)
-        char *ztext
-        PREINIT:
-                char *rv = NULL;
-        CODE:
-                rv = owl_fmtext_ztext_stylestrip(ztext);
-                RETVAL = rv;
-        OUTPUT:
-                RETVAL
-        CLEANUP:
-                if (rv) owl_free(rv);
-