source: swig/perl/chunk.i @ 605ee1d

abac0-leakabac0-meicompt_changesgec13mei-idmei-rt0-nmei_rt0tvf-new-xml
Last change on this file since 605ee1d 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
Line 
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.