You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@lucy.apache.org by lo...@apache.org on 2012/01/18 06:53:13 UTC
[lucy-commits] svn commit: r1232753 [2/3] - in
/incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding: Analysis.pm Docs.pm
Document.pm Highlight.pm Index.pm Index/Posting.pm Lucy.pm Object.pm
Plan.pm Search.pm Search/Collector.pm Store.pm Test/Util.pm Util.pm
Modified: incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Object.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Object.pm?rev=1232753&r1=1232752&r2=1232753&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Object.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Object.pm Wed Jan 18 05:53:13 2012
@@ -14,25 +14,24 @@
# limitations under the License.
package Lucy::Build::Binding::Object;
-
sub bind_all {
- my $class = shift;
- $class->bind_bitvector;
- $class->bind_bytebuf;
- $class->bind_charbuf;
- $class->bind_err;
- $class->bind_hash;
- $class->bind_host;
- $class->bind_i32array;
- $class->bind_lockfreeregistry;
- $class->bind_num;
- $class->bind_obj;
- $class->bind_varray;
- $class->bind_vtable;
+ my $class = shift;
+ $class->bind_bitvector;
+ $class->bind_bytebuf;
+ $class->bind_charbuf;
+ $class->bind_err;
+ $class->bind_hash;
+ $class->bind_host;
+ $class->bind_i32array;
+ $class->bind_lockfreeregistry;
+ $class->bind_num;
+ $class->bind_obj;
+ $class->bind_varray;
+ $class->bind_vtable;
}
sub bind_bitvector {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
my $bit_vec = Lucy::Object::BitVector->new( capacity => 8 );
my $other = Lucy::Object::BitVector->new( capacity => 8 );
$bit_vec->set($_) for ( 0, 2, 4, 6 );
@@ -40,61 +39,61 @@ sub bind_bitvector {
$bit_vec->or($other);
print "$_\n" for @{ $bit_vec->to_array }; # prints 0 through 7.
END_SYNOPSIS
-my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
my $bit_vec = Lucy::Object::BitVector->new(
capacity => $doc_max + 1, # default 0,
);
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Object::BitVector",
- bind_methods => [
- qw( Get
- Set
- Clear
- Clear_All
- And
- Or
- And_Not
- Xor
- Flip
- Flip_Block
- Next_Hit
- To_Array
- Grow
- Count
- Get_Capacity
- )
- ],
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- methods => [
- qw( get
- set
- clear
- clear_all
- and
- or
- and_not
- xor
- flip
- flip_block
- next_hit
- to_array
- grow
- count
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Object::BitVector",
+ bind_methods => [
+ qw( Get
+ Set
+ Clear
+ Clear_All
+ And
+ Or
+ And_Not
+ Xor
+ Flip
+ Flip_Block
+ Next_Hit
+ To_Array
+ Grow
+ Count
+ Get_Capacity
)
],
- }
-);
+ bind_constructors => ["new"],
+ make_pod => {
+ synopsis => $synopsis,
+ constructor => { sample => $constructor },
+ methods => [
+ qw( get
+ set
+ clear
+ clear_all
+ and
+ or
+ and_not
+ xor
+ flip
+ flip_block
+ next_hit
+ to_array
+ grow
+ count
+ )
+ ],
+ }
+ );
}
sub bind_bytebuf {
- my $xs_code = <<'END_XS_CODE';
+ my $xs_code = <<'END_XS_CODE';
MODULE = Lucy PACKAGE = Lucy::Object::ByteBuf
SV*
@@ -122,23 +121,23 @@ CODE:
OUTPUT: RETVAL
END_XS_CODE
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Object::ByteBuf",
- xs_code => $xs_code,
- bind_methods => [
- qw(
- Get_Size
- Get_Capacity
- Cat
- )
- ],
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Object::ByteBuf",
+ xs_code => $xs_code,
+ bind_methods => [
+ qw(
+ Get_Size
+ Get_Capacity
+ Cat
+ )
+ ],
+ );
}
sub bind_charbuf {
- my $xs_code = <<'END_XS_CODE';
+ my $xs_code = <<'END_XS_CODE';
MODULE = Lucy PACKAGE = Lucy::Object::CharBuf
SV*
@@ -197,16 +196,16 @@ CODE:
OUTPUT: RETVAL
END_XS_CODE
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Object::CharBuf",
- xs_code => $xs_code,
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Object::CharBuf",
+ xs_code => $xs_code,
+ );
}
sub bind_err {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
use Scalar::Util qw( blessed );
my $bg_merger;
while (1) {
@@ -224,18 +223,18 @@ sub bind_err {
}
END_SYNOPSIS
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Object::Err",
- bind_methods => [qw( Cat_Mess Get_Mess )],
- make_pod => { synopsis => $synopsis },
- bind_constructors => ["_new"],
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Object::Err",
+ bind_methods => [qw( Cat_Mess Get_Mess )],
+ make_pod => { synopsis => $synopsis },
+ bind_constructors => ["_new"],
+ );
}
sub bind_hash {
- my $xs_code = <<'END_XS_CODE';
+ my $xs_code = <<'END_XS_CODE';
MODULE = Lucy PACKAGE = Lucy::Object::Hash
SV*
@@ -288,29 +287,29 @@ PPCODE:
}
END_XS_CODE
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Object::Hash",
- xs_code => $xs_code,
- bind_methods => [
- qw(
- Fetch
- Delete
- Keys
- Values
- Find_Key
- Clear
- Iterate
- Get_Size
- )
- ],
- bind_constructors => ["new"],
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Object::Hash",
+ xs_code => $xs_code,
+ bind_methods => [
+ qw(
+ Fetch
+ Delete
+ Keys
+ Values
+ Find_Key
+ Clear
+ Iterate
+ Get_Size
+ )
+ ],
+ bind_constructors => ["new"],
+ );
}
sub bind_host {
- my $xs_code = <<'END_XS_CODE';
+ my $xs_code = <<'END_XS_CODE';
MODULE = Lucy PACKAGE = Lucy::Object::Host
=for comment
@@ -387,16 +386,16 @@ CODE:
OUTPUT: RETVAL
END_XS_CODE
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Object::Host",
- xs_code => $xs_code,
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Object::Host",
+ xs_code => $xs_code,
+ );
}
sub bind_i32array {
- my $xs_code = <<'END_XS_CODE';
+ my $xs_code = <<'END_XS_CODE';
MODULE = Lucy PACKAGE = Lucy::Object::I32Array
SV*
@@ -462,27 +461,27 @@ CODE:
OUTPUT: RETVAL
END_XS_CODE
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Object::I32Array",
- xs_code => $xs_code,
- bind_methods => [qw( Get Get_Size )],
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Object::I32Array",
+ xs_code => $xs_code,
+ bind_methods => [qw( Get Get_Size )],
+ );
}
sub bind_lockfreeregistry {
- Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Object::LockFreeRegistry",
- bind_methods => [qw( Register Fetch )],
- bind_constructors => ["new"],
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Object::LockFreeRegistry",
+ bind_methods => [qw( Register Fetch )],
+ bind_constructors => ["new"],
+ );
}
sub bind_num {
- my $float32_xs_code = <<'END_XS_CODE';
+ my $float32_xs_code = <<'END_XS_CODE';
MODULE = Lucy PACKAGE = Lucy::Object::Float32
SV*
@@ -498,7 +497,7 @@ CODE:
OUTPUT: RETVAL
END_XS_CODE
-my $float64_xs_code = <<'END_XS_CODE';
+ my $float64_xs_code = <<'END_XS_CODE';
MODULE = Lucy PACKAGE = Lucy::Object::Float64
SV*
@@ -514,23 +513,23 @@ CODE:
OUTPUT: RETVAL
END_XS_CODE
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Object::Float32",
- xs_code => $float32_xs_code,
- bind_methods => [qw( Set_Value Get_Value )],
-);
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Object::Float64",
- xs_code => $float64_xs_code,
- bind_methods => [qw( Set_Value Get_Value )],
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Object::Float32",
+ xs_code => $float32_xs_code,
+ bind_methods => [qw( Set_Value Get_Value )],
+ );
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Object::Float64",
+ xs_code => $float64_xs_code,
+ bind_methods => [qw( Set_Value Get_Value )],
+ );
}
sub bind_obj {
- my $xs_code = <<'END_XS_CODE';
+ my $xs_code = <<'END_XS_CODE';
MODULE = Lucy PACKAGE = Lucy::Object::Obj
chy_bool_t
@@ -617,7 +616,7 @@ PPCODE:
}
END_XS_CODE
-my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
package MyObj;
use base qw( Lucy::Object::Obj );
@@ -644,7 +643,7 @@ my $synopsis = <<'END_SYNOPSIS';
}
END_SYNOPSIS
-my $description = <<'END_DESCRIPTION';
+ my $description = <<'END_DESCRIPTION';
All objects in the Lucy:: hierarchy descend from
Lucy::Object::Obj. All classes are implemented as blessed scalar
references, with the scalar storing a pointer to a C struct.
@@ -701,51 +700,51 @@ All Lucy classes implement a DESTROY met
subclass, you must call C<< $self->SUPER::DESTROY >> to avoid leaking memory.
END_DESCRIPTION
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Object::Obj",
- xs_code => $xs_code,
- bind_methods => [
- qw(
- Get_RefCount
- Inc_RefCount
- Dec_RefCount
- Get_VTable
- To_String
- To_I64
- To_F64
- Dump
- _load|Load
- Clone
- Mimic
- Equals
- Hash_Sum
- Serialize
- Deserialize
- Destroy
- )
- ],
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- description => $description,
- methods => [
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Object::Obj",
+ xs_code => $xs_code,
+ bind_methods => [
qw(
- to_string
- to_i64
- to_f64
- equals
- dump
- load
+ Get_RefCount
+ Inc_RefCount
+ Dec_RefCount
+ Get_VTable
+ To_String
+ To_I64
+ To_F64
+ Dump
+ _load|Load
+ Clone
+ Mimic
+ Equals
+ Hash_Sum
+ Serialize
+ Deserialize
+ Destroy
)
],
- }
-);
+ bind_constructors => ["new"],
+ make_pod => {
+ synopsis => $synopsis,
+ description => $description,
+ methods => [
+ qw(
+ to_string
+ to_i64
+ to_f64
+ equals
+ dump
+ load
+ )
+ ],
+ }
+ );
}
sub bind_varray {
- my $xs_code = <<'END_XS_CODE';
+ my $xs_code = <<'END_XS_CODE';
MODULE = Lucy PACKAGE = Lucy::Object::VArray
SV*
@@ -813,27 +812,27 @@ CODE:
OUTPUT: RETVAL
END_XS_CODE
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Object::VArray",
- xs_code => $xs_code,
- bind_methods => [
- qw(
- Push
- Push_VArray
- Unshift
- Excise
- Resize
- Get_Size
- )
- ],
- bind_constructors => ["new"],
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Object::VArray",
+ xs_code => $xs_code,
+ bind_methods => [
+ qw(
+ Push
+ Push_VArray
+ Unshift
+ Excise
+ Resize
+ Get_Size
+ )
+ ],
+ bind_constructors => ["new"],
+ );
}
sub bind_vtable {
- my $xs_code = <<'END_XS_CODE';
+ my $xs_code = <<'END_XS_CODE';
MODULE = Lucy PACKAGE = Lucy::Object::VTable
SV*
@@ -878,12 +877,12 @@ CODE:
OUTPUT: RETVAL
END_XS_CODE
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Object::VTable",
- xs_code => $xs_code,
- bind_methods => [qw( Get_Name Get_Parent )],
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Object::VTable",
+ xs_code => $xs_code,
+ bind_methods => [qw( Get_Name Get_Parent )],
+ );
}
Modified: incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Plan.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Plan.pm?rev=1232753&r1=1232752&r2=1232753&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Plan.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Plan.pm Wed Jan 18 05:53:13 2012
@@ -14,23 +14,22 @@
# limitations under the License.
package Lucy::Build::Binding::Plan;
-
sub bind_all {
- my $class = shift;
- $class->bind_architecture;
- $class->bind_blobtype;
- $class->bind_fieldtype;
- $class->bind_float32type;
- $class->bind_float64type;
- $class->bind_fulltexttype;
- $class->bind_int32type;
- $class->bind_int64type;
- $class->bind_schema;
- $class->bind_stringtype;
+ my $class = shift;
+ $class->bind_architecture;
+ $class->bind_blobtype;
+ $class->bind_fieldtype;
+ $class->bind_float32type;
+ $class->bind_float64type;
+ $class->bind_fulltexttype;
+ $class->bind_int32type;
+ $class->bind_int64type;
+ $class->bind_schema;
+ $class->bind_stringtype;
}
sub bind_architecture {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
package MyArchitecture;
use base qw( Lucy::Plan::Architecture );
@@ -75,75 +74,75 @@ sub bind_architecture {
}
END_SYNOPSIS
-my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
my $arch = Lucy::Plan::Architecture->new;
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Plan::Architecture",
- bind_methods => [
- qw(
- Index_Interval
- Skip_Interval
- Init_Seg_Reader
- Register_Doc_Writer
- Register_Doc_Reader
- Register_Deletions_Writer
- Register_Deletions_Reader
- Register_Lexicon_Reader
- Register_Posting_List_Writer
- Register_Posting_List_Reader
- Register_Sort_Writer
- Register_Sort_Reader
- Register_Highlight_Writer
- Register_Highlight_Reader
- Make_Similarity
- )
- ],
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- methods => [
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Plan::Architecture",
+ bind_methods => [
qw(
- register_doc_writer
- register_doc_reader
+ Index_Interval
+ Skip_Interval
+ Init_Seg_Reader
+ Register_Doc_Writer
+ Register_Doc_Reader
+ Register_Deletions_Writer
+ Register_Deletions_Reader
+ Register_Lexicon_Reader
+ Register_Posting_List_Writer
+ Register_Posting_List_Reader
+ Register_Sort_Writer
+ Register_Sort_Reader
+ Register_Highlight_Writer
+ Register_Highlight_Reader
+ Make_Similarity
)
],
- constructors => [ { sample => $constructor } ],
- }
-);
+ bind_constructors => ["new"],
+ make_pod => {
+ synopsis => $synopsis,
+ methods => [
+ qw(
+ register_doc_writer
+ register_doc_reader
+ )
+ ],
+ constructors => [ { sample => $constructor } ],
+ }
+ );
}
sub bind_blobtype {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
my $string_type = Lucy::Plan::StringType->new;
my $blob_type = Lucy::Plan::BlobType->new( stored => 1 );
my $schema = Lucy::Plan::Schema->new;
$schema->spec_field( name => 'id', type => $string_type );
$schema->spec_field( name => 'jpeg', type => $blob_type );
END_SYNOPSIS
-my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
my $blob_type = Lucy::Plan::BlobType->new(
stored => 1, # default: false
);
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Plan::BlobType",
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- },
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Plan::BlobType",
+ bind_constructors => ["new"],
+ make_pod => {
+ synopsis => $synopsis,
+ constructor => { sample => $constructor },
+ },
+ );
}
sub bind_fieldtype {
- my $synopis = <<'END_SYNOPSIS';
+ my $synopis = <<'END_SYNOPSIS';
my @sortable;
for my $field ( @{ $schema->all_fields } ) {
@@ -154,43 +153,43 @@ sub bind_fieldtype {
END_SYNOPSIS
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Plan::FieldType",
- bind_methods => [
- qw(
- Get_Boost
- Indexed
- Stored
- Sortable
- Binary
- Compare_Values
- )
- ],
- bind_constructors => ["new|init2"],
- make_pod => {
- synopsis => $synopis,
- methods => [
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Plan::FieldType",
+ bind_methods => [
qw(
- get_boost
- indexed
- stored
- sortable
- binary
+ Get_Boost
+ Indexed
+ Stored
+ Sortable
+ Binary
+ Compare_Values
)
],
- }
-);
+ bind_constructors => ["new|init2"],
+ make_pod => {
+ synopsis => $synopis,
+ methods => [
+ qw(
+ get_boost
+ indexed
+ stored
+ sortable
+ binary
+ )
+ ],
+ }
+ );
}
sub bind_float32type {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
my $schema = Lucy::Plan::Schema->new;
my $float32_type = Lucy::Plan::FloatType->new;
$schema->spec_field( name => 'intensity', type => $float32_type );
END_SYNOPSIS
-my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
my $float32_type = Lucy::Plan::Float32Type->new(
indexed => 0, # default true
stored => 0, # default true
@@ -198,25 +197,25 @@ my $constructor = <<'END_CONSTRUCTOR';
);
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Plan::Float32Type",
- bind_constructors => ["new|init2"],
- #make_pod => {
- # synopsis => $synopsis,
- # constructor => { sample => $constructor },
- #},
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Plan::Float32Type",
+ bind_constructors => ["new|init2"],
+ #make_pod => {
+ # synopsis => $synopsis,
+ # constructor => { sample => $constructor },
+ #},
+ );
}
sub bind_float64type {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
my $schema = Lucy::Plan::Schema->new;
my $float64_type = Lucy::Plan::FloatType->new;
$schema->spec_field( name => 'intensity', type => $float64_type );
END_SYNOPSIS
-my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
my $float64_type = Lucy::Plan::Float64Type->new(
indexed => 0 # default true
stored => 0, # default true
@@ -224,20 +223,20 @@ my $constructor = <<'END_CONSTRUCTOR';
);
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Plan::Float64Type",
- bind_constructors => ["new|init2"],
- #make_pod => {
- # synopsis => $synopsis,
- # constructor => { sample => $constructor },
- #},
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Plan::Float64Type",
+ bind_constructors => ["new|init2"],
+ #make_pod => {
+ # synopsis => $synopsis,
+ # constructor => { sample => $constructor },
+ #},
+ );
}
sub bind_fulltexttype {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
my $polyanalyzer = Lucy::Analysis::PolyAnalyzer->new(
language => 'en',
);
@@ -249,7 +248,7 @@ sub bind_fulltexttype {
$schema->spec_field( name => 'content', type => $type );
END_SYNOPSIS
-my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
my $type = Lucy::Plan::FullTextType->new(
analyzer => $analyzer, # required
boost => 2.0, # default: 1.0
@@ -260,37 +259,37 @@ my $constructor = <<'END_CONSTRUCTOR';
);
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Plan::FullTextType",
- bind_constructors => ["new|init2"],
- bind_methods => [
- qw(
- Set_Highlightable
- Highlightable
- )
- ],
- make_pod => {
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- methods => [
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Plan::FullTextType",
+ bind_constructors => ["new|init2"],
+ bind_methods => [
qw(
- set_highlightable
- highlightable
+ Set_Highlightable
+ Highlightable
)
],
- },
-);
+ make_pod => {
+ synopsis => $synopsis,
+ constructor => { sample => $constructor },
+ methods => [
+ qw(
+ set_highlightable
+ highlightable
+ )
+ ],
+ },
+ );
}
sub bind_int32type {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
my $schema = Lucy::Plan::Schema->new;
my $int32_type = Lucy::Plan::Int32Type->new;
$schema->spec_field( name => 'count', type => $int32_type );
END_SYNOPSIS
-my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
my $int32_type = Lucy::Plan::Int32Type->new(
indexed => 0, # default true
stored => 0, # default true
@@ -298,25 +297,25 @@ my $constructor = <<'END_CONSTRUCTOR';
);
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Plan::Int32Type",
- bind_constructors => ["new|init2"],
- #make_pod => {
- # synopsis => $synopsis,
- # constructor => { sample => $constructor },
- #},
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Plan::Int32Type",
+ bind_constructors => ["new|init2"],
+ #make_pod => {
+ # synopsis => $synopsis,
+ # constructor => { sample => $constructor },
+ #},
+ );
}
sub bind_int64type {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
my $schema = Lucy::Plan::Schema->new;
my $int64_type = Lucy::Plan::Int64Type->new;
$schema->spec_field( name => 'count', type => $int64_type );
END_SYNOPSIS
-my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
my $int64_type = Lucy::Plan::Int64Type->new(
indexed => 0, # default true
stored => 0, # default true
@@ -324,20 +323,20 @@ my $constructor = <<'END_CONSTRUCTOR';
);
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Plan::Int64Type",
- bind_constructors => ["new|init2"],
- #make_pod => {
- # synopsis => $synopsis,
- # constructor => { sample => $constructor },
- #},
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Plan::Int64Type",
+ bind_constructors => ["new|init2"],
+ #make_pod => {
+ # synopsis => $synopsis,
+ # constructor => { sample => $constructor },
+ #},
+ );
}
sub bind_schema {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
use Lucy::Plan::Schema;
use Lucy::Plan::FullTextType;
use Lucy::Analysis::PolyAnalyzer;
@@ -353,57 +352,57 @@ sub bind_schema {
$schema->spec_field( name => 'content', type => $type );
END_SYNOPSIS
-my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
my $schema = Lucy::Plan::Schema->new;
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Plan::Schema",
- bind_methods => [
- qw(
- Architecture
- Get_Architecture
- Get_Similarity
- Fetch_Type
- Fetch_Analyzer
- Fetch_Sim
- Num_Fields
- All_Fields
- Spec_Field
- Write
- Eat
- )
- ],
- bind_constructors => [qw( new )],
- make_pod => {
- methods => [
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Plan::Schema",
+ bind_methods => [
qw(
- spec_field
- num_fields
- all_fields
- fetch_type
- fetch_sim
- architecture
- get_architecture
- get_similarity
+ Architecture
+ Get_Architecture
+ Get_Similarity
+ Fetch_Type
+ Fetch_Analyzer
+ Fetch_Sim
+ Num_Fields
+ All_Fields
+ Spec_Field
+ Write
+ Eat
)
],
- synopsis => $synopsis,
- constructors => [ { sample => $constructor } ],
- },
-);
+ bind_constructors => [qw( new )],
+ make_pod => {
+ methods => [
+ qw(
+ spec_field
+ num_fields
+ all_fields
+ fetch_type
+ fetch_sim
+ architecture
+ get_architecture
+ get_similarity
+ )
+ ],
+ synopsis => $synopsis,
+ constructors => [ { sample => $constructor } ],
+ },
+ );
}
sub bind_stringtype {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
my $type = Lucy::Plan::StringType->new;
my $schema = Lucy::Plan::Schema->new;
$schema->spec_field( name => 'category', type => $type );
END_SYNOPSIS
-my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
my $type = Lucy::Plan::StringType->new(
boost => 0.1, # default: 1.0
indexed => 1, # default: true
@@ -412,15 +411,15 @@ my $constructor = <<'END_CONSTRUCTOR';
);
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Plan::StringType",
- bind_constructors => ["new|init2"],
- make_pod => {
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- },
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Plan::StringType",
+ bind_constructors => ["new|init2"],
+ make_pod => {
+ synopsis => $synopsis,
+ constructor => { sample => $constructor },
+ },
+ );
}
Modified: incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Search.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Search.pm?rev=1232753&r1=1232752&r2=1232753&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Search.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Search.pm Wed Jan 18 05:53:13 2012
@@ -14,53 +14,52 @@
# limitations under the License.
package Lucy::Build::Binding::Search;
-
sub bind_all {
- my $class = shift;
- $class->bind_andmatcher;
- $class->bind_andquery;
- $class->bind_bitvecmatcher;
- $class->bind_collector;
- $class->bind_compiler;
- $class->bind_hitqueue;
- $class->bind_hits;
- $class->bind_indexsearcher;
- $class->bind_leafquery;
- $class->bind_matchallquery;
- $class->bind_matchdoc;
- $class->bind_matcher;
- $class->bind_notmatcher;
- $class->bind_notquery;
- $class->bind_nomatchquery;
- $class->bind_orquery;
- $class->bind_orscorer;
- $class->bind_phrasequery;
- $class->bind_polyquery;
- $class->bind_polysearcher;
- $class->bind_query;
- $class->bind_queryparser;
- $class->bind_rangequery;
- $class->bind_requiredoptionalmatcher;
- $class->bind_requiredoptionalquery;
- $class->bind_searcher;
- $class->bind_sortrule;
- $class->bind_sortspec;
- $class->bind_span;
- $class->bind_termquery;
- $class->bind_topdocs;
+ my $class = shift;
+ $class->bind_andmatcher;
+ $class->bind_andquery;
+ $class->bind_bitvecmatcher;
+ $class->bind_collector;
+ $class->bind_compiler;
+ $class->bind_hitqueue;
+ $class->bind_hits;
+ $class->bind_indexsearcher;
+ $class->bind_leafquery;
+ $class->bind_matchallquery;
+ $class->bind_matchdoc;
+ $class->bind_matcher;
+ $class->bind_notmatcher;
+ $class->bind_notquery;
+ $class->bind_nomatchquery;
+ $class->bind_orquery;
+ $class->bind_orscorer;
+ $class->bind_phrasequery;
+ $class->bind_polyquery;
+ $class->bind_polysearcher;
+ $class->bind_query;
+ $class->bind_queryparser;
+ $class->bind_rangequery;
+ $class->bind_requiredoptionalmatcher;
+ $class->bind_requiredoptionalquery;
+ $class->bind_searcher;
+ $class->bind_sortrule;
+ $class->bind_sortspec;
+ $class->bind_span;
+ $class->bind_termquery;
+ $class->bind_topdocs;
}
sub bind_andmatcher {
- Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::ANDMatcher",
- bind_constructors => ["new"],
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::ANDMatcher",
+ bind_constructors => ["new"],
+ );
}
sub bind_andquery {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
my $foo_and_bar_query = Lucy::Search::ANDQuery->new(
children => [ $foo_query, $bar_query ],
);
@@ -68,36 +67,36 @@ sub bind_andquery {
...
END_SYNOPSIS
-my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
my $foo_and_bar_query = Lucy::Search::ANDQuery->new(
children => [ $foo_query, $bar_query ],
);
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::ANDQuery",
- bind_constructors => ["new"],
- make_pod => {
- methods => [qw( add_child )],
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- },
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::ANDQuery",
+ bind_constructors => ["new"],
+ make_pod => {
+ methods => [qw( add_child )],
+ synopsis => $synopsis,
+ constructor => { sample => $constructor },
+ },
+ );
}
sub bind_bitvecmatcher {
- Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::BitVecMatcher",
- bind_constructors => [qw( new )],
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::BitVecMatcher",
+ bind_constructors => [qw( new )],
+ );
}
sub bind_collector {
- my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
package MyCollector;
use base qw( Lucy::Search::Collector );
our %foo;
@@ -109,35 +108,35 @@ sub bind_collector {
}
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::Collector",
- bind_methods => [
- qw(
- Collect
- Set_Reader
- Set_Base
- Set_Matcher
- Need_Score
- )
- ],
- bind_constructors => ["new"],
- make_pod => {
- synopsis => " # Abstract base class.\n",
- constructor => { sample => $constructor },
- methods => [qw( collect )],
- },
-);
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::Collector::OffsetCollector",
- bind_constructors => ["new"],
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::Collector",
+ bind_methods => [
+ qw(
+ Collect
+ Set_Reader
+ Set_Base
+ Set_Matcher
+ Need_Score
+ )
+ ],
+ bind_constructors => ["new"],
+ make_pod => {
+ synopsis => " # Abstract base class.\n",
+ constructor => { sample => $constructor },
+ methods => [qw( collect )],
+ },
+ );
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::Collector::OffsetCollector",
+ bind_constructors => ["new"],
+ );
}
sub bind_compiler {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
# (Compiler is an abstract base class.)
package MyCompiler;
use base qw( Lucy::Search::Compiler );
@@ -148,7 +147,7 @@ sub bind_compiler {
}
END_SYNOPSIS
-my $constructor = <<'END_CONSTRUCTOR_CODE_SAMPLE';
+ my $constructor = <<'END_CONSTRUCTOR_CODE_SAMPLE';
my $compiler = MyCompiler->SUPER::new(
parent => $my_query,
searcher => $searcher,
@@ -157,53 +156,53 @@ my $constructor = <<'END_CONSTRUCTOR_COD
);
END_CONSTRUCTOR_CODE_SAMPLE
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::Compiler",
- bind_methods => [
- qw(
- Make_Matcher
- Get_Parent
- Get_Similarity
- Get_Weight
- Sum_Of_Squared_Weights
- Apply_Norm_Factor
- Normalize
- Highlight_Spans
- )
- ],
- bind_constructors => ["do_new"],
- make_pod => {
- methods => [
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::Compiler",
+ bind_methods => [
qw(
- make_matcher
- get_weight
- sum_of_squared_weights
- apply_norm_factor
- normalize
- get_parent
- get_similarity
- highlight_spans
+ Make_Matcher
+ Get_Parent
+ Get_Similarity
+ Get_Weight
+ Sum_Of_Squared_Weights
+ Apply_Norm_Factor
+ Normalize
+ Highlight_Spans
)
],
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- }
-);
+ bind_constructors => ["do_new"],
+ make_pod => {
+ methods => [
+ qw(
+ make_matcher
+ get_weight
+ sum_of_squared_weights
+ apply_norm_factor
+ normalize
+ get_parent
+ get_similarity
+ highlight_spans
+ )
+ ],
+ synopsis => $synopsis,
+ constructor => { sample => $constructor },
+ }
+ );
}
sub bind_hitqueue {
- Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::HitQueue",
- bind_constructors => ["new"],
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::HitQueue",
+ bind_constructors => ["new"],
+ );
}
sub bind_hits {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
my $hits = $searcher->hits(
query => $query,
offset => 0,
@@ -214,26 +213,26 @@ sub bind_hits {
}
END_SYNOPSIS
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::Hits",
- bind_methods => [
- qw(
- Total_Hits
- Next
- )
- ],
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- methods => [qw( next total_hits )],
- }
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::Hits",
+ bind_methods => [
+ qw(
+ Total_Hits
+ Next
+ )
+ ],
+ bind_constructors => ["new"],
+ make_pod => {
+ synopsis => $synopsis,
+ methods => [qw( next total_hits )],
+ }
+ );
}
sub bind_indexsearcher {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
my $searcher = Lucy::Search::IndexSearcher->new(
index => '/path/to/index'
);
@@ -244,36 +243,36 @@ sub bind_indexsearcher {
);
END_SYNOPSIS
-my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
my $searcher = Lucy::Search::IndexSearcher->new(
index => '/path/to/index'
);
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::IndexSearcher",
- bind_methods => [qw( Get_Reader )],
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- methods => [
- qw( hits
- collect
- doc_max
- doc_freq
- fetch_doc
- get_schema
- get_reader )
- ],
- },
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::IndexSearcher",
+ bind_methods => [qw( Get_Reader )],
+ bind_constructors => ["new"],
+ make_pod => {
+ synopsis => $synopsis,
+ constructor => { sample => $constructor },
+ methods => [
+ qw( hits
+ collect
+ doc_max
+ doc_freq
+ fetch_doc
+ get_schema
+ get_reader )
+ ],
+ },
+ );
}
sub bind_leafquery {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
package MyQueryParser;
use base qw( Lucy::Search::QueryParser );
@@ -291,94 +290,94 @@ sub bind_leafquery {
}
END_SYNOPSIS
-my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
my $leaf_query = Lucy::Search::LeafQuery->new(
text => '"three blind mice"', # required
field => 'content', # default: undef
);
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::LeafQuery",
- bind_methods => [qw( Get_Field Get_Text )],
- bind_constructors => ["new"],
- make_pod => {
- methods => [qw( get_field get_text )],
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- }
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::LeafQuery",
+ bind_methods => [qw( Get_Field Get_Text )],
+ bind_constructors => ["new"],
+ make_pod => {
+ methods => [qw( get_field get_text )],
+ synopsis => $synopsis,
+ constructor => { sample => $constructor },
+ }
+ );
}
sub bind_matchallquery {
- my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
my $match_all_query = Lucy::Search::MatchAllQuery->new;
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::MatchAllQuery",
- bind_constructors => ["new"],
- make_pod => { constructor => { sample => $constructor }, }
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::MatchAllQuery",
+ bind_constructors => ["new"],
+ make_pod => { constructor => { sample => $constructor }, }
+ );
}
sub bind_matchdoc {
- Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::MatchDoc",
- bind_methods => [
- qw(
- Get_Doc_ID
- Set_Doc_ID
- Get_Score
- Set_Score
- Get_Values
- Set_Values
- )
- ],
- bind_constructors => ["new"],
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::MatchDoc",
+ bind_methods => [
+ qw(
+ Get_Doc_ID
+ Set_Doc_ID
+ Get_Score
+ Set_Score
+ Get_Values
+ Set_Values
+ )
+ ],
+ bind_constructors => ["new"],
+ );
}
sub bind_matcher {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
# abstract base class
END_SYNOPSIS
-my $constructor = <<'END_CONSTRUCTOR_CODE_SAMPLE';
+ my $constructor = <<'END_CONSTRUCTOR_CODE_SAMPLE';
my $matcher = MyMatcher->SUPER::new;
END_CONSTRUCTOR_CODE_SAMPLE
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::Matcher",
- bind_methods => [qw( Next Advance Get_Doc_ID Score Collect )],
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- methods => [qw( next advance get_doc_id score )],
- }
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::Matcher",
+ bind_methods => [qw( Next Advance Get_Doc_ID Score Collect )],
+ bind_constructors => ["new"],
+ make_pod => {
+ synopsis => $synopsis,
+ constructor => { sample => $constructor },
+ methods => [qw( next advance get_doc_id score )],
+ }
+ );
}
sub bind_notmatcher {
- Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::NOTMatcher",
- bind_constructors => ["new"],
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::NOTMatcher",
+ bind_constructors => ["new"],
+ );
}
sub bind_notquery {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
my $not_bar_query = Lucy::Search::NOTQuery->new(
negated_query => $bar_query,
);
@@ -389,42 +388,42 @@ sub bind_notquery {
...
END_SYNOPSIS
-my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
my $not_query = Lucy::Search::NOTQuery->new(
negated_query => $query,
);
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::NOTQuery",
- bind_constructors => ["new"],
- bind_methods => [qw( Get_Negated_Query Set_Negated_Query )],
- make_pod => {
- methods => [qw( get_negated_query set_negated_query )],
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- }
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::NOTQuery",
+ bind_constructors => ["new"],
+ bind_methods => [qw( Get_Negated_Query Set_Negated_Query )],
+ make_pod => {
+ methods => [qw( get_negated_query set_negated_query )],
+ synopsis => $synopsis,
+ constructor => { sample => $constructor },
+ }
+ );
}
sub bind_nomatchquery {
- my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
my $no_match_query = Lucy::Search::NoMatchQuery->new;
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::NoMatchQuery",
- bind_constructors => ["new"],
- make_pod => { constructor => { sample => $constructor }, }
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::NoMatchQuery",
+ bind_constructors => ["new"],
+ make_pod => { constructor => { sample => $constructor }, }
+ );
}
sub bind_orquery {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
my $foo_or_bar_query = Lucy::Search::ORQuery->new(
children => [ $foo_query, $bar_query ],
);
@@ -432,36 +431,36 @@ sub bind_orquery {
...
END_SYNOPSIS
-my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
my $foo_or_bar_query = Lucy::Search::ORQuery->new(
children => [ $foo_query, $bar_query ],
);
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::ORQuery",
- bind_constructors => ["new"],
- make_pod => {
- methods => [qw( add_child )],
- synopsis => $synopsis,
- constructor => { sample => $constructor, }
- },
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::ORQuery",
+ bind_constructors => ["new"],
+ make_pod => {
+ methods => [qw( add_child )],
+ synopsis => $synopsis,
+ constructor => { sample => $constructor, }
+ },
+ );
}
sub bind_orscorer {
- Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::ORScorer",
- bind_constructors => ["new"],
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::ORScorer",
+ bind_constructors => ["new"],
+ );
}
sub bind_phrasequery {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
my $phrase_query = Lucy::Search::PhraseQuery->new(
field => 'content',
terms => [qw( the who )],
@@ -469,27 +468,27 @@ sub bind_phrasequery {
my $hits = $searcher->hits( query => $phrase_query );
END_SYNOPSIS
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::PhraseQuery",
- bind_methods => [qw( Get_Field Get_Terms )],
- bind_constructors => ["new"],
- make_pod => {
- constructor => { sample => '' },
- synopsis => $synopsis,
- methods => [qw( get_field get_terms )],
- },
-);
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::PhraseCompiler",
- bind_constructors => ["do_new"],
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::PhraseQuery",
+ bind_methods => [qw( Get_Field Get_Terms )],
+ bind_constructors => ["new"],
+ make_pod => {
+ constructor => { sample => '' },
+ synopsis => $synopsis,
+ methods => [qw( get_field get_terms )],
+ },
+ );
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::PhraseCompiler",
+ bind_constructors => ["do_new"],
+ );
}
sub bind_polyquery {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
sub walk {
my $query = shift;
if ( $query->isa("Lucy::Search::PolyQuery") ) {
@@ -504,18 +503,18 @@ sub bind_polyquery {
}
END_SYNOPSIS
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::PolyQuery",
- bind_methods => [qw( Add_Child Set_Children Get_Children )],
- bind_constructors => ["new"],
- make_pod => { synopsis => $synopsis, },
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::PolyQuery",
+ bind_methods => [qw( Add_Child Set_Children Get_Children )],
+ bind_constructors => ["new"],
+ make_pod => { synopsis => $synopsis, },
+ );
}
sub bind_polysearcher {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
my $schema = MySchema->new;
for my $index (@index_paths) {
push @searchers, Lucy::Search::IndexSearcher->new( index => $index );
@@ -527,35 +526,35 @@ sub bind_polysearcher {
my $hits = $poly_searcher->hits( query => $query );
END_SYNOPSIS
-my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
my $poly_searcher = Lucy::Search::PolySearcher->new(
schema => $schema,
searchers => \@searchers,
);
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::PolySearcher",
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- methods => [
- qw( hits
- doc_max
- doc_freq
- fetch_doc
- get_schema
- )
- ],
- }
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::PolySearcher",
+ bind_constructors => ["new"],
+ make_pod => {
+ synopsis => $synopsis,
+ constructor => { sample => $constructor },
+ methods => [
+ qw( hits
+ doc_max
+ doc_freq
+ fetch_doc
+ get_schema
+ )
+ ],
+ }
+ );
}
sub bind_query {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
# Query is an abstract base class.
package MyQuery;
use base qw( Lucy::Search::Query );
@@ -573,32 +572,32 @@ sub bind_query {
...
END_SYNOPSIS
-my $constructor = <<'END_CONSTRUCTOR_CODE_SAMPLE';
+ my $constructor = <<'END_CONSTRUCTOR_CODE_SAMPLE';
my $query = MyQuery->SUPER::new(
boost => 2.5,
);
END_CONSTRUCTOR_CODE_SAMPLE
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::Query",
- bind_methods => [
- qw( Set_Boost
- Get_Boost
- _make_compiler|Make_Compiler )
- ],
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- methods => [qw( make_compiler set_boost get_boost )],
- },
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::Query",
+ bind_methods => [
+ qw( Set_Boost
+ Get_Boost
+ _make_compiler|Make_Compiler )
+ ],
+ bind_constructors => ["new"],
+ make_pod => {
+ synopsis => $synopsis,
+ constructor => { sample => $constructor },
+ methods => [qw( make_compiler set_boost get_boost )],
+ },
+ );
}
sub bind_queryparser {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
my $query_parser = Lucy::Search::QueryParser->new(
schema => $searcher->get_schema,
fields => ['body'],
@@ -607,7 +606,7 @@ sub bind_queryparser {
my $hits = $searcher->hits( query => $query );
END_SYNOPSIS
-my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
my $query_parser = Lucy::Search::QueryParser->new(
schema => $searcher->get_schema, # required
analyzer => $analyzer, # overrides schema
@@ -616,55 +615,55 @@ my $constructor = <<'END_CONSTRUCTOR';
);
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::QueryParser",
- bind_methods => [
- qw(
- Parse
- Tree
- Expand
- Expand_Leaf
- Prune
- Heed_Colons
- Set_Heed_Colons
- Get_Analyzer
- Get_Schema
- Get_Fields
- Make_Term_Query
- Make_Phrase_Query
- Make_AND_Query
- Make_OR_Query
- Make_NOT_Query
- Make_Req_Opt_Query
- )
- ],
- bind_constructors => ["new"],
- make_pod => {
- methods => [
- qw( parse
- tree
- expand
- expand_leaf
- prune
- set_heed_colons
- make_term_query
- make_phrase_query
- make_and_query
- make_or_query
- make_not_query
- make_req_opt_query
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::QueryParser",
+ bind_methods => [
+ qw(
+ Parse
+ Tree
+ Expand
+ Expand_Leaf
+ Prune
+ Heed_Colons
+ Set_Heed_Colons
+ Get_Analyzer
+ Get_Schema
+ Get_Fields
+ Make_Term_Query
+ Make_Phrase_Query
+ Make_AND_Query
+ Make_OR_Query
+ Make_NOT_Query
+ Make_Req_Opt_Query
)
],
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- }
-);
+ bind_constructors => ["new"],
+ make_pod => {
+ methods => [
+ qw( parse
+ tree
+ expand
+ expand_leaf
+ prune
+ set_heed_colons
+ make_term_query
+ make_phrase_query
+ make_and_query
+ make_or_query
+ make_not_query
+ make_req_opt_query
+ )
+ ],
+ synopsis => $synopsis,
+ constructor => { sample => $constructor },
+ }
+ );
}
sub bind_rangequery {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
# Match all articles by "Foo" published since the year 2000.
my $range_query = Lucy::Search::RangeQuery->new(
field => 'publication_date',
@@ -682,7 +681,7 @@ sub bind_rangequery {
...
END_SYNOPSIS
-my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
my $range_query = Lucy::Search::RangeQuery->new(
field => 'product_number', # required
lower_term => '003', # see below
@@ -692,29 +691,29 @@ my $constructor = <<'END_CONSTRUCTOR';
);
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::RangeQuery",
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- },
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::RangeQuery",
+ bind_constructors => ["new"],
+ make_pod => {
+ synopsis => $synopsis,
+ constructor => { sample => $constructor },
+ },
+ );
}
sub bind_requiredoptionalmatcher {
- Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::RequiredOptionalMatcher",
- bind_constructors => ["new"],
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::RequiredOptionalMatcher",
+ bind_constructors => ["new"],
+ );
}
sub bind_requiredoptionalquery {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
my $foo_and_maybe_bar = Lucy::Search::RequiredOptionalQuery->new(
required_query => $foo_query,
optional_query => $bar_query,
@@ -723,35 +722,35 @@ sub bind_requiredoptionalquery {
...
END_SYNOPSIS
-my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
my $reqopt_query = Lucy::Search::RequiredOptionalQuery->new(
required_query => $foo_query, # required
optional_query => $bar_query, # required
);
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::RequiredOptionalQuery",
- bind_methods => [
- qw( Get_Required_Query Set_Required_Query
- Get_Optional_Query Set_Optional_Query )
- ],
- bind_constructors => ["new"],
- make_pod => {
- methods => [
- qw( get_required_query set_required_query
- get_optional_query set_optional_query )
- ],
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- },
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::RequiredOptionalQuery",
+ bind_methods => [
+ qw( Get_Required_Query Set_Required_Query
+ Get_Optional_Query Set_Optional_Query )
+ ],
+ bind_constructors => ["new"],
+ make_pod => {
+ methods => [
+ qw( get_required_query set_required_query
+ get_optional_query set_optional_query )
+ ],
+ synopsis => $synopsis,
+ constructor => { sample => $constructor },
+ },
+ );
}
sub bind_searcher {
- my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
package MySearcher;
use base qw( Lucy::Search::Searcher );
sub new {
@@ -761,43 +760,43 @@ sub bind_searcher {
}
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::Searcher",
- bind_methods => [
- qw( Doc_Max
- Doc_Freq
- Glean_Query
- Hits
- Collect
- Top_Docs
- Fetch_Doc
- Fetch_Doc_Vec
- Get_Schema
- Close )
- ],
- bind_constructors => ["new"],
- make_pod => {
- synopsis => " # Abstract base class.\n",
- constructor => { sample => $constructor },
- methods => [
- qw(
- hits
- collect
- glean_query
- doc_max
- doc_freq
- fetch_doc
- get_schema
- )
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::Searcher",
+ bind_methods => [
+ qw( Doc_Max
+ Doc_Freq
+ Glean_Query
+ Hits
+ Collect
+ Top_Docs
+ Fetch_Doc
+ Fetch_Doc_Vec
+ Get_Schema
+ Close )
],
- },
-);
+ bind_constructors => ["new"],
+ make_pod => {
+ synopsis => " # Abstract base class.\n",
+ constructor => { sample => $constructor },
+ methods => [
+ qw(
+ hits
+ collect
+ glean_query
+ doc_max
+ doc_freq
+ fetch_doc
+ get_schema
+ )
+ ],
+ },
+ );
}
sub bind_sortrule {
- my $xs_code = <<'END_XS_CODE';
+ my $xs_code = <<'END_XS_CODE';
MODULE = Lucy PACKAGE = Lucy::Search::SortRule
int32_t
@@ -819,7 +818,7 @@ CODE:
OUTPUT: RETVAL
END_XS_CODE
-my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
my $sort_spec = Lucy::Search::SortSpec->new(
rules => [
Lucy::Search::SortRule->new( field => 'date' ),
@@ -828,7 +827,7 @@ my $synopsis = <<'END_SYNOPSIS';
);
END_SYNOPSIS
-my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
my $by_title = Lucy::Search::SortRule->new( field => 'title' );
my $by_score = Lucy::Search::SortRule->new( type => 'score' );
my $by_doc_id = Lucy::Search::SortRule->new( type => 'doc_id' );
@@ -838,23 +837,23 @@ my $constructor = <<'END_CONSTRUCTOR';
);
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::SortRule",
- xs_code => $xs_code,
- bind_constructors => ["_new"],
- bind_methods => [qw( Get_Field Get_Reverse )],
- make_pod => {
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- methods => [qw( get_field get_reverse )],
- },
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::SortRule",
+ xs_code => $xs_code,
+ bind_constructors => ["_new"],
+ bind_methods => [qw( Get_Field Get_Reverse )],
+ make_pod => {
+ synopsis => $synopsis,
+ constructor => { sample => $constructor },
+ methods => [qw( get_field get_reverse )],
+ },
+ );
}
sub bind_sortspec {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
my $sort_spec = Lucy::Search::SortSpec->new(
rules => [
Lucy::Search::SortRule->new( field => 'date' ),
@@ -867,25 +866,25 @@ sub bind_sortspec {
);
END_SYNOPSIS
-my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
my $sort_spec = Lucy::Search::SortSpec->new( rules => \@rules );
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::SortSpec",
- bind_methods => [qw( Get_Rules )],
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- },
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::SortSpec",
+ bind_methods => [qw( Get_Rules )],
+ bind_constructors => ["new"],
+ make_pod => {
+ synopsis => $synopsis,
+ constructor => { sample => $constructor },
+ },
+ );
}
sub bind_span {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
my $combined_length = $upper_span->get_length
+ ( $upper_span->get_offset - $lower_span->get_offset );
my $combined_span = Lucy::Search::Span->new(
@@ -895,7 +894,7 @@ sub bind_span {
...
END_SYNOPSIS
-my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
my $span = Lucy::Search::Span->new(
offset => 75, # required
length => 7, # required
@@ -903,36 +902,36 @@ my $constructor = <<'END_CONSTRUCTOR';
);
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::Span",
- bind_methods => [
- qw( Set_Offset
- Get_Offset
- Set_Length
- Get_Length
- Set_Weight
- Get_Weight )
- ],
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- methods => [
- qw( set_offset
- get_offset
- set_length
- get_length
- set_weight
- get_weight )
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::Span",
+ bind_methods => [
+ qw( Set_Offset
+ Get_Offset
+ Set_Length
+ Get_Length
+ Set_Weight
+ Get_Weight )
],
- }
-);
+ bind_constructors => ["new"],
+ make_pod => {
+ synopsis => $synopsis,
+ constructor => { sample => $constructor },
+ methods => [
+ qw( set_offset
+ get_offset
+ set_length
+ get_length
+ set_weight
+ get_weight )
+ ],
+ }
+ );
}
sub bind_termquery {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
my $term_query = Lucy::Search::TermQuery->new(
field => 'content',
term => 'foo',
@@ -940,45 +939,45 @@ sub bind_termquery {
my $hits = $searcher->hits( query => $term_query );
END_SYNOPSIS
-my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
my $term_query = Lucy::Search::TermQuery->new(
field => 'content', # required
term => 'foo', # required
);
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::TermQuery",
- bind_methods => [qw( Get_Field Get_Term )],
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- methods => [qw( get_field get_term )],
- },
-);
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::TermCompiler",
- bind_constructors => ["do_new"],
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::TermQuery",
+ bind_methods => [qw( Get_Field Get_Term )],
+ bind_constructors => ["new"],
+ make_pod => {
+ synopsis => $synopsis,
+ constructor => { sample => $constructor },
+ methods => [qw( get_field get_term )],
+ },
+ );
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::TermCompiler",
+ bind_constructors => ["do_new"],
+ );
}
sub bind_topdocs {
- Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::TopDocs",
- bind_methods => [
- qw(
- Get_Match_Docs
- Get_Total_Hits
- Set_Total_Hits
- )
- ],
- bind_constructors => ["new"],
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::TopDocs",
+ bind_methods => [
+ qw(
+ Get_Match_Docs
+ Get_Total_Hits
+ Set_Total_Hits
+ )
+ ],
+ bind_constructors => ["new"],
+ );
}
Modified: incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Search/Collector.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Search/Collector.pm?rev=1232753&r1=1232752&r2=1232753&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Search/Collector.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Search/Collector.pm Wed Jan 18 05:53:13 2012
@@ -14,15 +14,14 @@
# limitations under the License.
package Lucy::Build::Binding::Search::Collector;
-
sub bind_all {
- my $class = shift;
- $class->bind_bitcollector;
- $class->bind_sortcollector;
+ my $class = shift;
+ $class->bind_bitcollector;
+ $class->bind_sortcollector;
}
sub bind_bitcollector {
- my $synopsis = <<'END_SYNOPSIS';
+ my $synopsis = <<'END_SYNOPSIS';
my $bit_vec = Lucy::Object::BitVector->new(
capacity => $searcher->doc_max + 1,
);
@@ -35,32 +34,32 @@ sub bind_bitcollector {
);
END_SYNOPSIS
-my $constructor = <<'END_CONSTRUCTOR';
+ my $constructor = <<'END_CONSTRUCTOR';
my $bit_collector = Lucy::Search::Collector::BitCollector->new(
bit_vector => $bit_vec, # required
);
END_CONSTRUCTOR
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::Collector::BitCollector",
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- methods => [qw( collect )],
- },
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::Collector::BitCollector",
+ bind_constructors => ["new"],
+ make_pod => {
+ synopsis => $synopsis,
+ constructor => { sample => $constructor },
+ methods => [qw( collect )],
+ },
+ );
}
sub bind_sortcollector {
- Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Search::Collector::SortCollector",
- bind_methods => [qw( Pop_Match_Docs Get_Total_Hits )],
- bind_constructors => ["new"],
-);
+ Clownfish::CFC::Binding::Perl::Class->register(
+ parcel => "Lucy",
+ class_name => "Lucy::Search::Collector::SortCollector",
+ bind_methods => [qw( Pop_Match_Docs Get_Total_Hits )],
+ bind_constructors => ["new"],
+ );
}