Searched refs:uv (Results 1 - 18 of 18) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Unicode/Normalize/
H A DNormalize.xs38 #define OVER_UTF_MAX(uv) (VALID_UTF_MAX < (uv))
70 UV uv; /* codepoint */
85 static U8* dec_canonical (UV uv)
88 if (OVER_UTF_MAX(uv))
90 plane = (U8***)UNF_canon[uv >> 16];
93 row = plane[(uv >> 8) & 0xff];
94 return row ? row[uv & 0xff] : NULL;
97 static U8* dec_compat (UV uv)
100 if (OVER_UTF_MAX(uv))
[all...]
H A Dmkheader259 print "$type is$name (UV uv)\n{\nreturn\n\t";
264 print "($cur <= uv && uv <= ";
271 print "uv == $cur";
346 foreach my $uv (keys %$hash) {
347 croak sprintf("a Unicode code point 0x%04X over 0x10FFFF.", $uv)
348 unless $uv <= 0x10FFFF;
349 my @c = unpack 'CCCC', pack 'N', $uv;
350 $val{ $c[1] }{ $c[2] }{ $c[3] } = $hash->{$uv};
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dutf8.c32 =for apidoc A|U8 *|uvuni_to_utf8_flags|U8 *d|UV uv|UV flags
34 Adds the UTF-8 representation of the Unicode codepoint C<uv> to the end
39 d = uvuni_to_utf8_flags(d, uv, flags);
43 d = uvuni_to_utf8(d, uv);
47 d = uvuni_to_utf8_flags(d, uv, 0);
51 *(d++) = uv;
57 Perl_uvuni_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags) argument
60 if (UNICODE_IS_SURROGATE(uv) &&
62 Perl_warner(aTHX_ packWARN(WARN_UTF8), "UTF-16 surrogate 0x%04"UVxf, uv); local
64 ((uv >
75 "Unicode character 0x%04"UVxf" is illegal", uv); local
163 Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv) argument
183 UV uv, ouv; local
336 UV uv = *s, ouv = 0; local
840 UV uv = NATIVE_TO_ASCII(*s++); local
871 UV uv = (p[0] << 8) + p[1]; /* UTF-16BE */ local
1784 Perl_uvchr_to_utf8(pTHX_ U8 *d, UV uv) argument
1790 Perl_uvchr_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags) argument
1813 UV uv = Perl_utf8n_to_uvuni(aTHX_ s, curlen, retlen, flags); local
[all...]
H A Dutf8.h127 #define UNISKIP(uv) ( (uv) < 0x80 ? 1 : \
128 (uv) < 0x800 ? 2 : \
129 (uv) < 0x10000 ? 3 : \
130 (uv) < 0x200000 ? 4 : \
131 (uv) < 0x4000000 ? 5 : \
132 (uv) < 0x80000000 ? 6 : \
133 (uv) < UTF8_QUAD_MAX ? 7 : 13 )
136 #define UNISKIP(uv) ( (uv) <
[all...]
H A Ddoop.c311 UV uv; local
346 if ((uv = swash_fetch(rv, s, TRUE)) < none) {
349 d = uvuni_to_utf8(d, uv);
351 else if (uv == none) {
357 else if (uv == extra) {
405 UV uv; local
422 if ((uv = swash_fetch(rv, s, TRUE)) < none || uv == extra)
449 UV uv; local
490 uv
[all...]
H A Duniversal.c486 UV uv = SvUV(ST(0)); local
491 ST(0) = sv_2mortal(newSViv(NATIVE_TO_UNI(uv)));
498 UV uv = SvUV(ST(0)); local
503 ST(0) = sv_2mortal(newSViv(UNI_TO_NATIVE(uv)));
H A Dtoke.c1226 UV uv; local
1430 uv = grok_oct(s, &len, &flags, NULL);
1450 uv = grok_hex(s, &len, &flags, NULL);
1457 uv = grok_hex(s, &len, &flags, NULL);
1471 if (!UNI_IS_INVARIANT(NATIVE_TO_UNI(uv))) {
1472 if (!has_utf8 && uv > 255) {
1508 if (has_utf8 || uv > 255) {
1509 d = (char*)uvchr_to_utf8((U8*)d, uv);
1519 *d++ = (char)uv;
1523 *d++ = (char) uv;
1566 UV uv = utf8_to_uvchr((U8*)str, 0); local
1653 UV uv = (this_utf8) ? utf8n_to_uvchr((U8*)s, send - s, &len, 0) : (UV) ((U8) *s); local
7542 UV uv; local
[all...]
H A Dsv.c2422 "0x%"UVxf" uv(%"NVgf" => %"IVdf") (precise)\n",
2433 "0x%"UVxf" uv(%"NVgf" => %"IVdf") (imprecise)\n",
2463 "0x%"UVxf" 2uv(%"UVuf" => %"IVdf") (as unsigned)\n",
2540 DEBUG_c(PerlIO_printf(Perl_debug_log, "0x%"UVxf" 2uv(%" PERL_PRIgldbl ")\n",
2543 DEBUG_c(PerlIO_printf(Perl_debug_log, "0x%"UVxf" 2uv(%"NVgf")\n",
2617 DEBUG_c(PerlIO_printf(Perl_debug_log, "0x%"UVxf" 2uv(%"UVuf")\n",
2903 uiv_2buf(char *buf, IV iv, UV uv, int is_uv, char **peob) argument
2912 uv = iv;
2915 uv = -iv;
2919 *--ptr = '0' + (char)(uv
7802 Perl_sv_setref_uv(pTHX_ SV *rv, const char *classname, UV uv) argument
7804 sv_setuv(newSVrv(rv,classname), uv); local
8276 UV uv; local
8447 UV uv = 0; local
[all...]
H A Dutfebcdic.h391 #define UNISKIP(uv) ( (uv) < 0xA0 ? 1 : \
392 (uv) < 0x400 ? 2 : \
393 (uv) < 0x4000 ? 3 : \
394 (uv) < 0x40000 ? 4 : \
395 (uv) < 0x400000 ? 5 : \
396 (uv) < 0x4000000 ? 6 : 7 )
H A Dpp.c1977 UV uv; local
1989 uv = SvUVX(TOPs);
1998 uv = SvUVX(*(SP+1)); /* Do I want TOPp1s() ? */
2000 SETs(boolSV((UV)iv != uv));
2794 UV uv = TOPu; local
2795 SETu(uv);
3419 UV uv; local
3422 uv = utf8_to_uvchr(tmpbuf, 0);
3423 tend = uvchr_to_utf8(tmpbuf, uv);
3560 UV uv local
[all...]
H A Dperl.h2514 #define CLUMP_2IV(uv) ((uv) > (UV)IV_MAX ? IV_MAX : (IV)(uv))
H A Dproto.h757 PERL_CALLCONV SV* Perl_sv_setref_uv(pTHX_ SV* rv, const char* classname, UV uv);
807 PERL_CALLCONV U8* Perl_uvchr_to_utf8(pTHX_ U8 *d, UV uv);
808 PERL_CALLCONV U8* Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv);
809 PERL_CALLCONV U8* Perl_uvchr_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags);
810 PERL_CALLCONV U8* Perl_uvuni_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags);
H A Dregcomp.c4392 S_reguni(pTHX_ RExC_state_t *pRExC_state, UV uv, char* s, STRLEN* lenp) argument
4394 *lenp = SIZE_ONLY ? UNISKIP(uv) : (uvchr_to_utf8((U8*)s, uv) - (U8*)s);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/
H A DEncode.xs371 UV uv = NATIVE_TO_UNI((UV) *s++);
372 if (UNI_IS_INVARIANT(uv))
373 *d++ = (U8)UTF_TO_NATIVE(uv);
375 *d++ = (U8)UTF8_EIGHT_BIT_HI(uv);
376 *d++ = (U8)UTF8_EIGHT_BIT_LO(uv);
562 UV uv = *s++;
566 if (!(uv & 0x40)){ goto failure; }
567 if (!(uv & 0x20)) { ulen = 2; uv &= 0x1f; }
568 else if (!(uv
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/pod/
H A Dplainer.t52 C<uv < 0x80> in which case you can use C<*s = uv>.
53 C<uv E<lt> 0x80> in which case you can use C<*s = uv>.
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/XS/Typemap/
H A DTypemap.xs194 T_UV( uv )
195 unsigned int uv
197 RETVAL = uv;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Unicode/
H A DCollate.pm341 my($name, $entry, @uv, @key);
355 @uv = _getHexArray($e);
356 return if !@uv;
358 $entry = join(CODE_SEP, @uv); # in JCPS
361 my $ele = pack_U(@uv);
392 if (@uv > 1) {
393 (!$self->{maxlength}{$uv[0]} || $self->{maxlength}{$uv[0]} < @uv)
394 and $self->{maxlength}{$uv[
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Data/Dumper/
H A DDumper.xs28 UV uv = utf8_to_uv(s, UTF8_MAXLEN, retlen,
30 return UNI_TO_NATIVE(uv);

Completed in 286 milliseconds