[perl5.git] / cpan / Devel-PPPort / parts / inc / uv

################################################################################
##
##  $Revision: 18 $
##  $Author: mhx $
##  $Date: 2010/03/07 13:15:47 +0100 $
##
################################################################################
##
##  Version 3.x, Copyright (C) 2004-2010, Marcus Holland-Moritz.
##  Version 2.x, Copyright (C) 2001, Paul Marquess.
##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
##
##  This program is free software; you can redistribute it and/or
##  modify it under the same terms as Perl itself.
##
################################################################################

=provides

__UNDEFINED__
SvUOK

=implementation

__UNDEFINED__  sv_setuv(sv, uv)                     \
               STMT_START {                         \
                 UV TeMpUv = uv;                    \
                 if (TeMpUv <= IV_MAX)              \
                   sv_setiv(sv, TeMpUv);            \
                 else                               \
                   sv_setnv(sv, (double)TeMpUv);    \
               } STMT_END

__UNDEFINED__  newSVuv(uv)     ((uv) <= IV_MAX ? newSViv((IV)uv) : newSVnv((NV)uv))

__UNDEFINED__  sv_2uv(sv)      ((PL_Sv = (sv)), (UV) (SvNOK(PL_Sv) ? SvNV(PL_Sv) : sv_2nv(PL_Sv)))
__UNDEFINED__  SvUVX(sv)       ((UV)SvIVX(sv))
__UNDEFINED__  SvUVXx(sv)      SvUVX(sv)
__UNDEFINED__  SvUV(sv)        (SvIOK(sv) ? SvUVX(sv) : sv_2uv(sv))
__UNDEFINED__  SvUVx(sv)       ((PL_Sv = (sv)), SvUV(PL_Sv))

/* Hint: sv_uv
 * Always use the SvUVx() macro instead of sv_uv().
 */
__UNDEFINED__  sv_uv(sv)       SvUVx(sv)

#if !defined(SvUOK) && defined(SvIOK_UV)
#  define SvUOK(sv) SvIOK_UV(sv)
#endif

__UNDEFINED__  XST_mUV(i,v)    (ST(i) = sv_2mortal(newSVuv(v))  )
__UNDEFINED__  XSRETURN_UV(v)  STMT_START { XST_mUV(0,v);  XSRETURN(1); } STMT_END

__UNDEFINED__  PUSHu(u)        STMT_START { sv_setuv(TARG, (UV)(u)); PUSHTARG;  } STMT_END
__UNDEFINED__  XPUSHu(u)       STMT_START { sv_setuv(TARG, (UV)(u)); XPUSHTARG; } STMT_END

=xsubs

SV *
sv_setuv(uv)
	UV uv
	CODE:
		RETVAL = newSViv(1);
		sv_setuv(RETVAL, uv);
	OUTPUT:
		RETVAL

SV *
newSVuv(uv)
	UV uv
	CODE:
		RETVAL = newSVuv(uv);
	OUTPUT:
		RETVAL

UV
sv_2uv(sv)
	SV *sv
	CODE:
		RETVAL = sv_2uv(sv);
	OUTPUT:
		RETVAL

UV
SvUVx(sv)
	SV *sv
	CODE:
		sv--;
		RETVAL = SvUVx(++sv);
	OUTPUT:
		RETVAL

void
XSRETURN_UV()
	PPCODE:
		XSRETURN_UV(42);

void
PUSHu()
	PREINIT:
		dTARG;
	PPCODE:
		TARG = sv_newmortal();
		EXTEND(SP, 1);
		PUSHu(42);
		XSRETURN(1);

void
XPUSHu()
	PREINIT:
		dTARG;
	PPCODE:
		TARG = sv_newmortal();
		XPUSHu(43);
		XSRETURN(1);

=tests plan => 10

ok(&Devel::PPPort::sv_setuv(42), 42);
ok(&Devel::PPPort::newSVuv(123), 123);
ok(&Devel::PPPort::sv_2uv("4711"), 4711);
ok(&Devel::PPPort::sv_2uv("1735928559"), 1735928559);
ok(&Devel::PPPort::SvUVx("1735928559"), 1735928559);
ok(&Devel::PPPort::SvUVx(1735928559), 1735928559);
ok(&Devel::PPPort::SvUVx(0xdeadbeef), 0xdeadbeef);
ok(&Devel::PPPort::XSRETURN_UV(), 42);
ok(&Devel::PPPort::PUSHu(), 42);
ok(&Devel::PPPort::XPUSHu(), 43);
Commit	Line	Data
adfe19db MHM	1	################################################################################
adfe19db MHM	2	##
49ef49fe	3	## $Revision: 18 $
adfe19db	4	## $Author: mhx $
49ef49fe	5	## $Date: 2010/03/07 13:15:47 +0100 $
adfe19db MHM	6	##
	7	################################################################################
	8	##
49ef49fe	9	## Version 3.x, Copyright (C) 2004-2010, Marcus Holland-Moritz.
adfe19db MHM	10	## Version 2.x, Copyright (C) 2001, Paul Marquess.
	11	## Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
	12	##
	13	## This program is free software; you can redistribute it and/or
	14	## modify it under the same terms as Perl itself.
	15	##
	16	################################################################################
	17
	18	=provides
	19
