]>
Commit | Line | Data |
---|---|---|
1 | TYPEMAP | |
2 | scmp_filter_ctx T_FILTER_CTX | |
3 | enum scmp_compare T_IV | |
4 | enum scmp_filter_attr T_IV | |
5 | scmp_datum_t T_IV | |
6 | struct scmp_arg_cmp T_OPAQUE | |
7 | ||
8 | INPUT | |
9 | T_FILTER_CTX | |
10 | if (SvROK($arg) && sv_derived_from($arg, \"Linux::Seccomp\")) { | |
11 | IV tmp = SvIV((SV*)SvRV($arg)); | |
12 | $var = INT2PTR($type,tmp); | |
13 | } | |
14 | else | |
15 | Perl_croak_nocontext(\"%s: %s is not of type %s\", | |
16 | ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, | |
17 | \"$var\", \"Linux::Seccomp\") | |
18 | ||
19 | OUTPUT | |
20 | T_FILTER_CTX | |
21 | sv_setref_pv($arg, \"Linux::Seccomp\", (void*)$var); |