You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@lucy.apache.org by ma...@apache.org on 2012/01/26 03:53:00 UTC
[lucy-commits] svn commit: r1236029 - in /incubator/lucy/trunk/perl/buildlib:
Lucy/Build/Binding/ Lucy/Build/Binding/Search/ Lucy/Build/Binding/Test/
LucyX/Build/Binding/
Author: marvin
Date: Thu Jan 26 02:52:59 2012
New Revision: 1236029
URL: http://svn.apache.org/viewvc?rev=1236029&view=rev
Log:
Run lucytidy.pl on perl/buildlib.
Modified:
incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Analysis.pm
incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Docs.pm
incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Highlight.pm
incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Index.pm
incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Lucy.pm
incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Object.pm
incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Plan.pm
incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Search.pm
incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Search/Collector.pm
incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Store.pm
incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Test/Util.pm
incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Util.pm
incubator/lucy/trunk/perl/buildlib/LucyX/Build/Binding/Search.pm
Modified: incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Analysis.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Analysis.pm?rev=1236029&r1=1236028&r2=1236029&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Analysis.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Analysis.pm Thu Jan 26 02:52:59 2012
@@ -140,9 +140,9 @@ OUTPUT: RETVAL
END_XS
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Analysis::Inversion",
- xs_code => $xs,
+ parcel => "Lucy",
+ class_name => "Lucy::Analysis::Inversion",
+ xs_code => $xs,
);
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
@@ -413,7 +413,7 @@ END_XS
xs_code => $xs,
);
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
-
+
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
Modified: incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Docs.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Docs.pm?rev=1236029&r1=1236028&r2=1236029&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Docs.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Docs.pm Thu Jan 26 02:52:59 2012
@@ -24,7 +24,7 @@ sub bind_all {
sub bind_devguide {
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
+ my $binding = Clownfish::CFC::Binding::Perl::Class->new(
parcel => "Lucy",
class_name => "Lucy::Docs::DevGuide",
);
Modified: incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Highlight.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Highlight.pm?rev=1236029&r1=1236028&r2=1236029&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Highlight.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Highlight.pm Thu Jan 26 02:52:59 2012
@@ -30,7 +30,7 @@ sub bind_heatmap {
Get_Spans
);
- my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
+ my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $constructor = <<'END_CONSTRUCTOR';
my $heat_map = Lucy::Highlight::HeatMap->new(
spans => \@highlight_spans,
@@ -93,8 +93,8 @@ END_CONSTRUCTOR
$pod_spec->add_method( method => $_, alias => lc($_) ) for @exposed;
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Highlight::Highlighter",
+ parcel => "Lucy",
+ class_name => "Lucy::Highlight::Highlighter",
);
$binding->bind_constructor;
$binding->bind_method( method => $_ ) for @bound;
Modified: incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Index.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Index.pm?rev=1236029&r1=1236028&r2=1236029&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Index.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Index.pm Thu Jan 26 02:52:59 2012
@@ -85,8 +85,8 @@ END_CONSTRUCTOR
$pod_spec->add_method( method => $_, alias => lc($_) ) for @exposed;
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::BackgroundMerger",
+ parcel => "Lucy",
+ class_name => "Lucy::Index::BackgroundMerger",
);
$binding->bind_constructor;
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
@@ -125,8 +125,8 @@ END_CONSTRUCTOR
$pod_spec->add_method( method => $_, alias => lc($_) ) for @exposed;
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::DataReader",
+ parcel => "Lucy",
+ class_name => "Lucy::Index::DataReader",
);
$binding->bind_constructor;
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
@@ -182,8 +182,8 @@ sub bind_deletionsreader {
my @bound = qw( Iterator Del_Count );
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::DeletionsReader",
+ parcel => "Lucy",
+ class_name => "Lucy::Index::DeletionsReader",
);
$binding->bind_constructor;
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
@@ -192,10 +192,10 @@ sub bind_deletionsreader {
}
sub bind_defaultdeletionsreader {
- my @bound = qw( Read_Deletions );
+ my @bound = qw( Read_Deletions );
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::DefaultDeletionsReader",
+ parcel => "Lucy",
+ class_name => "Lucy::Index::DefaultDeletionsReader",
);
$binding->bind_constructor;
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
@@ -242,8 +242,8 @@ END_SYNOPSIS
sub bind_defaultdeletionswriter {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::DefaultDeletionsWriter",
+ parcel => "Lucy",
+ class_name => "Lucy::Index::DefaultDeletionsWriter",
);
$binding->bind_constructor;
Clownfish::CFC::Binding::Perl::Class->register($binding);
@@ -274,18 +274,18 @@ END_SYNOPSIS
sub bind_defaultdocreader {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::DefaultDocReader",
+ parcel => "Lucy",
+ class_name => "Lucy::Index::DefaultDocReader",
);
$binding->bind_constructor;
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
sub bind_docvector {
- my @bound = qw( Term_Vector Field_Buf Add_Field_Buf );
+ my @bound = qw( Term_Vector Field_Buf Add_Field_Buf );
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::DocVector",
+ parcel => "Lucy",
+ class_name => "Lucy::Index::DocVector",
);
$binding->bind_constructor;
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
@@ -294,18 +294,18 @@ sub bind_docvector {
sub bind_docwriter {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::DocWriter",
+ parcel => "Lucy",
+ class_name => "Lucy::Index::DocWriter",
);
$binding->bind_constructor;
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
sub bind_filepurger {
- my @bound = qw( Purge );
+ my @bound = qw( Purge );
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::FilePurger",
+ parcel => "Lucy",
+ class_name => "Lucy::Index::FilePurger",
);
$binding->bind_constructor;
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
@@ -314,8 +314,8 @@ sub bind_filepurger {
sub bind_highlightreader {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::HighlightReader",
+ parcel => "Lucy",
+ class_name => "Lucy::Index::HighlightReader",
);
$binding->bind_constructor;
Clownfish::CFC::Binding::Perl::Class->register($binding);
@@ -323,8 +323,8 @@ sub bind_highlightreader {
sub bind_defaulthighlightreader {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::DefaultHighlightReader",
+ parcel => "Lucy",
+ class_name => "Lucy::Index::DefaultHighlightReader",
);
$binding->bind_constructor;
Clownfish::CFC::Binding::Perl::Class->register($binding);
@@ -332,8 +332,8 @@ sub bind_defaulthighlightreader {
sub bind_highlightwriter {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::HighlightWriter",
+ parcel => "Lucy",
+ class_name => "Lucy::Index::HighlightWriter",
);
$binding->bind_constructor;
Clownfish::CFC::Binding::Perl::Class->register($binding);
@@ -674,9 +674,9 @@ PPCODE:
END_XS_CODE
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::Indexer",
- xs_code => $xs_code,
+ parcel => "Lucy",
+ class_name => "Lucy::Index::Indexer",
+ xs_code => $xs_code,
);
$binding->bind_constructor( alias => '_new' );
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
@@ -765,8 +765,8 @@ END_SYNOPSIS
sub bind_defaultlexiconreader {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::DefaultLexiconReader",
+ parcel => "Lucy",
+ class_name => "Lucy::Index::DefaultLexiconReader",
);
$binding->bind_constructor;
Clownfish::CFC::Binding::Perl::Class->register($binding);
@@ -774,8 +774,8 @@ sub bind_defaultlexiconreader {
sub bind_lexiconwriter {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::LexiconWriter",
+ parcel => "Lucy",
+ class_name => "Lucy::Index::LexiconWriter",
);
$binding->bind_constructor;
Clownfish::CFC::Binding::Perl::Class->register($binding);
@@ -783,8 +783,8 @@ sub bind_lexiconwriter {
sub bind_polylexicon {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::PolyLexicon",
+ parcel => "Lucy",
+ class_name => "Lucy::Index::PolyLexicon",
);
$binding->bind_constructor;
Clownfish::CFC::Binding::Perl::Class->register($binding);
@@ -914,8 +914,8 @@ END_SYNOPSIS
sub bind_defaultpostinglistreader {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::DefaultPostingListReader",
+ parcel => "Lucy",
+ class_name => "Lucy::Index::DefaultPostingListReader",
);
$binding->bind_constructor;
Clownfish::CFC::Binding::Perl::Class->register($binding);
@@ -933,9 +933,9 @@ PPCODE:
END_XS
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::PostingListWriter",
- xs_code => $xs_code,
+ parcel => "Lucy",
+ class_name => "Lucy::Index::PostingListWriter",
+ xs_code => $xs_code,
);
$binding->bind_constructor;
@@ -946,8 +946,8 @@ sub bind_seglexicon {
my @bound = qw( Get_Term_Info Get_Field_Num );
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::SegLexicon",
+ parcel => "Lucy",
+ class_name => "Lucy::Index::SegLexicon",
);
$binding->bind_constructor;
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
@@ -1226,19 +1226,19 @@ OUTPUT: RETVAL
END_XS_CODE
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::SortCache",
- xs_code => $xs_code,
+ parcel => "Lucy",
+ class_name => "Lucy::Index::SortCache",
+ xs_code => $xs_code,
);
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
sub bind_sortreader {
- my @bound = qw( Fetch_Sort_Cache );
+ my @bound = qw( Fetch_Sort_Cache );
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::SortReader",
+ parcel => "Lucy",
+ class_name => "Lucy::Index::SortReader",
);
$binding->bind_constructor;
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
@@ -1248,8 +1248,8 @@ sub bind_sortreader {
sub bind_defaultsortreader {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::DefaultSortReader",
+ parcel => "Lucy",
+ class_name => "Lucy::Index::DefaultSortReader",
);
$binding->bind_constructor;
@@ -1268,9 +1268,9 @@ PPCODE:
END_XS
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::SortWriter",
- xs_code => $xs_code,
+ parcel => "Lucy",
+ class_name => "Lucy::Index::SortWriter",
+ xs_code => $xs_code,
);
$binding->bind_constructor;
@@ -1291,8 +1291,8 @@ sub bind_terminfo {
);
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::TermInfo",
+ parcel => "Lucy",
+ class_name => "Lucy::Index::TermInfo",
);
$binding->bind_constructor;
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
@@ -1308,8 +1308,8 @@ sub bind_termvector {
);
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::TermVector",
+ parcel => "Lucy",
+ class_name => "Lucy::Index::TermVector",
);
$binding->bind_constructor;
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
Modified: incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Lucy.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Lucy.pm?rev=1236029&r1=1236028&r2=1236029&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Lucy.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Lucy.pm Thu Jan 26 02:52:59 2012
@@ -336,8 +336,8 @@ END_XS_CODE
sub bind_testschema {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Test::TestSchema",
+ parcel => "Lucy",
+ class_name => "Lucy::Test::TestSchema",
);
$binding->bind_constructor;
Clownfish::CFC::Binding::Perl::Class->register($binding);
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=1236029&r1=1236028&r2=1236029&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Object.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Object.pm Thu Jan 26 02:52:59 2012
@@ -71,11 +71,11 @@ END_CONSTRUCTOR
$pod_spec->add_method( method => $_, alias => lc($_) ) for @exposed;
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Object::BitVector",
+ parcel => "Lucy",
+ class_name => "Lucy::Object::BitVector",
);
$binding->bind_constructor;
- $binding->bind_method( method => $_, alias => lc($_) ) for @bound;
+ $binding->bind_method( method => $_, alias => lc($_) ) for @bound;
$binding->set_pod_spec($pod_spec);
Clownfish::CFC::Binding::Perl::Class->register($binding);
@@ -117,9 +117,9 @@ OUTPUT: RETVAL
END_XS_CODE
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Object::ByteBuf",
- xs_code => $xs_code,
+ parcel => "Lucy",
+ class_name => "Lucy::Object::ByteBuf",
+ xs_code => $xs_code,
);
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
@@ -295,9 +295,9 @@ PPCODE:
END_XS_CODE
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Object::Hash",
- xs_code => $xs_code,
+ parcel => "Lucy",
+ class_name => "Lucy::Object::Hash",
+ xs_code => $xs_code,
);
$binding->bind_constructor;
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
@@ -461,9 +461,9 @@ OUTPUT: RETVAL
END_XS_CODE
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Object::I32Array",
- xs_code => $xs_code,
+ parcel => "Lucy",
+ class_name => "Lucy::Object::I32Array",
+ xs_code => $xs_code,
);
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
@@ -474,8 +474,8 @@ sub bind_lockfreeregistry {
my @bound = qw( Register Fetch );
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Object::LockFreeRegistry",
+ parcel => "Lucy",
+ class_name => "Lucy::Object::LockFreeRegistry",
);
$binding->bind_constructor;
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
@@ -503,9 +503,9 @@ OUTPUT: RETVAL
END_XS_CODE
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Object::Float32",
- xs_code => $float32_xs_code,
+ parcel => "Lucy",
+ class_name => "Lucy::Object::Float32",
+ xs_code => $float32_xs_code,
);
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
@@ -532,9 +532,9 @@ OUTPUT: RETVAL
END_XS_CODE
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Object::Float64",
- xs_code => $float64_xs_code,
+ parcel => "Lucy",
+ class_name => "Lucy::Object::Float64",
+ xs_code => $float64_xs_code,
);
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
@@ -835,9 +835,9 @@ OUTPUT: RETVAL
END_XS_CODE
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Object::VArray",
- xs_code => $xs_code,
+ parcel => "Lucy",
+ class_name => "Lucy::Object::VArray",
+ xs_code => $xs_code,
);
$binding->bind_constructor;
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
@@ -894,9 +894,9 @@ OUTPUT: RETVAL
END_XS_CODE
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Object::VTable",
- xs_code => $xs_code,
+ parcel => "Lucy",
+ class_name => "Lucy::Object::VTable",
+ xs_code => $xs_code,
);
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
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=1236029&r1=1236028&r2=1236029&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Plan.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Plan.pm Thu Jan 26 02:52:59 2012
@@ -104,8 +104,8 @@ END_CONSTRUCTOR
$pod_spec->add_method( method => $_, alias => lc($_) ) for @exposed;
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Plan::Architecture",
+ parcel => "Lucy",
+ class_name => "Lucy::Plan::Architecture",
);
$binding->bind_constructor;
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
@@ -176,8 +176,8 @@ END_SYNOPSIS
sub bind_float32type {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Plan::Float32Type",
+ parcel => "Lucy",
+ class_name => "Lucy::Plan::Float32Type",
);
$binding->bind_constructor( alias => 'new', initializer => 'init2' );
Clownfish::CFC::Binding::Perl::Class->register($binding);
@@ -185,8 +185,8 @@ sub bind_float32type {
sub bind_float64type {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Plan::Float64Type",
+ parcel => "Lucy",
+ class_name => "Lucy::Plan::Float64Type",
);
$binding->bind_constructor( alias => 'new', initializer => 'init2' );
Clownfish::CFC::Binding::Perl::Class->register($binding);
@@ -238,8 +238,8 @@ END_CONSTRUCTOR
sub bind_int32type {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Plan::Int32Type",
+ parcel => "Lucy",
+ class_name => "Lucy::Plan::Int32Type",
);
$binding->bind_constructor( alias => 'new', initializer => 'init2' );
Clownfish::CFC::Binding::Perl::Class->register($binding);
@@ -247,8 +247,8 @@ sub bind_int32type {
sub bind_int64type {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Plan::Int64Type",
+ parcel => "Lucy",
+ class_name => "Lucy::Plan::Int64Type",
);
$binding->bind_constructor( alias => 'new', initializer => 'init2' );
Clownfish::CFC::Binding::Perl::Class->register($binding);
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=1236029&r1=1236028&r2=1236029&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Search.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Search.pm Thu Jan 26 02:52:59 2012
@@ -56,8 +56,8 @@ sub bind_all {
sub bind_andmatcher {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Search::ANDMatcher",
+ parcel => "Lucy",
+ class_name => "Lucy::Search::ANDMatcher",
);
$binding->bind_constructor;
Clownfish::CFC::Binding::Perl::Class->register($binding);
@@ -95,8 +95,8 @@ END_CONSTRUCTOR
sub bind_bitvecmatcher {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Search::BitVecMatcher",
+ parcel => "Lucy",
+ class_name => "Lucy::Search::BitVecMatcher",
);
$binding->bind_constructor;
Clownfish::CFC::Binding::Perl::Class->register($binding);
@@ -143,8 +143,8 @@ END_CONSTRUCTOR
sub bind_offsetcollector {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Search::Collector::OffsetCollector",
+ parcel => "Lucy",
+ class_name => "Lucy::Search::Collector::OffsetCollector",
);
$binding->bind_constructor;
Clownfish::CFC::Binding::Perl::Class->register($binding);
@@ -199,8 +199,8 @@ END_CONSTRUCTOR_CODE_SAMPLE
sub bind_hitqueue {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Search::HitQueue",
+ parcel => "Lucy",
+ class_name => "Lucy::Search::HitQueue",
);
$binding->bind_constructor;
Clownfish::CFC::Binding::Perl::Class->register($binding);
@@ -351,8 +351,8 @@ sub bind_matchdoc {
);
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Search::MatchDoc",
+ parcel => "Lucy",
+ class_name => "Lucy::Search::MatchDoc",
);
$binding->bind_constructor;
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
@@ -393,8 +393,8 @@ END_CONSTRUCTOR_CODE_SAMPLE
sub bind_notmatcher {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Search::NOTMatcher",
+ parcel => "Lucy",
+ class_name => "Lucy::Search::NOTMatcher",
);
$binding->bind_constructor;
Clownfish::CFC::Binding::Perl::Class->register($binding);
@@ -487,8 +487,8 @@ END_CONSTRUCTOR
sub bind_orscorer {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Search::ORScorer",
+ parcel => "Lucy",
+ class_name => "Lucy::Search::ORScorer",
);
$binding->bind_constructor;
Clownfish::CFC::Binding::Perl::Class->register($binding);
@@ -523,8 +523,8 @@ END_SYNOPSIS
sub bind_phrasecompiler {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Search::PhraseCompiler",
+ parcel => "Lucy",
+ class_name => "Lucy::Search::PhraseCompiler",
);
$binding->bind_constructor( alias => 'do_new' );
Clownfish::CFC::Binding::Perl::Class->register($binding);
@@ -752,8 +752,8 @@ END_CONSTRUCTOR
sub bind_requiredoptionalmatcher {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Search::RequiredOptionalMatcher",
+ parcel => "Lucy",
+ class_name => "Lucy::Search::RequiredOptionalMatcher",
);
$binding->bind_constructor;
Clownfish::CFC::Binding::Perl::Class->register($binding);
@@ -1013,8 +1013,8 @@ END_CONSTRUCTOR
sub bind_termcompiler {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Search::TermCompiler",
+ parcel => "Lucy",
+ class_name => "Lucy::Search::TermCompiler",
);
$binding->bind_constructor( alias => 'do_new' );
Clownfish::CFC::Binding::Perl::Class->register($binding);
@@ -1028,8 +1028,8 @@ sub bind_topdocs {
);
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Search::TopDocs",
+ parcel => "Lucy",
+ class_name => "Lucy::Search::TopDocs",
);
$binding->bind_constructor;
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
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=1236029&r1=1236028&r2=1236029&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 Thu Jan 26 02:52:59 2012
@@ -48,8 +48,8 @@ END_CONSTRUCTOR
$pod_spec->add_method( method => $_, alias => lc($_) ) for @exposed;
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Search::Collector::BitCollector",
+ parcel => "Lucy",
+ class_name => "Lucy::Search::Collector::BitCollector",
);
$binding->bind_constructor;
$binding->set_pod_spec($pod_spec);
@@ -61,11 +61,11 @@ sub bind_sortcollector {
my @bound = qw( Pop_Match_Docs Get_Total_Hits );
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Search::Collector::SortCollector",
+ parcel => "Lucy",
+ class_name => "Lucy::Search::Collector::SortCollector",
);
$binding->bind_constructor;
- $binding->bind_method( method => $_, alias => lc($_) ) for @bound;
+ $binding->bind_method( method => $_, alias => lc($_) ) for @bound;
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
Modified: incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Store.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Store.pm?rev=1236029&r1=1236028&r2=1236029&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Store.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Store.pm Thu Jan 26 02:52:59 2012
@@ -36,8 +36,8 @@ sub bind_all {
sub bind_fsfilehandle {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Store::FSFileHandle",
+ parcel => "Lucy",
+ class_name => "Lucy::Store::FSFileHandle",
);
$binding->bind_constructor( alias => '_open', initializer => 'do_open' );
Clownfish::CFC::Binding::Perl::Class->register($binding);
@@ -55,8 +55,8 @@ END_SYNOPSIS
$pod_spec->add_constructor( alias => 'new', sample => $constructor, );
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Store::FSFolder",
+ parcel => "Lucy",
+ class_name => "Lucy::Store::FSFolder",
);
$binding->bind_constructor;
$binding->set_pod_spec($pod_spec);
@@ -121,9 +121,9 @@ OUTPUT: RETVAL
END_XS_CODE
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Store::FileHandle",
- xs_code => $xs_code,
+ parcel => "Lucy",
+ class_name => "Lucy::Store::FileHandle",
+ xs_code => $xs_code,
);
$binding->bind_constructor( alias => '_open', initializer => 'do_open' );
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
@@ -237,9 +237,9 @@ OUTPUT: RETVAL
END_XS_CODE
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Store::InStream",
- xs_code => $xs_code,
+ parcel => "Lucy",
+ class_name => "Lucy::Store::InStream",
+ xs_code => $xs_code,
);
$binding->bind_constructor( alias => 'open', initializer => 'do_open' );
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
@@ -300,8 +300,8 @@ END_CONSTRUCTOR
sub bind_lockfilelock {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Store::LockFileLock",
+ parcel => "Lucy",
+ class_name => "Lucy::Store::LockFileLock",
);
$binding->bind_constructor;
Clownfish::CFC::Binding::Perl::Class->register($binding);
@@ -309,8 +309,8 @@ sub bind_lockfilelock {
sub bind_sharedlock {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Store::SharedLock",
+ parcel => "Lucy",
+ class_name => "Lucy::Store::SharedLock",
);
$binding->bind_constructor;
Clownfish::CFC::Binding::Perl::Class->register($binding);
@@ -438,9 +438,9 @@ PPCODE:
END_XS_CODE
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Store::OutStream",
- xs_code => $xs_code,
+ parcel => "Lucy",
+ class_name => "Lucy::Store::OutStream",
+ xs_code => $xs_code,
);
$binding->bind_constructor( alias => 'open', initializer => 'do_open' );
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
@@ -452,8 +452,8 @@ sub bind_ramfile {
my @bound = qw( Get_Contents );
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Store::RAMFile",
+ parcel => "Lucy",
+ class_name => "Lucy::Store::RAMFile",
);
$binding->bind_constructor;
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
@@ -465,8 +465,8 @@ sub bind_ramfilehandle {
my @bound = qw( Get_File );
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Store::RAMFileHandle",
+ parcel => "Lucy",
+ class_name => "Lucy::Store::RAMFileHandle",
);
$binding->bind_constructor( alias => '_open', initializer => 'do_open' );
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
Modified: incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Test/Util.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Test/Util.pm?rev=1236029&r1=1236028&r2=1236029&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Test/Util.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Test/Util.pm Thu Jan 26 02:52:59 2012
@@ -67,9 +67,9 @@ CODE:
END_XS_CODE
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Test::Util::BBSortEx",
- xs_code => $xs_code,
+ parcel => "Lucy",
+ class_name => "Lucy::Test::Util::BBSortEx",
+ xs_code => $xs_code,
);
$binding->bind_constructor;
Modified: incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Util.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Util.pm?rev=1236029&r1=1236028&r2=1236029&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Util.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Util.pm Thu Jan 26 02:52:59 2012
@@ -140,8 +140,8 @@ END_XS_CODE
sub bind_memorypool {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Util::MemoryPool",
+ parcel => "Lucy",
+ class_name => "Lucy::Util::MemoryPool",
);
$binding->bind_constructor;
Clownfish::CFC::Binding::Perl::Class->register($binding);
@@ -158,8 +158,8 @@ sub bind_priorityqueue {
);
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Util::PriorityQueue",
+ parcel => "Lucy",
+ class_name => "Lucy::Util::PriorityQueue",
);
$binding->bind_constructor;
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
@@ -190,9 +190,9 @@ OUTPUT: RETVAL
END_XS_CODE
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Util::SortExternal",
- xs_code => $xs_code,
+ parcel => "Lucy",
+ class_name => "Lucy::Util::SortExternal",
+ xs_code => $xs_code,
);
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
@@ -203,8 +203,8 @@ sub bind_stepper {
my @bound = qw( Read_Record );
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Util::Stepper",
+ parcel => "Lucy",
+ class_name => "Lucy::Util::Stepper",
);
$binding->bind_method( method => $_, alias => lc($_) ) for @bound;
Modified: incubator/lucy/trunk/perl/buildlib/LucyX/Build/Binding/Search.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/buildlib/LucyX/Build/Binding/Search.pm?rev=1236029&r1=1236028&r2=1236029&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/LucyX/Build/Binding/Search.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/LucyX/Build/Binding/Search.pm Thu Jan 26 02:52:59 2012
@@ -26,8 +26,8 @@ sub bind_all {
sub bind_filter {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "LucyX::Search::FilterMatcher",
+ parcel => "Lucy",
+ class_name => "LucyX::Search::FilterMatcher",
);
$binding->bind_constructor;
Clownfish::CFC::Binding::Perl::Class->register($binding);
@@ -35,8 +35,8 @@ sub bind_filter {
sub bind_mockmatcher {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "LucyX::Search::MockMatcher",
+ parcel => "Lucy",
+ class_name => "LucyX::Search::MockMatcher",
);
$binding->bind_constructor( alias => '_new' );
Clownfish::CFC::Binding::Perl::Class->register($binding);
@@ -72,8 +72,8 @@ END_SYNOPSIS
sub bind_proximitycompiler {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "LucyX::Search::ProximityCompiler",
+ parcel => "Lucy",
+ class_name => "LucyX::Search::ProximityCompiler",
);
$binding->bind_constructor( alias => 'do_new' );
Clownfish::CFC::Binding::Perl::Class->register($binding);