source: swig/perl/language.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 11e3eb7, checked in by Mike Ryan <mikeryan@…>, 14 years ago

return binary representations of ID and attr certs in abac_chunk_t
suitable for passing off to libabac
supported in perl and python natively
closes #9

  • Property mode set to 100644
File size: 325 bytes
Line 
1%{
2#include "SSL_keyid.h"
3%}
4
5%include "SSL_keyid.h"
6
7%include "chunk.i"
8
9%typemap(argout) bool &success {
10    --argvi;
11    SV *array = $result;
12
13    $result = sv_newmortal();
14    sv_setiv($result, *$1);
15    ++argvi;
16
17    $result = array;
18    ++argvi;
19}
20
21%typemap(in,numinputs=0) bool &success(bool temp) {
22    $1 = &temp;
23}
Note: See TracBrowser for help on using the repository browser.