Changeset e1c4636 for perlglue.xs


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

Legend:

Unmodified
Added
Removed
  • perlglue.xs

    r83a9b63 re1c4636  
    66
    77/* Yeah, we should just include owl.h, but curses and perl don't play nice. */
    8 extern char *owl_function_command(char *cmd);
    9 extern void owl_free(void *x);
     8extern char *owl_function_command(char *);
     9extern void owl_free(void *);
     10extern int owl_zwrite_create_and_send_from_line(char *, char *);
     11extern char *owl_fmtext_ztext_stylestrip(char *);
    1012
    1113MODULE = owl            PACKAGE = owl           
     
    2426                if (rv) owl_free(rv);
    2527
     28void
     29send_zwrite(cmd,msg)
     30        char *cmd
     31        char *msg
     32        PREINIT:
     33                int i;
     34        CODE:
     35                i = owl_zwrite_create_and_send_from_line(cmd, msg);
     36
     37char *
     38ztext_stylestrip(ztext)
     39        char *ztext
     40        PREINIT:
     41                char *rv = NULL;
     42        CODE:
     43                rv = owl_fmtext_ztext_stylestrip(ztext);
     44                RETVAL = rv;
     45        OUTPUT:
     46                RETVAL
     47        CLEANUP:
     48                if (rv) owl_free(rv);
     49
Note: See TracChangeset for help on using the changeset viewer.