Lines Matching defs:sv
242 #define CHR_SVLEN(sv) (UTF ? sv_len_utf8(sv) : SvCUR(sv))
504 SV * sv = data->last_found;
506 SvUTF8(sv) && SvMAGICAL(sv) ? mg_find(sv, PERL_MAGIC_utf8) : NULL;
932 SV * sv = data->last_found;
933 MAGIC *mg = SvUTF8(sv) && SvMAGICAL(sv) ?
934 mg_find(sv, PERL_MAGIC_utf8) : NULL;
1310 SV * sv = data->last_found;
1312 SvUTF8(sv) && SvMAGICAL(sv) ?
1313 mg_find(sv, PERL_MAGIC_utf8) : NULL;
2069 DEBUG_r({ SV *sv = sv_newmortal();
2070 regprop(sv, (regnode*)data.start_class);
2073 SvPVX(sv));});
2124 DEBUG_r({ SV* sv = sv_newmortal();
2125 regprop(sv, (regnode*)data.start_class);
2128 SvPVX(sv));});
2236 SV *sv;
2259 sv = newSVpvn(s, RExC_parse - 1 - s);
2261 sv = newSVpvn("", 0);
2265 rop = sv_compile_2op(sv, &sop, "re", &pad);
2275 SvREFCNT_dec(sv);
3346 SV *sv = sv_2mortal(newSVpvn(STRING(ret), oldlen));
3349 SvUTF8_on(sv);
3350 if (sv_utf8_downgrade(sv, TRUE)) {
3351 char *s = sv_recode_to_utf8(sv, PL_encoding);
3352 STRLEN newlen = SvCUR(sv);
3354 if (SvUTF8(sv))
4191 SV *sv;
4195 sv = newSVpvn((char*)foldbuf, foldlen);
4196 SvUTF8_on(sv);
4197 av_push(unicode_alternate, sv);
4530 S_dumpuntil(pTHX_ regnode *start, regnode *node, regnode *last, SV* sv, I32 l)
4546 regprop(sv, node);
4548 (int)(2*l + 1), "", SvPVX(sv));
4561 node = dumpuntil(start, NEXTOPER(NEXTOPER(node)), nnode, sv, l + 1);
4564 node = dumpuntil(start, NEXTOPER(node), next, sv, l + 1);
4568 NEXTOPER(node) + EXTRA_STEP_2ARGS + 1, sv, l + 1);
4572 next, sv, l + 1);
4575 node = dumpuntil(start, NEXTOPER(node), NEXTOPER(node) + 1, sv, l + 1);
4609 SV *sv = sv_newmortal();
4611 (void)dumpuntil(r->program, r->program + 1, NULL, sv, 0);
4663 regprop(sv, r->regstclass);
4664 PerlIO_printf(Perl_debug_log, "stclass `%s' ", SvPVX(sv));
4704 S_put_byte(pTHX_ SV *sv, int c)
4707 Perl_sv_catpvf(aTHX_ sv, "\\%o", c);
4709 Perl_sv_catpvf(aTHX_ sv, "\\%c", c);
4711 Perl_sv_catpvf(aTHX_ sv, "%c", c);
4720 Perl_regprop(pTHX_ SV *sv, regnode *o)
4725 sv_setpvn(sv, "", 0);
4730 sv_catpv(sv, (char*)reg_name[OP(o)]); /* Take off const! */
4747 Perl_sv_catpvf(aTHX_ sv, " <%s%.*s%s>",
4754 Perl_sv_catpvf(aTHX_ sv, "[%d]", o->flags); /* Parenth number */
4755 Perl_sv_catpvf(aTHX_ sv, " {%d,%d}", ARG1(o), ARG2(o));
4758 Perl_sv_catpvf(aTHX_ sv, "[%d/%d]", o->flags & 0xf, o->flags>>4);
4760 Perl_sv_catpvf(aTHX_ sv, "%d", (int)ARG(o)); /* Parenth number */
4762 Perl_sv_catpvf(aTHX_ sv, "[%d]", o->flags); /* 2: embedded, otherwise 1 */
4801 sv_catpv(sv, "{loc}");
4803 sv_catpv(sv, "{i}");
4804 Perl_sv_catpvf(aTHX_ sv, "[%s", PL_colors[0]);
4806 sv_catpv(sv, "^");
4814 put_byte(sv, rangestart);
4816 put_byte(sv, rangestart);
4817 sv_catpv(sv, "-");
4818 put_byte(sv, i - 1);
4827 sv_catpv(sv, anyofs[i]);
4830 sv_catpv(sv, "{unicode}");
4832 sv_catpv(sv, "{unicode_all}");
4854 put_byte(sv, *p);
4858 put_byte(sv, *p);
4859 sv_catpv(sv, "-");
4861 put_byte(sv, *p);
4867 sv_catpv(sv, "..."); /* et cetera */
4887 sv_catpv(sv, t);
4895 Perl_sv_catpvf(aTHX_ sv, "%s]", PL_colors[1]);
4898 Perl_sv_catpvf(aTHX_ sv, "[-%d]", o->flags);