Mailing List Archive

Author: creamyg
Date: 2008-07-27 16:53:18 -0700 (Sun, 27 Jul 2008)
New Revision: 3644

Modified:
trunk/perl/lib/KinoSearch/Index/PostingList.pm
trunk/perl/lib/KinoSearch/Index/PostingsWriter.pm
Log:
Kill off some obsolete code in PostingList and PostingsWriter.


Modified: trunk/perl/lib/KinoSearch/Index/PostingList.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/PostingList.pm 2008-07-27 23:46:19 UTC (rev 3643)
+++ trunk/perl/lib/KinoSearch/Index/PostingList.pm 2008-07-27 23:53:18 UTC (rev 3644)
@@ -4,8 +4,6 @@
package KinoSearch::Index::PostingList;
use KinoSearch::base qw( KinoSearch::Obj );

-sub close { shift->abstract_death }
-
1;

__END__

Modified: trunk/perl/lib/KinoSearch/Index/PostingsWriter.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/PostingsWriter.pm 2008-07-27 23:46:19 UTC (rev 3643)
+++ trunk/perl/lib/KinoSearch/Index/PostingsWriter.pm 2008-07-27 23:53:18 UTC (rev 3644)
@@ -7,24 +7,6 @@
use KinoSearch::Index::TermInfo;
use KinoSearch::Index::LexWriter;

-sub add_doc {
- my ( $self, %args ) = @_;
- my ( $doc, $doc_num, $doc_boost, $inversions )
- = @args{qw( doc doc_num boost inversions )};
- my $schema = $self->get_schema;
-
- while ( my ( $field_name, $token_batch ) = each %$inversions ) {
- my $sim = $schema->fetch_sim($field_name);
- $self->add_batch(
- token_batch => $token_batch,
- field_name => $field_name,
- doc_num => $doc_num,
- doc_boost => $doc_boost,
- length_norm => $sim->length_norm( $token_batch->get_size ),
- );
- }
-}
-
1;

__END__
@@ -32,7 +14,6 @@
__AUTO_XS__

{ "KinoSearch::Index::PostingsWriter" => {
- bind_methods => [qw( add_batch )],
make_constructors => ["new"],
}
}


_______________________________________________
kinosearch-commits mailing list
kinosearch-commits@rectangular.com
http://www.rectangular.com/mailman/listinfo/kinosearch-commits