Searched refs:utf8 (Results 1 - 25 of 51) sorted by relevance

123

/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Dutf8.t16 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 Dopen.t47 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 Dlanguages.t13 no utf8; # we contain Latin-1
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/t/
H A Dgrow.t31 my $utf8 = Encode::decode('latin1', $octs);
34 Encode::encode('latin1', $utf8),
H A Djperl.t23 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 DUnicode.t92 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 Dconvutf8.c179 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 Dhash.t17 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 Dutfhash.t14 # 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 Dregmesg.t106 # 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 Ddie.t48 # die/warn and utf8
49 use utf8;
H A Dsprintf2.t26 q(width calculation under utf8 upgrade)
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/io/
H A Dcrlf.t54 # 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 Dlayers.t120 [ 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 Dutf8.t12 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 Drequire.t13 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 Dkiconv_ko.c48 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 DUnicode.xs194 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 Dutf8hash.t5 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 Ddowngrade.t42 # 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 Dkiconv_tc.c72 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 Dhtml.t15 # no utf8
16 require utf8; # we contain Latin-1
17 utf8->unimport;
/opensolaris-onvv-gate/usr/src/uts/common/kiconv/kiconv_sc/
H A Dkiconv_sc.c51 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 DMakefile.lib69 utf8.o \
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/t/
H A Dfallback.t54 no utf8;

Completed in 165 milliseconds

123