| 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); |