################################################################################

##

##  Version 3.x, Copyright (C) 2004-2013, 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);