/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Unicode/Normalize/ |
H A D | Normalize.xs | 38 #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 D | mkheader | 259 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 D | utf8.c | 32 =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 D | utf8.h | 127 #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 D | doop.c | 311 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 D | universal.c | 486 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 D | toke.c | 1226 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 D | sv.c | 2422 "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 D | utfebcdic.h | 391 #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 D | pp.c | 1977 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 D | perl.h | 2514 #define CLUMP_2IV(uv) ((uv) > (UV)IV_MAX ? IV_MAX : (IV)(uv))
|
H A D | proto.h | 757 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 D | regcomp.c | 4392 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 D | Encode.xs | 371 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 D | plainer.t | 52 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 D | Typemap.xs | 194 T_UV( uv ) 195 unsigned int uv 197 RETVAL = uv;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Unicode/ |
H A D | Collate.pm | 341 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 D | Dumper.xs | 28 UV uv = utf8_to_uv(s, UTF8_MAXLEN, retlen, 30 return UNI_TO_NATIVE(uv);
|