Lines Matching refs:sv
3461 # define sv_setuv(sv, uv) \
3465 sv_setiv(sv, TeMpUv); \
3467 sv_setnv(sv, (double)TeMpUv); \
3474 # define sv_2uv(sv) ((PL_Sv = (sv)), (UV) (SvNOK(PL_Sv) ? SvNV(PL_Sv) : sv_2nv(PL_Sv)))
3478 # define SvUVX(sv) ((UV)SvIVX(sv))
3482 # define SvUVXx(sv) SvUVX(sv)
3486 # define SvUV(sv) (SvIOK(sv) ? SvUVX(sv) : sv_2uv(sv))
3490 # define SvUVx(sv) ((PL_Sv = (sv)), SvUV(PL_Sv))
3497 # define sv_uv(sv) SvUVx(sv)
3501 # define SvUOK(sv) SvIOK_UV(sv)
4033 SV* sv = newSVpv(p, 0);
4036 eval_sv(sv, G_SCALAR);
4037 SvREFCNT_dec(sv);
4040 sv = POPs;
4046 return sv;
4095 SV *sv;
4097 sv = va_arg(*args, SV*);
4098 while (sv) {
4099 imop = append_elem(OP_LIST, imop, newSVOP(OP_CONST, 0, sv));
4100 sv = va_arg(*args, SV*);
4152 # define newRV_inc(sv) newRV(sv) /* Replace */
4157 static SV * DPPP_(my_newRV_noinc)(SV *sv);
4160 extern SV * DPPP_(my_newRV_noinc)(SV *sv);
4171 DPPP_(my_newRV_noinc)(SV *sv)
4173 SV *rv = (SV *)newRV(sv);
4174 SvREFCNT_dec(sv);
4188 static void DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv);
4191 extern void DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv);
4203 DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv)
4227 newSTATEOP(0, Nullch, newSVOP(OP_CONST, 0, sv))
4375 # define SvREFCNT_inc(sv) \
4377 SV * const _sv = (SV*)(sv); \
4383 # define SvREFCNT_inc(sv) \
4384 ((PL_Sv=(SV*)(sv)) ? (++(SvREFCNT(PL_Sv)),PL_Sv) : NULL)
4390 # define SvREFCNT_inc_simple(sv) \
4392 if (sv) \
4393 (SvREFCNT(sv))++; \
4394 (SV *)(sv); \
4397 # define SvREFCNT_inc_simple(sv) \
4398 ((sv) ? (SvREFCNT(sv)++,(SV*)(sv)) : NULL)
4404 # define SvREFCNT_inc_NN(sv) \
4406 SV * const _sv = (SV*)(sv); \
4411 # define SvREFCNT_inc_NN(sv) \
4412 (PL_Sv=(SV*)(sv),++(SvREFCNT(PL_Sv)),PL_Sv)
4418 # define SvREFCNT_inc_void(sv) \
4420 SV * const _sv = (SV*)(sv); \
4425 # define SvREFCNT_inc_void(sv) \
4426 (void)((PL_Sv=(SV*)(sv)) ? ++(SvREFCNT(PL_Sv)) : 0)
4430 # define SvREFCNT_inc_simple_void(sv) STMT_START { if (sv) SvREFCNT(sv)++; } STMT_END
4434 # define SvREFCNT_inc_simple_NN(sv) (++SvREFCNT(sv), (SV*)(sv))
4438 # define SvREFCNT_inc_void_NN(sv) (void)(++SvREFCNT((SV*)(sv)))
4442 # define SvREFCNT_inc_simple_void_NN(sv) (void)(++SvREFCNT((SV*)(sv)))
4457 # define sv_2pv_nolen(sv) SvPV_nolen(sv)
4470 static char * DPPP_(my_sv_2pvbyte)(pTHX_ SV * sv, STRLEN * lp);
4473 extern char * DPPP_(my_sv_2pvbyte)(pTHX_ SV * sv, STRLEN * lp);
4485 DPPP_(my_sv_2pvbyte)(pTHX_ SV *sv, STRLEN *lp)
4487 sv_utf8_downgrade(sv,0);
4488 return SvPV(sv,*lp);
4499 #define SvPVbyte(sv, lp) \
4500 ((SvFLAGS(sv) & (SVf_POK|SVf_UTF8)) == (SVf_POK) \
4501 ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_2pvbyte(sv, &lp))
4512 # define sv_2pvbyte_nolen(sv) sv_2pv_nolen(sv)
4567 static char * DPPP_(my_sv_2pv_flags)(pTHX_ SV * sv, STRLEN * lp, I32 flags);
4570 extern char * DPPP_(my_sv_2pv_flags)(pTHX_ SV * sv, STRLEN * lp, I32 flags);
4582 DPPP_(my_sv_2pv_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags)
4585 return sv_2pv(sv, lp ? lp : &n_a);
4591 static char * DPPP_(my_sv_pvn_force_flags)(pTHX_ SV * sv, STRLEN * lp, I32 flags);
4594 extern char * DPPP_(my_sv_pvn_force_flags)(pTHX_ SV * sv, STRLEN * lp, I32 flags);
4606 DPPP_(my_sv_pvn_force_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags)
4609 return sv_pvn_force(sv, lp ? lp : &n_a);
4616 # define SvPV_const(sv, lp) SvPV_flags_const(sv, lp, SV_GMAGIC)
4620 # define SvPV_mutable(sv, lp) SvPV_flags_mutable(sv, lp, SV_GMAGIC)
4623 # define SvPV_flags(sv, lp, flags) \
4624 ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
4625 ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_2pv_flags(sv, &lp, flags))
4628 # define SvPV_flags_const(sv, lp, flags) \
4629 ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
4630 ? ((lp = SvCUR(sv)), SvPVX_const(sv)) : \
4631 (const char*) sv_2pv_flags(sv, &lp, flags|SV_CONST_RETURN))
4634 # define SvPV_flags_const_nolen(sv, flags) \
4635 ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
4636 ? SvPVX_const(sv) : \
4637 (const char*) sv_2pv_flags(sv, 0, flags|SV_CONST_RETURN))
4640 # define SvPV_flags_mutable(sv, lp, flags) \
4641 ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
4642 ? ((lp = SvCUR(sv)), SvPVX_mutable(sv)) : \
4643 sv_2pv_flags(sv, &lp, flags|SV_MUTABLE_RETURN))
4646 # define SvPV_force(sv, lp) SvPV_force_flags(sv, lp, SV_GMAGIC)
4650 # define SvPV_force_nolen(sv) SvPV_force_flags_nolen(sv, SV_GMAGIC)
4654 # define SvPV_force_mutable(sv, lp) SvPV_force_flags_mutable(sv, lp, SV_GMAGIC)
4658 # define SvPV_force_nomg(sv, lp) SvPV_force_flags(sv, lp, 0)
4662 # define SvPV_force_nomg_nolen(sv) SvPV_force_flags_nolen(sv, 0)
4665 # define SvPV_force_flags(sv, lp, flags) \
4666 ((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) == SVf_POK \
4667 ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_pvn_force_flags(sv, &lp, flags))
4670 # define SvPV_force_flags_nolen(sv, flags) \
4671 ((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) == SVf_POK \
4672 ? SvPVX(sv) : sv_pvn_force_flags(sv, 0, flags))
4675 # define SvPV_force_flags_mutable(sv, lp, flags) \
4676 ((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) == SVf_POK \
4677 ? ((lp = SvCUR(sv)), SvPVX_mutable(sv)) \
4678 : sv_pvn_force_flags(sv, &lp, flags|SV_MUTABLE_RETURN))
4681 # define SvPV_nolen(sv) \
4682 ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
4683 ? SvPVX(sv) : sv_2pv_flags(sv, 0, SV_GMAGIC))
4686 # define SvPV_nolen_const(sv) \
4687 ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
4688 ? SvPVX_const(sv) : sv_2pv_flags(sv, 0, SV_GMAGIC|SV_CONST_RETURN))
4691 # define SvPV_nomg(sv, lp) SvPV_flags(sv, lp, 0)
4695 # define SvPV_nomg_const(sv, lp) SvPV_flags_const(sv, lp, 0)
4699 # define SvPV_nomg_const_nolen(sv) SvPV_flags_const_nolen(sv, 0)
4702 # define SvMAGIC_set(sv, val) \
4703 STMT_START { assert(SvTYPE(sv) >= SVt_PVMG); \
4704 (((XPVMG*) SvANY(sv))->xmg_magic = (val)); } STMT_END
4709 # define SvPVX_const(sv) ((const char*) (0 + SvPVX(sv)))
4713 # define SvPVX_mutable(sv) (0 + SvPVX(sv))
4716 # define SvRV_set(sv, val) \
4717 STMT_START { assert(SvTYPE(sv) >= SVt_RV); \
4718 (((XRV*) SvANY(sv))->xrv_rv = (val)); } STMT_END
4723 # define SvPVX_const(sv) ((const char*)((sv)->sv_u.svu_pv))
4727 # define SvPVX_mutable(sv) ((sv)->sv_u.svu_pv)
4730 # define SvRV_set(sv, val) \
4731 STMT_START { assert(SvTYPE(sv) >= SVt_RV); \
4732 ((sv)->sv_u.svu_rv = (val)); } STMT_END
4737 # define SvSTASH_set(sv, val) \
4738 STMT_START { assert(SvTYPE(sv) >= SVt_PVMG); \
4739 (((XPVMG*) SvANY(sv))->xmg_stash = (val)); } STMT_END
4744 # define SvUV_set(sv, val) \
4745 STMT_START { assert(SvTYPE(sv) == SVt_IV || SvTYPE(sv) >= SVt_PVIV); \
4746 (((XPVIV*) SvANY(sv))->xiv_iv = (IV) (val)); } STMT_END
4751 # define SvUV_set(sv, val) \
4752 STMT_START { assert(SvTYPE(sv) == SVt_IV || SvTYPE(sv) >= SVt_PVIV); \
4753 (((XPVUV*) SvANY(sv))->xuv_uv = (val)); } STMT_END
4777 register SV *sv = newSV(0);
4778 sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*));
4779 return sv;
4786 # define sv_vcatpvf(sv, pat, args) sv_vcatpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*))
4790 # define sv_vsetpvf(sv, pat, args) sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*))
4795 static void DPPP_(my_sv_catpvf_mg)(pTHX_ SV * sv, const char * pat, ...);
4798 extern void DPPP_(my_sv_catpvf_mg)(pTHX_ SV * sv, const char * pat, ...);
4806 DPPP_(my_sv_catpvf_mg)(pTHX_ SV *sv, const char *pat, ...)
4810 sv_vcatpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
4811 SvSETMAGIC(sv);
4821 static void DPPP_(my_sv_catpvf_mg_nocontext)(SV * sv, const char * pat, ...);
4824 extern void DPPP_(my_sv_catpvf_mg_nocontext)(SV * sv, const char * pat, ...);
4833 DPPP_(my_sv_catpvf_mg_nocontext)(SV *sv, const char *pat, ...)
4838 sv_vcatpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
4839 SvSETMAGIC(sv);
4857 # define sv_vcatpvf_mg(sv, pat, args) \
4859 sv_vcatpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*)); \
4860 SvSETMAGIC(sv); \
4866 static void DPPP_(my_sv_setpvf_mg)(pTHX_ SV * sv, const char * pat, ...);
4869 extern void DPPP_(my_sv_setpvf_mg)(pTHX_ SV * sv, const char * pat, ...);
4877 DPPP_(my_sv_setpvf_mg)(pTHX_ SV *sv, const char *pat, ...)
4881 sv_vsetpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
4882 SvSETMAGIC(sv);
4892 static void DPPP_(my_sv_setpvf_mg_nocontext)(SV * sv, const char * pat, ...);
4895 extern void DPPP_(my_sv_setpvf_mg_nocontext)(SV * sv, const char * pat, ...);
4904 DPPP_(my_sv_setpvf_mg_nocontext)(SV *sv, const char *pat, ...)
4909 sv_vsetpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
4910 SvSETMAGIC(sv);
4928 # define sv_vsetpvf_mg(sv, pat, args) \
4930 sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*)); \
4931 SvSETMAGIC(sv); \
4955 SV *sv;
4960 sv = newSVpvn((char *) src, len);
4961 sv_upgrade(sv, SVt_PVIV);
4962 SvIVX(sv) = hash;
4963 SvREADONLY_on(sv);
4964 SvPOK_on(sv);
4965 return sv;
4972 # define SvSHARED_HASH(sv) (0 + SvUVX(sv))
5188 SV *sv;
5194 sv = vnewSVpvf(pat, &args);
5196 sv_2mortal(sv);
5197 warn("%s", SvPV_nolen(sv));
5219 # define sv_catpvs(sv, str) sv_catpvn(sv, str "", sizeof(str) - 1)
5223 # define sv_setpvs(sv, str) sv_setpvn(sv, str "", sizeof(str) - 1)
5418 # define sv_catpv_mg(sv, ptr) \
5420 SV *TeMpSv = sv; \
5427 # define sv_catpvn_mg(sv, ptr, len) \
5429 SV *TeMpSv = sv; \
5445 # define sv_setiv_mg(sv, i) \
5447 SV *TeMpSv = sv; \
5454 # define sv_setnv_mg(sv, num) \
5456 SV *TeMpSv = sv; \
5463 # define sv_setpv_mg(sv, ptr) \
5465 SV *TeMpSv = sv; \
5472 # define sv_setpvn_mg(sv, ptr, len) \
5474 SV *TeMpSv = sv; \
5490 # define sv_setuv_mg(sv, i) \
5492 SV *TeMpSv = sv; \
5499 # define sv_usepvn_mg(sv, ptr, len) \
5501 SV *TeMpSv = sv; \
5507 # define SvVSTRING_mg(sv) (SvMAGICAL(sv) ? mg_find(sv, PERL_MAGIC_vstring) : NULL)
5526 # define sv_magic_portable(sv, obj, how, name, namlen) \
5528 SV *SvMp_sv = (sv); \