The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

AMBA / USB-LibUSB-0.09 / typemap 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46

              
USB::LibUSB::XS                       T_PTROBJ
USB::LibUSB::XS::Device               T_PTROBJ
USB::LibUSB::XS::Device::Handle       T_PTROBJ
HV *                         T_HVREF_REFCOUNT_FIXED
AV *                         T_AVREF_REFCOUNT_FIXED
##########################
INPUT
T_AVREF_REFCOUNT_FIXED
        STMT_START {
                SV* const xsub_tmp_sv = $arg;
                SvGETMAGIC(xsub_tmp_sv);
                if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVAV){
                    $var = (AV*)SvRV(xsub_tmp_sv);
                }
                else{
                    Perl_croak_nocontext(\"%s: %s is not an ARRAY reference\",
                                ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
                                \"$var\");
                }
        } STMT_END
     
T_HVREF_REFCOUNT_FIXED
        STMT_START {
                SV* const xsub_tmp_sv = $arg;
                SvGETMAGIC(xsub_tmp_sv);
                if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVHV){
                    $var = (HV*)SvRV(xsub_tmp_sv);
                }
                else{
                    Perl_croak_nocontext(\"%s: %s is not a HASH reference\",
                                ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
                                \"$var\");
                }
        } STMT_END
###########################
OUTPUT
T_AVREF_REFCOUNT_FIXED
        $arg = newRV_noinc((SV*)$var);
     
T_HVREF_REFCOUNT_FIXED
        $arg = newRV_noinc((SV*)$var);