5 dXSTARG; /* Faster if we have it. */
12 /* NV nv; Uncomment this if you need to return NVs */
13 /* const char *pv; Uncomment this if you need to return PVs */
16 const char * s = SvPV(sv, len);
18 /* Change this to constant(aTHX_ s, len, &iv, &nv);
19 if you need to return both NVs and IVs */
20 type = constant(aTHX_ s, len, &iv);
21 /* Return 1 or 2 items. First is error message, or undef if no error.
22 Second, if present, is found value */
24 case PERL_constant_NOTFOUND:
26 sv_2mortal(newSVpvf("%s is not a valid Linux::Seccomp macro", s));
29 case PERL_constant_NOTDEF:
30 sv = sv_2mortal(newSVpvf(
31 "Your vendor has not defined Linux::Seccomp macro %s, used",
35 case PERL_constant_ISIV:
40 /* Uncomment this if you need to return NOs
41 case PERL_constant_ISNO:
46 /* Uncomment this if you need to return NVs
47 case PERL_constant_ISNV:
52 /* Uncomment this if you need to return PVs
53 case PERL_constant_ISPV:
56 PUSHp(pv, strlen(pv));
58 /* Uncomment this if you need to return PVNs
59 case PERL_constant_ISPVN:
64 /* Uncomment this if you need to return SVs
65 case PERL_constant_ISSV:
70 /* Uncomment this if you need to return UNDEFs
71 case PERL_constant_ISUNDEF:
73 /* Uncomment this if you need to return UVs
74 case PERL_constant_ISUV:
79 /* Uncomment this if you need to return YESs
80 case PERL_constant_ISYES:
86 sv = sv_2mortal(newSVpvf(
87 "Unexpected return type %d while processing Linux::Seccomp macro %s, used",