source: swig/perl/language.i @ 06e2fc5

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

add swig

  • Property mode set to 100644
File size: 251 bytes
Line 
1%typemap(argout) bool &success {
2    --argvi;
3    SV *array = $result;
4
5    $result = sv_newmortal();
6    sv_setiv($result, *$1);
7    ++argvi;
8
9    $result = array;
10    ++argvi;
11}
12
13%typemap(in,numinputs=0) bool &success(bool temp) {
14    $1 = &temp;
15}
Note: See TracBrowser for help on using the repository browser.