You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@lucy.apache.org by nw...@apache.org on 2013/07/29 14:58:46 UTC
[lucy-commits] [3/3] git commit: refs/heads/perl-method-bindings - Remove unneeded
binding code
Remove unneeded binding code
It's not anymore necessary to create a CFCPerlClass just to generate
method and constructor XSubs.
Project: http://git-wip-us.apache.org/repos/asf/lucy/repo
Commit: http://git-wip-us.apache.org/repos/asf/lucy/commit/e85d4d48
Tree: http://git-wip-us.apache.org/repos/asf/lucy/tree/e85d4d48
Diff: http://git-wip-us.apache.org/repos/asf/lucy/diff/e85d4d48
Branch: refs/heads/perl-method-bindings
Commit: e85d4d482fd22afdab52cfc2a51a76bfefe0dfdd
Parents: 1a0b438
Author: Nick Wellnhofer <we...@aevum.de>
Authored: Mon Jul 29 14:37:38 2013 +0200
Committer: Nick Wellnhofer <we...@aevum.de>
Committed: Mon Jul 29 14:43:10 2013 +0200
----------------------------------------------------------------------
.../perl/buildlib/Clownfish/Build/Binding.pm | 18 --
perl/buildlib/Lucy/Build/Binding/Index.pm | 216 -------------------
perl/buildlib/Lucy/Build/Binding/Misc.pm | 9 -
perl/buildlib/Lucy/Build/Binding/Search.pm | 99 ---------
perl/buildlib/Lucy/Build/Binding/Store.pm | 27 ---
perl/buildlib/Lucy/Build/Binding/Util.pm | 28 ---
6 files changed, 397 deletions(-)
----------------------------------------------------------------------
http://git-wip-us.apache.org/repos/asf/lucy/blob/e85d4d48/clownfish/runtime/perl/buildlib/Clownfish/Build/Binding.pm
----------------------------------------------------------------------
diff --git a/clownfish/runtime/perl/buildlib/Clownfish/Build/Binding.pm b/clownfish/runtime/perl/buildlib/Clownfish/Build/Binding.pm
index 66fa118..563073d 100644
--- a/clownfish/runtime/perl/buildlib/Clownfish/Build/Binding.pm
+++ b/clownfish/runtime/perl/buildlib/Clownfish/Build/Binding.pm
@@ -27,13 +27,11 @@ sub bind_all {
$class->bind_charbuf;
$class->bind_err;
$class->bind_hash;
- $class->bind_lockfreeregistry;
$class->bind_float32;
$class->bind_float64;
$class->bind_obj;
$class->bind_varray;
$class->bind_vtable;
- $class->bind_method;
$class->bind_stringhelper;
}
@@ -316,14 +314,6 @@ END_XS_CODE
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
-sub bind_lockfreeregistry {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Clownfish",
- class_name => "Clownfish::LockFreeRegistry",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
sub bind_float32 {
my $float32_xs_code = <<'END_XS_CODE';
MODULE = Clownfish PACKAGE = Clownfish::Float32
@@ -657,14 +647,6 @@ END_XS_CODE
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
-sub bind_method {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Clownfish",
- class_name => "Clownfish::Method",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
sub bind_stringhelper {
my $xs_code = <<'END_XS_CODE';
MODULE = Clownfish PACKAGE = Clownfish::Util::StringHelper
http://git-wip-us.apache.org/repos/asf/lucy/blob/e85d4d48/perl/buildlib/Lucy/Build/Binding/Index.pm
----------------------------------------------------------------------
diff --git a/perl/buildlib/Lucy/Build/Binding/Index.pm b/perl/buildlib/Lucy/Build/Binding/Index.pm
index 71913b1..db74b46 100644
--- a/perl/buildlib/Lucy/Build/Binding/Index.pm
+++ b/perl/buildlib/Lucy/Build/Binding/Index.pm
@@ -24,49 +24,25 @@ sub bind_all {
$class->bind_backgroundmerger;
$class->bind_datareader;
$class->bind_datawriter;
- $class->bind_deletionsreader;
- $class->bind_defaultdeletionsreader;
$class->bind_deletionswriter;
- $class->bind_defaultdeletionswriter;
$class->bind_docreader;
- $class->bind_defaultdocreader;
- $class->bind_docvector;
- $class->bind_docwriter;
- $class->bind_filepurger;
- $class->bind_highlightreader;
- $class->bind_defaulthighlightreader;
- $class->bind_highlightwriter;
$class->bind_indexmanager;
$class->bind_indexreader;
$class->bind_indexer;
- $class->bind_inverter;
$class->bind_lexicon;
$class->bind_lexiconreader;
- $class->bind_defaultlexiconreader;
- $class->bind_lexiconwriter;
- $class->bind_polylexicon;
$class->bind_polyreader;
- $class->bind_posting;
- $class->bind_matchposting;
- $class->bind_richposting;
$class->bind_scoreposting;
$class->bind_postinglist;
$class->bind_postinglistreader;
- $class->bind_defaultpostinglistreader;
$class->bind_postinglistwriter;
- $class->bind_seglexicon;
- $class->bind_segpostinglist;
$class->bind_segreader;
$class->bind_segwriter;
$class->bind_segment;
$class->bind_similarity;
$class->bind_snapshot;
$class->bind_sortcache;
- $class->bind_sortreader;
- $class->bind_defaultsortreader;
$class->bind_sortwriter;
- $class->bind_terminfo;
- $class->bind_termvector;
}
sub bind_backgroundmerger {
@@ -175,22 +151,6 @@ END_CONSTRUCTOR
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
-sub bind_deletionsreader {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::DeletionsReader",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
-sub bind_defaultdeletionsreader {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::DefaultDeletionsReader",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
sub bind_deletionswriter {
my @exposed = qw(
Delete_By_Term
@@ -220,14 +180,6 @@ END_SYNOPSIS
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
-sub bind_defaultdeletionswriter {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::DefaultDeletionsWriter",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
sub bind_docreader {
my @exposed = qw( Fetch_Doc Aggregator );
@@ -248,62 +200,6 @@ END_SYNOPSIS
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
-sub bind_defaultdocreader {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::DefaultDocReader",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
-sub bind_docvector {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::DocVector",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
-sub bind_docwriter {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::DocWriter",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
-sub bind_filepurger {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::FilePurger",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
-sub bind_highlightreader {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::HighlightReader",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
-sub bind_defaulthighlightreader {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::DefaultHighlightReader",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
-sub bind_highlightwriter {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::HighlightWriter",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
sub bind_indexmanager {
my @exposed = qw(
Make_Write_Lock
@@ -622,14 +518,6 @@ END_XS_CODE
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
-sub bind_inverter {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::Inverter",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
sub bind_lexicon {
my @exposed = qw(
Seek
@@ -678,30 +566,6 @@ END_SYNOPSIS
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
-sub bind_defaultlexiconreader {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::DefaultLexiconReader",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
-sub bind_lexiconwriter {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::LexiconWriter",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
-sub bind_polylexicon {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::PolyLexicon",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
sub bind_polyreader {
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -740,30 +604,6 @@ END_XS_CODE
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
-sub bind_posting {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::Posting",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
-sub bind_matchposting {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::Posting::MatchPosting",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
-sub bind_richposting {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::Posting::RichPosting",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
sub bind_scoreposting {
my @hand_rolled = qw( Get_Prox );
@@ -856,14 +696,6 @@ END_SYNOPSIS
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
-sub bind_defaultpostinglistreader {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::DefaultPostingListReader",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
sub bind_postinglistwriter {
my $xs_code = <<'END_XS';
MODULE = Lucy PACKAGE = Lucy::Index::PostingListWriter
@@ -884,22 +716,6 @@ END_XS
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
-sub bind_seglexicon {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::SegLexicon",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
-sub bind_segpostinglist {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::SegPostingList",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
sub bind_segreader {
my @exposed = qw(
Get_Seg_Name
@@ -1135,22 +951,6 @@ END_XS_CODE
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
-sub bind_sortreader {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::SortReader",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
-sub bind_defaultsortreader {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::DefaultSortReader",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
sub bind_sortwriter {
my $xs_code = <<'END_XS';
MODULE = Lucy PACKAGE = Lucy::Index::SortWriter
@@ -1171,20 +971,4 @@ END_XS
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
-sub bind_terminfo {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::TermInfo",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
-sub bind_termvector {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Index::TermVector",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
1;
http://git-wip-us.apache.org/repos/asf/lucy/blob/e85d4d48/perl/buildlib/Lucy/Build/Binding/Misc.pm
----------------------------------------------------------------------
diff --git a/perl/buildlib/Lucy/Build/Binding/Misc.pm b/perl/buildlib/Lucy/Build/Binding/Misc.pm
index 19036d9..4aab92a 100644
--- a/perl/buildlib/Lucy/Build/Binding/Misc.pm
+++ b/perl/buildlib/Lucy/Build/Binding/Misc.pm
@@ -24,7 +24,6 @@ sub bind_all {
$class->inherit_metadata($hierarchy);
$class->bind_lucy;
$class->bind_test;
- $class->bind_testschema;
}
sub inherit_metadata {
@@ -207,13 +206,5 @@ END_XS_CODE
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
-sub bind_testschema {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "TestLucy",
- class_name => "Lucy::Test::TestSchema",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
1;
http://git-wip-us.apache.org/repos/asf/lucy/blob/e85d4d48/perl/buildlib/Lucy/Build/Binding/Search.pm
----------------------------------------------------------------------
diff --git a/perl/buildlib/Lucy/Build/Binding/Search.pm b/perl/buildlib/Lucy/Build/Binding/Search.pm
index af63475..b3f3779 100644
--- a/perl/buildlib/Lucy/Build/Binding/Search.pm
+++ b/perl/buildlib/Lucy/Build/Binding/Search.pm
@@ -21,36 +21,26 @@ $VERSION = eval $VERSION;
sub bind_all {
my $class = shift;
- $class->bind_andmatcher;
$class->bind_andquery;
- $class->bind_bitvecmatcher;
$class->bind_collector;
$class->bind_bitcollector;
- $class->bind_offsetcollector;
- $class->bind_sortcollector;
$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_parserelem;
$class->bind_phrasequery;
$class->bind_phrasecompiler;
$class->bind_polyquery;
$class->bind_polysearcher;
$class->bind_query;
- $class->bind_querylexer;
$class->bind_queryparser;
$class->bind_rangequery;
- $class->bind_requiredoptionalmatcher;
$class->bind_requiredoptionalquery;
$class->bind_searcher;
$class->bind_sortrule;
@@ -58,15 +48,6 @@ sub bind_all {
$class->bind_span;
$class->bind_termquery;
$class->bind_termcompiler;
- $class->bind_topdocs;
-}
-
-sub bind_andmatcher {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Search::ANDMatcher",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
}
sub bind_andquery {
@@ -98,14 +79,6 @@ END_CONSTRUCTOR
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
-sub bind_bitvecmatcher {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Search::BitVecMatcher",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
sub bind_collector {
my @exposed = qw( Collect );
@@ -168,22 +141,6 @@ END_CONSTRUCTOR
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
-sub bind_offsetcollector {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Search::Collector::OffsetCollector",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
-sub bind_sortcollector {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Search::Collector::SortCollector",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
sub bind_compiler {
my @exposed = qw(
Make_Matcher
@@ -229,14 +186,6 @@ END_CONSTRUCTOR_CODE_SAMPLE
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
-sub bind_hitqueue {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Search::HitQueue",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
sub bind_hits {
my @exposed = qw( Next Total_Hits );
@@ -359,14 +308,6 @@ END_CONSTRUCTOR
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
-sub bind_matchdoc {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Search::MatchDoc",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
sub bind_matcher {
my @exposed = qw(
Next
@@ -395,14 +336,6 @@ END_CONSTRUCTOR_CODE_SAMPLE
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
-sub bind_notmatcher {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Search::NOTMatcher",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
sub bind_notquery {
my @exposed = qw(
Get_Negated_Query
@@ -483,14 +416,6 @@ END_CONSTRUCTOR
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
-sub bind_orscorer {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Search::ORScorer",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
sub bind_parserelem {
my $xs_code = <<'END_XS_CODE';
MODULE = Lucy PACKAGE = Lucy::Search::QueryParser::ParserElem
@@ -713,14 +638,6 @@ END_CONSTRUCTOR_CODE_SAMPLE
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
-sub bind_querylexer {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Search::QueryParser::QueryLexer",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
sub bind_queryparser {
my @exposed = qw(
Parse
@@ -807,14 +724,6 @@ END_CONSTRUCTOR
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
-sub bind_requiredoptionalmatcher {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Search::RequiredOptionalMatcher",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
sub bind_requiredoptionalquery {
my @exposed = qw(
Get_Required_Query
@@ -1051,12 +960,4 @@ sub bind_termcompiler {
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
-sub bind_topdocs {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Search::TopDocs",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
1;
http://git-wip-us.apache.org/repos/asf/lucy/blob/e85d4d48/perl/buildlib/Lucy/Build/Binding/Store.pm
----------------------------------------------------------------------
diff --git a/perl/buildlib/Lucy/Build/Binding/Store.pm b/perl/buildlib/Lucy/Build/Binding/Store.pm
index fbec036..008f1e8 100644
--- a/perl/buildlib/Lucy/Build/Binding/Store.pm
+++ b/perl/buildlib/Lucy/Build/Binding/Store.pm
@@ -27,12 +27,9 @@ sub bind_all {
$class->bind_folder;
$class->bind_instream;
$class->bind_lock;
- $class->bind_lockfilelock;
- $class->bind_sharedlock;
$class->bind_lockerr;
$class->bind_lockfactory;
$class->bind_outstream;
- $class->bind_ramfile;
$class->bind_ramfilehandle;
$class->bind_ramfolder;
}
@@ -257,22 +254,6 @@ END_CONSTRUCTOR
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
-sub bind_lockfilelock {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Store::LockFileLock",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
-sub bind_sharedlock {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Store::SharedLock",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
sub bind_lockerr {
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
my $synopsis = <<'END_SYNOPSIS';
@@ -383,14 +364,6 @@ END_XS_CODE
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
-sub bind_ramfile {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Store::RAMFile",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
sub bind_ramfilehandle {
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
parcel => "Lucy",
http://git-wip-us.apache.org/repos/asf/lucy/blob/e85d4d48/perl/buildlib/Lucy/Build/Binding/Util.pm
----------------------------------------------------------------------
diff --git a/perl/buildlib/Lucy/Build/Binding/Util.pm b/perl/buildlib/Lucy/Build/Binding/Util.pm
index a64c58b..0501642 100644
--- a/perl/buildlib/Lucy/Build/Binding/Util.pm
+++ b/perl/buildlib/Lucy/Build/Binding/Util.pm
@@ -25,10 +25,7 @@ sub bind_all {
$class->bind_debug;
$class->bind_freezer;
$class->bind_indexfilenames;
- $class->bind_memorypool;
- $class->bind_priorityqueue;
$class->bind_sortexternal;
- $class->bind_stepper;
}
sub bind_bbsortex {
@@ -232,22 +229,6 @@ END_XS_CODE
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
-sub bind_memorypool {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Util::MemoryPool",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
-sub bind_priorityqueue {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Util::PriorityQueue",
- );
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
sub bind_sortexternal {
my $xs_code = <<'END_XS_CODE';
MODULE = Lucy PACKAGE = Lucy::Util::SortExternal
@@ -268,13 +249,4 @@ END_XS_CODE
Clownfish::CFC::Binding::Perl::Class->register($binding);
}
-sub bind_stepper {
- my $binding = Clownfish::CFC::Binding::Perl::Class->new(
- parcel => "Lucy",
- class_name => "Lucy::Util::Stepper",
- );
-
- Clownfish::CFC::Binding::Perl::Class->register($binding);
-}
-
1;