/usr/share/perl5/Plucene/Search/BooleanScorer.pm is in libplucene-perl 1.25-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 | package Plucene::Search::BooleanScorer;
=head1 NAME
Plucene::Search::BooleanScorer - A boolean scorer
=head1 SYNOPSIS
# isa Plucene::Search::Scorer
$bool_scorer->add($scorer, $required, $prohibited);
$bool_scorer->score($results, $max_doc);
=head1 DESCRIPTION
This is a scoring class for boolean scorers.
=head1 METHODS
=cut
use strict;
use warnings;
use List::Util qw(min);
use Plucene::Search::Similarity;
use base qw(Plucene::Search::Scorer Class::Accessor::Fast);
__PACKAGE__->mk_accessors(
qw(next_mask required_mask prohibited_mask max_coord scorers bucket_table
coord_factors current_doc)
);
=head2 new
my $bool_scorer = Plucene::Search::BooleanScorer->new;
Create a new Plucene::Search::BooleanScorer object.
=head2 next_mask / required_mask / prohibited_mask max_coord / scorers /
bucket_table / coord_factors / current_doc
Get / set these attributes
=cut
sub new {
my $self = shift->SUPER::new(@_);
$self->max_coord(1);
$self->next_mask(1);
$self->current_doc(0);
$self->required_mask(0);
$self->prohibited_mask(0);
$self->scorers([]);
$self->bucket_table(Plucene::Search::BucketTable->new({ scorer => $self }));
return $self;
}
=head2 add
$bool_scorer->add($scorer, $required, $prohibited);
=cut
sub add {
my ($self, $scorer, $required, $prohibited) = @_;
my $mask = 0;
if ($required || $prohibited) {
$mask = $self->next_mask;
$self->{next_mask} <<= 1;
}
$self->{max_coord}++ unless $prohibited;
$self->{prohibited_mask} |= $mask if $prohibited;
$self->{required_mask} |= $mask if $required;
push @{ $self->{scorers} },
{
scorer => $scorer,
required => $required,
prohibited => $prohibited,
collector => $self->bucket_table->new_collector($mask) };
}
sub _compute_coord_factors {
my $self = shift;
$self->coord_factors([
map Plucene::Search::Similarity->coord($_, $self->max_coord),
0 .. $self->max_coord
]);
}
=head2 score
$bool_scorer->score($results, $max_doc);
=cut
sub score {
my ($self, $results, $max_doc) = @_;
$self->_compute_coord_factors if not defined $self->coord_factors;
while ($self->current_doc < $max_doc) {
$self->current_doc(
min(
$self->{current_doc} + $Plucene::Search::BucketTable::SIZE, $max_doc
));
for my $t (@{ $self->{scorers} }) {
$t->{scorer}->score($t->{collector}, $self->current_doc);
}
$self->bucket_table->collect_hits($results);
}
}
package Plucene::Search::BucketTable;
our $SIZE = 1 << 10;
our $MASK = $SIZE - 1;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(buckets first scorer));
sub new {
my $self = shift->SUPER::new(@_);
$self->buckets([]);
$self;
}
sub collect_hits {
my ($self, $results) = @_;
my $scorer = $self->scorer;
my $required = $scorer->required_mask;
my $prohibited = $scorer->prohibited_mask;
my @coord = @{ $scorer->coord_factors };
for (my $bucket = $self->{first} ; $bucket ; $bucket = $bucket->{next}) {
if ( ($bucket->{bits} & $prohibited) == 0
and ($bucket->{bits} & $required) == $required) {
$results->collect($bucket->{doc},
$bucket->{score} * $coord[ $bucket->{coord} ]);
}
}
undef $self->{first};
}
sub new_collector {
my ($self, $mask) = @_;
return Plucene::Search::BucketCollector->new({
bucket_table => $self,
mask => $mask
});
}
package Plucene::Search::BucketCollector;
use base (qw(Class::Accessor::Fast Plucene::Search::HitCollector));
__PACKAGE__->mk_accessors(qw(bucket_table mask));
sub collect {
my ($self, $doc, $score) = @_;
my $table = $self->{bucket_table};
my $i = $doc & $Plucene::Search::BucketTable::MASK;
my $bucket = $table->buckets->[$i];
$table->buckets->[$i] = $bucket = {} unless $bucket;
if (not defined $bucket->{doc} or $bucket->{doc} != $doc) {
@{$bucket}{qw(doc score bits coord)} =
($doc, $score, $self->{mask}, 1);
$bucket->{next} = $table->first;
$table->first($bucket);
} else {
$bucket->{score} += $score;
$bucket->{bits} |= $self->{mask};
$bucket->{coord}++;
}
}
1;
|