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/16 16:12:56 UTC
[lucy-commits] svn commit: r1232021 [1/3] - in /incubator/lucy/trunk/perl/lib: ./ Lucy/
Lucy/Analysis/ Lucy/Docs/ Lucy/Document/ Lucy/Highlight/ Lucy/Index/
Lucy/Index/Posting/ Lucy/Object/ Lucy/Plan/ Lucy/Search/
Lucy/Search/Collector/ Lucy/Store/ Lucy/Test/Util/ Lu...
Author: logie
Date: Mon Jan 16 15:12:52 2012
New Revision: 1232021
URL: http://svn.apache.org/viewvc?rev=1232021&view=rev
Log:
LUCY-208
Removed legacy __BINDING__ code fragments.
Modified:
incubator/lucy/trunk/perl/lib/Lucy.pm
incubator/lucy/trunk/perl/lib/Lucy/Analysis/Analyzer.pm
incubator/lucy/trunk/perl/lib/Lucy/Analysis/CaseFolder.pm
incubator/lucy/trunk/perl/lib/Lucy/Analysis/EasyAnalyzer.pm
incubator/lucy/trunk/perl/lib/Lucy/Analysis/Inversion.pm
incubator/lucy/trunk/perl/lib/Lucy/Analysis/Normalizer.pm
incubator/lucy/trunk/perl/lib/Lucy/Analysis/PolyAnalyzer.pm
incubator/lucy/trunk/perl/lib/Lucy/Analysis/RegexTokenizer.pm
incubator/lucy/trunk/perl/lib/Lucy/Analysis/SnowballStemmer.pm
incubator/lucy/trunk/perl/lib/Lucy/Analysis/SnowballStopFilter.pm
incubator/lucy/trunk/perl/lib/Lucy/Analysis/StandardTokenizer.pm
incubator/lucy/trunk/perl/lib/Lucy/Analysis/Token.pm
incubator/lucy/trunk/perl/lib/Lucy/Docs/DevGuide.pm
incubator/lucy/trunk/perl/lib/Lucy/Docs/FileLocking.pm
incubator/lucy/trunk/perl/lib/Lucy/Document/Doc.pm
incubator/lucy/trunk/perl/lib/Lucy/Document/HitDoc.pm
incubator/lucy/trunk/perl/lib/Lucy/Highlight/HeatMap.pm
incubator/lucy/trunk/perl/lib/Lucy/Highlight/Highlighter.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/BackgroundMerger.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/DataReader.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/DataWriter.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/DeletionsReader.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/DeletionsWriter.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/DocReader.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/DocVector.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/DocWriter.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/FilePurger.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/HighlightReader.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/HighlightWriter.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/IndexManager.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/IndexReader.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/Indexer.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/Inverter.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/Lexicon.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/LexiconReader.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/LexiconWriter.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/PolyLexicon.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/PolyReader.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/Posting.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/Posting/MatchPosting.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/Posting/RichPosting.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/Posting/ScorePosting.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/PostingList.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/PostingListReader.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/PostingListWriter.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/SegLexicon.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/SegPostingList.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/SegReader.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/SegWriter.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/Segment.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/Similarity.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/Snapshot.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/SortCache.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/SortReader.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/SortWriter.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/TermInfo.pm
incubator/lucy/trunk/perl/lib/Lucy/Index/TermVector.pm
incubator/lucy/trunk/perl/lib/Lucy/Object/BitVector.pm
incubator/lucy/trunk/perl/lib/Lucy/Object/ByteBuf.pm
incubator/lucy/trunk/perl/lib/Lucy/Object/CharBuf.pm
incubator/lucy/trunk/perl/lib/Lucy/Object/Err.pm
incubator/lucy/trunk/perl/lib/Lucy/Object/Hash.pm
incubator/lucy/trunk/perl/lib/Lucy/Object/Host.pm
incubator/lucy/trunk/perl/lib/Lucy/Object/I32Array.pm
incubator/lucy/trunk/perl/lib/Lucy/Object/LockFreeRegistry.pm
incubator/lucy/trunk/perl/lib/Lucy/Object/Num.pm
incubator/lucy/trunk/perl/lib/Lucy/Object/Obj.pm
incubator/lucy/trunk/perl/lib/Lucy/Object/VArray.pm
incubator/lucy/trunk/perl/lib/Lucy/Object/VTable.pm
incubator/lucy/trunk/perl/lib/Lucy/Plan/Architecture.pm
incubator/lucy/trunk/perl/lib/Lucy/Plan/BlobType.pm
incubator/lucy/trunk/perl/lib/Lucy/Plan/FieldType.pm
incubator/lucy/trunk/perl/lib/Lucy/Plan/Float32Type.pm
incubator/lucy/trunk/perl/lib/Lucy/Plan/Float64Type.pm
incubator/lucy/trunk/perl/lib/Lucy/Plan/FullTextType.pm
incubator/lucy/trunk/perl/lib/Lucy/Plan/Int32Type.pm
incubator/lucy/trunk/perl/lib/Lucy/Plan/Int64Type.pm
incubator/lucy/trunk/perl/lib/Lucy/Plan/Schema.pm
incubator/lucy/trunk/perl/lib/Lucy/Plan/StringType.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/ANDMatcher.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/ANDQuery.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/BitVecMatcher.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/Collector.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/Collector/BitCollector.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/Collector/SortCollector.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/Compiler.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/HitQueue.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/Hits.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/IndexSearcher.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/LeafQuery.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/MatchAllQuery.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/MatchDoc.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/Matcher.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/NOTMatcher.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/NOTQuery.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/NoMatchQuery.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/ORQuery.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/ORScorer.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/PhraseQuery.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/PolyQuery.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/PolySearcher.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/Query.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/QueryParser.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/RangeQuery.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/RequiredOptionalMatcher.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/RequiredOptionalQuery.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/Searcher.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/SortRule.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/SortSpec.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/Span.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/TermQuery.pm
incubator/lucy/trunk/perl/lib/Lucy/Search/TopDocs.pm
incubator/lucy/trunk/perl/lib/Lucy/Store/FSFileHandle.pm
incubator/lucy/trunk/perl/lib/Lucy/Store/FSFolder.pm
incubator/lucy/trunk/perl/lib/Lucy/Store/FileHandle.pm
incubator/lucy/trunk/perl/lib/Lucy/Store/Folder.pm
incubator/lucy/trunk/perl/lib/Lucy/Store/InStream.pm
incubator/lucy/trunk/perl/lib/Lucy/Store/Lock.pm
incubator/lucy/trunk/perl/lib/Lucy/Store/LockErr.pm
incubator/lucy/trunk/perl/lib/Lucy/Store/LockFactory.pm
incubator/lucy/trunk/perl/lib/Lucy/Store/OutStream.pm
incubator/lucy/trunk/perl/lib/Lucy/Store/RAMFile.pm
incubator/lucy/trunk/perl/lib/Lucy/Store/RAMFileHandle.pm
incubator/lucy/trunk/perl/lib/Lucy/Store/RAMFolder.pm
incubator/lucy/trunk/perl/lib/Lucy/Test.pm
incubator/lucy/trunk/perl/lib/Lucy/Test/Util/BBSortEx.pm
incubator/lucy/trunk/perl/lib/Lucy/Util/Debug.pm
incubator/lucy/trunk/perl/lib/Lucy/Util/IndexFileNames.pm
incubator/lucy/trunk/perl/lib/Lucy/Util/MemoryPool.pm
incubator/lucy/trunk/perl/lib/Lucy/Util/PriorityQueue.pm
incubator/lucy/trunk/perl/lib/Lucy/Util/SortExternal.pm
incubator/lucy/trunk/perl/lib/Lucy/Util/Stepper.pm
incubator/lucy/trunk/perl/lib/Lucy/Util/StringHelper.pm
incubator/lucy/trunk/perl/lib/LucyX/Search/Filter.pm
incubator/lucy/trunk/perl/lib/LucyX/Search/MockMatcher.pm
incubator/lucy/trunk/perl/lib/LucyX/Search/ProximityQuery.pm
Modified: incubator/lucy/trunk/perl/lib/Lucy.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy.pm Mon Jan 16 15:12:52 2012
@@ -539,52 +539,4 @@ sub error {$Lucy::Object::Err::error}
__END__
-__BINDING__
-
-my $xs_code = <<'END_XS_CODE';
-MODULE = Lucy PACKAGE = Lucy
-
-BOOT:
- lucy_Lucy_bootstrap();
-
-IV
-_dummy_function()
-CODE:
- RETVAL = 1;
-OUTPUT:
- RETVAL
-
-SV*
-to_clownfish(sv)
- SV *sv;
-CODE:
-{
- lucy_Obj *obj = XSBind_perl_to_cfish(sv);
- RETVAL = CFISH_OBJ_TO_SV_NOINC(obj);
-}
-OUTPUT: RETVAL
-
-SV*
-to_perl(sv)
- SV *sv;
-CODE:
-{
- if (sv_isobject(sv) && sv_derived_from(sv, "Lucy::Object::Obj")) {
- IV tmp = SvIV(SvRV(sv));
- lucy_Obj* obj = INT2PTR(lucy_Obj*, tmp);
- RETVAL = XSBind_cfish_to_perl(obj);
- }
- else {
- RETVAL = newSVsv(sv);
- }
-}
-OUTPUT: RETVAL
-END_XS_CODE
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy",
- xs_code => $xs_code,
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Analysis/Analyzer.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Analysis/Analyzer.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Analysis/Analyzer.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Analysis/Analyzer.pm Mon Jan 16 15:12:52 2012
@@ -20,14 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Analysis::Analyzer",
- bind_methods => [qw( Transform Transform_Text Split )],
- bind_constructors => ["new"],
- make_pod => { synopsis => " # Abstract base class.\n", }
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Analysis/CaseFolder.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Analysis/CaseFolder.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Analysis/CaseFolder.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Analysis/CaseFolder.pm Mon Jan 16 15:12:52 2012
@@ -20,28 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- my $case_folder = Lucy::Analysis::CaseFolder->new;
-
- my $polyanalyzer = Lucy::Analysis::PolyAnalyzer->new(
- analyzers => [ $case_folder, $tokenizer, $stemmer ],
- );
-END_SYNOPSIS
-
-my $constructor = <<'END_CONSTRUCTOR';
- my $case_folder = Lucy::Analysis::CaseFolder->new;
-END_CONSTRUCTOR
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Analysis::CaseFolder",
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- },
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Analysis/EasyAnalyzer.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Analysis/EasyAnalyzer.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Analysis/EasyAnalyzer.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Analysis/EasyAnalyzer.pm Mon Jan 16 15:12:52 2012
@@ -20,34 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- my $schema = Lucy::Plan::Schema->new;
- my $analyzer = Lucy::Analysis::EasyAnalyzer->new(
- language => 'en',
- );
- my $type = Lucy::Plan::FullTextType->new(
- analyzer => $analyzer,
- );
- $schema->spec_field( name => 'title', type => $type );
- $schema->spec_field( name => 'content', type => $type );
-END_SYNOPSIS
-
-my $constructor = <<'END_CONSTRUCTOR';
- my $analyzer = Lucy::Analysis::EasyAnalyzer->new(
- language => 'es',
- );
-END_CONSTRUCTOR
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Analysis::EasyAnalyzer",
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- },
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Analysis/Inversion.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Analysis/Inversion.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Analysis/Inversion.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Analysis/Inversion.pm Mon Jan 16 15:12:52 2012
@@ -20,45 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $xs = <<'END_XS';
-MODULE = Lucy PACKAGE = Lucy::Analysis::Inversion
-
-SV*
-new(...)
-CODE:
-{
- lucy_Token *starter_token = NULL;
- // parse params, only if there's more than one arg
- if (items > 1) {
- SV *text_sv = NULL;
- chy_bool_t args_ok
- = XSBind_allot_params(&(ST(0)), 1, items,
- "Lucy::Analysis::Inversion::new_PARAMS",
- ALLOT_SV(&text_sv, "text", 4, false),
- NULL);
- if (!args_ok) {
- CFISH_RETHROW(CFISH_INCREF(cfish_Err_get_error()));
- }
- if (XSBind_sv_defined(text_sv)) {
- STRLEN len;
- char *text = SvPVutf8(text_sv, len);
- starter_token = lucy_Token_new(text, len, 0, len, 1.0, 1);
- }
- }
-
- RETVAL = CFISH_OBJ_TO_SV_NOINC(lucy_Inversion_new(starter_token));
- CFISH_DECREF(starter_token);
-}
-OUTPUT: RETVAL
-END_XS
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Analysis::Inversion",
- bind_methods => [qw( Append Reset Invert Next )],
- xs_code => $xs,
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Analysis/Normalizer.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Analysis/Normalizer.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Analysis/Normalizer.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Analysis/Normalizer.pm Mon Jan 16 15:12:52 2012
@@ -20,32 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- my $normalizer = Lucy::Analysis::Normalizer->new;
-
- my $polyanalyzer = Lucy::Analysis::PolyAnalyzer->new(
- analyzers => [ $normalizer, $tokenizer, $stemmer ],
- );
-END_SYNOPSIS
-
-my $constructor = <<'END_CONSTRUCTOR';
- my $normalizer = Lucy::Analysis::Normalizer->new(
- normalization_form => 'NFKC',
- case_fold => 1,
- strip_accents => 0,
- );
-END_CONSTRUCTOR
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Analysis::Normalizer",
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- constructor => { sample => $constructor }
- },
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Analysis/PolyAnalyzer.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Analysis/PolyAnalyzer.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Analysis/PolyAnalyzer.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Analysis/PolyAnalyzer.pm Mon Jan 16 15:12:52 2012
@@ -20,44 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- my $schema = Lucy::Plan::Schema->new;
- my $polyanalyzer = Lucy::Analysis::PolyAnalyzer->new(
- language => 'en',
- );
- my $type = Lucy::Plan::FullTextType->new(
- analyzer => $polyanalyzer,
- );
- $schema->spec_field( name => 'title', type => $type );
- $schema->spec_field( name => 'content', type => $type );
-END_SYNOPSIS
-
-my $constructor = <<'END_CONSTRUCTOR';
- my $analyzer = Lucy::Analysis::PolyAnalyzer->new(
- language => 'es',
- );
-
- # or...
-
- my $case_folder = Lucy::Analysis::CaseFolder->new;
- my $tokenizer = Lucy::Analysis::RegexTokenizer->new;
- my $stemmer = Lucy::Analysis::SnowballStemmer->new( language => 'en' );
- my $polyanalyzer = Lucy::Analysis::PolyAnalyzer->new(
- analyzers => [ $case_folder, $whitespace_tokenizer, $stemmer, ], );
-END_CONSTRUCTOR
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Analysis::PolyAnalyzer",
- bind_constructors => ["new"],
- bind_methods => [qw( Get_Analyzers )],
- make_pod => {
- methods => [qw( get_analyzers )],
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- },
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Analysis/RegexTokenizer.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Analysis/RegexTokenizer.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Analysis/RegexTokenizer.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Analysis/RegexTokenizer.pm Mon Jan 16 15:12:52 2012
@@ -20,38 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- my $whitespace_tokenizer
- = Lucy::Analysis::RegexTokenizer->new( pattern => '\S+' );
-
- # or...
- my $word_char_tokenizer
- = Lucy::Analysis::RegexTokenizer->new( pattern => '\w+' );
-
- # or...
- my $apostrophising_tokenizer = Lucy::Analysis::RegexTokenizer->new;
-
- # Then... once you have a tokenizer, put it into a PolyAnalyzer:
- my $polyanalyzer = Lucy::Analysis::PolyAnalyzer->new(
- analyzers => [ $case_folder, $word_char_tokenizer, $stemmer ], );
-END_SYNOPSIS
-
-my $constructor = <<'END_CONSTRUCTOR';
- my $word_char_tokenizer = Lucy::Analysis::RegexTokenizer->new(
- pattern => '\w+', # required
- );
-END_CONSTRUCTOR
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Analysis::RegexTokenizer",
- bind_constructors => ["_new"],
- make_pod => {
- constructor => { sample => $constructor },
- synopsis => $synopsis,
- },
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Analysis/SnowballStemmer.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Analysis/SnowballStemmer.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Analysis/SnowballStemmer.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Analysis/SnowballStemmer.pm Mon Jan 16 15:12:52 2012
@@ -20,31 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- my $stemmer = Lucy::Analysis::SnowballStemmer->new( language => 'es' );
-
- my $polyanalyzer = Lucy::Analysis::PolyAnalyzer->new(
- analyzers => [ $case_folder, $tokenizer, $stemmer ],
- );
-
-This class is a wrapper around the Snowball stemming library, so it supports
-the same languages.
-END_SYNOPSIS
-
-my $constructor = <<'END_CONSTRUCTOR';
- my $stemmer = Lucy::Analysis::SnowballStemmer->new( language => 'es' );
-END_CONSTRUCTOR
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Analysis::SnowballStemmer",
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- constructor => { sample => $constructor }
- },
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Analysis/SnowballStopFilter.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Analysis/SnowballStopFilter.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Analysis/SnowballStopFilter.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Analysis/SnowballStopFilter.pm Mon Jan 16 15:12:52 2012
@@ -20,36 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- my $stopfilter = Lucy::Analysis::SnowballStopFilter->new(
- language => 'fr',
- );
- my $polyanalyzer = Lucy::Analysis::PolyAnalyzer->new(
- analyzers => [ $case_folder, $tokenizer, $stopfilter, $stemmer ],
- );
-END_SYNOPSIS
-
-my $constructor = <<'END_CONSTRUCTOR';
- my $stopfilter = Lucy::Analysis::SnowballStopFilter->new(
- language => 'de',
- );
-
- # or...
- my $stopfilter = Lucy::Analysis::SnowballStopFilter->new(
- stoplist => \%stoplist,
- );
-END_CONSTRUCTOR
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Analysis::SnowballStopFilter",
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- constructor => { sample => $constructor }
- },
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Analysis/StandardTokenizer.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Analysis/StandardTokenizer.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Analysis/StandardTokenizer.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Analysis/StandardTokenizer.pm Mon Jan 16 15:12:52 2012
@@ -20,28 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- my $tokenizer = Lucy::Analysis::StandardTokenizer->new;
-
- # Then... once you have a tokenizer, put it into a PolyAnalyzer:
- my $polyanalyzer = Lucy::Analysis::PolyAnalyzer->new(
- analyzers => [ $case_folder, $tokenizer, $stemmer ], );
-END_SYNOPSIS
-
-my $constructor = <<'END_CONSTRUCTOR';
- my $tokenizer = Lucy::Analysis::StandardTokenizer->new;
-END_CONSTRUCTOR
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Analysis::StandardTokenizer",
- bind_constructors => ["new"],
- make_pod => {
- constructor => { sample => $constructor },
- synopsis => $synopsis,
- },
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Analysis/Token.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Analysis/Token.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Analysis/Token.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Analysis/Token.pm Mon Jan 16 15:12:52 2012
@@ -20,75 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $xs = <<'END_XS';
-MODULE = Lucy PACKAGE = Lucy::Analysis::Token
-
-SV*
-new(either_sv, ...)
- SV *either_sv;
-CODE:
-{
- SV *text_sv = NULL;
- uint32_t start_off = 0;
- uint32_t end_off = 0;
- int32_t pos_inc = 1;
- float boost = 1.0f;
-
- chy_bool_t args_ok
- = XSBind_allot_params(&(ST(0)), 1, items,
- "Lucy::Analysis::Token::new_PARAMS",
- ALLOT_SV(&text_sv, "text", 4, true),
- ALLOT_U32(&start_off, "start_offset", 12, true),
- ALLOT_U32(&end_off, "end_offset", 10, true),
- ALLOT_I32(&pos_inc, "pos_inc", 7, false),
- ALLOT_F32(&boost, "boost", 5, false),
- NULL);
- if (!args_ok) {
- CFISH_RETHROW(CFISH_INCREF(cfish_Err_get_error()));
- }
-
- STRLEN len;
- char *text = SvPVutf8(text_sv, len);
- lucy_Token *self = (lucy_Token*)XSBind_new_blank_obj(either_sv);
- lucy_Token_init(self, text, len, start_off, end_off, boost,
- pos_inc);
- RETVAL = CFISH_OBJ_TO_SV_NOINC(self);
-}
-OUTPUT: RETVAL
-
-SV*
-get_text(self)
- lucy_Token *self;
-CODE:
- RETVAL = newSVpvn(Lucy_Token_Get_Text(self), Lucy_Token_Get_Len(self));
- SvUTF8_on(RETVAL);
-OUTPUT: RETVAL
-
-void
-set_text(self, sv)
- lucy_Token *self;
- SV *sv;
-PPCODE:
-{
- STRLEN len;
- char *ptr = SvPVutf8(sv, len);
- Lucy_Token_Set_Text(self, ptr, len);
-}
-END_XS
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Analysis::Token",
- bind_methods => [
- qw(
- Get_Start_Offset
- Get_End_Offset
- Get_Boost
- Get_Pos_Inc
- )
- ],
- xs_code => $xs,
-);
Modified: incubator/lucy/trunk/perl/lib/Lucy/Docs/DevGuide.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Docs/DevGuide.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Docs/DevGuide.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Docs/DevGuide.pm Mon Jan 16 15:12:52 2012
@@ -19,12 +19,4 @@ use Lucy;
__END__
-__BINDING__
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Docs::DevGuide",
- make_pod => {},
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Docs/FileLocking.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Docs/FileLocking.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Docs/FileLocking.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Docs/FileLocking.pm Mon Jan 16 15:12:52 2012
@@ -19,31 +19,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- use Sys::Hostname qw( hostname );
- my $hostname = hostname() or die "Can't get unique hostname";
- my $manager = Lucy::Index::IndexManager->new( host => $hostname );
-
- # Index time:
- my $indexer = Lucy::Index::Indexer->new(
- index => '/path/to/index',
- manager => $manager,
- );
-
- # Search time:
- my $reader = Lucy::Index::IndexReader->open(
- index => '/path/to/index',
- manager => $manager,
- );
- my $searcher = Lucy::Search::IndexSearcher->new( index => $reader );
-END_SYNOPSIS
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Docs::FileLocking",
- make_pod => { synopsis => $synopsis, },
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Document/Doc.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Document/Doc.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Document/Doc.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Document/Doc.pm Mon Jan 16 15:12:52 2012
@@ -20,88 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $xs_code = <<'END_XS_CODE';
-MODULE = Lucy PACKAGE = Lucy::Document::Doc
-
-SV*
-new(either_sv, ...)
- SV *either_sv;
-CODE:
-{
- SV* fields_sv = NULL;
- int32_t doc_id = 0;
- chy_bool_t args_ok
- = XSBind_allot_params(&(ST(0)), 1, items,
- "Lucy::Document::Doc::new_PARAMS",
- ALLOT_SV(&fields_sv, "fields", 6, false),
- ALLOT_I32(&doc_id, "doc_id", 6, false),
- NULL);
- if (!args_ok) {
- CFISH_RETHROW(CFISH_INCREF(cfish_Err_get_error()));
- }
-
- HV *fields = NULL;
- if (fields_sv && XSBind_sv_defined(fields_sv)) {
- if (SvROK(fields_sv)) {
- fields = (HV*)SvRV(fields_sv);
- }
- if (!fields || SvTYPE((SV*)fields) != SVt_PVHV) {
- CFISH_THROW(CFISH_ERR, "fields is not a hashref");
- }
- }
-
- lucy_Doc *self = (lucy_Doc*)XSBind_new_blank_obj(either_sv);
- lucy_Doc_init(self, fields, doc_id);
- RETVAL = CFISH_OBJ_TO_SV_NOINC(self);
-}
-OUTPUT: RETVAL
-
-SV*
-get_fields(self, ...)
- lucy_Doc *self;
-CODE:
- CHY_UNUSED_VAR(items);
- RETVAL = newRV_inc((SV*)Lucy_Doc_Get_Fields(self));
-OUTPUT: RETVAL
-
-void
-set_fields(self, fields)
- lucy_Doc *self;
- HV *fields;
-PPCODE:
- lucy_Doc_set_fields(self, fields);
-END_XS_CODE
-
-my $synopsis = <<'END_SYNOPSIS';
- my $doc = Lucy::Document::Doc->new(
- fields => { foo => 'foo foo', bar => 'bar bar' },
- );
- $indexer->add_doc($doc);
-
-Doc objects allow access to field values via hashref overloading:
-
- $doc->{foo} = 'new value for field "foo"';
- print "foo: $doc->{foo}\n";
-END_SYNOPSIS
-
-my $constructor = <<'END_CONSTRUCTOR';
- my $doc = Lucy::Document::Doc->new(
- fields => { foo => 'foo foo', bar => 'bar bar' },
- );
-END_CONSTRUCTOR
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Document::Doc",
- xs_code => $xs_code,
- bind_methods => [qw( Set_Doc_ID Get_Doc_ID )],
- make_pod => {
- methods => [qw( set_doc_id get_doc_id get_fields )],
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- }
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Document/HitDoc.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Document/HitDoc.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Document/HitDoc.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Document/HitDoc.pm Mon Jan 16 15:12:52 2012
@@ -20,64 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $xs_code = <<'END_XS_CODE';
-MODULE = Lucy PACKAGE = Lucy::Document::HitDoc
-
-SV*
-new(either_sv, ...)
- SV *either_sv;
-CODE:
-{
- SV *fields_sv = NULL;
- int32_t doc_id = 0;
- float score = 0.0f;
- chy_bool_t args_ok
- = XSBind_allot_params(&(ST(0)), 1, items,
- "Lucy::Document::HitDoc::new_PARAMS",
- ALLOT_SV(&fields_sv, "fields", 6, false),
- ALLOT_I32(&doc_id, "doc_id", 6, false),
- ALLOT_F32(&score, "score", 5, false),
- NULL);
- if (!args_ok) {
- CFISH_RETHROW(CFISH_INCREF(cfish_Err_get_error()));
- }
-
- HV *fields = NULL;
- if (fields_sv && XSBind_sv_defined(fields_sv)) {
- if (SvROK(fields_sv)) {
- fields = (HV*)SvRV(fields_sv);
- }
- if (!fields || SvTYPE((SV*)fields) != SVt_PVHV) {
- CFISH_THROW(CFISH_ERR, "fields is not a hashref");
- }
- }
-
- lucy_HitDoc *self = (lucy_HitDoc*)XSBind_new_blank_obj(either_sv);
- lucy_HitDoc_init(self, fields, doc_id, score);
- RETVAL = CFISH_OBJ_TO_SV_NOINC(self);
-}
-OUTPUT: RETVAL
-END_XS_CODE
-
-my $synopsis = <<'END_SYNOPSIS';
- while ( my $hit_doc = $hits->next ) {
- print "$hit_doc->{title}\n";
- print $hit_doc->get_score . "\n";
- ...
- }
-END_SYNOPSIS
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Document::HitDoc",
- bind_methods => [qw( Set_Score Get_Score )],
- xs_code => $xs_code,
- make_pod => {
- methods => [qw( set_score get_score )],
- synopsis => $synopsis,
- },
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Highlight/HeatMap.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Highlight/HeatMap.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Highlight/HeatMap.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Highlight/HeatMap.pm Mon Jan 16 15:12:52 2012
@@ -20,31 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $constructor = <<'END_CONSTRUCTOR';
- my $heat_map = Lucy::Highlight::HeatMap->new(
- spans => \@highlight_spans,
- window => 100,
- );
-END_CONSTRUCTOR
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Highlight::HeatMap",
- bind_methods => [
- qw(
- Calc_Proximity_Boost
- Generate_Proximity_Boosts
- Flatten_Spans
- Get_Spans
- )
- ],
- bind_constructors => ["new"],
- #make_pod => {
- # synopsis => " # TODO.\n",
- # constructor => { sample => $constructor },
- #},
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Highlight/Highlighter.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Highlight/Highlighter.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Highlight/Highlighter.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Highlight/Highlighter.pm Mon Jan 16 15:12:52 2012
@@ -20,74 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- my $highlighter = Lucy::Highlight::Highlighter->new(
- searcher => $searcher,
- query => $query,
- field => 'body'
- );
- my $hits = $searcher->hits( query => $query );
- while ( my $hit = $hits->next ) {
- my $excerpt = $highlighter->create_excerpt($hit);
- ...
- }
-END_SYNOPSIS
-
-my $constructor = <<'END_CONSTRUCTOR';
- my $highlighter = Lucy::Highlight::Highlighter->new(
- searcher => $searcher, # required
- query => $query, # required
- field => 'content', # required
- excerpt_length => 150, # default: 200
- );
-END_CONSTRUCTOR
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Highlight::Highlighter",
- bind_methods => [
- qw(
- Highlight
- Encode
- Create_Excerpt
- _find_best_fragment|Find_Best_Fragment
- _raw_excerpt|Raw_Excerpt
- _highlight_excerpt|Highlight_Excerpt
- Find_Sentences
- Set_Pre_Tag
- Get_Pre_Tag
- Set_Post_Tag
- Get_Post_Tag
- Get_Searcher
- Get_Query
- Get_Compiler
- Get_Excerpt_Length
- Get_Field
- )
- ],
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- methods => [
- qw(
- create_excerpt
- highlight
- encode
- set_pre_tag
- get_pre_tag
- set_post_tag
- get_post_tag
- get_searcher
- get_query
- get_compiler
- get_excerpt_length
- get_field
- )
- ]
- },
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/BackgroundMerger.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/BackgroundMerger.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/BackgroundMerger.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/BackgroundMerger.pm Mon Jan 16 15:12:52 2012
@@ -20,44 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- my $bg_merger = Lucy::Index::BackgroundMerger->new(
- index => '/path/to/index',
- );
- $bg_merger->commit;
-END_SYNOPSIS
-
-my $constructor = <<'END_CONSTRUCTOR';
- my $bg_merger = Lucy::Index::BackgroundMerger->new(
- index => '/path/to/index', # required
- manager => $manager # default: created internally
- );
-END_CONSTRUCTOR
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::BackgroundMerger",
- bind_methods => [
- qw(
- Commit
- Prepare_Commit
- Optimize
- )
- ],
- bind_constructors => ["new"],
- make_pod => {
- methods => [
- qw(
- commit
- prepare_commit
- optimize
- )
- ],
- synopsis => $synopsis,
- constructors => [ { sample => $constructor } ],
- },
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/DataReader.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/DataReader.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/DataReader.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/DataReader.pm Mon Jan 16 15:12:52 2012
@@ -20,53 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- # Abstract base class.
-END_SYNOPSIS
-
-my $constructor = <<'END_CONSTRUCTOR';
- my $reader = MyDataReader->new(
- schema => $seg_reader->get_schema, # default undef
- folder => $seg_reader->get_folder, # default undef
- snapshot => $seg_reader->get_snapshot, # default undef
- segments => $seg_reader->get_segments, # default undef
- seg_tick => $seg_reader->get_seg_tick, # default -1
- );
-END_CONSTRUCTOR
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::DataReader",
- bind_methods => [
- qw(
- Get_Schema
- Get_Folder
- Get_Segments
- Get_Snapshot
- Get_Seg_Tick
- Get_Segment
- Aggregator
- Close
- )
- ],
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- constructor => { sample => $constructor, },
- methods => [
- qw(
- get_schema
- get_folder
- get_snapshot
- get_segments
- get_segment
- get_seg_tick
- aggregator
- )
- ]
- },
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/DataWriter.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/DataWriter.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/DataWriter.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/DataWriter.pm Mon Jan 16 15:12:52 2012
@@ -20,60 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<END_SYNOPSIS;
- # Abstract base class.
-END_SYNOPSIS
-
-my $constructor = <<'END_CONSTRUCTOR';
- my $writer = MyDataWriter->new(
- snapshot => $snapshot, # required
- segment => $segment, # required
- polyreader => $polyreader, # required
- );
-END_CONSTRUCTOR
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::DataWriter",
- bind_methods => [
- qw(
- Add_Inverted_Doc
- Add_Segment
- Delete_Segment
- Merge_Segment
- Finish
- Format
- Metadata
- Get_Snapshot
- Get_Segment
- Get_PolyReader
- Get_Schema
- Get_Folder
- )
- ],
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- methods => [
- qw(
- add_inverted_doc
- add_segment
- delete_segment
- merge_segment
- finish
- format
- metadata
- get_snapshot
- get_segment
- get_polyreader
- get_schema
- get_folder
- )
- ],
- },
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/DeletionsReader.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/DeletionsReader.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/DeletionsReader.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/DeletionsReader.pm Mon Jan 16 15:12:52 2012
@@ -20,19 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::DeletionsReader",
- bind_constructors => ['new'],
- bind_methods => [qw( Iterator Del_Count )],
-);
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::DefaultDeletionsReader",
- bind_constructors => ['new'],
- bind_methods => [qw( Read_Deletions )],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/DeletionsWriter.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/DeletionsWriter.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/DeletionsWriter.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/DeletionsWriter.pm Mon Jan 16 15:12:52 2012
@@ -20,47 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- my $polyreader = $del_writer->get_polyreader;
- my $seg_readers = $polyreader->seg_readers;
- for my $seg_reader (@$seg_readers) {
- my $count = $del_writer->seg_del_count( $seg_reader->get_seg_name );
- ...
- }
-END_SYNOPSIS
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::DeletionsWriter",
- bind_methods => [
- qw(
- Generate_Doc_Map
- Delete_By_Term
- Delete_By_Query
- Delete_By_Doc_ID
- Updated
- Seg_Deletions
- Seg_Del_Count
- )
- ],
- make_pod => {
- synopsis => $synopsis,
- methods => [
- qw(
- delete_by_term
- delete_by_query
- updated
- seg_del_count
- )
- ],
- },
-);
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::DefaultDeletionsWriter",
- bind_constructors => ["new"],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/DocReader.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/DocReader.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/DocReader.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/DocReader.pm Mon Jan 16 15:12:52 2012
@@ -20,27 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- my $doc_reader = $seg_reader->obtain("Lucy::Index::DocReader");
- my $doc = $doc_reader->fetch_doc($doc_id);
-END_SYNOPSIS
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::DocReader",
- bind_constructors => ["new"],
- bind_methods => [qw( Fetch_Doc )],
- make_pod => {
- synopsis => $synopsis,
- methods => [qw( fetch_doc aggregator )],
- },
-);
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::DefaultDocReader",
- bind_constructors => ["new"],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/DocVector.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/DocVector.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/DocVector.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/DocVector.pm Mon Jan 16 15:12:52 2012
@@ -20,13 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::DocVector",
- bind_methods => [qw( Term_Vector Field_Buf Add_Field_Buf )],
- bind_constructors => ["new"],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/DocWriter.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/DocWriter.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/DocWriter.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/DocWriter.pm Mon Jan 16 15:12:52 2012
@@ -20,12 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::DocWriter",
- bind_constructors => ["new"],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/FilePurger.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/FilePurger.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/FilePurger.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/FilePurger.pm Mon Jan 16 15:12:52 2012
@@ -20,13 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::FilePurger",
- bind_methods => [qw( Purge )],
- bind_constructors => ["new"],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/HighlightReader.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/HighlightReader.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/HighlightReader.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/HighlightReader.pm Mon Jan 16 15:12:52 2012
@@ -20,17 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::HighlightReader",
- bind_constructors => ["new"],
-);
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::DefaultHighlightReader",
- bind_constructors => ["new"],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/HighlightWriter.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/HighlightWriter.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/HighlightWriter.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/HighlightWriter.pm Mon Jan 16 15:12:52 2012
@@ -20,12 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::HighlightWriter",
- bind_constructors => ["new"],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/IndexManager.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/IndexManager.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/IndexManager.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/IndexManager.pm Mon Jan 16 15:12:52 2012
@@ -20,82 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- use Sys::Hostname qw( hostname );
- my $hostname = hostname() or die "Can't get unique hostname";
- my $manager = Lucy::Index::IndexManager->new(
- host => $hostname,
- );
-
- # Index time:
- my $indexer = Lucy::Index::Indexer->new(
- index => '/path/to/index',
- manager => $manager,
- );
-
- # Search time:
- my $reader = Lucy::Index::IndexReader->open(
- index => '/path/to/index',
- manager => $manager,
- );
- my $searcher = Lucy::Search::IndexSearcher->new( index => $reader );
-END_SYNOPSIS
-
-my $constructor = <<'END_CONSTRUCTOR';
- my $manager = Lucy::Index::IndexManager->new(
- host => $hostname, # default: ""
- );
-END_CONSTRUCTOR
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::IndexManager",
- bind_constructors => ["new"],
- bind_methods => [
- qw(
- Recycle
- Make_Write_Lock
- Make_Deletion_Lock
- Make_Merge_Lock
- Make_Snapshot_Read_Lock
- Highest_Seg_Num
- Make_Snapshot_Filename
- Set_Folder
- Get_Folder
- Get_Host
- Set_Write_Lock_Timeout
- Get_Write_Lock_Timeout
- Set_Write_Lock_Interval
- Get_Write_Lock_Interval
- 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
- )
- ],
- make_pod => {
- methods => [
- qw(
- make_write_lock
- recycle
- set_folder
- get_folder
- get_host
- set_write_lock_timeout
- get_write_lock_timeout
- set_write_lock_interval
- get_write_lock_interval
- )
- ],
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- },
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/IndexReader.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/IndexReader.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/IndexReader.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/IndexReader.pm Mon Jan 16 15:12:52 2012
@@ -20,89 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $xs_code = <<'END_XS_CODE';
-MODULE = Lucy PACKAGE = Lucy::Index::IndexReader
-
-void
-set_race_condition_debug1(val_sv)
- SV *val_sv;
-PPCODE:
- CFISH_DECREF(lucy_PolyReader_race_condition_debug1);
- lucy_PolyReader_race_condition_debug1 = (lucy_CharBuf*)
- XSBind_maybe_sv_to_cfish_obj(val_sv, LUCY_CHARBUF, NULL);
- if (lucy_PolyReader_race_condition_debug1) {
- (void)CFISH_INCREF(lucy_PolyReader_race_condition_debug1);
- }
-
-int32_t
-debug1_num_passes()
-CODE:
- RETVAL = lucy_PolyReader_debug1_num_passes;
-OUTPUT: RETVAL
-END_XS_CODE
-
-my $synopsis = <<'END_SYNOPSIS';
- my $reader = Lucy::Index::IndexReader->open(
- index => '/path/to/index',
- );
- my $seg_readers = $reader->seg_readers;
- for my $seg_reader (@$seg_readers) {
- my $seg_name = $seg_reader->get_segment->get_name;
- my $num_docs = $seg_reader->doc_max;
- print "Segment $seg_name ($num_docs documents):\n";
- my $doc_reader = $seg_reader->obtain("Lucy::Index::DocReader");
- for my $doc_id ( 1 .. $num_docs ) {
- my $doc = $doc_reader->fetch_doc($doc_id);
- print " $doc_id: $doc->{title}\n";
- }
- }
-END_SYNOPSIS
-
-my $constructor = <<'END_CONSTRUCTOR';
- my $reader = Lucy::Index::IndexReader->open(
- index => '/path/to/index', # required
- snapshot => $snapshot,
- manager => $index_manager,
- );
-END_CONSTRUCTOR
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::IndexReader",
- xs_code => $xs_code,
- bind_methods => [
- qw( Doc_Max
- Doc_Count
- Del_Count
- Fetch
- Obtain
- Seg_Readers
- _offsets|Offsets
- Get_Components
- )
- ],
- bind_constructors => ['open|do_open'],
- make_pod => {
- synopsis => $synopsis,
- constructor => {
- name => 'open',
- func => 'do_open',
- sample => $constructor,
- },
- methods => [
- qw(
- doc_max
- doc_count
- del_count
- seg_readers
- offsets
- fetch
- obtain
- )
- ]
- },
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/Indexer.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/Indexer.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/Indexer.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/Indexer.pm Mon Jan 16 15:12:52 2012
@@ -20,190 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $xs_code = <<'END_XS_CODE';
-MODULE = Lucy PACKAGE = Lucy::Index::Indexer
-
-int32_t
-CREATE(...)
-CODE:
- CHY_UNUSED_VAR(items);
- RETVAL = lucy_Indexer_CREATE;
-OUTPUT: RETVAL
-
-int32_t
-TRUNCATE(...)
-CODE:
- CHY_UNUSED_VAR(items);
- RETVAL = lucy_Indexer_TRUNCATE;
-OUTPUT: RETVAL
-
-void
-add_doc(self, ...)
- lucy_Indexer *self;
-PPCODE:
-{
- lucy_Doc *doc = NULL;
- SV *doc_sv = NULL;
- float boost = 1.0;
-
- if (items == 2) {
- doc_sv = ST(1);
- }
- else if (items > 2) {
- chy_bool_t args_ok
- = XSBind_allot_params(&(ST(0)), 1, items,
- "Lucy::Index::Indexer::add_doc_PARAMS",
- ALLOT_SV(&doc_sv, "doc", 3, true),
- ALLOT_F32(&boost, "boost", 5, false),
- NULL);
- if (!args_ok) {
- CFISH_RETHROW(CFISH_INCREF(cfish_Err_get_error()));
- }
- }
- else if (items == 1) {
- CFISH_THROW(LUCY_ERR, "Missing required argument 'doc'");
- }
-
- // Either get a Doc or use the stock doc.
- if (sv_isobject(doc_sv)
- && sv_derived_from(doc_sv, "Lucy::Document::Doc")
- ) {
- IV tmp = SvIV(SvRV(doc_sv));
- doc = INT2PTR(lucy_Doc*, tmp);
- }
- else if (XSBind_sv_defined(doc_sv) && SvROK(doc_sv)) {
- HV *maybe_fields = (HV*)SvRV(doc_sv);
- if (SvTYPE((SV*)maybe_fields) == SVt_PVHV) {
- doc = Lucy_Indexer_Get_Stock_Doc(self);
- Lucy_Doc_Set_Fields(doc, maybe_fields);
- }
- }
- if (!doc) {
- THROW(LUCY_ERR, "Need either a hashref or a %o",
- Lucy_VTable_Get_Name(LUCY_DOC));
- }
-
- Lucy_Indexer_Add_Doc(self, doc, boost);
-}
-END_XS_CODE
-
-my $synopsis = <<'END_SYNOPSIS';
- my $indexer = Lucy::Index::Indexer->new(
- schema => $schema,
- index => '/path/to/index',
- create => 1,
- );
- while ( my ( $title, $content ) = each %source_docs ) {
- $indexer->add_doc({
- title => $title,
- content => $content,
- });
- }
- $indexer->commit;
-END_SYNOPSIS
-
-my $constructor = <<'END_NEW';
-==head2 new( I<[labeled params]> )
-
- my $indexer = Lucy::Index::Indexer->new(
- schema => $schema, # required at index creation
- index => '/path/to/index', # required
- create => 1, # default: 0
- truncate => 1, # default: 0
- manager => $manager # default: created internally
- );
-
-==over
-
-==item *
-
-B<schema> - A Schema. Required when index is being created; if not supplied,
-will be extracted from the index folder.
-
-==item *
-
-B<index> - Either a filepath to an index or a Folder.
-
-==item *
-
-B<create> - If true and the index directory does not exist, attempt to create
-it.
-
-==item *
-
-B<truncate> - If true, proceed with the intention of discarding all previous
-indexing data. The old data will remain intact and visible until commit()
-succeeds.
-
-==item *
-
-B<manager> - An IndexManager.
-
-==back
-END_NEW
-
-# Override is necessary because there's no standard way to explain
-# hash/hashref across multiple host languages.
-my $add_doc_pod = <<'END_ADD_DOC_POD';
-==head2 add_doc(...)
-
- $indexer->add_doc($doc);
- $indexer->add_doc( { field_name => $field_value } );
- $indexer->add_doc(
- doc => { field_name => $field_value },
- boost => 2.5, # default: 1.0
- );
-
-Add a document to the index. Accepts either a single argument or labeled
-params.
-
-==over
-
-==item *
-
-B<doc> - Either a Lucy::Document::Doc object, or a hashref (which will
-be attached to a Lucy::Document::Doc object internally).
-
-==item *
-
-B<boost> - A floating point weight which affects how this document scores.
-
-==back
-
-END_ADD_DOC_POD
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::Indexer",
- xs_code => $xs_code,
- bind_methods => [
- qw(
- Delete_By_Term
- Delete_By_Query
- Add_Index
- Commit
- Prepare_Commit
- Optimize
- )
- ],
- bind_constructors => ["_new|init"],
- make_pod => {
- methods => [
- { name => 'add_doc', pod => $add_doc_pod },
- qw(
- add_index
- optimize
- commit
- prepare_commit
- delete_by_term
- delete_by_query
- )
- ],
- synopsis => $synopsis,
- constructors => [ { pod => $constructor } ],
- },
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/Inverter.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/Inverter.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/Inverter.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/Inverter.pm Mon Jan 16 15:12:52 2012
@@ -20,26 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::Inverter",
- bind_constructors => ["new"],
- bind_methods => [
- qw(
- Get_Doc
- Iterate
- Next
- Clear
- Get_Field_Name
- Get_Value
- Get_Type
- Get_Analyzer
- Get_Similarity
- Get_Inversion
- )
- ],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/Lexicon.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/Lexicon.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/Lexicon.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/Lexicon.pm Mon Jan 16 15:12:52 2012
@@ -20,25 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- my $lex_reader = $seg_reader->obtain('Lucy::Index::LexiconReader');
- my $lexicon = $lex_reader->lexicon( field => 'content' );
- while ( $lexicon->next ) {
- print $lexicon->get_term . "\n";
- }
-END_SYNOPSIS
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::Lexicon",
- bind_methods => [qw( Seek Next Reset Get_Term Get_Field )],
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- methods => [qw( seek next get_term reset )],
- },
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/LexiconReader.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/LexiconReader.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/LexiconReader.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/LexiconReader.pm Mon Jan 16 15:12:52 2012
@@ -20,27 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- my $lex_reader = $seg_reader->obtain("Lucy::Index::LexiconReader");
- my $lexicon = $lex_reader->lexicon( field => 'title' );
-END_SYNOPSIS
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::LexiconReader",
- bind_methods => [qw( Lexicon Doc_Freq Fetch_Term_Info )],
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- methods => [qw( lexicon doc_freq )],
- },
-);
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::DefaultLexiconReader",
- bind_constructors => ["new"],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/LexiconWriter.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/LexiconWriter.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/LexiconWriter.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/LexiconWriter.pm Mon Jan 16 15:12:52 2012
@@ -20,12 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::LexiconWriter",
- bind_constructors => ["new"],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/PolyLexicon.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/PolyLexicon.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/PolyLexicon.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/PolyLexicon.pm Mon Jan 16 15:12:52 2012
@@ -20,12 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::PolyLexicon",
- bind_constructors => ["new"],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/PolyReader.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/PolyReader.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/PolyReader.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/PolyReader.pm Mon Jan 16 15:12:52 2012
@@ -20,39 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- my $polyreader = Lucy::Index::IndexReader->open(
- index => '/path/to/index',
- );
- my $doc_reader = $polyreader->obtain("Lucy::Index::DocReader");
- for my $doc_id ( 1 .. $polyreader->doc_max ) {
- my $doc = $doc_reader->fetch_doc($doc_id);
- print " $doc_id: $doc->{title}\n";
- }
-END_SYNOPSIS
-
-my $xs_code = <<'END_XS_CODE';
-MODULE = Lucy PACKAGE = Lucy::Index::PolyReader
-
-uint32_t
-sub_tick(offsets, doc_id)
- lucy_I32Array *offsets;
- int32_t doc_id;
-CODE:
- RETVAL = lucy_PolyReader_sub_tick(offsets, doc_id);
-OUTPUT: RETVAL
-
-END_XS_CODE
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::PolyReader",
- bind_constructors => [ 'new', 'open|do_open' ],
- bind_methods => [qw( Get_Seg_Readers )],
- make_pod => { synopsis => $synopsis },
- xs_code => $xs_code,
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/Posting.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/Posting.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/Posting.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/Posting.pm Mon Jan 16 15:12:52 2012
@@ -20,15 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::Posting",
- bind_methods => [qw( Get_Doc_ID )],
-# make_pod => {
-# synopsis => " # Abstract base class.\n",
-# },
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/Posting/MatchPosting.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/Posting/MatchPosting.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/Posting/MatchPosting.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/Posting/MatchPosting.pm Mon Jan 16 15:12:52 2012
@@ -20,26 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- # MatchPosting is used indirectly, by specifying in FieldType subclass.
- package MySchema::Category;
- use base qw( Lucy::Plan::FullTextType );
- sub posting {
- my $self = shift;
- return Lucy::Index::Posting::MatchPosting->new(@_);
- }
-END_SYNOPSIS
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::Posting::MatchPosting",
- bind_constructors => ["new"],
- bind_methods => [qw( Get_Freq )],
-# make_pod => {
-# synopsis => $synopsis,
-# }
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/Posting/RichPosting.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/Posting/RichPosting.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/Posting/RichPosting.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/Posting/RichPosting.pm Mon Jan 16 15:12:52 2012
@@ -20,25 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- # RichPosting is used indirectly, by specifying in FieldType subclass.
- package MySchema::Category;
- use base qw( Lucy::Plan::FullTextType );
- sub posting {
- my $self = shift;
- return Lucy::Index::Posting::RichPosting->new(@_);
- }
-END_SYNOPSIS
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::Posting::RichPosting",
- bind_constructors => ["new"],
-# make_pod => {
-# synopsis => $synopsis,
-# }
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/Posting/ScorePosting.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/Posting/ScorePosting.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/Posting/ScorePosting.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/Posting/ScorePosting.pm Mon Jan 16 15:12:52 2012
@@ -20,49 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $xs_code = <<'END_XS_CODE';
-MODULE = Lucy PACKAGE = Lucy::Index::Posting::ScorePosting
-
-SV*
-get_prox(self)
- lucy_ScorePosting *self;
-CODE:
-{
- AV *out_av = newAV();
- uint32_t *positions = Lucy_ScorePost_Get_Prox(self);
- uint32_t i, max;
-
- for (i = 0, max = Lucy_ScorePost_Get_Freq(self); i < max; i++) {
- SV *pos_sv = newSVuv(positions[i]);
- av_push(out_av, pos_sv);
- }
-
- RETVAL = newRV_noinc((SV*)out_av);
-}
-OUTPUT: RETVAL
-END_XS_CODE
-
-my $synopsis = <<'END_SYNOPSIS';
- # ScorePosting is used indirectly, by specifying in FieldType subclass.
- package MySchema::Category;
- use base qw( Lucy::Plan::FullTextType );
- # (It's the default, so you don't need to spec it.)
- # sub posting {
- # my $self = shift;
- # return Lucy::Index::Posting::ScorePosting->new(@_);
- # }
-END_SYNOPSIS
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::Posting::ScorePosting",
- xs_code => $xs_code,
- bind_constructors => ["new"],
-# make_pod => {
-# synopsis => $synopsis,
-# }
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/PostingList.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/PostingList.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/PostingList.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/PostingList.pm Mon Jan 16 15:12:52 2012
@@ -20,44 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- my $posting_list_reader
- = $seg_reader->obtain("Lucy::Index::PostingListReader");
- my $posting_list = $posting_list_reader->posting_list(
- field => 'content',
- term => 'foo',
- );
- while ( my $doc_id = $posting_list->next ) {
- say "Matching doc id: $doc_id";
- }
-END_SYNOPSIS
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::PostingList",
- bind_methods => [
- qw(
- Seek
- Get_Posting
- Get_Doc_Freq
- Make_Matcher
- )
- ],
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- methods => [
- qw(
- next
- advance
- get_doc_id
- get_doc_freq
- seek
- )
- ],
- },
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/PostingListReader.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/PostingListReader.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/PostingListReader.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/PostingListReader.pm Mon Jan 16 15:12:52 2012
@@ -20,31 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- my $posting_list_reader
- = $seg_reader->obtain("Lucy::Index::PostingListReader");
- my $posting_list = $posting_list_reader->posting_list(
- field => 'title',
- term => 'foo',
- );
-END_SYNOPSIS
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::PostingListReader",
- bind_constructors => ["new"],
- bind_methods => [qw( Posting_List Get_Lex_Reader )],
- make_pod => {
- synopsis => $synopsis,
- methods => [qw( posting_list )],
- },
-);
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::DefaultPostingListReader",
- bind_constructors => ["new"],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/PostingListWriter.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/PostingListWriter.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/PostingListWriter.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/PostingListWriter.pm Mon Jan 16 15:12:52 2012
@@ -20,23 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $xs_code = <<'END_XS';
-MODULE = Lucy PACKAGE = Lucy::Index::PostingListWriter
-
-void
-set_default_mem_thresh(mem_thresh)
- size_t mem_thresh;
-PPCODE:
- lucy_PListWriter_set_default_mem_thresh(mem_thresh);
-END_XS
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::PostingListWriter",
- xs_code => $xs_code,
- bind_constructors => ["new"],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/SegLexicon.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/SegLexicon.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/SegLexicon.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/SegLexicon.pm Mon Jan 16 15:12:52 2012
@@ -20,13 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::SegLexicon",
- bind_methods => [qw( Get_Term_Info Get_Field_Num )],
- bind_constructors => ["new"],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/SegPostingList.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/SegPostingList.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/SegPostingList.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/SegPostingList.pm Mon Jan 16 15:12:52 2012
@@ -20,13 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::SegPostingList",
- bind_methods => [qw( Get_Post_Stream Get_Count )],
- bind_constructors => ["new"],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/SegReader.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/SegReader.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/SegReader.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/SegReader.pm Mon Jan 16 15:12:52 2012
@@ -20,34 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- my $polyreader = Lucy::Index::IndexReader->open(
- index => '/path/to/index',
- );
- my $seg_readers = $polyreader->seg_readers;
- for my $seg_reader (@$seg_readers) {
- my $seg_name = $seg_reader->get_seg_name;
- my $num_docs = $seg_reader->doc_max;
- print "Segment $seg_name ($num_docs documents):\n";
- my $doc_reader = $seg_reader->obtain("Lucy::Index::DocReader");
- for my $doc_id ( 1 .. $num_docs ) {
- my $doc = $doc_reader->fetch_doc($doc_id);
- print " $doc_id: $doc->{title}\n";
- }
- }
-END_SYNOPSIS
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::SegReader",
- bind_methods => [qw( Get_Seg_Name Get_Seg_Num Register )],
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- methods => [qw( Get_Seg_Name Get_Seg_Num )],
- },
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/SegWriter.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/SegWriter.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/SegWriter.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/SegWriter.pm Mon Jan 16 15:12:52 2012
@@ -20,29 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::SegWriter",
- bind_constructors => ["new"],
- bind_methods => [
- qw(
- Add_Writer
- Register
- Fetch
- )
- ],
- make_pod => {
- methods => [
- qw(
- add_doc
- add_writer
- register
- fetch
- )
- ],
- }
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/Segment.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/Segment.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/Segment.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/Segment.pm Mon Jan 16 15:12:52 2012
@@ -20,75 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- # Index-time.
- package MyDataWriter;
- use base qw( Lucy::Index::DataWriter );
-
- sub finish {
- my $self = shift;
- my $segment = $self->get_segment;
- my $metadata = $self->SUPER::metadata();
- $metadata->{foo} = $self->get_foo;
- $segment->store_metadata(
- key => 'my_component',
- metadata => $metadata
- );
- }
-
- # Search-time.
- package MyDataReader;
- use base qw( Lucy::Index::DataReader );
-
- sub new {
- my $self = shift->SUPER::new(@_);
- my $segment = $self->get_segment;
- my $metadata = $segment->fetch_metadata('my_component');
- if ($metadata) {
- $self->set_foo( $metadata->{foo} );
- ...
- }
- return $self;
- }
-END_SYNOPSIS
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::Segment",
- bind_methods => [
- qw(
- Add_Field
- _store_metadata|Store_Metadata
- Fetch_Metadata
- Field_Num
- Field_Name
- Get_Name
- Get_Number
- Set_Count
- Get_Count
- Write_File
- Read_File
- )
- ],
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- methods => [
- qw(
- add_field
- store_metadata
- fetch_metadata
- field_num
- field_name
- get_name
- get_number
- set_count
- get_count
- )
- ],
- },
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/Similarity.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/Similarity.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/Similarity.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/Similarity.pm Mon Jan 16 15:12:52 2012
@@ -20,52 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $xs_code = <<'END_XS_CODE';
-MODULE = Lucy PACKAGE = Lucy::Index::Similarity
-
-SV*
-get_norm_decoder(self)
- lucy_Similarity *self;
-CODE:
- RETVAL = newSVpvn((char*)Lucy_Sim_Get_Norm_Decoder(self),
- (256 * sizeof(float)));
-OUTPUT: RETVAL
-END_XS_CODE
-
-my $synopsis = <<'END_SYNOPSIS';
- package MySimilarity;
-
- sub length_norm { return 1.0 } # disable length normalization
-
- package MyFullTextType;
- use base qw( Lucy::Plan::FullTextType );
-
- sub make_similarity { MySimilarity->new }
-END_SYNOPSIS
-
-my $constructor = qq| my \$sim = Lucy::Index::Similarity->new;\n|;
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::Similarity",
- xs_code => $xs_code,
- bind_methods => [
- qw( IDF
- TF
- Encode_Norm
- Decode_Norm
- Query_Norm
- Length_Norm
- Coord )
- ],
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- methods => [qw( length_norm )],
- }
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/Snapshot.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/Snapshot.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/Snapshot.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/Snapshot.pm Mon Jan 16 15:12:52 2012
@@ -20,51 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- my $snapshot = Lucy::Index::Snapshot->new;
- $snapshot->read_file( folder => $folder ); # load most recent snapshot
- my $files = $snapshot->list;
- print "$_\n" for @$files;
-END_SYNOPSIS
-
-my $constructor = <<'END_CONSTRUCTOR';
- my $snapshot = Lucy::Index::Snapshot->new;
-END_CONSTRUCTOR
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::Snapshot",
- bind_methods => [
- qw(
- List
- Num_Entries
- Add_Entry
- Delete_Entry
- Read_File
- Write_File
- Set_Path
- Get_Path
- )
- ],
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- methods => [
- qw(
- list
- num_entries
- add_entry
- delete_entry
- read_file
- write_file
- set_path
- get_path
- )
- ],
- },
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/SortCache.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/SortCache.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/SortCache.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/SortCache.pm Mon Jan 16 15:12:52 2012
@@ -20,40 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $xs_code = <<'END_XS_CODE';
-MODULE = Lucy PACKAGE = Lucy::Index::SortCache
-
-SV*
-value(self, ...)
- lucy_SortCache *self;
-CODE:
-{
- int32_t ord = 0;
- chy_bool_t args_ok
- = XSBind_allot_params(&(ST(0)), 1, items,
- "Lucy::Index::SortCache::value_PARAMS",
- ALLOT_I32(&ord, "ord", 3, false),
- NULL);
- if (!args_ok) {
- CFISH_RETHROW(CFISH_INCREF(cfish_Err_get_error()));
- }
- {
- lucy_Obj *blank = Lucy_SortCache_Make_Blank(self);
- lucy_Obj *value = Lucy_SortCache_Value(self, ord, blank);
- RETVAL = XSBind_cfish_to_perl(value);
- CFISH_DECREF(blank);
- }
-}
-OUTPUT: RETVAL
-END_XS_CODE
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::SortCache",
- xs_code => $xs_code,
- bind_methods => [qw( Ordinal Find )],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/SortReader.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/SortReader.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/SortReader.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/SortReader.pm Mon Jan 16 15:12:52 2012
@@ -20,18 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::SortReader",
- bind_constructors => ["new"],
- bind_methods => [qw( Fetch_Sort_Cache )],
-);
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::DefaultSortReader",
- bind_constructors => ["new"],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/SortWriter.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/SortWriter.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/SortWriter.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/SortWriter.pm Mon Jan 16 15:12:52 2012
@@ -20,23 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $xs_code = <<'END_XS';
-MODULE = Lucy PACKAGE = Lucy::Index::SortWriter
-
-void
-set_default_mem_thresh(mem_thresh)
- size_t mem_thresh;
-PPCODE:
- lucy_SortWriter_set_default_mem_thresh(mem_thresh);
-END_XS
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::SortWriter",
- xs_code => $xs_code,
- bind_constructors => ["new"],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/TermInfo.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/TermInfo.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/TermInfo.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/TermInfo.pm Mon Jan 16 15:12:52 2012
@@ -20,25 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::TermInfo",
- bind_methods => [
- 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
- )
- ],
- bind_constructors => ["new"],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Index/TermVector.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Index/TermVector.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Index/TermVector.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Index/TermVector.pm Mon Jan 16 15:12:52 2012
@@ -20,19 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Index::TermVector",
- bind_constructors => ["new"],
- bind_methods => [
- qw(
- Get_Positions
- Get_Start_Offsets
- Get_End_Offsets
- )
- ],
-);
-