https://perl5.git.perl.org / perl5.git / blame
| Commit | Line | Data |
|---|---|---|
| adfe19db MHM |
1 | ################################################################################ |
| 2 | ## | |
| 3 | ## $Revision: 7 $ | |
| 4 | ## $Author: mhx $ | |
| 5 | ## $Date: 2004/08/13 12:47:16 +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 | SvPV_nolen | |
| 21 | sv_2pv_nolen | |
| 22 | SvPVbyte | |
| 23 | sv_2pvbyte | |
| 24 | sv_pvn | |
| 25 | sv_pvn_force | |
| 26 | ||
| 27 | =implementation | |
| 28 | ||
| 29 | #ifndef SvPV_nolen | |
| 30 | ||
| 31 | #if { NEED sv_2pv_nolen } | |
| 32 | ||
| 33 | char * | |
| 34 | sv_2pv_nolen(pTHX_ register SV *sv) | |
| 35 | { | |
| 36 | STRLEN n_a; | |
| 37 | return sv_2pv(sv, &n_a); | |
| 38 | } | |
| 39 | ||
| 40 | #endif | |
| 41 | ||
| 42 | /* Hint: sv_2pv_nolen | |
| 43 | * Use the SvPV_nolen() macro instead of sv_2pv_nolen(). | |
| 44 | */ | |
| 45 | ||
| 46 | /* SvPV_nolen depends on sv_2pv_nolen */ | |
| 47 | #define SvPV_nolen(sv) \ | |
| 48 | ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \ | |
| 49 | ? SvPVX(sv) : sv_2pv_nolen(sv)) | |
| 50 | ||
| 51 | #endif | |
| 52 | ||
| 53 | #ifdef SvPVbyte | |
| 54 | ||
| 55 | /* Hint: SvPVbyte | |
| 56 | * Does not work in perl-5.6.1, ppport.h implements a version | |
| 57 | * borrowed from perl-5.7.3. | |
| 58 | */ | |
| 59 | ||
| 60 | #if { VERSION < 5.7.0 } | |
| 61 | ||
| 62 | #if { NEED sv_2pvbyte } | |
| 63 | ||
| 64 | char * | |
| 65 | sv_2pvbyte(pTHX_ register SV *sv, STRLEN *lp) | |
| 66 | { | |
| 67 | sv_utf8_downgrade(sv,0); | |
| 68 | return SvPV(sv,*lp); | |
| 69 | } | |
| 70 | ||
| 71 | #endif | |
| 72 | ||
| 73 | /* Hint: sv_2pvbyte | |
| 74 | * Use the SvPVbyte() macro instead of sv_2pvbyte(). | |
| 75 | */ | |
| 76 | ||
| 77 | #undef SvPVbyte | |
| 78 | ||
| 79 | /* SvPVbyte depends on sv_2pvbyte */ | |
| 80 | #define SvPVbyte(sv, lp) \ | |
| 81 | ((SvFLAGS(sv) & (SVf_POK|SVf_UTF8)) == (SVf_POK) \ | |
| 82 | ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_2pvbyte(sv, &lp)) | |
| 83 | ||
| 84 | #endif | |
| 85 | ||
| 86 | #else | |
| 87 | ||
| 88 | # define SvPVbyte SvPV | |
| 89 | # define sv_2pvbyte sv_2pv | |
| 90 | ||
| 91 | #endif | |
| 92 | ||
| 93 | /* sv_2pvbyte_nolen depends on sv_2pv_nolen */ | |
| 94 | __UNDEFINED__ sv_2pvbyte_nolen sv_2pv_nolen | |
| 95 | ||
| 96 | /* Hint: sv_pvn | |
| 97 | * Always use the SvPV() macro instead of sv_pvn(). | |
| 98 | */ | |
| 99 | __UNDEFINED__ sv_pvn(sv, len) SvPV(sv, len) | |
| 100 | ||
| 101 | /* Hint: sv_pvn | |
| 102 | * Always use the SvPV_force() macro instead of sv_pvn_force(). | |
| 103 | */ | |
| 104 | __UNDEFINED__ sv_pvn_force(sv, len) SvPV_force(sv, len) | |
| 105 | ||
| 106 | =xsinit | |
| 107 | ||
| 108 | #define NEED_sv_2pv_nolen | |
| 109 | #define NEED_sv_2pvbyte | |
| 110 | ||
| 111 | =xsubs | |
| 112 | ||
| 113 | IV | |
| 114 | SvPVbyte(sv) | |
| 115 | SV *sv | |
| 116 | PREINIT: | |
| 117 | STRLEN len; | |
| 118 | const char *str; | |
| 119 | CODE: | |
| 120 | str = SvPVbyte(sv, len); | |
| 121 | RETVAL = strEQ(str, "mhx") ? len : -1; | |
| 122 | OUTPUT: | |
| 123 | RETVAL | |
| 124 | ||
| 125 | IV | |
| 126 | SvPV_nolen(sv) | |
| 127 | SV *sv | |
| 128 | PREINIT: | |
| 129 | const char *str; | |
| 130 | CODE: | |
| 131 | str = SvPV_nolen(sv); | |
| 132 | RETVAL = strEQ(str, "mhx") ? 3 : 0; | |
| 133 | OUTPUT: | |
| 134 | RETVAL | |
| 135 | ||
| 136 | =tests plan => 2 | |
| 137 | ||
| 138 | ok(&Devel::PPPort::SvPVbyte("mhx"), 3); | |
| 139 | ok(&Devel::PPPort::SvPVbyte("mhx"), 3); | |
| 140 |