Lines Matching defs:uv
137 Perl_uvoffuni_to_utf8_flags(pTHX_ U8 *d, UV uv, const UV flags)
141 return uvoffuni_to_utf8_flags_msgs(d, uv, flags, NULL);
370 Adds the UTF-8 representation of the native code point C<uv> to the end
371 of the string C<d>; C<d> should have at least C<UVCHR_SKIP(uv)+1> (up to
375 d = uvchr_to_utf8(d, uv);
379 *(d++) = uv;
391 PERL_CALLCONV U8* Perl_uvchr_to_utf8(pTHX_ U8 *d, UV uv);
394 Perl_uvchr_to_utf8(pTHX_ U8 *d, UV uv)
396 return uvchr_to_utf8(d, uv);
402 Adds the UTF-8 representation of the native code point C<uv> to the end
403 of the string C<d>; C<d> should have at least C<UVCHR_SKIP(uv)+1> (up to
407 d = uvchr_to_utf8_flags(d, uv, flags);
411 d = uvchr_to_utf8_flags(d, uv, 0);
415 *(d++) = uv;
423 If C<uv> is a Unicode surrogate code point and C<UNICODE_WARN_SURROGATE> is set,
486 PERL_CALLCONV U8* Perl_uvchr_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags);
489 Perl_uvchr_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags)
491 return uvchr_to_utf8_flags(d, uv, flags);
1413 UV uv;
1508 uv = UNICODE_REPLACEMENT;
1514 uv = *s;
1525 if (UNLIKELY(UTF8_IS_CONTINUATION(uv))) {
1528 uv = UNICODE_REPLACEMENT;
1540 uv = NATIVE_UTF8_TO_I8(uv) & UTF_START_MASK(expectlen);
1556 uv = UTF8_ACCUMULATE(uv, *s);
1583 uv_so_far = uv;
1584 uv = UNICODE_REPLACEMENT;
1594 uv = UNICODE_REPLACEMENT;
1597 /* Check for overlong. If no problems so far, 'uv' is the correct code
1602 && UNLIKELY(expectlen > (STRLEN) OFFUNISKIP(uv)))
1644 /* uv is valid for overlongs */
1646 && isUNICODE_POSSIBLY_PROBLEMATIC(uv))
1666 * overlong, 'uv' is valid */
1668 if (UNLIKELY(UNICODE_IS_SURROGATE(uv))) {
1671 else if (UNLIKELY(UNICODE_IS_SUPER(uv))) {
1674 else if (UNLIKELY(UNICODE_IS_NONCHAR(uv))) {
1714 * uv contains the code point the input sequence
1744 * overlong must come last, as it changes 'uv' looked at by the
1900 * surrogate when the 'uv' isn't valid */
1908 message = Perl_form(aTHX_ surrogate_cp_format, uv);
1938 message = Perl_form(aTHX_ super_cp_format, uv);
1960 * point is not valid. In that case, 'uv' will have
1964 if (UNICODE_IS_PERL_EXTENDED(uv)) {
1966 PL_extended_cp_format, uv);
2009 message = Perl_form(aTHX_ nonchar_cp_format, uv);
2030 uv = UNICODE_REPLACEMENT;
2041 /* These error types cause 'uv' to be something that
2044 * generate an overlong, or else the 'uv' is valid */
2060 uv, 0);
2063 const char * preface = ( UNICODE_IS_SUPER(uv)
2065 || uv <= 0xFF
2077 ((uv < 256) ? 2 : 4), /* Field width of 2 for
2079 UNI_TO_NATIVE(uv));
2123 return UNI_TO_NATIVE(uv);
2851 U32 uv = (p[(U8) high_byte] << 8) + p[(U8) low_byte];
2854 /* If it's a surrogate, we find the uv that the surrogate pair encodes.
2856 if (UNLIKELY(UNICODE_IS_SURROGATE(uv))) {
2864 if (UNLIKELY(p >= pend) || UNLIKELY(uv > LAST_HIGH_SURROGATE)) {
2877 /* Here uv is the high surrogate. Combine with low surrogate
2881 uv = FIRST_IN_PLANE1 + (uv << 10) - (FIRST_HIGH_SURROGATE << 10)
2886 /* Here, 'uv' is the real U32 we want to find the UTF-8 of */
2887 d = uvchr_to_utf8(d, uv);
2940 UV uv = utf8n_to_uvchr(s, send - s, &retlen,
2946 if (UNLIKELY(uv == 0 && *s != '\0')) {
2947 uv = UNICODE_REPLACEMENT;
2950 if (uv >= FIRST_IN_PLANE1) { /* Requires a surrogate pair */
2953 U32 high_surrogate = (uv >> 10) - (FIRST_IN_PLANE1 >> 10)
2964 uv &= nBIT_MASK(10);
2965 uv += FIRST_LOW_SURROGATE;
2971 d[(U8) high_byte] = uv >> 8;
2972 d[(U8) low_byte] = uv & nBIT_MASK(8);
3086 #define CALL_UPPER_CASE(uv, s, d, lenp) \
3087 _to_utf8_case(uv, s, d, lenp, PL_utf8_toupper, \
3092 #define CALL_TITLE_CASE(uv, s, d, lenp) \
3093 _to_utf8_case(uv, s, d, lenp, PL_utf8_totitle, \
3098 #define CALL_LOWER_CASE(uv, s, d, lenp) \
3099 _to_utf8_case(uv, s, d, lenp, PL_utf8_tolower, \
3109 #define CALL_FOLD_CASE(uv, s, d, lenp, specials) \
3111 ? _to_utf8_case(uv, s, d, lenp, PL_utf8_tofold, \
3116 : _to_utf8_case(uv, s, d, lenp, PL_utf8_tosimplefold, \
4160 UV uv = utf8_to_uvchr_buf(s, e, NULL);
4163 uv);