Home
last modified time | relevance | path

Searched refs:utf8 (Results 1 – 25 of 169) sorted by relevance

1234567

/mirbsd/src/gnu/usr.bin/perl/lib/
Dutf8.t16 no utf8; # Ironic, no?
48 { use utf8; $b = "\xe4" }
54 { use utf8; ok($a ne $b) }
135 utf8::encode($char);
159 qq(no utf8; \$a = "$_->[1]"; \$b = show \$a), qr/^>$_->[2]<$/],
161 qq(use utf8; \$a = "$_->[1]"; \$b = show \$a), qr/^>$_->[0]<$/],
168 use utf8; %a = ("\xE1\xA0"=>"sterling");
214 qq(no utf8; my \$a = "$_->[1]"; my %h; \$h{\$a} = 1;
218 qq(use utf8; my \$a = "$_->[1]"; my %h; \$h{\$a} = 1;
227 qq(no utf8; my \$a = "$_->[1]"; my %h; \$h{"$_->[1]"} = 1;
[all …]
Dutf8.pm3 $utf8::hint_bits = 0x00800000;
8 $^H |= $utf8::hint_bits;
13 $^H &= ~$utf8::hint_bits;
/mirbsd/src/gnu/usr.bin/perl/ext/Storable/t/
Dmake_downgrade.pl48 my $utf8 = "\x{DF}\x{100}";
49 chop $utf8;
51 uuencode_it (\$utf8, "Short 8 bit utf8 data");
53 my $utf8b = $utf8;
58 $utf8 x= 256;
60 uuencode_it (\$utf8, "Long 8 bit utf8 data");
62 $utf8 = "\x{C0FFEE}";
64 uuencode_it (\$utf8, "Short 24 bit utf8 data");
66 $utf8b = $utf8;
71 $utf8 x= 256;
[all …]
Ddowngrade.t46 my $utf8 = "Schlo\xdf" . chr 256;
47 chop $utf8;
55 %U_HASH = (map {$_, $_} 'castle', "ch${a_circumflex}teau", $utf8, chr 0x57CE);
290 begin 101 Short 8 bit utf8 data
295 begin 101 Short 8 bit utf8 data as bytes
300 begin 101 Long 8 bit utf8 data
359 begin 101 Hash with utf8 flag but no utf8 keys
364 begin 101 Hash with utf8 keys
382 begin 101 Hash with utf8 keys for 5.6
434 begin 301 Short 24 bit utf8 data
[all …]
Dutf8hash.t48 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);
/mirbsd/src/gnu/usr.bin/perl/ext/Encode/t/
Dfallback.t50 utf8::upgrade($uo);
53 my $utf8 = find_encoding('utf8');
61 $dst = $utf8->decode($src, FB_DEFAULT);
62 is($dst, $uf, "FB_DEFAULT utf8");
63 is($src, $ao, "FB_DEFAULT residue utf8");
71 eval{ $dst = $utf8->decode($src, FB_CROAK) };
72 like($@, qr/does not map to Unicode/o, "FB_CROAK utf8");
73 is($src, $ao, "FB_CROAK residue utf8");
81 eval{ $dst = $utf8->decode($src, FB_CROAK) };
82 is($@, '', "FB_CROAK on success utf8");
[all …]
Denc_utf8.t20 use encoding 'utf8';
32 binmode(F, ":utf8");
42 binmode(F, ":utf8");
45 print $o == $c[$i] ? "ok $t - utf8 I/O $c[$i]\n" : "not ok $t - utf8 I/O $c[$i]: $o != $c[$i]\n";
64 print $a =~ qr{^utf8 "\\x80" does not map to Unicode} ?
65 "ok $t - illegal utf8 input\n" : "not ok $t - illegal utf8 input: a = " . unpack("H*", $a) . "\n";
Dat-tw.t24 no utf8; # we have raw Chinese encodings here
88 my $utf8 = Encode::encode('utf-8', $utf);
91 is($str2, $utf8, "[$enc] from_to => utf8 - $title");
93 Encode::from_to($utf8, 'utf-8', $enc); # convert $utf8 as $enc
94 is($utf8, $str, "[$enc] utf8 => from_to - $title");
Dat-cn.t22 no utf8; # we have raw Chinese encodings here
137 my $utf8 = Encode::encode('utf-8', $utf);
140 is($str2, $utf8, "[$enc] from_to => utf8 - $title");
142 Encode::from_to($utf8, 'utf-8', $enc); # convert $utf8 as $enc
143 is($utf8, $str, "[$enc] utf8 => from_to - $title");
Denc_eucjp.t37 binmode(F, ":utf8");
48 binmode(F, ":utf8");
51 print $o == $c[$i] ? "ok $t - utf8 I/O $c[$i]\n" : "not ok $t - utf8 I/O $c[$i]: $o != $c[$i]\n";
70 print $a =~ qr{^utf8 "\\x80" does not map to Unicode} ?
71 "ok $t - illegal utf8 input\n" : "not ok $t - illegal utf8 input: a = " . unpack("H*", $a) . "\n";
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");
DEncode.t116 ok(utf8::valid($s),1,"concat of $i botched");
117 utf8::upgrade($s);
118 ok(utf8::valid($s),1,"concat of $i botched");
121 # Spot check a few points in/out of utf8
127 ok(encode('utf8',$c),$o,"utf8 encode by name broken for $i");
128 ok(decode('utf8',$o),$c,"utf8 decode by name broken for $i");
151 ok(encode(utf8 => Encode::Dummy->new("foobar")), "foobar");
Dguess.t41 is(guess_encoding($utf8on)->name, 'utf8', 'utf8 w/ flag');
42 is(guess_encoding($utf8off)->name, 'utf8', 'utf8 w/o flag');
54 $utf8on = decode('utf8', $utf8off);
85 my $test = encode($name, decode('utf8', $utf8off));
/mirbsd/src/gnu/usr.bin/perl/t/op/
Dutftaint.t37 for my $ary ([ascii => 'perl'], [latin1 => "\xB6"], [utf8 => "\x{100}"]) {
81 for my $ary ([ascii => 'perl'], [latin1 => "\xB6"], [utf8 => "\x{100}"]) {
84 my $utf8 = pack('U*') . $ary->[1];
85 my $byte = pack('C0a*', $utf8);
87 my $taint = $arg; substr($taint, 0) = $utf8;
88 utf8::encode($taint);
103 utf8::decode($taint);
105 print $taint eq $utf8
108 print pack('a*',$taint) eq pack('a*',$utf8)
126 utf8::upgrade($taint);
[all …]
Dread.t51 my @utf8 = 1;
54 unshift @utf8, 0;
57 foreach my $utf8 (@utf8) {
59 if $utf8 and !$has_perlio;
63 binmode FH, "utf8" if $utf8;
86 binmode FH, "utf8" if $utf8;
89 $what .= ' u' if $utf8;
Dutfhash.t38 utf8::upgrade($a);
41 utf8::downgrade($a);
63 utf8::upgrade($a);
77 utf8::upgrade($a);
79 utf8::downgrade($a);
179 use utf8;
/mirbsd/src/gnu/usr.bin/perl/t/uni/
Dclass.t87 # the %utf8::... hashes are already in existence
90 *utf8::PropertyAlias = *utf8::PropertyAlias; # thwart a warning
92 no warnings 'utf8'; # we do not want warnings about surrogates etc
95 while (my ($abbrev, $files) = each %utf8::PVA_abbr_map) {
96 my $prop_name = $utf8::PropertyAlias{$abbrev};
120 while (my ($abbr) = each %{ $utf8::PropValueAlias{$p} }) {
122 $updir => lib => unicore => lib => gc_sc => "$utf8::PVA_abbr_map{gc_sc}{$abbr}.pl"
130 for my $y ($abbr, $utf8::PropValueAlias{$p}{$abbr}, $utf8::PVA_abbr_map{gc_sc}{$abbr}) {
158 for (keys %utf8::PA_reverse) {
159 my $leafname = "$utf8::PA_reverse{$_}.pl";
[all …]
/mirbsd/src/gnu/usr.bin/perl/t/lib/warnings/
Dutf82 utf8.c AOK
17 # utf8.c [utf8_to_uv] -W
24 use utf8 ;
27 no warnings 'utf8' ;
29 use warnings 'utf8' ;
36 use warnings 'utf8';
49 no warnings 'utf8';
70 use warnings 'utf8';
83 no warnings 'utf8';
104 use warnings 'utf8';
[all …]
/mirbsd/src/gnu/usr.bin/perl/
DREADME.ko89 perl -Mencoding=euc-kr,STDOUT,utf8 -pe1 < file.euckr > file.utf8
93 perl -Mencoding=utf8,STDOUT,euc-kr -pe1 < file.utf8 > file.euckr
100 piconv -f euc-kr -t utf8 < file.euckr > file.utf8
101 piconv -f utf8 -t euc-kr < file.utf8 > file.euckr
DREADME.cn41 perl -Mencoding=euc-cn,STDOUT,utf8 -pe1 < file.euc-cn > file.utf8
45 piconv -f euc-cn -t utf8 < file.euc-cn > file.utf8
46 piconv -f utf8 -t euc-cn < file.utf8 > file.euc-cn
DREADME.jp49 utf8 viscii
55 perl -Mencoding=FOO,STDOUT,utf8 -pe1 < file.FOO > file.utf8
59 piconv -f FOO -t utf8 < file.FOO > file.utf8
60 piconv -f utf8 -t FOO < file.utf8 > file.FOO
/mirbsd/src/gnu/usr.bin/perl/lib/I18N/LangTags/t/
D20_locales.t23 ok lc locale2language_tag('it_IT.utf8'), 'it-it';
24 ok lc locale2language_tag('it_IT.utf8@euro'), 'it-it';
30 ok lc locale2language_tag('zh_CN.utf8'), 'zh-cn';
32 ok lc locale2language_tag('zh_HK.utf8'), 'zh-hk';
35 ok lc locale2language_tag('zh_TW.utf8'), 'zh-tw';
/mirbsd/src/gnu/usr.bin/perl/ext/Encode/Unicode/
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';
/mirbsd/src/gnu/usr.bin/perl/t/io/
Dlayers.t137 [ qw[stdio crlf encoding(shiftjis) utf8] ],
155 [ qw(stdio utf8) ],
167 [ qw[stdio encoding(utf8) utf8] ],
210 [ qw[stdio encoding(cp1252) utf8] ],
/mirbsd/src/gnu/usr.bin/perl/ext/Encode/lib/Encode/
DPerlIO.pod17 open(my $utf8,'>:utf8','iliad.utf8');
19 print $utf8 @epic;
20 close($utf8);
26 open(my $fh,'>:utf8','anything');
54 open(G, ">:utf8", "data.utf") or die $!;
88 PerlIO and Encode tries to encode (from utf8) more than 1024 bytes
116 area so it has to convert \x43\x46, not \x43. Unlike utf8 and EUC,
163 L<utf8>,

1234567