Lines Matching defs:sv
61 SV* sv;
63 if (svp && (sv = *svp) != (SV*)&PL_sv_undef) {
66 return sv;
100 SV* sv = *svp++;
101 HV* basestash = gv_stashsv(sv, FALSE);
106 sv, HvNAME(stash));
134 Perl_sv_derived_from(pTHX_ SV *sv, const char *name)
143 if (SvGMAGICAL(sv))
144 mg_get(sv) ;
146 if (SvROK(sv)) {
147 sv = SvRV(sv);
148 type = sv_reftype(sv,0);
149 if (SvOBJECT(sv))
150 stash = SvSTASH(sv);
153 stash = gv_stashsv(sv, FALSE);
219 SV *sv;
226 sv = ST(0);
228 if (SvGMAGICAL(sv))
229 mg_get(sv);
231 if (!SvOK(sv) || !(SvROK(sv) || (SvPOK(sv) && SvCUR(sv))
232 || (SvGMAGICAL(sv) && SvPOKp(sv) && SvCUR(sv))))
237 ST(0) = boolSV(sv_derived_from(sv, name));
244 SV *sv;
253 sv = ST(0);
255 if (SvGMAGICAL(sv))
256 mg_get(sv);
258 if (!SvOK(sv) || !(SvROK(sv) || (SvPOK(sv) && SvCUR(sv))
259 || (SvGMAGICAL(sv) && SvPOKp(sv) && SvCUR(sv))))
265 if (SvROK(sv)) {
266 sv = (SV*)SvRV(sv);
267 if (SvOBJECT(sv))
268 pkg = SvSTASH(sv);
271 pkg = gv_stashsv(sv, FALSE);
290 SV *sv;
294 sv = (SV*)SvRV(ST(0));
295 if (!SvOBJECT(sv))
297 pkg = SvSTASH(sv);
305 if (gvp && isGV(gv = *gvp) && SvOK(sv = GvSV(gv))) {
307 sv_setsv(nsv, sv);
308 sv = nsv;
312 sv = (SV*)&PL_sv_undef;
332 if (!SvNIOK(sv) && SvPOK(sv)) {
333 char *str = SvPVx(sv,len);
344 if (sv_cmp(req,sv) == 1) {
347 HvNAME(pkg), req, sv);
353 (void)SvUPGRADE(sv, SVt_PVNV);
354 SvNVX(sv) = str_to_version(sv);
355 SvPOK_off(sv);
356 SvNOK_on(sv);
368 if (SvNV(req) > SvNV(sv))
370 HvNAME(pkg), SvPV_nolen(req), SvPV_nolen(sv));
374 ST(0) = sv;
383 Perl_croak(aTHX_ "Usage: utf8::is_utf8(sv)");
385 SV * sv = ST(0);
387 if (SvUTF8(sv))
400 Perl_croak(aTHX_ "Usage: utf8::valid(sv)");
402 SV * sv = ST(0);
405 char *s = SvPV(sv,len);
406 if (!SvUTF8(sv) || is_utf8_string((U8*)s,len))
419 Perl_croak(aTHX_ "Usage: utf8::encode(sv)");
421 SV * sv = ST(0);
423 sv_utf8_encode(sv);
432 Perl_croak(aTHX_ "Usage: utf8::decode(sv)");
434 SV * sv = ST(0);
437 RETVAL = sv_utf8_decode(sv);
448 Perl_croak(aTHX_ "Usage: utf8::upgrade(sv)");
450 SV * sv = ST(0);
454 RETVAL = sv_utf8_upgrade(sv);
464 Perl_croak(aTHX_ "Usage: utf8::downgrade(sv, failok=0)");
466 SV * sv = ST(0);
476 RETVAL = sv_utf8_downgrade(sv, failok);
489 Perl_croak(aTHX_ "Usage: utf8::native_to_unicode(sv)");
501 Perl_croak(aTHX_ "Usage: utf8::unicode_to_native(sv)");
510 SV *sv = SvRV(ST(0));
512 if (SvREADONLY(sv))
519 SvREADONLY_on(sv);
524 SvREADONLY_off(sv);
534 SV *sv = SvRV(ST(0));
536 XSRETURN_IV(SvREFCNT(sv) - 1); /* Minus the ref created for us. */
539 SvREFCNT(sv) = SvIV(ST(1));
540 XSRETURN_IV(SvREFCNT(sv));
567 SV * sv;
612 sv = POPs;
613 gv = (GV*)sv;
615 if (!isGV(sv)) {
616 if (SvROK(sv) && isGV(SvRV(sv)))
617 gv = (GV*)SvRV(sv);
619 gv = gv_fetchpv(SvPVX(sv), FALSE, SVt_PVIO);