5 dXSTARG; /* Faster if we have it. */
12 /* NV nv; Uncomment this if you need to return NVs */
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, &pv);
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:
25 sv = sv_2mortal(newSVpvf("%s is not a valid Zlib macro", s));
28 case PERL_constant_NOTDEF:
29 sv = sv_2mortal(newSVpvf(
30 "Your vendor has not defined Zlib macro %s, used", s));
33 case PERL_constant_ISIV:
38 /* Uncomment this if you need to return NOs
39 case PERL_constant_ISNO:
44 /* Uncomment this if you need to return NVs
45 case PERL_constant_ISNV:
50 case PERL_constant_ISPV:
53 PUSHp(pv, strlen(pv));
55 /* Uncomment this if you need to return PVNs
56 case PERL_constant_ISPVN:
61 /* Uncomment this if you need to return SVs
62 case PERL_constant_ISSV:
67 /* Uncomment this if you need to return UNDEFs
68 case PERL_constant_ISUNDEF:
70 /* Uncomment this if you need to return UVs
71 case PERL_constant_ISUV:
76 /* Uncomment this if you need to return YESs
77 case PERL_constant_ISYES:
83 sv = sv_2mortal(newSVpvf(
84 "Unexpected return type %d while processing Zlib macro %s, used",