source: swig/perl/chunk.i @ df3fe37

abac0-leakabac0-meicompt_changesgec13mei-idmei-rt0-nmei_rt0mei_rt2mei_rt2_fix_1meiyap-rt1meiyap1rt2tvf-new-xml
Last change on this file since df3fe37 was a5a8234, checked in by Mike Ryan <mikeryan@…>, 14 years ago

add the chunk swig file.. forgot to add this a few revisions ago

  • Property mode set to 100644
File size: 262 bytes
RevLine 
[a5a8234]1// abac_chunk_t is a string
2%typemap(in) abac_chunk_t {
3    STRLEN len;
4    $1.ptr = (unsigned char *)SvPV($input, len);
5    $1.len = len;
6}
7
8%typemap(out) abac_chunk_t {
9    $result = newSVpvn(
10        (const char *)$1.ptr,
11        $1.len
12    );
13    ++argvi;
14}
Note: See TracBrowser for help on using the repository browser.