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/02/15 06:48:56 UTC
[lucy-commits] svn commit: r1244367 - in /incubator/lucy/trunk/perl/buildlib:
Lucy/Build/Binding/ Lucy/Build/Binding/Index/ Lucy/Build/Binding/Search/
LucyX/Build/Binding/
Author: marvin
Date: Wed Feb 15 05:48:55 2012
New Revision: 1244367
URL: http://svn.apache.org/viewvc?rev=1244367&view=rev
Log:
Remove now-obsolete whitelists of bound methods.
Modified:
incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Analysis.pm
incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Document.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/Index/Posting.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/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=1244367&r1=1244366&r2=1244367&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Analysis.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Analysis.pm Wed Feb 15 05:48:55 2012
@@ -32,8 +32,6 @@ sub bind_all {
}
sub bind_analyzer {
- my @bound = qw( Transform Transform_Text Split );
-
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
$pod_spec->set_synopsis(" # Abstract base class.\n");
@@ -104,8 +102,6 @@ END_CONSTRUCTOR
}
sub bind_inversion {
- my @bound = qw( Append Reset Invert Next );
-
my $xs = <<'END_XS';
MODULE = Lucy PACKAGE = Lucy::Analysis::Inversion
@@ -178,7 +174,6 @@ END_CONSTRUCTOR
sub bind_polyanalyzer {
my @exposed = qw( Get_Analyzers );
- my @bound = @exposed;
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -335,12 +330,6 @@ END_CONSTRUCTOR
}
sub bind_token {
- my @bound = qw(
- Get_Start_Offset
- Get_End_Offset
- Get_Boost
- Get_Pos_Inc
- );
my @hand_rolled = qw(
Set_Text
Get_Text
Modified: incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Document.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Document.pm?rev=1244367&r1=1244366&r2=1244367&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Document.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Document.pm Wed Feb 15 05:48:55 2012
@@ -23,8 +23,7 @@ sub bind_all {
}
sub bind_doc {
- my @bound = qw( Set_Doc_ID Get_Doc_ID );
- my @exposed = ( @bound, 'Get_Fields' );
+ my @exposed = qw( Set_Doc_ID Get_Doc_ID Get_Fields );
my @hand_rolled = qw( Set_Fields Get_Fields );
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
@@ -113,7 +112,6 @@ END_XS_CODE
sub bind_hitdoc {
my @exposed = qw( Set_Score Get_Score );
- my @bound = @exposed;
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
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=1244367&r1=1244366&r2=1244367&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Highlight.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Highlight.pm Wed Feb 15 05:48:55 2012
@@ -23,13 +23,6 @@ sub bind_all {
}
sub bind_heatmap {
- my @bound = qw(
- Calc_Proximity_Boost
- Generate_Proximity_Boosts
- Flatten_Spans
- Get_Spans
- );
-
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $constructor = <<'END_CONSTRUCTOR';
my $heat_map = Lucy::Highlight::HeatMap->new(
@@ -64,7 +57,6 @@ sub bind_highlighter {
Get_Excerpt_Length
Get_Field
);
- my @bound = ( @exposed, 'Find_Sentences' );
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
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=1244367&r1=1244366&r2=1244367&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Index.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Index.pm Wed Feb 15 05:48:55 2012
@@ -65,7 +65,6 @@ sub bind_all {
sub bind_backgroundmerger {
my @exposed = qw( Commit Prepare_Commit Optimize );
- my @bound = @exposed;
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -104,7 +103,6 @@ sub bind_datareader {
Get_Seg_Tick
Aggregator
);
- my @bound = ( @exposed, 'Close' );
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -148,7 +146,6 @@ sub bind_datawriter {
Get_Schema
Get_Folder
);
- my @bound = @exposed;
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<END_SYNOPSIS;
@@ -176,8 +173,6 @@ END_CONSTRUCTOR
}
sub bind_deletionsreader {
- my @bound = qw( Iterator Del_Count );
-
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
parcel => "Lucy",
class_name => "Lucy::Index::DeletionsReader",
@@ -188,7 +183,6 @@ sub bind_deletionsreader {
}
sub bind_defaultdeletionsreader {
- my @bound = qw( Read_Deletions );
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
parcel => "Lucy",
class_name => "Lucy::Index::DefaultDeletionsReader",
@@ -204,14 +198,6 @@ sub bind_deletionswriter {
Updated
Seg_Del_Count
);
- my @bound = (
- @exposed,
- qw(
- Generate_Doc_Map
- Delete_By_Doc_ID
- Seg_Deletions
- )
- );
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -244,8 +230,7 @@ sub bind_defaultdeletionswriter {
}
sub bind_docreader {
- my @bound = qw( Fetch_Doc );
- my @exposed = ( @bound, 'Aggregator' );
+ my @exposed = qw( Fetch_Doc Aggregator );
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -275,7 +260,6 @@ sub bind_defaultdocreader {
}
sub bind_docvector {
- 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",
@@ -294,7 +278,6 @@ sub bind_docwriter {
}
sub bind_filepurger {
- my @bound = qw( Purge );
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
parcel => "Lucy",
class_name => "Lucy::Index::FilePurger",
@@ -342,24 +325,6 @@ sub bind_indexmanager {
Set_Write_Lock_Interval
Get_Write_Lock_Interval
);
- my @bound = (
- @exposed,
- qw(
- Make_Deletion_Lock
- Make_Merge_Lock
- Make_Snapshot_Read_Lock
- Highest_Seg_Num
- Make_Snapshot_Filename
- Set_Merge_Lock_Timeout
- Get_Merge_Lock_Timeout
- Set_Merge_Lock_Interval
- Get_Merge_Lock_Interval
- Set_Deletion_Lock_Timeout
- Get_Deletion_Lock_Timeout
- Set_Deletion_Lock_Interval
- Get_Deletion_Lock_Interval
- )
- );
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -402,15 +367,6 @@ END_CONSTRUCTOR
}
sub bind_indexreader {
- my @bound = qw(
- Doc_Max
- Doc_Count
- Del_Count
- Fetch
- Obtain
- Seg_Readers
- Get_Components
- );
my @exposed = qw(
Doc_Max
Doc_Count
@@ -499,7 +455,6 @@ sub bind_indexer {
Delete_By_Query
Get_Schema
);
- my @bound = @exposed;
my @hand_rolled = qw( Add_Doc );
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
@@ -677,19 +632,6 @@ END_XS_CODE
}
sub bind_inverter {
- my @bound = qw(
- Get_Doc
- Iterate
- Next
- Clear
- Get_Field_Name
- Get_Value
- Get_Type
- Get_Analyzer
- Get_Similarity
- Get_Inversion
- );
-
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
parcel => "Lucy",
class_name => "Lucy::Index::Inverter",
@@ -706,7 +648,6 @@ sub bind_lexicon {
Get_Term
Reset
);
- my @bound = ( @exposed, 'Get_Field' );
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -731,7 +672,6 @@ END_SYNOPSIS
sub bind_lexiconreader {
my @exposed = qw( Lexicon Doc_Freq );
- my @bound = ( @exposed, 'Fetch_Term_Info' );
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -779,8 +719,6 @@ sub bind_polylexicon {
}
sub bind_polyreader {
- my @bound = qw( Get_Seg_Readers );
-
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
my $polyreader = Lucy::Index::IndexReader->open(
@@ -820,8 +758,6 @@ END_XS_CODE
}
sub bind_posting {
- my @bound = qw( Get_Doc_ID );
-
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
parcel => "Lucy",
class_name => "Lucy::Index::Posting",
@@ -831,12 +767,6 @@ sub bind_posting {
}
sub bind_postinglist {
- my @bound = qw(
- Seek
- Get_Posting
- Get_Doc_Freq
- Make_Matcher
- );
my @exposed = qw(
Next
Advance
@@ -872,7 +802,6 @@ END_SYNOPSIS
sub bind_postinglistreader {
my @exposed = qw( Posting_List );
- my @bound = ( @exposed, 'Get_Lex_Reader' );
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -927,8 +856,6 @@ END_XS
}
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",
@@ -939,8 +866,6 @@ sub bind_seglexicon {
}
sub bind_segpostinglist {
- my @bound = qw( Get_Post_Stream Get_Count );
-
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
parcel => "Lucy",
class_name => "Lucy::Index::SegPostingList",
@@ -955,7 +880,6 @@ sub bind_segreader {
Get_Seg_Name
Get_Seg_Num
);
- my @bound = ( @exposed, 'Register' );
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -988,12 +912,12 @@ END_SYNOPSIS
}
sub bind_segwriter {
- my @bound = qw(
+ my @exposed = qw(
+ Add_Doc
Add_Writer
Register
Fetch
);
- my @exposed = ( 'Add_Doc', @bound );
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
$pod_spec->add_method( method => $_, alias => lc($_) ) for @exposed;
@@ -1009,18 +933,6 @@ sub bind_segwriter {
}
sub bind_segment {
- my @bound = qw(
- Add_Field
- Fetch_Metadata
- Field_Num
- Field_Name
- Get_Name
- Get_Number
- Set_Count
- Get_Count
- Write_File
- Read_File
- );
my @exposed = qw(
Add_Field
Store_Metadata
@@ -1083,15 +995,6 @@ END_SYNOPSIS
}
sub bind_similarity {
- my @bound = qw(
- IDF
- TF
- Encode_Norm
- Decode_Norm
- Query_Norm
- Length_Norm
- Coord
- );
my @exposed = qw(
Length_Norm
);
@@ -1148,7 +1051,6 @@ sub bind_snapshot {
Set_Path
Get_Path
);
- my @bound = @exposed;
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -1175,7 +1077,6 @@ END_CONSTRUCTOR
}
sub bind_sortcache {
- my @bound = qw( Ordinal Find );
my @hand_rolled = qw( Value );
my $xs_code = <<'END_XS_CODE';
@@ -1216,7 +1117,6 @@ END_XS_CODE
}
sub bind_sortreader {
- my @bound = qw( Fetch_Sort_Cache );
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
parcel => "Lucy",
class_name => "Lucy::Index::SortReader",
@@ -1258,18 +1158,6 @@ END_XS
}
sub bind_terminfo {
- my @bound = qw(
- Get_Doc_Freq
- Get_Lex_FilePos
- Get_Post_FilePos
- Get_Skip_FilePos
- Set_Doc_Freq
- Set_Lex_FilePos
- Set_Post_FilePos
- Set_Skip_FilePos
- Reset
- );
-
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
parcel => "Lucy",
class_name => "Lucy::Index::TermInfo",
@@ -1280,12 +1168,6 @@ sub bind_terminfo {
}
sub bind_termvector {
- my @bound = qw(
- Get_Positions
- Get_Start_Offsets
- Get_End_Offsets
- );
-
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
parcel => "Lucy",
class_name => "Lucy::Index::TermVector",
Modified: incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Index/Posting.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Index/Posting.pm?rev=1244367&r1=1244366&r2=1244367&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Index/Posting.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Index/Posting.pm Wed Feb 15 05:48:55 2012
@@ -24,8 +24,6 @@ sub bind_all {
}
sub bind_matchposting {
- my @bound = qw( Get_Freq );
-
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
parcel => "Lucy",
class_name => "Lucy::Index::Posting::MatchPosting",
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=1244367&r1=1244366&r2=1244367&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Object.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Object.pm Wed Feb 15 05:48:55 2012
@@ -50,7 +50,6 @@ sub bind_bitvector {
Grow
Count
);
- my @bound = ( @exposed, qw( Get_Capacity ) );
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -81,12 +80,6 @@ END_CONSTRUCTOR
}
sub bind_bytebuf {
- my @bound = qw(
- Get_Size
- Get_Capacity
- Cat
- );
-
my $xs_code = <<'END_XS_CODE';
MODULE = Lucy PACKAGE = Lucy::Object::ByteBuf
@@ -194,8 +187,6 @@ END_XS_CODE
}
sub bind_err {
- my @bound = qw( Cat_Mess Get_Mess );
-
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
use Scalar::Util qw( blessed );
@@ -227,16 +218,6 @@ END_SYNOPSIS
}
sub bind_hash {
- my @bound = qw(
- Fetch
- Delete
- Keys
- Values
- Find_Key
- Clear
- Iterate
- Get_Size
- );
my @hand_rolled = qw(
Store
Next
@@ -394,8 +375,6 @@ END_XS_CODE
}
sub bind_i32array {
- my @bound = qw( Get Get_Size );
-
my $xs_code = <<'END_XS_CODE';
MODULE = Lucy PACKAGE = Lucy::Object::I32Array
@@ -472,8 +451,6 @@ END_XS_CODE
}
sub bind_lockfreeregistry {
- my @bound = qw( Register Fetch );
-
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
parcel => "Lucy",
class_name => "Lucy::Object::LockFreeRegistry",
@@ -484,8 +461,6 @@ sub bind_lockfreeregistry {
}
sub bind_float32 {
- my @bound = qw( Set_Value Get_Value );
-
my $float32_xs_code = <<'END_XS_CODE';
MODULE = Lucy PACKAGE = Lucy::Object::Float32
@@ -512,8 +487,6 @@ END_XS_CODE
}
sub bind_float64 {
- my @bound = qw( Set_Value Get_Value );
-
my $float64_xs_code = <<'END_XS_CODE';
MODULE = Lucy PACKAGE = Lucy::Object::Float64
@@ -540,23 +513,6 @@ END_XS_CODE
}
sub bind_obj {
- my @bound = qw(
- Get_RefCount
- Inc_RefCount
- Dec_RefCount
- Get_VTable
- To_String
- To_I64
- To_F64
- Dump
- Clone
- Mimic
- Equals
- Hash_Sum
- Serialize
- Deserialize
- Destroy
- );
my @exposed = qw(
To_String
To_I64
@@ -757,14 +713,6 @@ END_XS_CODE
}
sub bind_varray {
- my @bound = qw(
- Push
- Push_VArray
- Unshift
- Excise
- Resize
- Get_Size
- );
my @hand_rolled = qw(
Shallow_Copy
Shift
@@ -854,7 +802,6 @@ END_XS_CODE
}
sub bind_vtable {
- my @bound = qw( Get_Name Get_Parent );
my @hand_rolled = qw( Make_Obj );
my $xs_code = <<'END_XS_CODE';
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=1244367&r1=1244366&r2=1244367&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Plan.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Plan.pm Wed Feb 15 05:48:55 2012
@@ -32,24 +32,6 @@ sub bind_all {
sub bind_architecture {
my @exposed = qw( Register_Doc_Writer Register_Doc_Reader );
- my @bound = (
- @exposed,
- qw(
- Index_Interval
- Skip_Interval
- Init_Seg_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
- )
- );
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -148,7 +130,6 @@ sub bind_fieldtype {
Sortable
Binary
);
- my @bound = ( @exposed, 'Compare_Values' );
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -195,7 +176,6 @@ sub bind_fulltexttype {
Set_Highlightable
Highlightable
);
- my @bound = @exposed;
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -262,7 +242,6 @@ sub bind_schema {
Get_Architecture
Get_Similarity
);
- my @bound = ( @exposed, qw( Fetch_Analyzer Write Eat ) );
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
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=1244367&r1=1244366&r2=1244367&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Search.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Search.pm Wed Feb 15 05:48:55 2012
@@ -104,15 +104,6 @@ sub bind_bitvecmatcher {
sub bind_collector {
my @exposed = qw( Collect );
- my @bound = (
- @exposed,
- qw(
- Set_Reader
- Set_Base
- Set_Matcher
- Need_Score
- )
- );
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $constructor = <<'END_CONSTRUCTOR';
@@ -160,7 +151,6 @@ sub bind_compiler {
Get_Similarity
Highlight_Spans
);
- my @bound = @exposed;
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -206,7 +196,6 @@ sub bind_hitqueue {
sub bind_hits {
my @exposed = qw( Next Total_Hits );
- my @bound = @exposed;
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -233,17 +222,14 @@ END_SYNOPSIS
}
sub bind_indexsearcher {
- my @bound = qw( Get_Reader );
- my @exposed = (
- qw(
- Hits
- Collect
- Doc_Max
- Doc_Freq
- Fetch_Doc
- Get_Schema
- ),
- @bound
+ my @exposed = qw(
+ Hits
+ Collect
+ Doc_Max
+ Doc_Freq
+ Fetch_Doc
+ Get_Schema
+ Get_Reader
);
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
@@ -278,7 +264,6 @@ END_CONSTRUCTOR
sub bind_leafquery {
my @exposed = qw( Get_Field Get_Text );
- my @bound = @exposed;
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -336,15 +321,6 @@ END_CONSTRUCTOR
}
sub bind_matchdoc {
- my @bound = qw(
- Get_Doc_ID
- Set_Doc_ID
- Get_Score
- Set_Score
- Get_Values
- Set_Values
- );
-
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
parcel => "Lucy",
class_name => "Lucy::Search::MatchDoc",
@@ -361,7 +337,6 @@ sub bind_matcher {
Get_Doc_ID
Score
);
- my @bound = ( @exposed, 'Collect' );
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -398,7 +373,6 @@ sub bind_notquery {
Get_Negated_Query
Set_Negated_Query
);
- my @bound = @exposed;
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -488,7 +462,6 @@ sub bind_orscorer {
sub bind_phrasequery {
my @exposed = qw( Get_Field Get_Terms );
- my @bound = @exposed;
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -522,12 +495,6 @@ sub bind_phrasecompiler {
}
sub bind_polyquery {
- my @bound = qw(
- Add_Child
- Set_Children
- Get_Children
- );
-
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
sub walk {
@@ -597,8 +564,7 @@ END_CONSTRUCTOR
}
sub bind_query {
- my @bound = qw( Set_Boost Get_Boost );
- my @exposed = ( 'Make_Compiler', @bound );
+ my @exposed = qw( Make_Compiler Set_Boost Get_Boost );
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -656,15 +622,6 @@ sub bind_queryparser {
Make_NOT_Query
Make_Req_Opt_Query
);
- my @bound = (
- @exposed,
- qw(
- Get_Analyzer
- Get_Schema
- Get_Fields
- Heed_Colons
- )
- );
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -754,7 +711,6 @@ sub bind_requiredoptionalquery {
Get_Optional_Query
Set_Optional_Query
);
- my @bound = @exposed;
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -795,14 +751,6 @@ sub bind_searcher {
Fetch_Doc
Get_Schema
);
- my @bound = (
- @exposed,
- qw(
- Top_Docs
- Fetch_Doc_Vec
- Close
- )
- );
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $constructor = <<'END_CONSTRUCTOR';
@@ -830,7 +778,6 @@ END_CONSTRUCTOR
sub bind_sortrule {
my @exposed = qw( Get_Field Get_Reverse );
- my @bound = @exposed;
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -888,8 +835,6 @@ END_XS_CODE
}
sub bind_sortspec {
- my @bound = qw( Get_Rules );
-
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
my $sort_spec = Lucy::Search::SortSpec->new(
@@ -928,7 +873,6 @@ sub bind_span {
Set_Weight
Get_Weight
);
- my @bound = @exposed;
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -963,7 +907,6 @@ END_CONSTRUCTOR
sub bind_termquery {
my @exposed = qw( Get_Field Get_Term );
- my @bound = @exposed;
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -1003,12 +946,6 @@ sub bind_termcompiler {
}
sub bind_topdocs {
- my @bound = qw(
- Get_Match_Docs
- Get_Total_Hits
- Set_Total_Hits
- );
-
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
parcel => "Lucy",
class_name => "Lucy::Search::TopDocs",
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=1244367&r1=1244366&r2=1244367&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 Feb 15 05:48:55 2012
@@ -58,8 +58,6 @@ END_CONSTRUCTOR
}
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",
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=1244367&r1=1244366&r2=1244367&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Store.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Store.pm Wed Feb 15 05:48:55 2012
@@ -65,8 +65,6 @@ END_SYNOPSIS
}
sub bind_filehandle {
- my @bound = qw( Length Close );
-
my $xs_code = <<'END_XS_CODE';
MODULE = Lucy PACKAGE = Lucy::Store::FileHandle
@@ -131,20 +129,6 @@ END_XS_CODE
}
sub bind_folder {
- my @bound = qw(
- Open_Out
- Open_In
- MkDir
- List_R
- Exists
- Rename
- Hard_Link
- Delete
- Slurp_File
- Close
- Get_Path
- );
-
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
$pod_spec->set_synopsis(" # Abstract base class.\n");
@@ -159,23 +143,6 @@ sub bind_folder {
}
sub bind_instream {
- my @bound = qw(
- Seek
- Tell
- Length
- Reopen
- Close
- Read_I8
- Read_I32
- Read_I64
- Read_U8
- Read_U32
- Read_U64
- Read_C32
- Read_C64
- Read_F32
- Read_F64
- );
my @hand_rolled = qw(
Read_Raw_C64
);
@@ -256,14 +223,6 @@ sub bind_lock {
Is_Locked
Clear_Stale
);
- my @bound = (
- @exposed,
- qw(
- Get_Name
- Get_Lock_Path
- Get_Host
- )
- );
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -349,7 +308,6 @@ sub bind_lockfactory {
Make_Lock
Make_Shared_Lock
);
- my @bound = @exposed;
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -389,24 +347,6 @@ END_CONSTRUCTOR
}
sub bind_outstream {
- my @bound = qw(
- Tell
- Length
- Flush
- Close
- Absorb
- Write_I8
- Write_I32
- Write_I64
- Write_U8
- Write_U32
- Write_U64
- Write_C32
- Write_C64
- Write_F32
- Write_F64
- );
-
my $xs_code = <<'END_XS_CODE';
MODULE = Lucy PACKAGE = Lucy::Store::OutStream
@@ -447,8 +387,6 @@ END_XS_CODE
}
sub bind_ramfile {
- my @bound = qw( Get_Contents );
-
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
parcel => "Lucy",
class_name => "Lucy::Store::RAMFile",
@@ -459,8 +397,6 @@ sub bind_ramfile {
}
sub bind_ramfilehandle {
- my @bound = qw( Get_File );
-
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
parcel => "Lucy",
class_name => "Lucy::Store::RAMFileHandle",
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=1244367&r1=1244366&r2=1244367&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Util.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build/Binding/Util.pm Wed Feb 15 05:48:55 2012
@@ -149,15 +149,6 @@ sub bind_memorypool {
}
sub bind_priorityqueue {
- my @bound = qw(
- Less_Than
- Insert
- Pop
- Pop_All
- Peek
- Get_Size
- );
-
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
parcel => "Lucy",
class_name => "Lucy::Util::PriorityQueue",
@@ -168,17 +159,6 @@ sub bind_priorityqueue {
}
sub bind_sortexternal {
- my @bound = qw(
- Flush
- Flip
- Add_Run
- Refill
- Sort_Cache
- Cache_Count
- Clear_Cache
- Set_Mem_Thresh
- );
-
my $xs_code = <<'END_XS_CODE';
MODULE = Lucy PACKAGE = Lucy::Util::SortExternal
@@ -199,8 +179,6 @@ END_XS_CODE
}
sub bind_stepper {
- my @bound = qw( Read_Record );
-
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
parcel => "Lucy",
class_name => "Lucy::Util::Stepper",
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=1244367&r1=1244366&r2=1244367&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/LucyX/Build/Binding/Search.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/LucyX/Build/Binding/Search.pm Wed Feb 15 05:48:55 2012
@@ -44,7 +44,6 @@ sub bind_mockmatcher {
sub bind_proximityquery {
my @exposed = qw( Get_Field Get_Terms Get_Within );
- my @bound = @exposed;
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';