Lines Matching refs:sv
3468 # define sv_setuv(sv, uv) \
3472 sv_setiv(sv, TeMpUv); \
3474 sv_setnv(sv, (double)TeMpUv); \
3481 # define sv_2uv(sv) ((PL_Sv = (sv)), (UV) (SvNOK(PL_Sv) ? SvNV(PL_Sv) : sv_2nv(PL_Sv)))
3485 # define SvUVX(sv) ((UV)SvIVX(sv))
3489 # define SvUVXx(sv) SvUVX(sv)
3493 # define SvUV(sv) (SvIOK(sv) ? SvUVX(sv) : sv_2uv(sv))
3497 # define SvUVx(sv) ((PL_Sv = (sv)), SvUV(PL_Sv))
3504 # define sv_uv(sv) SvUVx(sv)
3508 # define SvUOK(sv) SvIOK_UV(sv)
4043 SV* sv = newSVpv(p, 0);
4046 eval_sv(sv, G_SCALAR);
4047 SvREFCNT_dec(sv);
4050 sv = POPs;
4056 return sv;
4105 SV *sv;
4107 sv = va_arg(*args, SV*);
4108 while (sv) {
4109 imop = append_elem(OP_LIST, imop, newSVOP(OP_CONST, 0, sv));
4110 sv = va_arg(*args, SV*);
4162 # define newRV_inc(sv) newRV(sv) /* Replace */
4167 static SV * DPPP_(my_newRV_noinc)(SV *sv);
4170 extern SV * DPPP_(my_newRV_noinc)(SV *sv);
4181 DPPP_(my_newRV_noinc)(SV *sv)
4183 SV *rv = (SV *)newRV(sv);
4184 SvREFCNT_dec(sv);
4198 static void DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv);
4201 extern void DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv);
4213 DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv)
4237 newSTATEOP(0, Nullch, newSVOP(OP_CONST, 0, sv))
4386 # define SvREFCNT_inc(sv) \
4388 SV * const _sv = (SV*)(sv); \
4394 # define SvREFCNT_inc(sv) \
4395 ((PL_Sv=(SV*)(sv)) ? (++(SvREFCNT(PL_Sv)),PL_Sv) : NULL)
4401 # define SvREFCNT_inc_simple(sv) \
4403 if (sv) \
4404 (SvREFCNT(sv))++; \
4405 (SV *)(sv); \
4408 # define SvREFCNT_inc_simple(sv) \
4409 ((sv) ? (SvREFCNT(sv)++,(SV*)(sv)) : NULL)
4415 # define SvREFCNT_inc_NN(sv) \
4417 SV * const _sv = (SV*)(sv); \
4422 # define SvREFCNT_inc_NN(sv) \
4423 (PL_Sv=(SV*)(sv),++(SvREFCNT(PL_Sv)),PL_Sv)
4429 # define SvREFCNT_inc_void(sv) \
4431 SV * const _sv = (SV*)(sv); \
4436 # define SvREFCNT_inc_void(sv) \
4437 (void)((PL_Sv=(SV*)(sv)) ? ++(SvREFCNT(PL_Sv)) : 0)
4441 # define SvREFCNT_inc_simple_void(sv) STMT_START { if (sv) SvREFCNT(sv)++; } STMT_END
4445 # define SvREFCNT_inc_simple_NN(sv) (++SvREFCNT(sv), (SV*)(sv))
4449 # define SvREFCNT_inc_void_NN(sv) (void)(++SvREFCNT((SV*)(sv)))
4453 # define SvREFCNT_inc_simple_void_NN(sv) (void)(++SvREFCNT((SV*)(sv)))
4487 SV *sv = newSVpvn(s, len);
4488 SvFLAGS(sv) |= (flags & SVf_UTF8);
4489 return (flags & SVs_TEMP) ? sv_2mortal(sv) : sv;
4508 # define sv_2pv_nolen(sv) SvPV_nolen(sv)
4521 static char * DPPP_(my_sv_2pvbyte)(pTHX_ SV * sv, STRLEN * lp);
4524 extern char * DPPP_(my_sv_2pvbyte)(pTHX_ SV * sv, STRLEN * lp);
4536 DPPP_(my_sv_2pvbyte)(pTHX_ SV *sv, STRLEN *lp)
4538 sv_utf8_downgrade(sv,0);
4539 return SvPV(sv,*lp);
4550 #define SvPVbyte(sv, lp) \
4551 ((SvFLAGS(sv) & (SVf_POK|SVf_UTF8)) == (SVf_POK) \
4552 ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_2pvbyte(sv, &lp))
4563 # define sv_2pvbyte_nolen(sv) sv_2pv_nolen(sv)
4618 static char * DPPP_(my_sv_2pv_flags)(pTHX_ SV * sv, STRLEN * lp, I32 flags);
4621 extern char * DPPP_(my_sv_2pv_flags)(pTHX_ SV * sv, STRLEN * lp, I32 flags);
4633 DPPP_(my_sv_2pv_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags)
4636 return sv_2pv(sv, lp ? lp : &n_a);
4642 static char * DPPP_(my_sv_pvn_force_flags)(pTHX_ SV * sv, STRLEN * lp, I32 flags);
4645 extern char * DPPP_(my_sv_pvn_force_flags)(pTHX_ SV * sv, STRLEN * lp, I32 flags);
4657 DPPP_(my_sv_pvn_force_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags)
4660 return sv_pvn_force(sv, lp ? lp : &n_a);
4673 # define SvPV_const(sv, lp) SvPV_flags_const(sv, lp, SV_GMAGIC)
4677 # define SvPV_mutable(sv, lp) SvPV_flags_mutable(sv, lp, SV_GMAGIC)
4680 # define SvPV_flags(sv, lp, flags) \
4681 ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
4682 ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_2pv_flags(sv, &lp, flags))
4685 # define SvPV_flags_const(sv, lp, flags) \
4686 ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
4687 ? ((lp = SvCUR(sv)), SvPVX_const(sv)) : \
4688 (const char*) sv_2pv_flags(sv, &lp, flags|SV_CONST_RETURN))
4691 # define SvPV_flags_const_nolen(sv, flags) \
4692 ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
4693 ? SvPVX_const(sv) : \
4694 (const char*) sv_2pv_flags(sv, DPPP_SVPV_NOLEN_LP_ARG, flags|SV_CONST_RETURN))
4697 # define SvPV_flags_mutable(sv, lp, flags) \
4698 ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
4699 ? ((lp = SvCUR(sv)), SvPVX_mutable(sv)) : \
4700 sv_2pv_flags(sv, &lp, flags|SV_MUTABLE_RETURN))
4703 # define SvPV_force(sv, lp) SvPV_force_flags(sv, lp, SV_GMAGIC)
4707 # define SvPV_force_nolen(sv) SvPV_force_flags_nolen(sv, SV_GMAGIC)
4711 # define SvPV_force_mutable(sv, lp) SvPV_force_flags_mutable(sv, lp, SV_GMAGIC)
4715 # define SvPV_force_nomg(sv, lp) SvPV_force_flags(sv, lp, 0)
4719 # define SvPV_force_nomg_nolen(sv) SvPV_force_flags_nolen(sv, 0)
4722 # define SvPV_force_flags(sv, lp, flags) \
4723 ((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) == SVf_POK \
4724 ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_pvn_force_flags(sv, &lp, flags))
4727 # define SvPV_force_flags_nolen(sv, flags) \
4728 ((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) == SVf_POK \
4729 ? SvPVX(sv) : sv_pvn_force_flags(sv, DPPP_SVPV_NOLEN_LP_ARG, flags))
4732 # define SvPV_force_flags_mutable(sv, lp, flags) \
4733 ((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) == SVf_POK \
4734 ? ((lp = SvCUR(sv)), SvPVX_mutable(sv)) \
4735 : sv_pvn_force_flags(sv, &lp, flags|SV_MUTABLE_RETURN))
4738 # define SvPV_nolen(sv) \
4739 ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
4740 ? SvPVX(sv) : sv_2pv_flags(sv, DPPP_SVPV_NOLEN_LP_ARG, SV_GMAGIC))
4743 # define SvPV_nolen_const(sv) \
4744 ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
4745 ? SvPVX_const(sv) : sv_2pv_flags(sv, DPPP_SVPV_NOLEN_LP_ARG, SV_GMAGIC|SV_CONST_RETURN))
4748 # define SvPV_nomg(sv, lp) SvPV_flags(sv, lp, 0)
4752 # define SvPV_nomg_const(sv, lp) SvPV_flags_const(sv, lp, 0)
4756 # define SvPV_nomg_const_nolen(sv) SvPV_flags_const_nolen(sv, 0)
4759 # define SvMAGIC_set(sv, val) \
4760 STMT_START { assert(SvTYPE(sv) >= SVt_PVMG); \
4761 (((XPVMG*) SvANY(sv))->xmg_magic = (val)); } STMT_END
4766 # define SvPVX_const(sv) ((const char*) (0 + SvPVX(sv)))
4770 # define SvPVX_mutable(sv) (0 + SvPVX(sv))
4773 # define SvRV_set(sv, val) \
4774 STMT_START { assert(SvTYPE(sv) >= SVt_RV); \
4775 (((XRV*) SvANY(sv))->xrv_rv = (val)); } STMT_END
4780 # define SvPVX_const(sv) ((const char*)((sv)->sv_u.svu_pv))
4784 # define SvPVX_mutable(sv) ((sv)->sv_u.svu_pv)
4787 # define SvRV_set(sv, val) \
4788 STMT_START { assert(SvTYPE(sv) >= SVt_RV); \
4789 ((sv)->sv_u.svu_rv = (val)); } STMT_END
4794 # define SvSTASH_set(sv, val) \
4795 STMT_START { assert(SvTYPE(sv) >= SVt_PVMG); \
4796 (((XPVMG*) SvANY(sv))->xmg_stash = (val)); } STMT_END
4801 # define SvUV_set(sv, val) \
4802 STMT_START { assert(SvTYPE(sv) == SVt_IV || SvTYPE(sv) >= SVt_PVIV); \
4803 (((XPVIV*) SvANY(sv))->xiv_iv = (IV) (val)); } STMT_END
4808 # define SvUV_set(sv, val) \
4809 STMT_START { assert(SvTYPE(sv) == SVt_IV || SvTYPE(sv) >= SVt_PVIV); \
4810 (((XPVUV*) SvANY(sv))->xuv_uv = (val)); } STMT_END
4834 register SV *sv = newSV(0);
4835 sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*));
4836 return sv;
4843 # define sv_vcatpvf(sv, pat, args) sv_vcatpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*))
4847 # define sv_vsetpvf(sv, pat, args) sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*))
4852 static void DPPP_(my_sv_catpvf_mg)(pTHX_ SV * sv, const char * pat, ...);
4855 extern void DPPP_(my_sv_catpvf_mg)(pTHX_ SV * sv, const char * pat, ...);
4863 DPPP_(my_sv_catpvf_mg)(pTHX_ SV *sv, const char *pat, ...)
4867 sv_vcatpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
4868 SvSETMAGIC(sv);
4878 static void DPPP_(my_sv_catpvf_mg_nocontext)(SV * sv, const char * pat, ...);
4881 extern void DPPP_(my_sv_catpvf_mg_nocontext)(SV * sv, const char * pat, ...);
4890 DPPP_(my_sv_catpvf_mg_nocontext)(SV *sv, const char *pat, ...)
4895 sv_vcatpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
4896 SvSETMAGIC(sv);
4914 # define sv_vcatpvf_mg(sv, pat, args) \
4916 sv_vcatpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*)); \
4917 SvSETMAGIC(sv); \
4923 static void DPPP_(my_sv_setpvf_mg)(pTHX_ SV * sv, const char * pat, ...);
4926 extern void DPPP_(my_sv_setpvf_mg)(pTHX_ SV * sv, const char * pat, ...);
4934 DPPP_(my_sv_setpvf_mg)(pTHX_ SV *sv, const char *pat, ...)
4938 sv_vsetpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
4939 SvSETMAGIC(sv);
4949 static void DPPP_(my_sv_setpvf_mg_nocontext)(SV * sv, const char * pat, ...);
4952 extern void DPPP_(my_sv_setpvf_mg_nocontext)(SV * sv, const char * pat, ...);
4961 DPPP_(my_sv_setpvf_mg_nocontext)(SV *sv, const char *pat, ...)
4966 sv_vsetpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
4967 SvSETMAGIC(sv);
4985 # define sv_vsetpvf_mg(sv, pat, args) \
4987 sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*)); \
4988 SvSETMAGIC(sv); \
5012 SV *sv;
5017 sv = newSVpvn((char *) src, len);
5018 sv_upgrade(sv, SVt_PVIV);
5019 SvIVX(sv) = hash;
5020 SvREADONLY_on(sv);
5021 SvPOK_on(sv);
5022 return sv;
5029 # define SvSHARED_HASH(sv) (0 + SvUVX(sv))
5245 SV *sv;
5251 sv = vnewSVpvf(pat, &args);
5253 sv_2mortal(sv);
5254 warn("%s", SvPV_nolen(sv));
5280 # define sv_catpvs(sv, str) sv_catpvn(sv, str "", sizeof(str) - 1)
5284 # define sv_setpvs(sv, str) sv_setpvn(sv, str "", sizeof(str) - 1)
5479 # define sv_catpv_mg(sv, ptr) \
5481 SV *TeMpSv = sv; \
5488 # define sv_catpvn_mg(sv, ptr, len) \
5490 SV *TeMpSv = sv; \
5506 # define sv_setiv_mg(sv, i) \
5508 SV *TeMpSv = sv; \
5515 # define sv_setnv_mg(sv, num) \
5517 SV *TeMpSv = sv; \
5524 # define sv_setpv_mg(sv, ptr) \
5526 SV *TeMpSv = sv; \
5533 # define sv_setpvn_mg(sv, ptr, len) \
5535 SV *TeMpSv = sv; \
5551 # define sv_setuv_mg(sv, i) \
5553 SV *TeMpSv = sv; \
5560 # define sv_usepvn_mg(sv, ptr, len) \
5562 SV *TeMpSv = sv; \
5568 # define SvVSTRING_mg(sv) (SvMAGICAL(sv) ? mg_find(sv, PERL_MAGIC_vstring) : NULL)
5587 # define sv_magic_portable(sv, obj, how, name, namlen) \
5589 SV *SvMp_sv = (sv); \