|
Packit |
d03632 |
void
|
|
Packit |
d03632 |
constant(sv)
|
|
Packit |
d03632 |
PREINIT:
|
|
Packit |
d03632 |
#ifdef dXSTARG
|
|
Packit |
d03632 |
dXSTARG; /* Faster if we have it. */
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
dTARGET;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
STRLEN len;
|
|
Packit |
d03632 |
int type;
|
|
Packit |
d03632 |
IV iv;
|
|
Packit |
d03632 |
/* NV nv; Uncomment this if you need to return NVs */
|
|
Packit |
d03632 |
const char *pv;
|
|
Packit |
d03632 |
INPUT:
|
|
Packit |
d03632 |
SV * sv;
|
|
Packit |
d03632 |
const char * s = SvPV(sv, len);
|
|
Packit |
d03632 |
PPCODE:
|
|
Packit |
d03632 |
/* Change this to constant(aTHX_ s, len, &iv, &nv);
|
|
Packit |
d03632 |
if you need to return both NVs and IVs */
|
|
Packit |
d03632 |
type = constant(aTHX_ s, len, &iv, &pv;;
|
|
Packit |
d03632 |
/* Return 1 or 2 items. First is error message, or undef if no error.
|
|
Packit |
d03632 |
Second, if present, is found value */
|
|
Packit |
d03632 |
switch (type) {
|
|
Packit |
d03632 |
case PERL_constant_NOTFOUND:
|
|
Packit |
d03632 |
sv =
|
|
Packit |
d03632 |
sv_2mortal(newSVpvf("%s is not a valid Zlib macro", s));
|
|
Packit |
d03632 |
PUSHs(sv);
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case PERL_constant_NOTDEF:
|
|
Packit |
d03632 |
sv = sv_2mortal(newSVpvf(
|
|
Packit |
d03632 |
"Your vendor has not defined Zlib macro %s, used",
|
|
Packit |
d03632 |
s));
|
|
Packit |
d03632 |
PUSHs(sv);
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case PERL_constant_ISIV:
|
|
Packit |
d03632 |
EXTEND(SP, 1);
|
|
Packit |
d03632 |
PUSHs(&PL_sv_undef);
|
|
Packit |
d03632 |
PUSHi(iv);
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
/* Uncomment this if you need to return NOs
|
|
Packit |
d03632 |
case PERL_constant_ISNO:
|
|
Packit |
d03632 |
EXTEND(SP, 1);
|
|
Packit |
d03632 |
PUSHs(&PL_sv_undef);
|
|
Packit |
d03632 |
PUSHs(&PL_sv_no);
|
|
Packit |
d03632 |
break; */
|
|
Packit |
d03632 |
/* Uncomment this if you need to return NVs
|
|
Packit |
d03632 |
case PERL_constant_ISNV:
|
|
Packit |
d03632 |
EXTEND(SP, 1);
|
|
Packit |
d03632 |
PUSHs(&PL_sv_undef);
|
|
Packit |
d03632 |
PUSHn(nv);
|
|
Packit |
d03632 |
break; */
|
|
Packit |
d03632 |
case PERL_constant_ISPV:
|
|
Packit |
d03632 |
EXTEND(SP, 1);
|
|
Packit |
d03632 |
PUSHs(&PL_sv_undef);
|
|
Packit |
d03632 |
PUSHp(pv, strlen(pv));
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
/* Uncomment this if you need to return PVNs
|
|
Packit |
d03632 |
case PERL_constant_ISPVN:
|
|
Packit |
d03632 |
EXTEND(SP, 1);
|
|
Packit |
d03632 |
PUSHs(&PL_sv_undef);
|
|
Packit |
d03632 |
PUSHp(pv, iv);
|
|
Packit |
d03632 |
break; */
|
|
Packit |
d03632 |
/* Uncomment this if you need to return SVs
|
|
Packit |
d03632 |
case PERL_constant_ISSV:
|
|
Packit |
d03632 |
EXTEND(SP, 1);
|
|
Packit |
d03632 |
PUSHs(&PL_sv_undef);
|
|
Packit |
d03632 |
PUSHs(sv);
|
|
Packit |
d03632 |
break; */
|
|
Packit |
d03632 |
/* Uncomment this if you need to return UNDEFs
|
|
Packit |
d03632 |
case PERL_constant_ISUNDEF:
|
|
Packit |
d03632 |
break; */
|
|
Packit |
d03632 |
/* Uncomment this if you need to return UVs
|
|
Packit |
d03632 |
case PERL_constant_ISUV:
|
|
Packit |
d03632 |
EXTEND(SP, 1);
|
|
Packit |
d03632 |
PUSHs(&PL_sv_undef);
|
|
Packit |
d03632 |
PUSHu((UV)iv);
|
|
Packit |
d03632 |
break; */
|
|
Packit |
d03632 |
/* Uncomment this if you need to return YESs
|
|
Packit |
d03632 |
case PERL_constant_ISYES:
|
|
Packit |
d03632 |
EXTEND(SP, 1);
|
|
Packit |
d03632 |
PUSHs(&PL_sv_undef);
|
|
Packit |
d03632 |
PUSHs(&PL_sv_yes);
|
|
Packit |
d03632 |
break; */
|
|
Packit |
d03632 |
default:
|
|
Packit |
d03632 |
sv = sv_2mortal(newSVpvf(
|
|
Packit |
d03632 |
"Unexpected return type %d while processing Zlib macro %s, used",
|
|
Packit |
d03632 |
type, s));
|
|
Packit |
d03632 |
PUSHs(sv);
|
|
Packit |
d03632 |
}
|