/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | utf8.t | 16 no utf8; # Ironic, no? 23 # (1) tests that absolutely require 'use utf8', and since that in general 24 # shouldn't be needed as the utf8 is being obsoleted, this should 48 { use utf8; $b = "\xe4" } 54 { use utf8; ok($a ne $b) } 135 utf8::encode($char); 152 ['check no utf8; makes no change', 153 'no utf8; $a = "' . chr (173) . '"; $b = show $a', qr/^>173<$/], 156 ["the utf8 sequence for chr $_->[0]", 158 ["no utf8; fo [all...] |
H A D | open.t | 47 skip("no perlio, no :utf8", 1) unless (find PerlIO::Layer 'perlio'); 50 $ENV{LC_ALL} = ' .utf8'; 52 like( ${^OPEN}, qr/^(:utf8)?:utf8\0/, 77 skip("no perlio, no :utf8", 4) unless (find PerlIO::Layer 'perlio'); 80 use open ':utf8'; 81 open(O, ">utf8"); 84 open(I, "<utf8"); 85 is(ord(<I>), 0x100, ":utf8 single wide character round-trip"); 104 open F, "<:utf8", " [all...] |
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Locale/Codes/t/ |
H A D | languages.t | 13 no utf8; # we contain Latin-1
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/t/ |
H A D | grow.t | 31 my $utf8 = Encode::decode('latin1', $octs); 34 Encode::encode('latin1', $utf8),
|
H A D | jperl.t | 23 no utf8; # we have raw Japanese encodings here 44 is(length($Namae), 4, q{utf8:length}); 55 # let's test the scope as well. Must be in utf8 realm 56 is(length($Namae), 4, q{utf8:length}); 85 use utf8; 88 # because of buggy strict.pm and utf8.pm 93 is ($people, 3, "Filter:utf8 identifier");
|
H A D | Unicode.t | 92 my $utf8 = ''; 96 $utf8 .= ord($j+$i); 101 is(decode($enc, encode($enc, $utf8)), $utf8, "$enc RT"); 123 binmode $fh => ':utf8';
|
/opensolaris-onvv-gate/usr/src/cmd/ldap/common/ |
H A D | convutf8.c | 179 char *utf8; 185 utf8 = strdup(src); 186 return ( utf8 ); 653 char *utf8; local 668 utf8 = strdup(src); 669 return utf8; 705 utf8 = (char *) malloc( outLen + 1); 706 if( utf8 == NULL ) { 713 resultLen = ucnv_convert( "utf-8", ldaptool_charset, utf8, (outLen + 1), src, 717 free(utf8); [all...] |
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/XS/APItest/t/ |
H A D | hash.t | 17 use utf8; 34 utf8::encode $utf8_for_258; 40 utf8::downgrade $_, 1; 45 utf8::upgrade $_; 47 main_tests (\@keys, \@testkeys, ' [utf8 hash]'); 55 "hv_store doesn't insert a key with the raw utf8 on a tied hash"); 67 utf8::encode $unikey; 69 utf8::downgrade $key, 1; 70 utf8::downgrade $lckey, 1; 71 utf8 [all...] |
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | utfhash.t | 14 # with a utf8 requiring key from the outset. 38 utf8::upgrade($a); 41 utf8::downgrade($a); 54 # Now add a utf8 key to the 8-bit hash 63 utf8::upgrade($a); 70 # and remove utf8 from the other hash 77 utf8::upgrade($a); 79 utf8::downgrade($a); 156 is ($l, $r, "\\w on each, bytes now utf8"); 164 is ($l, $r, "\\w on each, utf8"); [all...] |
H A D | regmesg.t | 106 # utf8 is a noop on EBCDIC platforms, it is not fatal 109 my @utf8_death = grep(/utf8/, @death); 121 # skip the utf8 test on EBCDIC since they do not die 122 next if ($Is_EBCDIC && $regex =~ /utf8/);
|
H A D | die.t | 48 # die/warn and utf8 49 use utf8;
|
H A D | sprintf2.t | 26 q(width calculation under utf8 upgrade)
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/io/ |
H A D | crlf.t | 54 # Try also pushing :utf8 first so that there are other layers 57 for my $utf8 ('', ':utf8') { 61 binmode(FOO, "$utf8:crlf") for 1..$binmode;
|
H A D | layers.t | 120 [ qw[stdio crlf encoding(shiftjis) utf8] ], 135 binmode(F, ":utf8"); 138 [ qw(stdio utf8) ], 139 ":utf8"); 147 binmode(F, ":encoding(utf8)"); 150 [ qw[stdio encoding(utf8) utf8] ], 151 ":encoding(utf8)"); 193 [ qw[stdio encoding(cp1252) utf8] ],
|
H A D | utf8.t | 12 no utf8; # needed for use utf8 not griping about the raw octets 20 open(F,"+>:utf8",'a'); 45 binmode(F,":utf8"); 58 open F, ">:utf8", 'a' or die $!; 62 open F, "<:utf8", 'a' or die $!; 76 open F, ">:utf8", 'a' or die $!; 78 binmode(F,":utf8"); # turn UTF-8-ness back on 114 open F, "<:utf8", "a" or die $!; 121 if (${^OPEN} =~ /:utf8/) { [all...] |
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/comp/ |
H A D | require.t | 13 my $Is_UTF8 = (${^OPEN} || "") =~ /:utf8/; 154 my $utf8 = chr(0xFEFF); 156 $i++; do_require(qq(${utf8}print "ok $i\n"; 1;\n));
|
/opensolaris-onvv-gate/usr/src/uts/common/kiconv/kiconv_ko/ |
H A D | kiconv_ko.c | 48 static int8_t utf8_to_euckr(uint32_t utf8, uchar_t **inbuf, uchar_t *ibtail, 50 static int8_t utf8_to_uhc(uint32_t utf8, uchar_t **inbuf, uchar_t *ibtail, 466 utf8_to_ko(uint32_t utf8, uchar_t *ob, uchar_t *obtail, size_t *ret_val, argument 473 if (KICONV_KO_IS_UDC_IN_UTF8(utf8)) { 475 kocode = (((utf8 & 0xF0000) >> 4) | ((utf8 & 0x3F00) >> 2) | 476 (utf8 & 0x3F)) - KICONV_KO_UDA_UCS4_START; 488 index = kiconv_binsearch(utf8, table, nitems); 514 utf8_to_uhc(uint32_t utf8, uchar_t **inbuf, uchar_t *ibtail, argument 517 return (utf8_to_ko(utf8, o 526 utf8_to_euckr(uint32_t utf8, uchar_t **inbuf, uchar_t *ibtail, uchar_t *ob, uchar_t *obtail, size_t *ret_val) argument [all...] |
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/Unicode/ |
H A D | Unicode.xs | 194 encode_xs(obj, utf8, check = 0) 196 SV * utf8 206 U8 *s = (U8 *)SvPVutf8(utf8,ulen); 207 U8 *e = (U8 *)SvEND(utf8); 261 Move(s,SvPVX(utf8),e-s,U8); 262 SvCUR_set(utf8,(e-s)); 265 SvCUR_set(utf8,0); 267 *SvEND(utf8) = '\0';
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/ |
H A D | utf8hash.t | 5 print "1..0 # Skip: no utf8 hash key support\n"; 45 # first we generate a nasty hash which keys include both utf8 48 no utf8; # we have a naked 8-bit byte below (in Latin 1, anyway) 58 my $u = chr($i); utf8::upgrade($u); 126 my $utf8 = "Schlo\xdf" . chr 256; 127 chop $utf8; 146 my %hash = (map {$_, $_} 'castle', "ch\xe5teau", $utf8, "\x{57CE}"); 172 utf8::encode ($bytes); 180 cmp_ok (scalar keys %$just_utf8, '==', 1, "1 key in utf8?"); 181 cmp_ok ($just_utf8->{$char}, '==', 1, "utf8 ke [all...] |
H A D | downgrade.t | 42 # is stored in utf8, not bytes. 46 my $utf8 = "Schlo\xdf" . chr 256; 47 chop $utf8; 53 # involving whether scalars are being stored in bytes or in utf8. 55 %U_HASH = (map {$_, $_} 'castle', "ch${a_circumflex}teau", $utf8, chr 0x57CE); 162 thaw_hash ('Hash with utf8 flag but no utf8 keys', \%R_HASH); 197 print "# We have utf8 scalars, so test that the utf8 scalars in <DATA> are valid\n"; 198 thaw_scalar ('Short 8 bit utf8 dat [all...] |
/opensolaris-onvv-gate/usr/src/uts/common/kiconv/kiconv_tc/ |
H A D | kiconv_tc.c | 72 static int8_t utf8_to_big5(uint32_t utf8, uchar_t **inbuf, uchar_t *ibtail, 74 static int8_t utf8_to_euctw(uint32_t utf8, uchar_t **inbuf, uchar_t *ibtail, 76 static int8_t utf8_to_cp950hkscs(uint32_t utf8, uchar_t **inbuf, 78 static int8_t utf8_to_big5hkscs(uint32_t utf8, uchar_t **inbuf, uchar_t *ibtail, 858 utf8_to_euctw(uint32_t utf8, uchar_t **inbuf, uchar_t *ibtail, argument 866 if (utf8 >= KICONV_TC_UDA_UTF8_START && 867 utf8 <= KICONV_TC_UDA_UTF8_END) { 869 * Calculate EUC-TW code if utf8 is in Unicode 872 index = (((utf8 & 0x7000000) >> 6) | ((utf8 928 utf8_to_big5hkscs(uint32_t utf8, uchar_t **inbuf, uchar_t *ibtail, uchar_t *ob, uchar_t *obtail, size_t *ret_val) argument 983 utf8_to_big5_common(uint32_t utf8, uchar_t *ob, uchar_t *obtail, size_t *ret_val, kiconv_table_t *table, size_t nitems) argument 1014 utf8_to_big5(uint32_t utf8, uchar_t **inbuf, uchar_t *ibtail, uchar_t *ob, uchar_t *obtail, size_t *ret_val) argument 1026 utf8_to_cp950hkscs(uint32_t utf8, uchar_t **inbuf, uchar_t *ibtail, uchar_t *ob, uchar_t *obtail, size_t *ret_val) argument [all...] |
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/ |
H A D | html.t | 15 # no utf8 16 require utf8; # we contain Latin-1 17 utf8->unimport;
|
/opensolaris-onvv-gate/usr/src/uts/common/kiconv/kiconv_sc/ |
H A D | kiconv_sc.c | 51 static int8_t utf8_to_gb2312(uint32_t utf8, uchar_t **inbuf, uchar_t *ibtail, 53 static int8_t utf8_to_gbk(uint32_t utf8, uchar_t **inbuf, uchar_t *ibtail, 55 static int8_t utf8_to_gb18030(uint32_t utf8, uchar_t **inbuf, uchar_t *ibtail, 802 utf8_to_gb18030(uint32_t utf8, uchar_t **inbuf, uchar_t *ibtail, argument 809 if (utf8 >= KICONV_SC_PLANE1_UTF8_START) { 813 u32 = (((utf8 & 0x07000000) >> 6) | ((utf8 & 0x3F0000) >> 4) | 814 ((utf8 & 0x3F00) >> 2) | (utf8 & 0x3F)) - 822 index = kiconv_binsearch(utf8, kiconv_utf8_gb1803 855 utf8_to_gbk(uint32_t utf8, uchar_t **inbuf, uchar_t *ibtail, uchar_t *ob, uchar_t *obtail, size_t *ret) argument 896 utf8_to_gb2312(uint32_t utf8, uchar_t **inbuf, uchar_t *intail, uchar_t *ob, uchar_t *obtail, size_t *ret) argument [all...] |
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/ |
H A D | Makefile.lib | 69 utf8.o \
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/t/ |
H A D | fallback.t | 54 no utf8;
|