Lines Matching refs:_
83 my %opts = @_;
133 my $item = OpenSSL::Ordinals::Item->new(source => $filename, from => $_);
164 [ map { OpenSSL::Ordinals::Item->new($_) }
183 $_->number($_->intnum()) if $_->number() =~ m|^\?|;
184 if ($max_assigned < $_->number()) {
185 $max_assigned = $_->number();
206 my %opts = @_;
227 my %opts = @_;
236 print F $_->to_string(),"\n";
269 my %opts = @_;
287 @l = grep { $filter->($_) }
288 map { @{$_ // []} }
310 my @items = @_;
314 join("\n ", map { $_->{source}.": ".$_->name() } @items), "\n";
322 $numbers{$_->intnum()} = 1;
323 $versions{$_->version()} = 1;
324 foreach ($_->features()) {
325 $features{$_}++;
331 join(", ", map { $_->name()." => ".$_->intnum() } @items), "\n"
334 join(", ", map { $_->name()." => ".$_->version() } @items), "\n"
341 delete $features{$_} if $features{$_} == 2;
363 map { my %tmp_h = $_->platforms();
364 $_->name().":".$platform
386 my @defs = @_;
408 my @defs = @_;
456 my @defs = @_; # Macros from #ifdef and #ifndef
473 @items ? map { "\t".$_->to_string()."\n" } @items : "No previous items\n",
475 @items = grep { $_->exists() } @items;
488 grep { $features{$_} } keys %features
492 print STDERR "DEBUG[",__PACKAGE__,"::add] $verbsig\n", map { "\t".$_->to_string()."\n" } @items
524 my @defs = @_; # Platform attributes for the alias
542 push @items, $item unless grep { $_ == $item } @items;
544 @items = grep { $_->exists() } @items;
564 $alias_platforms{$_} = !$platforms{$_};
585 map { "\t".$_->to_string()."\n" } @items
593 "\t", join(", ", map { $_->name() } @items), "\n";
651 foreach ($self->items(filter => sub { $_[0] eq '*' })) {
652 $_->{version} = $self->{currversion};
669 foreach (@{$_ // []}) {
670 $_->{exists} = 0;
702 map { $_->to_string() } @{$self->{loaded_contents}->[$i] // []};
704 map { $_->to_string() } @{$self->{contents}->[$i] // []};
707 @loaded_strings = grep { $str ne $_ } @loaded_strings;
788 if (ref($_[0]) eq $class) {
789 return $class->new( map { $_ => $_[0]->{$_} } keys %{$_[0]} );
792 my %opts = @_;
842 join("", map { " $_\t=> ".$opts{$_}."\n" } sort keys %opts);
901 croak "$funcname called as setter" if @_;
923 croak "$item called with extra arguments" if @_;
933 croak "$item called with extra arguments" if @_;
947 croak "Too many arguments" if @_;
957 join(',', (map { ($platforms{$_} ? '' : '!') . $_ }
987 return sub { $_[0]->name() cmp $_[1]->name() };
998 return sub { $_[0]->intnum() <=> $_[1]->intnum() };
1011 return cmp_versions($_[0]->version(), $_[1]->version());
1039 return sub { $_[0]->version() eq $version };
