Lines Matching defs:dsv
96 #define _pv_display_for_dump(dsv, pv, cur, len, pvlim) \
97 _pv_display_flags(aTHX_ dsv, pv, cur, len, pvlim, PERL_PV_ESCAPE_DWIM_ALL_HEX)
103 C<dsv> such that the size of the escaped string will not exceed C<max> chars
106 When the C<dsv> parameter is null no escaping actually occurs, but the number
141 Returns a pointer to the escaped text as held by C<dsv>.
169 Perl_pv_escape( pTHX_ SV *dsv, char const * const str,
225 if (dsv && !(flags & PERL_PV_ESCAPE_NOCLEAR)) {
227 SvPVCLEAR(dsv);
301 if (dsv)
302 Perl_sv_catpvf( aTHX_ dsv,"%s...%s", qe, qs);
312 if (dsv)
313 sv_catpvn(dsv, source_buf, chsize);
317 can be appended raw to the dsv. If dsv happens to be
322 if (dsv)
323 Perl_sv_catpvf( aTHX_ dsv, "%c", c);
331 return dsv ? SvPVX(dsv) : NULL;
353 Returns a pointer to the prettified text as held by C<dsv>.
363 Perl_pv_pretty( pTHX_ SV *dsv, char const * const str, const STRLEN count,
377 SvPVCLEAR(dsv);
379 orig_cur= SvCUR(dsv);
382 Perl_sv_catpvf(aTHX_ dsv, "%c", quotes[0]);
385 sv_catpv(dsv, start_color);
397 pv_escape( dsv, str, count, max - max_adjust, &escaped, flags | PERL_PV_ESCAPE_NOCLEAR );
400 sv_catpv(dsv, end_color);
403 Perl_sv_catpvf(aTHX_ dsv, "%c", quotes[1]);
406 sv_catpvs(dsv, "...");
409 while( SvCUR(dsv) - orig_cur < max )
410 sv_catpvs(dsv," ");
413 return SvPVX(dsv);
417 _pv_display_flags(pTHX_ SV *dsv, const char *pv, STRLEN cur, STRLEN len, STRLEN pvlim, I32 pretty_flags)
421 pv_pretty( dsv, pv, cur, pvlim, NULL, NULL, PERL_PV_PRETTY_DUMP | pretty_flags );
423 sv_catpvs( dsv, "\\0");
424 return SvPVX(dsv);
432 pv_escape(dsv,pv,cur,pvlim,PERL_PV_ESCAPE_QUOTE);
443 Perl_pv_display(pTHX_ SV *dsv, const char *pv, STRLEN cur, STRLEN len, STRLEN pvlim)
445 return _pv_display_flags(aTHX_ dsv, pv, cur, len, pvlim, 0);
1611 SV * const dsv = sv_newmortal();
1613 = pv_pretty(dsv, RX_WRAPPED(re), RX_WRAPLEN(re),