Searched refs:chr (Results 1 - 25 of 66) sorted by relevance

123

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dqq.t24 s/([^-+A-Za-z_0-9])/sprintf q{'.chr(%d).'}, ord $1/ge;
38 is ("\x53", chr 83);
39 is ("\x4EE", chr (78) . 'E');
40 is ("\x4i", chr (4) . 'i'); # This will warn
41 is ("\xh", chr (0) . 'h'); # This will warn
42 is ("\xx", chr (0) . 'x'); # This will warn
43 is ("\xx9", chr (0) . 'x9'); # This will warn. \x9 is tab in EBCDIC too?
44 is ("\x9_E", chr (9) . '_E'); # This will warn
46 is ("\x{4E}", chr 78);
47 is ("\x{6_9}", chr 10
[all...]
H A Dbop.t45 $Aaz = chr(ord("A") & ord("z"));
46 $Aoz = chr(ord("A") | ord("z"));
47 $Axz = chr(ord("A") ^ ord("z"));
107 $a = ~(chr $_);
110 if $a ne chr(~$_) or length($a) != 1;
114 if $a ne chr(~$_) or length($a) != 1 or ~$a ne chr($_);
123 $a = ~(chr ($i) . chr $j);
126 if $a ne chr(~
[all...]
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");
H A Djoin.t48 { my $s = join("", chr(0x1234), chr(0xff));
53 { my $s = join(chr(0xff), chr(0x1234), "");
58 { my $s = join(chr(0x1234), chr(0xff), chr(0x2345));
63 { my $s = join(chr(0xff), chr(0x1234), chr(
[all...]
H A Dver.t108 is(sprintf("%vd", join("", map { chr }
177 is($vs,chr(1).chr(20).chr(300).chr(4000),"v-string ne chr()");
178 is('foo',((chr(193) eq 'A') ? v134.150.150 : v102.111.111),"v-string ne ''");
200 is(v200, chr(200), "v200 eq chr(200)" );
262 ok( exists $h{chr(6
[all...]
H A Dquotemeta.t13 $_ = join "", map chr($_), 129..233;
22 $_ = join "", map chr($_), 32..127;
H A Dhashassign.t187 foreach my $chr (60, 200, 600, 6000, 60000) {
189 my ($key, $value) = (chr ($chr) . "\x{ABCD}", "$chr\x{ABCD}");
198 my $tempval = sprintf '$utf8c{"\x{%x}"}', $chr;
200 $tempval = sprintf '@temp = ("\x{%x}" => undef)', $chr;
217 $tempval = sprintf '$temp{"\x{%x}"}', $chr;
219 $tempval = sprintf '@temp = ("\x{%x}" => undef)', $chr;
231 my $assign = sprintf '("\x{%x}" => "%d")', $chr, $chr;
[all...]
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;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/
H A Dbytes.t21 my $chr = chr(400);
22 is( length $chr, 1 );
26 is( length $chr, 2, 'byte.pm in effect' );
29 is( length $chr, 1, ' score is lexical' );
/osnet-11/usr/src/lib/libxcurses/src/libc/xcurses/
H A Dunctrl.c89 static char chr[5]; local
114 chr[0] = 'M';
115 chr[1] = '-';
119 chr[2] = *str++;
120 chr[3] = *str;
121 chr[4] = '\0';
123 chr[2] = c;
124 chr[3] = '\0';
128 chr[0] = c;
129 chr[
[all...]
/osnet-11/usr/src/lib/libxcurses2/src/libc/xcurses/
H A Dunctrl.c94 static char chr[5]; local
120 chr[0] = 'M';
121 chr[1] = '-';
125 chr[2] = *str++;
126 chr[3] = *str;
127 chr[4] = '\0';
129 chr[2] = (char)c;
130 chr[3] = '\0';
134 chr[0] = (char)c;
135 chr[
[all...]
/osnet-11/usr/src/cmd/ldap/ns_ldap/
H A Dstandalone.c61 char *chr, *portStr = NULL; local
63 chr = strchr(peer, '[');
64 if (chr != NULL) {
66 chr = strchr(peer, ']');
67 if (chr == NULL) {
76 chr = strchr(chr, ':');
79 chr = strchr(peer, ']');
80 if (chr != NULL) {
89 chr
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/io/
H A Dutf8.t21 print F chr(0x100).'�';
26 ok( getc(F) eq chr(0x100) );
31 my $chr = chr(0xc4);
32 if (ord('A') == 193) { $chr = chr(0x8c); } # EBCDIC
33 ok( getc(F) eq $chr );
34 $chr = chr(0x80);
35 if (ord('A') == 193) { $chr
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/
H A Dutf8.t35 my $x = chr(1234);
39 $x = join '', map {chr $_} (0..1023);
43 $x = chr (175) . chr (256);
H A Dmalice.t63 # The chr 256 is a hack to force the hash to always have the utf8 keys flag
67 my %hash = (perl => 'rules', chr 256, '');
68 delete $hash{chr 256};
180 substr ($copy, $file_magic + 1, 1) = chr $minor4;
195 substr ($copy, $file_magic, 1) = chr 2*$major1;
202 substr ($copy, $file_magic + 1, 1) = chr $minor1;
224 substr ($copy, $where++, 1) = chr 0;
234 $copy = substr ($contents, 0, $where) . chr 255;
241 substr ($copy, $file_magic + 1, 1) = chr $minor1;
247 substr ($copy, $file_magic + 1, 1) = chr
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Devel/Peek/t/
H A DPeek.t328 chr(256).chr(0).chr(512),
337 chr(256).chr(0).chr(512),
348 {chr(256)=>chr(512)},
374 {chr(256)=>chr(51
[all...]
/osnet-11/usr/src/lib/libast/common/string/
H A Dtok.c43 char chr; /* replace *end with this */ member in struct:Tok_s
63 p->chr = *(p->ptr.end = s);
78 if (p->flg == FLG_RESTORE && *p->ptr.end != p->chr)
79 *p->ptr.end = p->chr;
104 if (!p->chr)
113 if (*s != p->chr)
114 *s = p->chr;
131 p->chr = 0;
169 p->chr = 0;
173 p->chr
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/base/
H A Dterm.t15 if ($x eq chr(10)) { print "ok 1\n";}
16 elsif ($x eq chr(13)) { print "ok 1 # Mac OS\n"; }
17 elsif ($x eq chr(21)) { print "ok 1 # EBCDIC\n"; }
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/uni/
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");
/osnet-11/usr/src/grub/grub2/grub-core/term/arc/
H A Dconsole.c30 char chr; local
35 if (GRUB_ARC_FIRMWARE_VECTOR->read (GRUB_ARC_STDIN, &chr, 1, &count))
39 return chr;
46 char chr = c; local
48 GRUB_ARC_FIRMWARE_VECTOR->write (GRUB_ARC_STDOUT, &chr, 1, &count);
/osnet-11/usr/src/grub/grub-0.97/stage2/
H A Dgraphics.c662 unsigned char *pat, *mem, *ptr, chr[16 << 2]; local
680 chr[i ] = ((unsigned char*)VSHADOW1)[offset];
681 chr[16 + i] = ((unsigned char*)VSHADOW2)[offset];
682 chr[32 + i] = ((unsigned char*)VSHADOW4)[offset];
683 chr[48 + i] = ((unsigned char*)VSHADOW8)[offset];
691 chr[i ] &= pmask;
692 chr[16 + i] &= pmask;
693 chr[32 + i] &= pmask;
694 chr[48 + i] &= pmask;
699 chr[
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dutf.t16 my $BOM = chr(0xFEFF);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/t/
H A Dio_utf8.t23 ok((print $io chr(256)), "print chr(256)");
28 is(ord(<$io>), 256, "readline chr(256)");
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/XS/APItest/t/
H A Dhash.t33 my $utf8_for_258 = chr 258;
36 my @testkeys = ('N', chr 198, chr 256);
52 is (XS::APItest::Hash::store(\%h, chr 258, 1), 1);
65 my $lckey = ($key eq chr 198) ? chr 230 : lc $key;
83 perform_test (\&test_absent, (chr 258), $keys, '');
85 perform_test (\&test_fetch_absent, (chr 258), $keys, '');
86 perform_test (\&test_delete_absent, (chr 258), $keys, '');
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/t/
H A Dgrow.t21 my $c = chr($i);

Completed in 91 milliseconds

123