Searched refs:ord (Results 1 - 25 of 73) sorted by relevance

123

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/run/
H A Dswitch0.t3 print ord $/ == 0 ? "ok 1\n" : "not ok 1\n";
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dchars.t10 print +((ord($c) == 0) ? "" : "not "),"ok 1\n";
12 print +((ord($c) == 1) ? "" : "not "),"ok 2\n";
14 print +((ord($c) == 2) ? "" : "not "),"ok 3\n";
16 print +((ord($c) == 3) ? "" : "not "),"ok 4\n";
18 print +((ord($c) == 4) ? "" : "not "),"ok 5\n";
20 print +((ord($c) == 5) ? "" : "not "),"ok 6\n";
22 print +((ord($c) == 6) ? "" : "not "),"ok 7\n";
24 print +((ord($c) == 7) ? "" : "not "),"ok 8\n";
26 print +((ord($c) == 8) ? "" : "not "),"ok 9\n";
28 print +((ord(
[all...]
H A Dord.t16 ok(ord('A') == 65 || ord('A') == 193, "ord('A') is ".ord('A'));
18 is(ord(chr(500)), 500, "compile time chr 500");
24 ok(ord($x) == 65 || ord($x) == 193, "ord('$x') is ".ord($x));
29 is(ord(ch
[all...]
H A Dlex_assign.t28 $ord = 0;
33 $ord++;
37 print "ok $ord\n";
46 $ord++;
48 print "ok $ord\n";
52 $ord++;
54 print "ok $ord\n";
56 $ord++;
60 print "ok $ord\n";
72 $ord
[all...]
H A Dutfhash.t39 is($hash8{$a},ord($a));
40 is($hashu{$a},ord($a));
42 is($hash8{$a},ord($a));
43 is($hashu{$a},ord($a));
46 is($hash8{$b},ord($b));
47 is($hashu{$b},ord($b));
51 is(join('',sort { ord $a <=> ord $b } keys %hash8),"\x7f\xff");
52 is(join('',sort { ord $a <=> ord
[all...]
H A Dver.t22 if (ord("\t") == 9) { # ASCII
43 if (ord("\t") == 9) { # ASCII
61 if (ord("\t") == 9) { # ASCII
69 if (ord("\t") == 9) { # ASCII
80 if (ord("\t") == 9) { # ASCII
89 if (ord("\t") == 9) { # ASCII
98 if (ord("\t") == 9) { # ASCII
115 if (ord("\t") == 9) { # ASCII
122 if (ord("\t") == 9) { # ASCII
129 if (ord("\
[all...]
H A Dsprintf2.t58 foreach my $ord (0 .. 255) {
67 my $r = eval {sprintf '%v' . chr $ord};
68 is ($bad, 0, "pattern '%v' . chr $ord");
H A Dlength.t43 if (ord('A') == 193)
64 if (ord('A') == 193)
85 if (ord('A') == 193)
106 if (ord('A') == 193)
H A Dbop.t45 $Aaz = chr(ord("A") & ord("z"));
46 $Aoz = chr(ord("A") | ord("z"));
47 $Axz = chr(ord("A") ^ ord("z"));
102 my $Is_EBCDIC = (ord('A') == 193) ? 1 : 0;
H A Dlc.t75 if (ord("A") == 193) { # EBCDIC
78 } elsif (ord("A") == 65) {
88 if (ord("A") == 193) { # EBCDIC
91 } elsif (ord("A") == 65) {
H A Dsplit.t138 @ary = map {ord} split //, v1.20.300.4000.50000.4000.300.20.1;
159 my @a = map ord, split(//, join("", map chr, (1234, 123, 2345)));
165 my @a = map ord, split(/$x/, join("", map chr, (1234, ord($x), 2345)));
180 $r = $r . " " . sprintf "U+%04X", ord($ch);
190 if (ord('A') == 193) {
207 if (ord('A') == 193) {
H A Doct.t93 if (ord("\t") != 9) {
106 if (ord("\t") != 9) {
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Digest/MD5/t/
H A Dutf8.t25 my $exp = ord "A" == 193 ? # EBCDIC
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Dopen.t85 is(ord(<I>), 0x100, ":utf8 single wide character round-trip");
110 ord($b) == ord($_) &&
113 print '# ord($_) == ', ord($_), "\n";
114 print '# ord($b) == ', ord($b), "\n";
136 print '# ord($_) == ', ord($_), "\n";
156 ord(
[all...]
H A Dcharnames.t49 if (ord('A') == 65) { # as on ASCII or UTF-8 machines
105 print "not " unless ord($x) == ord($named);
129 if (ord("�") == 0xc4) { # Try to do this only on Latin-1.
132 print "not " unless $text eq "\xc4" && ord($text) == 0xc4;
202 my $nel = ord("A") == 193 ? qr/^(?:\x15|\x25)$/ : qr/^\x85$/;
242 print "not " unless ord("\N{BOM}") == 0xFEFF;
246 print "not " unless ord("\N{ZWNJ}") == 0x200C;
249 print "not " unless ord("\N{ZWJ}") == 0x200D;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/Unicode/
H A DUnicode.xs133 UV ord = enc_unpack(aTHX_ &s,e,size,endian);
135 if (size != 4 && invalid_ucs2(ord)) {
140 ord);
146 ord = FBCHAR;
150 if (!isHiSurrogate(ord)) {
153 ord);
164 ord);
166 ord = 0x10000 + ((ord - 0xD800) << 10) + (lo - 0xDC00);
170 d = uvuni_to_utf8_flags(d+SvCUR(result), ord,
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/io/
H A Dprint.t26 my @a = ("ok %d%c",9,ord("\n"));
H A Dutf8.t32 if (ord('A') == 193) { $chr = chr(0x8c); } # EBCDIC
35 if (ord('A') == 193) { $chr = chr(0x41); } # EBCDIC
38 if (ord('A') == 193) { $chr = chr(0x80); } # EBCDIC
41 if (ord('A') == 193) { $chr = chr(0x44); } # EBCDIC
72 if (ord('A') == 193) { $chr = chr(141).chr(83); } # EBCDIC
100 { use bytes; if (ord('A')==193){$y += 2;}else{$y += 3;}} # EBCDIC ASCII
111 if (ord('A') == 193) { $chr = v141.83.130; } # EBCDIC
146 if (ord('A') == 193) { $chr = v141.83.130; } # EBCDIC
164 if (ord('A') == 193) {
191 ord(
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/t/
H A Dio_utf8.t28 is(ord(<$io>), 256, "readline chr(256)");
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/t/
H A Disvstring.t29 $vs = ord("A") == 193 ? 241.75.240 : 49.46.48;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Net/t/
H A Drequire.t11 if (ord('A') == 193 && !eval "require Convert::EBCDIC") {
H A Dhostname.t11 if (ord('A') == 193 && !eval "require Convert::EBCDIC") {
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/t/
H A Dfallback.t9 if (ord("A") == 193) {
63 printf "# %x\n",ord($line);
71 printf "# %x\n",ord($line);
H A Dencoding.t48 if (ord('A') == 193) { # EBCDIC
105 if (ord($buf1) == 0x3c &&
106 ord($buf2) == (ord('A') == 193) ? 0x6f : 0x3f &&
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Search/
H A DDict.t52 if (ord('a') > ord('A') ) { # ASCII

Completed in 49 milliseconds

123