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

1234

/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/run/
H A Dswitch0.t3 print ord $/ == 0 ? "ok 1\n" : "not ok 1\n";
/opensolaris-onvv-gate/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;
/opensolaris-onvv-gate/usr/src/common/openssl/crypto/des/t/
H A Dtest10 foreach (@a) { printf "%02x-",ord($_); }
17 foreach (@a) { printf "%02x-",ord($_); }
22 foreach (@a) { printf "%02x-",ord($_); }
25 foreach (@a) { printf "%02x-",ord($_); }
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/uni/
H A Dtr_eucjp.t17 if (ord("A") == 193) {
38 my @hiragana = map {chr} ord("��")..ord("��");
39 my @katakana = map {chr} ord("��")..ord("��");
H A Dtr_sjis.t17 if (ord("A") == 193) {
38 my @hiragana = map {chr} ord("��")..ord("��");
39 my @katakana = map {chr} ord("�@")..ord("��");
H A Dtr_utf8.t18 if (ord("A") == 193) {
39 my @hiragana = map {chr} ord("���")..ord("���");
40 my @katakana = map {chr} ord("���")..ord("���");
H A Dtr_7jis.t18 if (ord("A") == 193) {
39 my @hiragana = map {chr} ord("$B$!(B")..ord("$B$s(B");
40 my @katakana = map {chr} ord("$B%!(B")..ord("$B%s(B");
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Digest/MD5/t/
H A Dutf8.t25 my $exp = ord "A" == 193 ? # EBCDIC
/opensolaris-onvv-gate/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...]
/opensolaris-onvv-gate/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...]
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/IO/t/
H A Dio_utf8.t28 is(ord(<$io>), 256, "readline chr(256)");
/opensolaris-onvv-gate/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;
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Net/t/
H A Drequire.t11 if (ord('A') == 193 && !eval "require Convert::EBCDIC") {
/opensolaris-onvv-gate/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...]
/opensolaris-onvv-gate/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 &&
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Search/
H A DDict.t52 if (ord('a') > ord('A') ) { # ASCII

Completed in 305 milliseconds

1234