Changeset e1c4636 for perlglue.xs

Timestamp:

Jul 9, 2002, 12:04:35 AM (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:

2c8a07c

Parents:

10b866d

Message:

* Added owl::send_zwrite(command, message) to the perl glue
         to allow for the direct sending of multi-line messages.
         For example:  owl::send_zwrite("-c foo -i bar", "hello");
* Reverted attempted fix for the pagedown problem
         which just made things worse.
* Changed owl_fmtext_print_plain to return an alloc'd string to
         avoid buffer overrun risks.
* Added owl::ztext_stylestrip("...") function to perlglue
          which returns the ztext with formatting stripped out.
* Added colorztext variable which can be used to disable @color()
          strings arriving in messages after it is set.
          (Currently, changing its value won't reformat messages).
* Outgoing zephyr logging now obeys the logpath variable.
* The '~' character in logpath and classlogpath now gets
          replaced with the user's home directory.

File:

• perlglue.xs (modified) (2 diffs)

perlglue.xs

@@ -6 +6 @@
 
 /* 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_fmtext_ztext_stylestrip(char *);
 
 MODULE = owl            PACKAGE = owl           
@@ -24 +26 @@
                 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);
+