Home
last modified time | relevance | path

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

12345678910>>...21

/openbsd-src/gnu/usr.bin/perl/cpan/version/t/
H A D07locale.t86 af_ZA.utf8
89 an_ES.utf8
91 az_AZ.utf8
94 be_BY.utf8
97 bg_BG.utf8
101 br_FR.utf8
104 bs_BA.utf8
108 ca_ES.utf8
111 cs_CZ.utf8
114 da_DK.utf8
[all...]
/openbsd-src/gnu/usr.bin/perl/lib/
H A Dutf8.t18 no utf8; # Ironic, no?
48 { use utf8; $b = uni_to_native("\xe4") }
54 { use utf8; ok($a ne $b) }
132 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 = ("$malformed" =>"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 …]
/openbsd-src/gnu/usr.bin/perl/dist/Storable/t/
H A 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 …]
/openbsd-src/gnu/usr.bin/perl/cpan/Encode/t/
H A Dfallback.t50 utf8::upgrade($uo);
54 my $utf8 = find_encoding('utf8');
62 $dst = $utf8->decode($src, FB_DEFAULT);
63 is($dst, $uf, "FB_DEFAULT utf8");
64 is($src, $ao, "FB_DEFAULT residue utf8");
72 eval{ $dst = $utf8->decode($src, FB_CROAK) };
73 like($@, qr/does not map to Unicode/o, "FB_CROAK utf8");
74 is($src, $ao, "FB_CROAK residue utf8");
82 eval{ $dst = $utf8
[all...]
/openbsd-src/gnu/usr.bin/perl/t/uni/
H A Dvariables.t13 use utf8;
14 use open qw( :utf8 :std );
30 no utf8;
53 use utf8;
67 is $@, '', "No syntax error for \$$v under 'use utf8'";
134 " ... and the same under 'use utf8'");
150 utf8::upgrade($chr);
161 utf8::upgrade($chr);
168 utf8::upgrade($chr);
180 no utf8;
[all …]
H A Deval.t12 use open qw( :utf8 :std );
18 use utf8;
25 utf8::upgrade($prog);
31 use utf8;
36 no utf8; #Let's make real sure.
40 use utf8;
H A Dpackage.t12 use utf8;
13 use open qw( :utf8 :std );
108 my $utf8 = "þackage";
109 utf8::downgrade($latin_1);
110 utf8::upgrade($utf8);
117 eval { $utf8->can("yadda") };
/openbsd-src/gnu/usr.bin/perl/ext/XS-APItest/t/
H A Dutf8_to_bytes.t38 my $utf8 = $test;
39 utf8::upgrade($utf8);
45 $utf8_length = length $utf8;
48 my $ret_ref = test_utf8_to_bytes($utf8, $utf8_length);
51 . display_bytes($utf8));
57 my $utf8 = $test;
60 my $ret_ref = test_utf8_to_bytes($utf8, $utf8_length);
63 . display_bytes($utf8));
65 is ($ret_ref->[2], $utf8, "... And left the input unchanged");
/openbsd-src/gnu/usr.bin/perl/t/lib/warnings/
H A Dperl101 use utf8;
102 use open qw( :utf8 :std );
112 use utf8;
113 use open qw( :utf8 :std );
121 use utf8;
122 use open qw( :utf8 :std );
132 use utf8;
133 use open qw( :utf8 :std );
145 use utf8;
146 use open qw( :utf8 :std );
[all …]
H A Dpad376 BEGIN { binmode STDERR, 'utf8'; }
378 use utf8;
386 BEGIN { binmode STDERR, 'utf8'; }
388 use utf8;
397 BEGIN { binmode STDERR, 'utf8'; }
399 use utf8;
408 BEGIN { binmode STDERR, 'utf8'; }
410 use utf8;
419 BEGIN { binmode STDERR, 'utf8'; }
421 use utf8;
[all …]
/openbsd-src/gnu/usr.bin/perl/t/lib/croak/
H A Dpp_sys29 # NAME open on global utf8 dirhandle
30 use utf8;
31 use open qw( :utf8 :std );
38 # NAME open on lexical utf8 dirhandle
39 use utf8;
40 use open qw( :utf8 :std );
59 # NAME opendir on global utf8 filehandle
60 use utf8;
61 use open qw( :utf8 :std );
68 # NAME opendir on lexical utf8 filehandle
[all …]
/openbsd-src/gnu/usr.bin/perl/t/op/
H A Dutftaint.t26 *is_utf8 = \&utf8::is_utf8;
28 for my $ary ([ascii => 'perl'], [latin1 => "\xB6"], [utf8 => "\x{100}"]) {
62 for my $ary ([ascii => 'perl'], [latin1 => "\xB6"], [utf8 => "\x{100}"]) {
65 my $utf8 = pack('U*') . $ary->[1];
66 my $byte = unpack('U0a*', $utf8);
68 my $taint = $arg; substr($taint, 0) = $utf8;
69 utf8::encode($taint);
80 utf8::decode($taint);
82 is($taint, $utf8, "compare: $encode, decode byte");
84 is(pack('a*',$taint), pack('a*',$utf8), "bytecmp: $encode, decode byte");
[all …]
H A Dquotemeta.t23 $_ = join "", map chr(utf8::unicode_to_native($_)), 32..127;
54 utf8::upgrade($char);
59 utf8::upgrade($char);
64 utf8::upgrade($char);
69 utf8::upgrade($char);
92 utf8::upgrade($char);
117 utf8::upgrade($char);
122 utf8::upgrade($char);
127 utf8::upgrade($char);
132 utf8
[all...]
H A Dutfhash.t38 utf8::upgrade($a);
41 utf8::downgrade($a);
63 utf8::upgrade($a);
77 utf8::upgrade($a);
79 utf8::downgrade($a);
180 my ($utf8, $utf1047ebcdic) = split /__SPLIT__/, $data;
181 $utf8 = $utf1047ebcdic if $::IS_EBCDIC;
182 eval $utf8;
187 use utf8;
200 ok !utf8::is_utf8($key), "'$key' shouldn't have utf8 flag";
[all …]
H A Dread.t48 my @utf8 = 1;
51 unshift @utf8, 0;
54 foreach my $utf8 (@utf8) {
56 if $utf8 and !$has_perlio;
59 binmode FH, "utf8" if $utf8;
83 binmode FH, "utf8" if $utf8;
86 $what .= ' u' if $utf8;
/openbsd-src/gnu/usr.bin/perl/t/mro/
H A Dpackage_aliases_utf8.t14 use utf8;
15 use open qw( :utf8 :std );
64 use utf8;
65 use open qw( :utf8 :std );
87 utf8::encode($prog);
126 use utf8;
127 use open qw( :utf8 :std );
145 utf8::encode($prog);
191 use utf8;
192 use open qw( :utf8 :std );
[all …]
/openbsd-src/gnu/usr.bin/perl/
H A Dpp_pack.c128 #define PUSH16(utf8, cur, p, needs_swap) \ argument
129 PUSH_BYTES(utf8, cur, OFF16(p), SIZE16, needs_swap)
130 #define PUSH32(utf8, cur, p, needs_swap) \ argument
131 PUSH_BYTES(utf8, cur, OFF32(p), SIZE32, needs_swap)
147 #define SHIFT_BYTES(utf8, s, strend, buf, len, datumtype, needs_swap) \ argument
149 if (UNLIKELY(utf8)) { \
161 #define SHIFT16(utf8, s, strend, p, datumtype, needs_swap) \ argument
162 SHIFT_BYTES(utf8, s, strend, OFF16(p), SIZE16, datumtype, needs_swap)
164 #define SHIFT32(utf8, s, strend, p, datumtype, needs_swap) \ argument
165 SHIFT_BYTES(utf8,
167 SHIFT_VAR(utf8,s,strend,var,datumtype,needs_swap) global() argument
170 PUSH_VAR(utf8,aptr,var,needs_swap) global() argument
272 SHIFT_BYTE(utf8,s,strend,datumtype) global() argument
348 PUSH_BYTES(utf8,cur,buf,len,needs_swap) global() argument
368 GROWING2(utf8,cat,start,cur,item_size,item_count) global() argument
375 GROWING(utf8,cat,start,cur,in_len) global() argument
388 PUSH_GROWING_BYTES(utf8,cat,start,cur,buf,in_len) global() argument
402 PUSH_BYTE(utf8,s,byte) global() argument
873 bool utf8 = (symptr->flags & FLAG_PARSE_UTF8) ? 1 : 0; S_unpack_rec() local
2112 bool utf8 = (symptr->flags & FLAG_PARSE_UTF8) ? 1 : 0; S_pack_rec() local
[all...]
H A DREADME.tw7 =encoding utf8
36 perl -MEncode -pe '$_= encode( utf8 => decode( big5 => $_ ) )' \
37 < file.big5 > file.utf8
41 piconv -f big5 -t utf8 < file.big5 > file.utf8
42 piconv -f utf8 -t big5 < file.utf8 > file.big5
44 另外，若程式碼本身以 utf8 編碼儲存，配合使用 utf8 模組，可讓程式碼中字串以及其運
48 use utf8;
/openbsd-src/gnu/usr.bin/perl/cpan/JSON-PP/t/
H A D108_decode.t16 no utf8;
21 is($json->decode(q|"ü"|), "ü"); # utf8
23 is($json->decode(q|"\u00c3\u00bc"|), "\xc3\xbc"); # utf8
25 my $str = 'あ'; # Japanese 'a' in utf8
31 utf8::decode($str); # usually UTF-8 flagged on, but no-op for 5.005.
38 my $utf8 = $json->decode(q|"\ud809\udc00"|);
40 utf8::encode($utf8); # UTF-8 flagged off
42 is($utf8, ($isASCII) ? "\xf0\x92\x90\x80" : "\xDE\x4A\x41\x41");
/openbsd-src/gnu/usr.bin/perl/dist/threads-shared/t/
H A Dutf8.t46 binmode STDOUT, ":utf8";
49 my $utf8 = "\x{123}\x{84}\x{20F}\x{2C1}";
54 $a{$utf8} = $utf8;
58 is(exists($a{$utf8}), 1, 'Found UTF-8 key in shared hash');
64 } elsif ($key eq $utf8) {
65 is($key, $utf8, 'UTF-8 key in shared hash');
75 $$a{$utf8} = $utf8;
79 is(exists($$a{$utf8}), 1, 'Found UTF-8 key in shared hash ref');
85 } elsif ($key eq $utf8) {
86 is($key, $utf8, 'UTF-8 key in shared hash ref');
/openbsd-src/gnu/usr.bin/perl/t/re/
H A Dcharset.t33 utf8::unicode_to_native(0x85),
34 utf8::unicode_to_native(0xA0),
72 push @{$testcases{'[:cntrl:]'}}, utf8::unicode_to_native($_)
74 push @{$testcases{'[:blank:]'}}, utf8::unicode_to_native(0xA0);
75 push @{$testcases{'[:punct:]'}}, utf8::unicode_to_native(0xA1);
76 push @{$testcases{'[:graph:]'}}, utf8::unicode_to_native($_)
78 push @{$testcases{'[:punct:]'}}, utf8::unicode_to_native(0xA7);
79 push @{$testcases{'[:graph:]'}}, utf8::unicode_to_native(0xA8);
80 push @{$testcases{'[:graph:]'}}, utf8::unicode_to_native(0xA9);
81 push @{$testcases{'[:lower:]'}}, utf8
[all...]
/openbsd-src/gnu/usr.bin/perl/cpan/MIME-Base64/t/
H A Dunicode.t35 if (defined &utf8::is_utf8) {
37 ok(utf8::is_utf8($str));
39 ok(utf8::is_utf8($str));
41 ok(utf8::is_utf8($str));
43 ok(utf8::is_utf8($str));
45 utf8::downgrade($str);
46 ok(!utf8::is_utf8($str));
48 ok(!utf8::is_utf8($str));
/openbsd-src/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/t/
H A Dunicode.t15 use utf8;
32 use utf8;
44 use utf8;
48 =encoding utf8
61 use utf8;
63 =encoding utf8
99 open my $json_fh, '<:utf8', 'MYMETA.json' or die $!;
103 no utf8; # leave the data below as bytes and let Encode sort it out
105 my $str = Encode::decode( 'utf8', "Danijel Tašov's" );
106 like( $json, qr/$str/, 'utf8 abstract' );
[all …]
/openbsd-src/gnu/usr.bin/perl/t/base/
H A Dtranslate.t9 my $uni = utf8::native_to_unicode($i);
13 elsif (utf8::unicode_to_native(utf8::native_to_unicode($i)) != $i) {
23 if (utf8::unicode_to_native(utf8::native_to_unicode(100000)) != 100000) {
/openbsd-src/gnu/usr.bin/perl/cpan/Pod-Simple/t/
H A DJustPod01.t8 use utf8;
64 package utf8::all;
73 use parent qw(Encode charnames utf8 open warnings feature);
77 'utf8'->import::into($target);
80 'warnings'->import::into($target, qw{FATAL utf8});
89 # utf8 in @ARGV
93 $^H{'utf8::all'} = 1;
128 utf8::all - turn on Unicode - all of it
136 use utf8::all; # Turn on UTF-8. All of it.
138 open my $in, '<', 'contains-utf8'; # UT
[all...]

12345678910>>...21