cpan/Encode/Encode.xs

61 utf8_safe_downgrade(pTHX_ SV ** src, U8 ** s, STRLEN * slen, bool modify)
64         SV *tmp = sv_2mortal(newSVpvn((char *)*s, *slen));
71     if (*slen) {
72         if (!utf8_to_bytes(*s, slen))
74         SvCUR_set(*src, *slen);
80 utf8_safe_upgrade(pTHX_ SV ** src, U8 ** s, STRLEN * slen, bool modify)
83         SV *tmp = sv_2mortal(newSVpvn((char *)*s, *slen));
89     *s = (U8 *)SvPV_nomg(*src, *slen);
121 do_bytes_fallback_cb(pTHX_ U8 *s, STRLEN slen, SV *fallback_cb)
130     for (i=0; i<slen; ++i)
147 encode_method(pTHX_ const encode_t * enc, const encpage_t * dir, SV * src, U8 * s, STRLEN slen,
152     STRLEN tlen  = slen;
155     /* We allocate slen+1.
157     SV *dst = sv_2mortal(newSV(slen+1));
168       if (slen > *offset){ /* safeguard against slen overflow */
169           slen -= *offset;
171           slen = 0;
173       tlen = slen;
176     if (slen == 0){
182     while( (code = do_encode(dir, s, &slen, d, dlen, &dlen, !check,
197             sdone += slen;
224             s   += slen;
225             slen = tlen-sdone;
234             utf8n_to_uvchr(s+slen, (tlen-sdone-slen),
237         if (clen > tlen - sdone - slen) break;
264             sdone += slen + clen;
270             sdone += slen + clen;
279                               enc->name[0], (UV)s[slen]);
286                	        enc->name[0], (UV)s[slen]);
297 		? do_fallback_cb(aTHX_ (UV)s[slen], fallback_cb)
298 		: newSVpvf("\\x%02" UVXf, (UV)s[slen]);
300             sdone += slen + 1;
305             sdone += slen + 1;
314         slen = tlen - sdone;
326         sdone = tlen - (slen+sdone);
327         sv_setpvn(src, (char*)s+slen, sdone);
345       *offset += sdone + slen;
623     STRLEN slen;
639     s = modify ? (U8 *)SvPV_force_nomg(src, slen) : (U8 *)SvPV_nomg(src, slen);
641         utf8_safe_downgrade(aTHX_ &src, &s, &slen, modify);
642     e = s+slen;
662     dst = sv_2mortal(newSV(slen>0?slen:1)); /* newSV() abhors 0 -- inaba */
667         slen = e-s;
668         sv_setpvn(src, (char*)s, slen);
682     STRLEN slen;
696     s = modify ? (U8 *)SvPV_force_nomg(src, slen) : (U8 *)SvPV_nomg(src, slen);
697     e = s+slen;
698     dst = sv_2mortal(newSV(slen>0?slen:1)); /* newSV() abhors 0 -- inaba */
712         U8 *d = (U8 *) SvGROW(dst, 2*slen+1); /* +1 or assertion will botch */
734         slen = e-s;
735         sv_setpvn(src, (char*)s, slen);
794     STRLEN slen;
807     s = modify ? (U8 *)SvPV_force_nomg(src, slen) : (U8 *)SvPV_nomg(src, slen);
809         utf8_safe_downgrade(aTHX_ &src, &s, &slen, modify);
810     tmp = encode_method(aTHX_ enc, enc->t_utf8, src, s, slen, check,
829     STRLEN slen;
841     s = modify ? (U8 *)SvPV_force_nomg(src, slen) : (U8 *)SvPV_nomg(src, slen);
843         utf8_safe_downgrade(aTHX_ &src, &s, &slen, modify);
844     ret = encode_method(aTHX_ enc, enc->t_utf8, src, s, slen, check,
861     STRLEN slen;
873     s = modify ? (U8 *)SvPV_force_nomg(src, slen) : (U8 *)SvPV_nomg(src, slen);
875         utf8_safe_upgrade(aTHX_ &src, &s, &slen, modify);
876     ret = encode_method(aTHX_ enc, enc->f_utf8, src, s, slen, check,