[perl5.git] / ext / XS-APItest / numeric.xs

MODULE = XS::APItest		PACKAGE = XS::APItest::numeric

void
grok_number(number)
	SV *number
    PREINIT:
	STRLEN len;
	const char *pv = SvPV(number, len);
	UV value;
	int result;
    PPCODE:
	EXTEND(SP,2);
	result = grok_number(pv, len, &value);
	PUSHs(sv_2mortal(newSViv(result)));
	if (result & IS_NUMBER_IN_UV)
	    PUSHs(sv_2mortal(newSVuv(value)));
Commit	Line	Data
ffe53d21 NC	1	MODULE = XS::APItest PACKAGE = XS::APItest::numeric
	2
	3	void
	4	grok_number(number)
	5	SV *number
	6	PREINIT:
	7	STRLEN len;
	8	const char *pv = SvPV(number, len);
	9	UV value;
	10	int result;
	11	PPCODE:
	12	EXTEND(SP,2);
	13	result = grok_number(pv, len, &value);
	14	PUSHs(sv_2mortal(newSViv(result)));
	15	if (result & IS_NUMBER_IN_UV)
	16	PUSHs(sv_2mortal(newSVuv(value)));