Changeset 69da86b for perlglue.xs

Timestamp:

Jul 1, 2002, 6:37:37 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:

83a9b63

Parents:

507d5aa

Message:

*** empty log message ***

File:

• perlglue.xs (modified) (2 diffs)

perlglue.xs

@@ -4 +4 @@
 
 /* Yeah, we should just include owl.h, but curses and perl don't play nice. */
-extern char *owl_function_command(char *cmd);
-extern void owl_free(void *x);
+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 *);
 
 MODULE = owl            PACKAGE = owl           
@@ -22 +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);
+