adfe19db	20	__UNDEFINED__
679ad62d	21	SvUOK
adfe19db MHM	22
	23	=implementation
	24
0d0f8426 MHM	25	__UNDEFINED__ sv_setuv(sv, uv) \
	26	STMT_START { \
	27	UV TeMpUv = uv; \
	28	if (TeMpUv <= IV_MAX) \
	29	sv_setiv(sv, TeMpUv); \
	30	else \
	31	sv_setnv(sv, (double)TeMpUv); \
	32	} STMT_END
	33
	34	__UNDEFINED__ newSVuv(uv) ((uv) <= IV_MAX ? newSViv((IV)uv) : newSVnv((NV)uv))
adfe19db MHM	35
	36	__UNDEFINED__ sv_2uv(sv) ((PL_Sv = (sv)), (UV) (SvNOK(PL_Sv) ? SvNV(PL_Sv) : sv_2nv(PL_Sv)))
	37	__UNDEFINED__ SvUVX(sv) ((UV)SvIVX(sv))
	38	__UNDEFINED__ SvUVXx(sv) SvUVX(sv)
	39	__UNDEFINED__ SvUV(sv) (SvIOK(sv) ? SvUVX(sv) : sv_2uv(sv))
	40	__UNDEFINED__ SvUVx(sv) ((PL_Sv = (sv)), SvUV(PL_Sv))
	41
	42	/* Hint: sv_uv
	43	* Always use the SvUVx() macro instead of sv_uv().
	44	*/
	45	__UNDEFINED__ sv_uv(sv) SvUVx(sv)
	46
679ad62d MHM	47	#if !defined(SvUOK) && defined(SvIOK_UV)
	48	# define SvUOK(sv) SvIOK_UV(sv)
	49	#endif
	50
adfe19db MHM	51	__UNDEFINED__ XST_mUV(i,v) (ST(i) = sv_2mortal(newSVuv(v)) )
	52	__UNDEFINED__ XSRETURN_UV(v) STMT_START { XST_mUV(0,v); XSRETURN(1); } STMT_END
	53
96ad942f MHM	54	__UNDEFINED__ PUSHu(u) STMT_START { sv_setuv(TARG, (UV)(u)); PUSHTARG; } STMT_END
	55	__UNDEFINED__ XPUSHu(u) STMT_START { sv_setuv(TARG, (UV)(u)); XPUSHTARG; } STMT_END
	56
adfe19db MHM	57	=xsubs
	58
	59	SV *
	60	sv_setuv(uv)
	61	UV uv
	62	CODE:
	63	RETVAL = newSViv(1);
	64	sv_setuv(RETVAL, uv);
	65	OUTPUT:
	66	RETVAL
	67
	68	SV *
	69	newSVuv(uv)
	70	UV uv
	71	CODE:
	72	RETVAL = newSVuv(uv);
	73	OUTPUT:
	74	RETVAL
	75
	76	UV
	77	sv_2uv(sv)
	78	SV *sv
	79	CODE:
	80	RETVAL = sv_2uv(sv);
	81	OUTPUT:
	82	RETVAL
	83
	84	UV
	85	SvUVx(sv)
	86	SV *sv
	87	CODE:
	88	sv--;
	89	RETVAL = SvUVx(++sv);
	90	OUTPUT:
	91	RETVAL
	92
	93	void
	94	XSRETURN_UV()
	95	PPCODE:
	96	XSRETURN_UV(42);
	97
96ad942f MHM	98	void
	99	PUSHu()
	100	PREINIT:
	101	dTARG;
	102	PPCODE:
	103	TARG = sv_newmortal();
	104	EXTEND(SP, 1);
	105	PUSHu(42);
	106	XSRETURN(1);
	107
	108	void
	109	XPUSHu()
	110	PREINIT:
	111	dTARG;
	112	PPCODE:
	113	TARG = sv_newmortal();
	114	XPUSHu(43);
	115	XSRETURN(1);
	116
	117	=tests plan => 10
adfe19db MHM	118
	119	ok(&Devel::PPPort::sv_setuv(42), 42);
	120	ok(&Devel::PPPort::newSVuv(123), 123);
	121	ok(&Devel::PPPort::sv_2uv("4711"), 4711);
	122	ok(&Devel::PPPort::sv_2uv("1735928559"), 1735928559);
	123	ok(&Devel::PPPort::SvUVx("1735928559"), 1735928559);
	124	ok(&Devel::PPPort::SvUVx(1735928559), 1735928559);
	125	ok(&Devel::PPPort::SvUVx(0xdeadbeef), 0xdeadbeef);
	126	ok(&Devel::PPPort::XSRETURN_UV(), 42);
96ad942f MHM	127	ok(&Devel::PPPort::PUSHu(), 42);
96ad942f MHM	128	ok(&Devel::PPPort::XPUSHu(), 43);
adfe19db	129