Changeset 923c3f6


Ignore:
Timestamp:
Sep 30, 2011, 7:24:05 PM (10 years ago)
Author:
Alex Dehnert <adehnert@mit.edu>
Children:
ba4d1ad
Parents:
7803326
git-author:
Alex Dehnert <adehnert@mit.edu> (09/30/11 18:42:51)
git-committer:
Alex Dehnert <adehnert@mit.edu> (09/30/11 19:24:05)
Message:
Export zephyr_zcrypt function to Perl

The currently available infrastructure doesn't appear to allow sending
multi-line zcrypted zephyrs from Perl (or at least not reasonably).
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perlglue.xs

    re89ec48 r923c3f6  
    9898                i = owl_zwrite_create_and_send_from_line(cmd, msg);
    9999
     100int
     101zephyr_zcrypt(cmd,msg)
     102        const char *cmd
     103        const char *msg
     104        PREINIT:
     105                owl_zwrite z;
     106                int rv;
     107        CODE:
     108                rv=owl_zwrite_create_from_line(&z, cmd);
     109                if (rv) {
     110                } else {
     111                        owl_function_zcrypt(&z, msg);
     112                }
     113                RETVAL = rv;
     114        OUTPUT:
     115                RETVAL
     116
    100117const utf8 *
    101118ztext_stylestrip(ztext)
Note: See TracChangeset for help on using the changeset viewer.