Home
last modified time | relevance | path

Searched refs:chr (Results 1 – 25 of 257) sorted by relevance

1234567891011

/openbsd/gnu/usr.bin/perl/t/opbasic/
H A Dqq.t41 is ("\x53", chr 83);
49 is ("\x{4E}", chr 78);
50 is ("\x{ 4E }", chr 78);
51 is ("\x{6_9}", chr 105);
59 is ("\x{0x4E}", chr 0);
60 is ("\x{x4E}", chr 0);
64 chr 114);
68 is ("\400", chr 0x100);
69 is ("\600", chr 0x180);
70 is ("\777", chr 0x1FF);
[all …]
/openbsd/gnu/usr.bin/perl/t/op/
H A Dord.t18 is(ord(chr(500)), 500, "compile time chr 500");
26 ok(chr 65 eq 'A' || chr 193 eq 'A', "chr can produce 'A'");
29 is(ord(chr($x)), $x, "runtime chr $x");
40 is(ord(chr( 0x100)), 0x100, '0x0100');
45 is(ord(chr( 0xFFF)), 0xFFF, '0x0FFF');
46 is(ord(chr( 0x1000)), 0x1000, '0x1000');
49 is(ord(chr( 0xCFFF)), 0xCFFF, '0xCFFF');
50 is(ord(chr( 0xD000)), 0xD000, '0xD000');
51 is(ord(chr( 0xD7FF)), 0xD7FF, '0xD7FF');
54 is(ord(chr( 0xE000)), 0xE000, '0xE000');
[all …]
H A Dchr.t17 is(chr( 0), "\x00");
18 is(chr(127), "\x7F");
39 $t = -1; is chr $t, chr -1, 'chr $tied when $tied is -1';
40 $t = -2; is chr $t, chr -2, 'chr $tied when $tied is -2';
41 $t = -1.1; is chr $t, chr -1.1, 'chr $tied when $tied is -1.1';
42 $t = -2.2; is chr $t, chr -2.2, 'chr $tied when $tied is -2.2';
45 is chr "-1", chr -1, 'chr "-1" eq chr -1';
46 is chr "-2", chr -2, 'chr "-2" eq chr -2';
47 is chr "-1.1", chr -1.1, 'chr "-1.1" eq chr -1.1';
48 is chr "-2.2", chr -2.2, 'chr "-2.2" eq chr -2.2';
[all …]
H A Dver.t109 is(sprintf("%vd", join("", map { chr }
178 is($vs,chr(1).chr(20).chr(300).chr(4000),"v-string ne chr()");
201 is(v200, chr(200), "v200 eq chr(200)" );
240 ok( exists $h{chr(65).chr(66)}, "v-stringness is engaged for vX.Y" );
242 ok( exists $h{chr(65).chr(66).chr(67)}, "v-stringness is engaged for X.Y.Z" );
H A Djoin.t50 { my $s = join("", chr(0x1234), chr(0xff));
54 { my $s = join(chr(0xff), chr(0x1234), "");
58 { my $s = join(chr(0x1234), chr(0xff), chr(0x2345));
62 { my $s = join(chr(0xff), chr(0x1234), chr(0xfe));
H A Dlc.t191 $_ .= chr 256;
369 push @unicode_lc, lc(chr $i);
370 push @unicode_fc, fc(chr $i);
371 push @unicode_uc, uc(chr $i);
372 push @unicode_lcfirst, lcfirst(chr $i);
373 push @unicode_ucfirst, ucfirst(chr $i);
377 $unicode_lc[ord 'I'] = chr 0x131;
378 $unicode_fc[ord 'I'] = chr 0x131;
379 $unicode_lcfirst[ord 'I'] = chr 0x131;
380 $unicode_uc[ord 'i'] = chr 0x130;
[all …]
H A Devalbytes.t25 chop((my $upcode = $code) .= chr 256);
32 is evalbytes "use utf8; $U_100", chr 256, 'use utf8 within evalbytes';
33 chop($upcode = "use utf8; $U_100" . chr 256);
34 is evalbytes $upcode, chr 256, 'use utf8 within evalbytes on utf8 string';
35 eval { evalbytes chr 256 };
H A Dchop.t264 my $utf = chr(0x80000001) . chr(0x80000000);
266 is($utf, chr(0x80000001), "chopping high 'unicode'- remnant");
267 is($result, chr(0x80000000), "chopping high 'unicode' - result");
270 $utf = chr(0x7fffffffffffffff) . chr(0x7ffffffffffffffe);
272 is($utf, chr(0x7fffffffffffffff), "chop even higher 'unicode'- remnant");
273 is($result, chr(0x7ffffffffffffffe), "chop even higher 'unicode' - result");
H A Dutfhash.t44 my $b = $a.chr(100);
55 $hash8{chr(0x1ff)} = 0x1ff;
65 my $b = $a.chr(100);
71 is(delete $hashu{chr(0x1ff)},0x1ff);
81 my $b = $a.chr(100);
96 my $u0 = chr (0xdf)x4; # Make this 4 chars so that all lengths are distinct.
138 $utf8_sz .= chr 256;
/openbsd/gnu/usr.bin/perl/t/io/
H A Dutf8.t37 is( getc(F), $chr );
39 is( getc(F), $chr );
41 is( getc(F), $chr );
49 $buf = chr(0x200);
72 $chr = byte_utf8a_to_utf8n(chr(196).chr(172));
118 is( $x, chr(300).chr(130), sprintf('(%vd)', $x) );
146 is( $x, $chr );
305 is( $s, chr($v->[0]) . chr($u->[0]), 'rcatline utf8' );
332 my ($chrE4, $chrF6) = (chr(0xE4), chr(0xF6));
334 { ($chrE4, $chrF6) = (chr(0x43), chr(0xEC)); }
[all …]
/openbsd/gnu/usr.bin/perl/t/uni/
H A Dvariables.t90 $name = "'$chr'";
147 evalbytes "\$$chr;";
150 utf8::upgrade($chr);
206 my $utf8 = $chr;
231 if ($chr =~ /[#*]/) {
273 for my $chr (
282 eval "\$$chr = 1; \$$chr";
290 my $chr = chr($i);
293 eval "my \$$chr = q<test>; \$$chr;";
327 \$$chr = q{\$};
[all …]
H A Dsprintf.t72 is($s, chr($c), "%c c");
77 is($s, $a.chr($c), "%s%c a c");
82 is($s, chr($c).$a, "%c%s c a");
87 is($s, chr($c).$b, "%cb c");
92 is($s, $a.chr($c).$b, "%s%cb a c");
97 is($s, chr($c).$a.$b, "%c%sb c a");
102 is($s, $b.chr($c), "b%c c");
107 is($s, $b.$a.chr($c), "b%s%c a c");
112 is($s, $b.chr($c).$a, "b%c%s c a");
141 my @values =(chr 110, chr 255, chr 256);
/openbsd/gnu/usr.bin/perl/t/lib/warnings/
H A Dutf8202 chr(0x110050) =~ /\w/;
203 chr(0x110051) =~ /\W/;
204 chr(0x110052) =~ /\d/;
205 chr(0x110053) =~ /\D/;
206 chr(0x110054) =~ /\s/;
207 chr(0x110055) =~ /\S/;
263 chr(0x110050) =~ /\w/;
264 chr(0x110051) =~ /\W/;
265 chr(0x110052) =~ /\d/;
266 chr(0x110053) =~ /\D/;
[all …]
/openbsd/gnu/usr.bin/perl/cpan/Digest-SHA/t/
H A Dwoodbury.t69 chr(0xdd) x 50
70 chr(0xcd) x 50
74 chr(0x0b) x 20
76 chr(0xaa) x 20
78 chr(0x0c) x 20
79 chr(0xaa) x 80
80 chr(0xaa) x 80
90 chr(0xdd) x 50
91 chr(0xcd) x 50
95 chr(0x0b) x 20
[all …]
H A Drfc2202.t10 chr(0x0b) x 20,
12 chr(0xaa) x 20,
13 join("", map { chr } (1 .. 25)),
14 chr(0x0c) x 20,
15 chr(0xaa) x 80,
16 chr(0xaa) x 80
39 chr(0xdd) x 50
40 chr(0xcd) x 50
H A Dhmacsha.t11 my $k1 = join( "", map { chr } (1 .. 32) );
12 my $k2 = join( "", map { chr } (1 .. 37) );
18 chr(0x0b) x 32,
20 chr(0xaa) x 32,
22 chr(0x0c) x 32,
23 chr(0xaa) x 80,
24 chr(0xaa) x 80
59 chr(0xdd) x 50
60 chr(0xcd) x 50
H A Dfips198.t15 for (0x00 .. 0x00+63) { $keys[0] .= chr($_) }
16 for (0x30 .. 0x30+19) { $keys[1] .= chr($_) }
17 for (0x50 .. 0x50+99) { $keys[2] .= chr($_) }
18 for (0x70 .. 0x70+48) { $keys[3] .= chr($_) }
/openbsd/gnu/usr.bin/perl/cpan/Encode/bin/
H A Dunidump38 $outbuf .= $chr;
46 $outbuf .= $chr;
54 my ($chr, $format) = @_;
56 $S2pstr{$chr} and return $S2pstr{$chr}; # \t\n...
57 $chr =~ /[\x20-\x7e]/ and return $chr; # ascii, printable;
119 my (@ord, @chr);
123 my $ord = ord($chr);
126 $Opt{C} and push @chr, render_c($chr);
141 $chr =~ /[\p{IsControl}\s]/o and return $S2str{$chr} || " ";
142 $chr =~ $IsFullWidth and return $chr; # as is
[all …]
/openbsd/gnu/usr.bin/perl/dist/Storable/t/
H A Dutf8.t24 my $x = chr(1234);
28 $x = join '', map {chr $_} (0..1023);
33 $x = ($] lt 5.007_003) ? chr(175) : chr(utf8::unicode_to_native(175))
34 . chr (256);
41 $x = chr 256;
45 $data .= chr 256;
50 $data .= chr 256;
H A Dmalice.t58 my %hash = (perl => 'rules', chr 256, '');
59 delete $hash{chr 256};
157 substr ($copy, $file_magic + 1, 1) = chr $minor6;
172 substr ($copy, $file_magic, 1) = chr 2*$major1;
179 substr ($copy, $file_magic + 1, 1) = chr $minor1;
201 substr ($copy, $where++, 1) = chr 0;
211 $copy = substr ($contents, 0, $where) . chr 255;
218 substr ($copy, $file_magic + 1, 1) = chr $minor1;
224 substr ($copy, $file_magic + 1, 1) = chr $minor6;
297 chop(my $a = chr(0xDF).chr(256));
[all …]
/openbsd/gnu/llvm/lldb/third_party/Python/module/progress/
H A Dprogress.py23 light_block = chr(0x2591).encode("utf-8")
24 solid_block = chr(0x2588).encode("utf-8")
25 solid_right_arrow = chr(0x25BA).encode("utf-8")
31 fill=chr(0x25C9).encode("utf-8"),
32 blank=chr(0x25CC).encode("utf-8"),
33 marker=chr(0x25CE).encode("utf-8"),
93 fill=chr(0x25C9).encode("utf-8"),
94 blank=chr(0x25CC).encode("utf-8"),
95 marker=chr(0x25CE).encode("utf-8"),
131 fill=chr(0x25C9).encode("utf-8"),
[all …]
/openbsd/gnu/usr.bin/perl/lib/
H A Dlocale.t1330 for (map { chr } 0..255) {
1344 for (map { chr } 0..255) {
1358 for (map { chr } 0..255) {
1372 for (map { chr } 0..255) {
1432 for (map { chr } 0..255) {
1460 for (map { chr } 0..255) {
1474 for (map { chr } 0..255) {
1617 for my $chr (map { chr } 0..255) {
1629 push @f, $chr if ord $chr != $previous_ord + 1;
1632 push @f, $chr if ord $chr != $previous_ord + 1;
[all …]
/openbsd/gnu/usr.bin/perl/t/re/
H A Dreg_fold.t64 my $chr="\\x{$cp}";
72 $rhs = $chr;
76 $lhs = $chr;
148 my $chr = sprintf "\\x%02X", $i;
151 …push @tests, qq[like chr($hex_fold_ascii), qr/(?d:$chr)/i, 'chr($hex_fold_ascii) =~ qr/(?d:$chr)/i…
152 …push @tests, qq[like chr($hex_fold_latin1), qr/(?u:$chr)/i, 'chr($hex_fold_latin1) =~ qr/(?u:$chr)…
/openbsd/gnu/usr.bin/perl/t/comp/
H A Dutf.t75 map { chr((1 << $_) - 1), chr(1 << $_) } 7 .. 20
87 for my $chr ("\x{10000}", "\x{1000a}", "\x{12800}") {
94 test($enc, " \n$padding'$chr'", $chr, $bom, $nl,
95 sprintf "'\\x{%x}' with $pad spaces before it", ord $chr);
/openbsd/gnu/usr.bin/perl/lib/feature/
H A Dunicode_strings.t21 $posix_to_upper[$i] = chr($i);
36 $latin1_to_lower[$upper_ord] = chr($lower_ord);
40 $posix_to_lower[$upper_ord] = chr($lower_ord);
48 $latin1_to_upper[$lower_ord] = chr($upper_ord);
49 $latin1_to_title[$lower_ord] = chr($upper_ord);
53 $posix_to_upper[$lower_ord] = chr($upper_ord);
54 $posix_to_title[$lower_ord] = chr($upper_ord);
73 $cyrillic{'uc'} = chr(0x42F) x $repeat;
74 $cyrillic{'lc'} = chr(0x44F) x $repeat;
94 my $char = chr($i);
[all …]

1234567891011