| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
| H A D | sv.h | 1112 #define sv_catpvn_nomg(dsv, sstr, slen) sv_catpvn_flags(dsv, sstr, slen, 0)
1113 #define sv_setsv(dsv, ssv) sv_setsv_flags(dsv, ssv, SV_GMAGIC)
1114 #define sv_setsv_nomg(dsv, ssv) sv_setsv_flags(dsv, ssv, 0)
1115 #define sv_catsv(dsv, ssv) sv_catsv_flags(dsv, ssv, SV_GMAGIC)
1116 #define sv_catsv_nomg(dsv, ssv) sv_catsv_flags(dsv, ss
[all...] |
| H A D | dump.c | 108 Perl_pv_display(pTHX_ SV *dsv, char *pv, STRLEN cur, STRLEN len, STRLEN pvlim) argument
113 sv_setpvn(dsv, "\"", 1);
115 if (pvlim && SvCUR(dsv) >= pvlim) {
120 case '\t': sv_catpvn(dsv, "\\t", 2); break;
121 case '\n': sv_catpvn(dsv, "\\n", 2); break;
122 case '\r': sv_catpvn(dsv, "\\r", 2); break;
123 case '\f': sv_catpvn(dsv, "\\f", 2); break;
124 case '"': sv_catpvn(dsv, "\\\"", 2); break;
125 case '\\': sv_catpvn(dsv, "\\\\", 2); break;
128 sv_catpvn(dsv, p
[all...] |
| H A D | utf8.c | 1818 =for apidoc A|char *|pv_uni_display|SV *dsv|U8 *spv|STRLEN len|STRLEN pvlim|UV flags
1820 Build to the scalar dsv a displayable version of the string spv,
1831 The pointer to the PV of the dsv is returned.
1835 Perl_pv_uni_display(pTHX_ SV *dsv, U8 *spv, STRLEN len, STRLEN pvlim, UV flags) argument
1840 sv_setpvn(dsv, "", 0);
1845 if (pvlim && SvCUR(dsv) >= pvlim) {
1854 Perl_sv_catpvf(aTHX_ dsv, "\\n"); ok = TRUE; break;
1856 Perl_sv_catpvf(aTHX_ dsv, "\\r"); ok = TRUE; break;
1858 Perl_sv_catpvf(aTHX_ dsv, "\\t"); ok = TRUE; break;
1860 Perl_sv_catpvf(aTHX_ dsv, "\\
1896 Perl_sv_uni_display(pTHX_ SV *dsv, SV *ssv, STRLEN pvlim, UV flags) argument
[all...] |
| H A D | sv.c | 1821 SV *dsv; local
1826 dsv = sv_2mortal(newSVpv("", 0));
1827 pv = sv_uni_display(dsv, sv, 10, 0);
3268 Perl_sv_copypv(pTHX_ SV *dsv, register SV *ssv) argument
3273 sv_setpvn(dsv,s,len);
3275 SvUTF8_on(dsv);
3277 SvUTF8_off(dsv);
3612 C<dsv>. The source SV may be destroyed if it is mortal, so don't use this
3624 C<dsv>. The source SV may be destroyed if it is mortal, so don't use this
4351 Perl_sv_catpvn(pTHX_ SV *dsv, cons argument
4377 Perl_sv_catpvn_flags(pTHX_ register SV *dsv, register const char *sstr, register STRLEN slen, I32 flags) argument
4435 Perl_sv_catsv_flags(pTHX_ SV *dsv, register SV *ssv, I32 flags) argument
4480 Perl_sv_catsv_mg(pTHX_ SV *dsv, register SV *ssv) argument
11525 Perl_sv_cat_decode(pTHX_ SV *dsv, SV *encoding, SV *ssv, int *offset, char *tstr, int tlen) argument
[all...] |
| H A D | proto.h | 706 /* PERL_CALLCONV void sv_catsv(pTHX_ SV* dsv, SV* ssv); */
744 PERL_CALLCONV bool Perl_sv_cat_decode(pTHX_ SV* dsv, SV *encoding, SV *ssv, int *offset, char* tstr, int tlen);
763 /* PERL_CALLCONV void sv_setsv(pTHX_ SV* dsv, SV* ssv); */
811 PERL_CALLCONV char* Perl_pv_uni_display(pTHX_ SV *dsv, U8 *spv, STRLEN len, STRLEN pvlim, UV flags);
812 PERL_CALLCONV char* Perl_sv_uni_display(pTHX_ SV *dsv, SV *ssv, STRLEN pvlim, UV flags);
871 PERL_CALLCONV char* Perl_pv_display(pTHX_ SV *dsv, char *pv, STRLEN cur, STRLEN len, STRLEN pvlim);
1284 PERL_CALLCONV void Perl_sv_setsv_flags(pTHX_ SV* dsv, SV* ssv, I32 flags);
1286 PERL_CALLCONV void Perl_sv_catsv_flags(pTHX_ SV* dsv, SV* ssv, I32 flags);
1290 PERL_CALLCONV void Perl_sv_copypv(pTHX_ SV* dsv, SV* ssv);
|
| H A D | regcomp.c | 4735 SV *dsv = sv_2mortal(newSVpvn("", 0)); local
4741 pv_uni_display(dsv, (U8*)STRING(o), STR_LEN(o), 60,
4928 SV *dsv = PERL_DEBUG_PAD_ZERO(0); local
4937 s = (r->reganch & ROPT_UTF8) ? pv_uni_display(dsv, (U8*)r->precomp,
4939 : pv_display(dsv, r->precomp, r->prelen, 0, 60);
4940 len = SvCUR(dsv);
|
| H A D | regexec.c | 403 SV *dsv = PERL_DEBUG_PAD_ZERO(0); local
415 sv_uni_display(dsv, sv, 60, UNI_DISPLAY_REGEX) :
|