| Commit | Line | Data |
|---|
| adfe19db |
1 | ################################################################################ |
| 2 | ## |
| 3 | ## $Revision: 8 $ |
| 4 | ## $Author: mhx $ |
| 5 | ## $Date: 2004/08/13 12:47:17 +0200 $ |
| 6 | ## |
| 7 | ################################################################################ |
| 8 | ## |
| 9 | ## Version 3.x, Copyright (C) 2004, Marcus Holland-Moritz. |
| 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 | |
| 20 | sv_setuv |
| 21 | newSVuv |
| 22 | __UNDEFINED__ |
| 23 | |
| 24 | =implementation |
| 25 | |
| 26 | #ifndef sv_setuv |
| 27 | # define sv_setuv(sv, uv) \ |
| 28 | STMT_START { \ |
| 29 | UV TeMpUv = uv; \ |
| 30 | if (TeMpUv <= IV_MAX) \ |
| 31 | sv_setiv(sv, TeMpUv); \ |
| 32 | else \ |
| 33 | sv_setnv(sv, (double)TeMpUv); \ |
| 34 | } STMT_END |
| 35 | #endif |
| 36 | |
| 37 | #ifndef newSVuv |
| 38 | # define newSVuv(uv) ((uv) <= IV_MAX ? newSViv((IV)uv) : newSVnv((NV)uv)) |
| 39 | #endif |
| 40 | |
| 41 | __UNDEFINED__ sv_2uv(sv) ((PL_Sv = (sv)), (UV) (SvNOK(PL_Sv) ? SvNV(PL_Sv) : sv_2nv(PL_Sv))) |
| 42 | __UNDEFINED__ SvUVX(sv) ((UV)SvIVX(sv)) |
| 43 | __UNDEFINED__ SvUVXx(sv) SvUVX(sv) |
| 44 | __UNDEFINED__ SvUV(sv) (SvIOK(sv) ? SvUVX(sv) : sv_2uv(sv)) |
| 45 | __UNDEFINED__ SvUVx(sv) ((PL_Sv = (sv)), SvUV(PL_Sv)) |
| 46 | |
| 47 | /* Hint: sv_uv |
| 48 | * Always use the SvUVx() macro instead of sv_uv(). |
| 49 | */ |
| 50 | __UNDEFINED__ sv_uv(sv) SvUVx(sv) |
| 51 | |
| 52 | __UNDEFINED__ XST_mUV(i,v) (ST(i) = sv_2mortal(newSVuv(v)) ) |
| 53 | __UNDEFINED__ XSRETURN_UV(v) STMT_START { XST_mUV(0,v); XSRETURN(1); } STMT_END |
| 54 | |
| 55 | =xsubs |
| 56 | |
| 57 | SV * |
| 58 | sv_setuv(uv) |
| 59 | UV uv |
| 60 | CODE: |
| 61 | RETVAL = newSViv(1); |
| 62 | sv_setuv(RETVAL, uv); |
| 63 | OUTPUT: |
| 64 | RETVAL |
| 65 | |
| 66 | SV * |
| 67 | newSVuv(uv) |
| 68 | UV uv |
| 69 | CODE: |
| 70 | RETVAL = newSVuv(uv); |
| 71 | OUTPUT: |
| 72 | RETVAL |
| 73 | |
| 74 | UV |
| 75 | sv_2uv(sv) |
| 76 | SV *sv |
| 77 | CODE: |
| 78 | RETVAL = sv_2uv(sv); |
| 79 | OUTPUT: |
| 80 | RETVAL |
| 81 | |
| 82 | UV |
| 83 | SvUVx(sv) |
| 84 | SV *sv |
| 85 | CODE: |
| 86 | sv--; |
| 87 | RETVAL = SvUVx(++sv); |
| 88 | OUTPUT: |
| 89 | RETVAL |
| 90 | |
| 91 | void |
| 92 | XSRETURN_UV() |
| 93 | PPCODE: |
| 94 | XSRETURN_UV(42); |
| 95 | |
| 96 | =tests plan => 8 |
| 97 | |
| 98 | ok(&Devel::PPPort::sv_setuv(42), 42); |
| 99 | ok(&Devel::PPPort::newSVuv(123), 123); |
| 100 | ok(&Devel::PPPort::sv_2uv("4711"), 4711); |
| 101 | ok(&Devel::PPPort::sv_2uv("1735928559"), 1735928559); |
| 102 | ok(&Devel::PPPort::SvUVx("1735928559"), 1735928559); |
| 103 | ok(&Devel::PPPort::SvUVx(1735928559), 1735928559); |
| 104 | ok(&Devel::PPPort::SvUVx(0xdeadbeef), 0xdeadbeef); |
| 105 | ok(&Devel::PPPort::XSRETURN_UV(), 42); |
| 106 | |
projects / p5sagit/p5-mst-13.2.git / blame