| /openbsd-src/gnu/llvm/llvm/lib/Target/Hexagon/MCTargetDesc/ |
| H A D | HexagonMCCodeEmitter.cpp | 47 #define _ fixup_Invalid macro
51 { _, _, _, _,
52 _, _, P(_DTPREL_16_X), P(_DTPREL_11_X),
53 P(_DTPREL_11_X), P(_9_X), _, P(_DTPREL_11_X),
54 P(_DTPREL_16_X), _, _, _,
55 P(_DTPREL_16_X), _, _, _,
56 _, _, _, _,
57 _, _, _, _,
58 _, _, _, _,
61 { _, _, _, _,
[all …]
|
| /openbsd-src/regress/usr.bin/mandoc/mdoc/Bk/ |
| H A D | inputlines.out_ascii | 7 …puuttlliinneess _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _…
10 …puuttlliinneess _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _…
13 …puuttlliinneess _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _…
16 …puuttlliinneess _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _…
19 …puuttlliinneess _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _…
22 …puuttlliinneess _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _…
25 …uuttlliinneess _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x …
28 …uuttlliinneess _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x …
31 …uuttlliinneess _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x …
34 …uuttlliinneess _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x …
|
| H A D | badarg.out_ascii | 7 …baaddaarrgg _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x …
8 [o _a]
10 …baaddaarrgg _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x …
11 [o _a]
13 …baaddaarrgg _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x …
14 [o _a]
16 …baaddaarrgg _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x …
17 [o _a]
19 …baaddaarrgg _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x _x …
20 [o _a]
|
| /openbsd-src/gnu/usr.bin/perl/dist/IO/lib/IO/ |
| H A D | Handle.pm | 126 emulate the functionality of <$io> with C<< defined($_ = $io->getline) >>.
249 its variables with its own name separated by _'s. For example the IO::Socket
320 my $class = ref($_[0]) || $_[0] || "IO::Handle";
321 if (@_ != 1) {
329 return IO::File::->new(@_);
338 my $class = ref($_[0]) || $_[0] || "IO::Handle";
339 @_ == 3 or croak "usage: $class->new_from_fd(FD, MODE)";
342 IO::Handle::fdopen($io, @_)
[all...] |
| H A D | Socket.pm | 34 if (@_ && $_[0] eq 'sockatmark') { # not very extensible but for now, fast
38 Exporter::export 'Socket', $callpkg, @_;
43 my($class,%arg) = @_;
57 my($p,$d) = @_;
62 my($sock,$arg) = @_;
79 @_ == 4 or croak 'usage: $sock->socket(DOMAIN, TYPE, PROTOCOL)';
80 my($sock,$domain,$type,$protocol) = @_;
98 @_ == 4 || croak 'usage: IO::Socket->socketpair(DOMAIN, TYPE, PROTOCOL)';
99 my($class,$domain,$type,$protocol) = @_;
[all...] |
| /openbsd-src/gnu/usr.bin/perl/t/op/ |
| H A D | cmpchain.t | 97 is join(",", "x", $_->[0] == $_->[1] != $_->[2], "y"),
98 join(",", "x", !!($_->[0] == $_->[1] && $_->[1] != $_->[2]), "y"),
99 "$_->[0] == $_->[1] != $_->[2]";
100 is join(",", "x", $_->[0] != $_->[1] == $_->[2], "y"),
101 join(",", "x", !!($_->[0] != $_->[1] && $_->[1] == $_->[2]), "y"),
102 "$_->[0] != $_->[1] == $_->[2]";
103 is join(",", "x", $_->[0] < $_->[1] <= $_->[2], "y"),
104 join(",", "x", !!($_->[0] < $_->[1] && $_->[1] <= $_->[2]), "y"),
105 "$_->[0] < $_->[1] <= $_->[2]";
106 is join(",", "x", $_->[0] > $_->[1] >= $_->[2], "y"),
[all …]
|
| H A D | rt119311.t | 29 my ($block) = @_;
32 $_ = $got ? "this is clearly a bug" : "ok";
44 is $_, "ok", 'die triggering DESTROY that calls outer sub';
46 undef $_;
48 is $_, "ok", 'last triggering DESTROY that calls outer sub';
50 undef $_;
52 is $_, "ok", 'next triggering DESTROY that calls outer sub';
54 undef $_;
56 is $_, "ok", 'redo triggering DESTROY that calls outer sub';
58 undef $_;
[all …]
|
| H A D | for.t | 16 $r .= $_;
21 $r .= $_;
25 for (map {$_} @array) {
26 $r .= $_;
30 for (map {$_} 1,2,3) {
31 $r .= $_;
36 $r .= $_;
41 $r .= $_;
47 $r .= $_;
52 $r .= $_;
[all …]
|
| H A D | recurse.t | 18 return gcd($_[0] - $_[1], $_[1]) if ($_[0] > $_[1]);
19 return gcd($_[0], $_[1] - $_[0]) if ($_[0] < $_[1]);
20 $_[0];
24 $_[0] < 2 ? 1 : $_[0] * factorial($_[0] - 1);
28 $_[0] < 2 ? 1 : fibonacci($_[0] - 2) + fibonacci($_[0] - 1);
38 return $_[1] + 1 if ($_[0] == 0);
39 return ackermann($_[0] - 1, 1) if ($_[1] == 0);
40 ackermann($_[0] - 1, ackermann($_[0], $_[1] - 1));
46 $_[1] < $_[0] ?
47 takeuchi(takeuchi($_[0] - 1, $_[1], $_[2]),
[all …]
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Pod-Usage/t/inc/Pod/ |
| H A D | InputObjects.pm | 144 @_ };
170 (@_ > 1) and $_[0]->{'-name'} = $_[1];
171 return $_[0]->{'-name'};
193 return $_[0]->{'-handle'};
214 (@_ > 1) and $_[0]->{-was_cutting} = $_[1];
215 return $_[0]->{-was_cutting};
271 -text => (@_ == 1) ? shift : undef,
277 @_
297 (@_ > 1) and $_[0]->{'-name'} = $_[1];
298 return $_[0]->{'-name'};
[all …]
|
| /openbsd-src/gnu/llvm/compiler-rt/lib/sanitizer_common/ |
| H A D | sanitizer_interceptors_ioctl_netbsd.inc | 35 #define _(rq, tp, sz) \
46 _(AFM_ADDFMAP, READWRITE, struct_atm_flowmap_sz);
47 _(AFM_DELFMAP, READWRITE, struct_atm_flowmap_sz);
48 _(AFM_CLEANFMAP, READWRITE, struct_atm_flowmap_sz);
49 _(AFM_GETFMAP, READWRITE, struct_atm_flowmap_sz);
51 _(ALTQGTYPE, READWRITE, struct_altqreq_sz);
52 _(ALTQTBRSET, READ, struct_tbrreq_sz);
53 _(ALTQTBRGET, READWRITE, struct_tbrreq_sz);
55 _(BLUE_IF_ATTACH, READ, struct_blue_interface_sz);
56 _(BLUE_DISABLE, READ, struct_blue_interface_sz);
[all …]
|
| H A D | sanitizer_common_interceptors_ioctl.inc | 41 #define _(rq, tp, sz) \
51 _(FIOASYNC, READ, sizeof(int));
52 _(FIOCLEX, NONE, 0);
53 _(FIOGETOWN, WRITE, sizeof(int));
54 _(FIONBIO, READ, sizeof(int));
55 _(FIONCLEX, NONE, 0);
56 _(FIOSETOWN, READ, sizeof(int));
57 _(SIOCATMARK, WRITE, sizeof(int));
58 _(SIOCGIFCONF, CUSTOM, 0);
59 _(SIOCGPGRP, WRITE, sizeof(int));
[all …]
|
| /openbsd-src/regress/usr.bin/mandoc/mdoc/Em/ |
| H A D | punct.out_ascii | 7 Leading punctuation: (_b [_b | _b . _b , _b ; _b : _b ? _b ! _b ) _b ] _b
9 Trailing punctuation: _a ( _a [ _a | _a. _a, _a; _a: _a? _a! _a) _a]
11 …Middle punctuation: _a (_b _a [_b _a | _b _a. _b _a, _b _a; _b _a: _b _a? _b _a! …
12 _b
14 …Isolated punctuation: _a (_b _a [_b _a | _b _a . _b _a , _b _a ; _b _a : _b _a ? _…
15 _a ) _b _a ] _b
17 Isolated trailing punctuation: _a ( _a [ _a | _a . _a , _a ; _a : _a ? _a ! _a )
18 _a ]
20 Multiple isolated punctuation: _a ([_b _a )] _b
22 Multiple punctuation: [(_a_r_g)].
[all …]
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Pod-Simple/lib/Pod/Simple/ |
| H A D | XHTML.pm | 68 return HTML::Entities::encode_entities( $_[0], $ents ) if $HAS_HTML_ENTITIES;
75 my $str = $_[0];
81 my ($entity_re) = map qr{$_}, join '|', map quotemeta, sort keys %entity_to_char;
84 my ($self, $string) = @_;
98 my ($self, $string) = @_;
100 $string =~ s{([^-_.!~*()abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZZ0123456789])}{
276 my $new = $self->SUPER::new(@_);
298 return $self->{html_header_tags} = shift if @_;
328 my ($self, $text) = @_;
361 return unless @{ $_[
[all...] |
| /openbsd-src/gnu/usr.bin/perl/cpan/autodie/t/lib/ |
| H A D | Hints_pod_examples.pm | 20 undef_scalar => { fail => sub { !defined($_[0]) } },
23 false_scalar => { fail => sub { return ! $_[0] } },
26 zero_scalar => { fail => sub { defined($_[0]) && $_[0] eq '0' } },
30 empty_list => { scalar => sub { 1 }, list => sub { !@_ } },
33 default_list => { fail => sub { ! @_ || @_ == 1 && !defined $_[0] } },
36 empty_or_false_list => { fail => sub { ! @_ || @_ == 1 && !$_[0] } },
39 undef_n_error_list => { fail => sub { @_ == 2 && !defined $_[0] } },
44 sub undef_scalar { return wantarray ? @_ : $_[0] }
45 sub false_scalar { return wantarray ? @_ : $_[0] }
46 sub zero_scalar { return wantarray ? @_ : $_[0] }
[all …]
|
| /openbsd-src/regress/usr.bin/mandoc/mdoc/Ar/ |
| H A D | punct.out_ascii | 7 …closing punctuation _a) only one _f_i_l_e _._._.) only more than one _f_i_l_e _._._…
8 …middle _a) _z start _f_i_l_e _._._.) _z dot _f_i_l_e _._._.. _z comma _f_i_l_…
9 …_f_i_l_e _._._.; _z colon _f_i_l_e _._._.: _z quest _f_i_l_e _._._.? _z ex…
10 …_f_i_l_e _._._.) _z bracket _f_i_l_e _._._.] _z bar | _m op paren (_a op bracket…
12 quoted punctuation: _a (_b | _c) _d, bboolldd.
14 missing blank: _a_r_g_.
|
| /openbsd-src/regress/usr.bin/mandoc/eqn/define/ |
| H A D | infinite.out_ascii | 7 alone: _k_e_y eol
9 …ing position: _k_e_y _s_u_f_f_i_x _s_u_f_f_i_x _s_u_f_f_i_x _s_u_f_f_i_…
10 …_s_u_f_f_i_x _s_u_f_f_i_x _s_u_f_f_i_x _s_u_f_f_i_x _s_u_f_f_i_x _s…
11 …_s_u_f_f_i_x _s_u_f_f_i_x _s_u_f_f_i_x _s_u_f_f_i_x _s_u_f_f_i_x _s…
12 …_s_u_f_f_i_x _s_u_f_f_i_x _s_u_f_f_i_x _s_u_f_f_i_x _s_u_f_f_i_x _s…
13 …_s_u_f_f_i_x _s_u_f_f_i_x _s_u_f_f_i_x _s_u_f_f_i_x _s_u_f_f_i_x _s…
14 …_s_u_f_f_i_x _s_u_f_f_i_x _s_u_f_f_i_x _s_u_f_f_i_x _s_u_f_f_i_x _s…
15 …_s_u_f_f_i_x _s_u_f_f_i_x _s_u_f_f_i_x _s_u_f_f_i_x _s_u_f_f_i_x _s…
16 …_s_u_f_f_i_x _s_u_f_f_i_x _s_u_f_f_i_x _s_u_f_f_i_x _s_u_f_f_i_x _s…
17 …_s_u_f_f_i_x _s_u_f_f_i_x _s_u_f_f_i_x _s_u_f_f_i_x _s_u_f_f_i_x _s…
[all …]
|
| /openbsd-src/gnu/usr.bin/perl/ext/IPC-Open3/lib/IPC/ |
| H A D | Open3.pm | 163 pipe $_[0], $_[1] or croak "$Me: pipe($_[0], $_[1]) failed: $!";
170 open $_[0], $_[1], @_[2..$#_] and return;
172 carp "$Me: open(@_) failed: $!";
176 $_[0] =~ /\A=?(\d+)\z/
177 ? do { my $fh; open($fh, $_[1] . '&=' . $1) and close($fh); }
178 : close $_[0]
183 return $1 if $_[0] =~ /\A=?(\d+)\z/; # deal with fh just being an fd
184 return fileno $_[0];
199 splice @_, 0, 1, undef if \$_[0] == \undef;
200 splice @_, 1, 1, undef if \$_[1] == \undef;
[all …]
|
| /openbsd-src/gnu/usr.bin/perl/regen/ |
| H A D | op_private | 68 addbits($_, 7 => qw(OPpLVAL_INTRO LVINTRO)) for qw(pos substr vec ...);
96 addbits($_, 4 => qw(OPpTARGET_MY TARGMY)) for ops_with_flag('T');
193 $maxarg{$_} = 1 for qw(
201 $args0{$_} = 1 for qw(entersub avhvswitch
209 $args0{$_} = 1 for ops_with_check('ck_bitop');
211 $args1{$_} = 1 for (
216 grep !$maxarg{$_} && !$args0{$_},
226 $args2{$_} = 1 for (
228 grep !$maxarg{$_}
[all...] |
| /openbsd-src/gnu/usr.bin/perl/cpan/libnet/lib/Net/ |
| H A D | NNTP.pm | 59 if (@_ % 2) {
61 %arg = @_;
64 %arg = @_;
82 $connect{$_} = $arg{$_} for(grep { m{^SSL_} } keys %arg);
159 @_ == 1 or croak 'usage: $nntp->postok()';
171 @_ # more (ssl) args
178 @_ >= 1 && @_ <= 3 or croak 'usage: $nntp->article([{$msgid|$msgnum}[, $fh]])';
182 @fh = (pop) if @_ == 2 || (@_ && (ref($_[0]) || ref(\$_[0]) eq 'GLOB'));
184 $nntp->_ARTICLE(@_)
191 @_ >= 1 && @_ <= 2 or croak 'usage: $nntp->articlefh([{$msgid|$msgnum}])';
[all …]
|
| /openbsd-src/gnu/usr.bin/perl/dist/Filter-Simple/lib/Filter/ |
| H A D | Simple.pm | 14 if (@_>1) { shift; goto &FILTER }
15 else { *{caller()."::$_"} = \&$_ foreach @EXPORT }
19 croak "FILTER_ONLY: ", @_;
23 my @bits = extract_quotelike $_[0], qr//;
71 all => sub { my ($t)=@_; sub{ $_=$$_; $t->(@_); $_} },
72 executable=> sub { my ($t)=@_; sub{ref() ? $_=$$_ : $t->(@_); $_} },
73 executable_no_comments=> sub { my ($t)=@_; sub{ref() ? $_=$$_ : $t->(@_); $_} },
74 quotelike => sub { my ($t)=@_; sub{ref() && do{$_=$$_; $t->(@_)}; $_} },
75 regex => sub { my ($t)=@_;
76 sub{ref() or return $_;
[all …]
|
| /openbsd-src/gnu/usr.bin/perl/lib/ |
| H A D | bytes_heavy.pl | |
| /openbsd-src/lib/libcrypto/perlasm/ |
| H A D | x86asm.pl | 20 die "more than 4 arguments passed to $opcode" if ($#_>3);
26 &generic($opcode,@_) or die "undefined subroutine \&$AUTOLOAD";
32 if ($#_==-1) { push(@out,"\t$opcode\n"); }
33 else { push(@out,"\t$opcode\t".join(',',@_)."\n"); }
39 if ($#_==-1) { push(@out,"$opcode\n"); }
40 else { push(@out,"$opcode\t".join(',',@_)."\n"); }
44 { $_[0] =~ m/^e?([a-d])x$/o or die "$_[0] does not have a 'low byte'";
48 { $_[0] =~ m/^e?([a-d])x$/o or die "$_[
[all...] |
| /openbsd-src/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Base/ |
| H A D | Common.pm | 56 return $_[0] >= MAX32cmp ;
115 return (defined $_[0] and
116 (UNIVERSAL::isa($_[0],'GLOB') or
117 UNIVERSAL::isa($_[0],'IO::Handle') or
118 UNIVERSAL::isa(\$_[0],'GLOB'))
124 return ( defined($_[0]) and ref($_[0]) eq 'SCALAR' and defined ${ $_[0] } ) ;
129 return (defined $_[0] and
130 ! ref $_[
[all...] |
| /openbsd-src/gnu/usr.bin/perl/lib/Tie/ |
| H A D | Hash.pm | 195 $pkg->TIEHASH(@_);
215 $pkg -> new (@_);
223 my $pkg = ref $_[0];
229 my $key = $self->FIRSTKEY(@_);
234 $key = $self->NEXTKEY(@_, $key);
237 $self->DELETE(@_, $key);
248 sub TIEHASH { bless {}, $_[0] }
249 sub STORE { $_[0]->{$_[1]} = $_[2] }
250 sub FETCH { $_[0]->{$_[1]} }
251 sub FIRSTKEY { my $a = scalar keys %{$_[0]}; each %{$_[0]} }
[all …]
|