Searched refs:chr (Results 26 - 50 of 66) sorted by relevance

123

/osnet-11/usr/src/lib/libcmd/common/
H A Dcut.c85 int chr; member in struct:Delim_s
151 cut->space[wdelim->chr] = SP_WORD;
153 cut->eob = (ldelim->len == 1) ? ldelim->chr : 0;
355 sfputc(fdout, cut->ldelim.chr);
459 if (w == cut->ldelim.chr)
460 lastchar = cut->ldelim.chr;
461 else if (w != cut->wdelim.chr)
479 if (c == cut->wdelim.chr)
484 if (c == cut->ldelim.chr)
506 if (lastchar == cut->ldelim.chr)
[all...]
H A Dpaste.c76 const char* chr; member in struct:Delim_s
133 sfwrite(out,mp[d].chr,mp[d].len);
162 sfwrite(out,mp[d].chr,mp[d].len);
240 mp[dlen].chr = cp;
242 mp[dlen].len = cp - mp[dlen].chr;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dlength.t140 my $a = chr(256) x 100;
146 $a = chr(256) x 999;
H A Dsprintf2.t67 my $r = eval {sprintf '%v' . chr $ord};
68 is ($bad, 0, "pattern '%v' . chr $ord");
H A Dregexp.t50 $ffff = chr(0xff) x 2;
H A Dlc.t152 $_ .= chr 256;
H A Dsplit.t159 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)));
H A Dpat.t973 @a = map chr,0..255;
1102 vt => chr(11),
1324 my $X = chr(1448);
1344 $X =~ s/^/chr(1488)/e;
1901 print "not " unless chr(0x100) =~ /\p{IsLatin}/; # outside Latin-1
1904 print "not " unless chr(0x212b) =~ /\p{IsLatin}/; # Angstrom sign, very outside
1907 print "not " unless chr(0x5d0) =~ /\p{IsHebrew}/; # inside InHebrew
1910 print "not " unless chr(0xfb4f) =~ /\p{IsHebrew}/; # outside InHebrew
1914 # print "not " unless chr(0xb5) =~ /\p{IsGreek}/ or ord("A") == 193;
1918 print "not " unless chr(
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Safe/t/
H A Dsafeutf8.t24 my $trigger = q{ my $a = pack('U',0xC4); my $b = chr 0xE4; utf8::upgrade $b; $a =~ /$b/i };
/osnet-11/usr/src/lib/libtsnet/common/
H A Dmisc.c56 char chr; local
65 while (outlen != 1 && (chr = *instr++) != '\0') {
67 if (chr == '\\') {
71 if (strchr(delimit, chr) != NULL)
73 if (any_white && isspace(chr))
78 *outbuf++ = chr;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Dutf8.t134 my $char = chr $_;
143 = join " . ", map {sprintf 'chr (%d)', ord $_} split //, $char;
149 'my @a = ("'.chr(60).'\x2A", ""); $b = show @a', qr/^>60,42<><$/],
151 '$a = "' . chr (173) . '"; $b = show $a', qr/^>173<$/],
153 'no utf8; $a = "' . chr (173) . '"; $b = show $a', qr/^>173<$/],
156 ["the utf8 sequence for chr $_->[0]",
158 ["no utf8; for the utf8 sequence for chr $_->[0]",
160 ["use utf8; for the utf8 sequence for chr $_->[0]",
209 ["assign utf8 for chr $_->[0] to a hash",
213 ["no utf8; assign utf8 for chr
[all...]
H A Dopen.t82 print O chr(0x100);
90 @a = map { chr(1 << ($_ << 2)) } 0..5; # 0x1, 0x10, .., 0x100000
91 unshift @a, chr(0); # ... and a null byte in front just for fun
203 print O chr(0x430); # Unicode CYRILLIC SMALL LETTER A = KOI8-R 0xc1
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/run/
H A DswitchC.t26 prog => 'print chr(256)',
43 prog => 'warn chr(256), qq(\n)',
48 prog => 'open(F, q(>out)); print F chr(256); close F',
62 args => [ chr(256) ] );
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/t/
H A Dio_sock.t300 $sock->print("chr 0x100\n");
301 chomp(my $chr = scalar <$sock>);
302 print $chr eq "\x{100}" ?
363 if (/^chr (.+)/) {
364 print $sock chr(hex($1)), "\n";
/osnet-11/usr/src/lib/gss_mechs/mech_krb5/krb5/unicode/
H A Dure.c132 ucs4_t chr; member in union:__anon1037
942 symp->sym.chr = 0x07;
946 symp->sym.chr = 0x08;
950 symp->sym.chr = 0x0c;
954 symp->sym.chr = 0x0a;
958 symp->sym.chr = 0x0d;
962 symp->sym.chr = 0x09;
966 symp->sym.chr = 0x0b;
987 symp->sym.chr = c;
1007 symp->sym.chr
[all...]
/osnet-11/usr/src/grub/grub2/grub-core/term/ieee1275/
H A Dofconsole.c59 char chr = c; local
61 grub_ieee1275_write (stdout_ihandle, &chr, 1, 0);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/t/
H A Dvia.t20 my $a = join("", map { chr } 0..255) x 10;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/
H A Dutf8hash.t58 my $u = chr($i); utf8::upgrade($u);
88 is($utf8hash{$k}, $thawed->{$k}, "frozen item chr($utf8hash{$k})");
101 is($utf8hash{$k}, $retrieved->{$k}, "nstored item chr($utf8hash{$k})");
112 is($utf8hash{$k}, $retrieved->{$k}, "stored item chr($utf8hash{$k})");
126 my $utf8 = "Schlo\xdf" . chr 256;
171 my $bytes = my $char = chr 27182;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Drequire.t154 my $utf8 = chr(0xFEFF);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Socket/t/
H A DSocket.t155 my $test_abstract_socket = chr(0) . '/tmp/test-perl-socket';
H A Dsocketpair.t152 my @gripping = (chr 255, chr 127);
/osnet-11/usr/src/lib/libdhcputil/common/
H A Ddhcp_inittab.c479 char chr; local
491 while ((chr = *str++) != '\0') {
492 if (isdigit(chr)) {
493 val = (val << 4) + chr - '0';
494 } else if (isxdigit(chr)) {
495 val = (val << 4) + chr -
496 (isupper(chr) ? 'A' : 'a') + 10;
497 } else if (isspace(chr) && dig == 0) {
499 } else if (chr == ':' || chr
[all...]
/osnet-11/usr/src/grub/grub-0.97/lib/
H A Dgetopt.c220 my_index (str, chr)
222 int chr;
226 if (*str == chr)
/osnet-11/usr/src/lib/gss_mechs/mech_krb5/include/
H A Dk5-utf8.h194 char *krb5int_utf8_strchr( const char* str, const char *chr);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/bin/
H A Denc2xs85 # chr() works in native space so convert value from table
86 # into that space before using chr().
87 my $ch = chr(utf8::unicode_to_native($_[0]));
96 ## my ($ch,$page) = @_; return chr($ch);
97 return chr $_[0];
103 ## my ($ch,$page) = @_; return chr($page).chr($ch);
104 return chr ($_[1]) . chr $_[0];
113 return chr (
[all...]

Completed in 131 milliseconds

123