Lines Matching refs:TARG
56 PUSHs(TARG);
61 PUSHs(TARG);
66 I32 maxarg = AvFILL((AV*)TARG) + 1;
68 if (SvMAGICAL(TARG)) {
71 SV **svp = av_fetch((AV*)TARG, i, FALSE);
76 Copy(AvARRAY((AV*)TARG), SP+1, maxarg, SV*);
82 I32 maxarg = AvFILL((AV*)TARG) + 1;
94 XPUSHs(TARG);
109 SV* sv = Perl_hv_scalar(aTHX_ (HV*)TARG);
305 if (SvTYPE(TARG) < SVt_PVLV) {
306 sv_upgrade(TARG, SVt_PVLV);
307 sv_magic(TARG, Nullsv, PERL_MAGIC_pos, Nullch, 0);
310 LvTYPE(TARG) = '.';
311 if (LvTARG(TARG) != sv) {
312 if (LvTARG(TARG))
313 SvREFCNT_dec(LvTARG(TARG));
314 LvTARG(TARG) = SvREFCNT_inc(sv);
316 PUSHs(TARG); /* no SvSETMAGIC */
689 TARG = sv_newmortal();
699 do_chop(TARG, TOPs);
708 do_chop(TARG, *++MARK);
853 sv_setsv(TARG, TOPs);
864 if (!SvOK(TARG))
865 sv_setiv(TARG, 0);
866 SETs(TARG);
875 sv_setsv(TARG, TOPs);
885 SETs(TARG);
1358 sv_setnv(TARG, dans);
1373 sv_setiv(TARG, ~ans+1);
1375 sv_setnv(TARG, -(NV)ans);
1378 sv_setuv(TARG, ans);
1447 SvSetSV(TARG, tmpstr);
1448 SvPV_force(TARG, len);
1449 isutf = DO_UTF8(TARG);
1452 SvCUR_set(TARG, 0);
1455 SvGROW(TARG, (count * len) + 1);
1456 repeatcpy(SvPVX(TARG) + len, SvPVX(TARG), len, count - 1);
1457 SvCUR(TARG) *= count;
1459 *SvEND(TARG) = '\0';
1462 (void)SvPOK_only_UTF8(TARG);
1464 (void)SvPOK_only(TARG);
2224 do_vop(PL_op->op_type, TARG, left, right);
2247 do_vop(PL_op->op_type, TARG, left, right);
2270 do_vop(PL_op->op_type, TARG, left, right);
2316 sv_setpvn(TARG, "-", 1);
2317 sv_catsv(TARG, sv);
2320 sv_setsv(TARG, sv);
2321 *SvPV_force(TARG, len) = *s == '-' ? '+' : '-';
2328 sv_setnv(TARG, -SvNV(sv));
2330 sv_setpvn(TARG, "-", 1);
2331 sv_catsv(TARG, sv);
2338 sv_setnv(TARG, -SvNV(sv));
2376 SvSetSV(TARG, sv);
2377 tmps = (U8*)SvPV_force(TARG, len);
2379 if (SvUTF8(TARG)) {
2410 sv_setpvn(TARG, (char*)result, targlen);
2411 SvUTF8_on(TARG);
2422 sv_setpvn(TARG, (char*)result, nchar);
2423 SvUTF8_off(TARG);
2426 SETs(TARG);
2443 SETs(TARG);
2960 SvTAINTED_off(TARG); /* decontaminate */
2961 SvUTF8_off(TARG); /* decontaminate */
3038 /* we either return a PV or an LV. If the TARG hasn't been used
3042 if (SvTYPE(TARG) > SVt_NULL) {
3043 if ( (SvTYPE(TARG) == SVt_PVLV)
3044 ? (!lvalue || SvREFCNT(TARG) > 1)
3047 TARG = sv_newmortal();
3051 sv_setpvn(TARG, tmps, rem);
3053 sv_unmagic(TARG, PERL_MAGIC_collxfrm);
3056 SvUTF8_on(TARG);
3087 if (SvTYPE(TARG) < SVt_PVLV) {
3088 sv_upgrade(TARG, SVt_PVLV);
3089 sv_magic(TARG, Nullsv, PERL_MAGIC_substr, Nullch, 0);
3092 (void)SvOK_off(TARG);
3094 LvTYPE(TARG) = 'x';
3095 if (LvTARG(TARG) != sv) {
3096 if (LvTARG(TARG))
3097 SvREFCNT_dec(LvTARG(TARG));
3098 LvTARG(TARG) = SvREFCNT_inc(sv);
3100 LvTARGOFF(TARG) = upos;
3101 LvTARGLEN(TARG) = urem;
3105 PUSHs(TARG); /* avoid SvSETMAGIC here */
3117 SvTAINTED_off(TARG); /* decontaminate */
3119 if (SvREFCNT(TARG) > 1) /* don't share the TARG (#20933) */
3120 TARG = sv_newmortal();
3121 if (SvTYPE(TARG) < SVt_PVLV) {
3122 sv_upgrade(TARG, SVt_PVLV);
3123 sv_magic(TARG, Nullsv, PERL_MAGIC_vec, Nullch, 0);
3125 LvTYPE(TARG) = 'v';
3126 if (LvTARG(TARG) != src) {
3127 if (LvTARG(TARG))
3128 SvREFCNT_dec(LvTARG(TARG));
3129 LvTARG(TARG) = SvREFCNT_inc(src);
3131 LvTARGOFF(TARG) = offset;
3132 LvTARGLEN(TARG) = size;
3135 sv_setuv(TARG, do_vecget(src, offset, size));
3136 PUSHs(TARG);
3220 do_sprintf(TARG, SP-MARK, MARK+1);
3221 TAINT_IF(SvTAINTED(TARG));
3223 SvUTF8_on(TARG);
3256 (void)SvUPGRADE(TARG,SVt_PV);
3259 SvGROW(TARG, (STRLEN)UNISKIP(value)+1);
3260 tmps = (char*)uvchr_to_utf8_flags((U8*)SvPVX(TARG), value, 0);
3261 SvCUR_set(TARG, tmps - SvPVX(TARG));
3263 (void)SvPOK_only(TARG);
3264 SvUTF8_on(TARG);
3265 XPUSHs(TARG);
3269 SvGROW(TARG,2);
3270 SvCUR_set(TARG, 1);
3271 tmps = SvPVX(TARG);
3274 (void)SvPOK_only(TARG);
3276 sv_recode_to_utf8(TARG, PL_encoding);
3277 tmps = SvPVX(TARG);
3278 if (SvCUR(TARG) == 0 || !is_utf8_string((U8*)tmps, SvCUR(TARG)) ||
3280 SvGROW(TARG, 3);
3281 tmps = SvPVX(TARG);
3282 SvCUR_set(TARG, 2);
3286 SvUTF8_on(TARG);
3289 XPUSHs(TARG);
3331 sv_setpv(TARG, fcrypt(tmps, SvPV(right, n_a)));
3333 sv_setpv(TARG, PerlProc_crypt(tmps, SvPV(right, n_a)));
3335 SETs(TARG);
3371 sv_setpvn(TARG, (char*)tmpbuf, tculen);
3373 sv_catpvn(TARG, (char*)(s + ulen), slen - ulen);
3374 SvUTF8_on(TARG);
3375 SETs(TARG);
3385 SvUTF8_off(TARG); /* decontaminate */
3386 sv_setsv_nomg(TARG, sv);
3387 sv = TARG;
3427 sv_setpvn(TARG, (char*)tmpbuf, tend - tmpbuf);
3429 sv_catpvn(TARG, (char*)(s + ulen), slen - ulen);
3430 SvUTF8_on(TARG);
3431 SETs(TARG);
3441 SvUTF8_off(TARG); /* decontaminate */
3442 sv_setsv_nomg(TARG, sv);
3443 sv = TARG;
3478 SvUTF8_off(TARG); /* decontaminate */
3479 sv_setpvn(TARG, "", 0);
3480 SETs(TARG);
3485 (void)SvUPGRADE(TARG, SVt_PV);
3486 SvGROW(TARG, (nchar * UTF8_MAXLEN_UCLC) + 1);
3487 (void)SvPOK_only(TARG);
3488 d = (U8*)SvPVX(TARG);
3497 SvUTF8_on(TARG);
3498 SvCUR_set(TARG, d - (U8*)SvPVX(TARG));
3499 SETs(TARG);
3505 SvUTF8_off(TARG); /* decontaminate */
3506 sv_setsv_nomg(TARG, sv);
3507 sv = TARG;
3547 SvUTF8_off(TARG); /* decontaminate */
3548 sv_setpvn(TARG, "", 0);
3549 SETs(TARG);
3554 (void)SvUPGRADE(TARG, SVt_PV);
3555 SvGROW(TARG, (nchar * UTF8_MAXLEN_UCLC) + 1);
3556 (void)SvPOK_only(TARG);
3557 d = (U8*)SvPVX(TARG);
3583 SvUTF8_on(TARG);
3584 SvCUR_set(TARG, d - (U8*)SvPVX(TARG));
3585 SETs(TARG);
3591 SvUTF8_off(TARG); /* decontaminate */
3592 sv_setsv_nomg(TARG, sv);
3593 sv = TARG;
3625 SvUTF8_off(TARG); /* decontaminate */
3627 (void)SvUPGRADE(TARG, SVt_PV);
3628 SvGROW(TARG, (len * 2) + 1);
3629 d = SvPVX(TARG);
3647 SvUTF8_on(TARG);
3657 SvCUR_set(TARG, d - SvPVX(TARG));
3658 (void)SvPOK_only_UTF8(TARG);
3661 sv_setpvn(TARG, s, len);
3662 SETs(TARG);
3663 if (SvSMAGICAL(TARG))
3664 mg_set(TARG);
4345 SvUTF8_off(TARG); /* decontaminate */
4347 do_join(TARG, &PL_sv_no, MARK, SP);
4349 sv_setsv(TARG, (SP > MARK) ? *SP : DEFSV);
4350 up = SvPV_force(TARG, len);
4352 if (DO_UTF8(TARG)) { /* first reverse each character */
4353 U8* s = (U8*)SvPVX(TARG);
4374 up = SvPVX(TARG);
4376 down = SvPVX(TARG) + len - 1;
4382 (void)SvPOK_only_UTF8(TARG);