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 [3/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...
Modified: incubator/lucy/trunk/perl/lib/Lucy/Store/InStream.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Store/InStream.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Store/InStream.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Store/InStream.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::Store::InStream
-
-void
-read(self, buffer_sv, len, ...)
- lucy_InStream *self;
- SV *buffer_sv;
- size_t len;
-PPCODE:
-{
- UV offset = items == 4 ? SvUV(ST(3)) : 0;
- char *ptr;
- size_t total_len = offset + len;
- SvUPGRADE(buffer_sv, SVt_PV);
- if (!SvPOK(buffer_sv)) { SvCUR_set(buffer_sv, 0); }
- ptr = SvGROW(buffer_sv, total_len + 1);
- Lucy_InStream_Read_Bytes(self, ptr + offset, len);
- SvPOK_on(buffer_sv);
- if (SvCUR(buffer_sv) < total_len) {
- SvCUR_set(buffer_sv, total_len);
- *(SvEND(buffer_sv)) = '\0';
- }
-}
-
-SV*
-read_string(self)
- lucy_InStream *self;
-CODE:
-{
- char *ptr;
- size_t len = Lucy_InStream_Read_C32(self);
- RETVAL = newSV(len + 1);
- SvCUR_set(RETVAL, len);
- SvPOK_on(RETVAL);
- SvUTF8_on(RETVAL); // Trust source. Reconsider if API goes public.
- *SvEND(RETVAL) = '\0';
- ptr = SvPVX(RETVAL);
- Lucy_InStream_Read_Bytes(self, ptr, len);
-}
-OUTPUT: RETVAL
-
-int
-read_raw_c64(self, buffer_sv)
- lucy_InStream *self;
- SV *buffer_sv;
-CODE:
-{
- char *ptr;
- SvUPGRADE(buffer_sv, SVt_PV);
- ptr = SvGROW(buffer_sv, 10 + 1);
- RETVAL = Lucy_InStream_Read_Raw_C64(self, ptr);
- SvPOK_on(buffer_sv);
- SvCUR_set(buffer_sv, RETVAL);
-}
-OUTPUT: RETVAL
-END_XS_CODE
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Store::InStream",
- xs_code => $xs_code,
- bind_methods => [
- qw(
- Seek
- Tell
- Length
- Reopen
- Close
- Read_I8
- Read_I32
- Read_I64
- Read_U8
- Read_U32
- Read_U64
- Read_C32
- Read_C64
- Read_F32
- Read_F64
- )
- ],
- bind_constructors => ['open|do_open'],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Store/Lock.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Store/Lock.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Store/Lock.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Store/Lock.pm Mon Jan 16 15:12:52 2012
@@ -20,67 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- my $lock = $lock_factory->make_lock(
- name => 'write',
- timeout => 5000,
- );
- $lock->obtain or die "can't get lock for " . $lock->get_name;
- do_stuff();
- $lock->release;
-END_SYNOPSIS
-
-my $constructor = <<'END_CONSTRUCTOR';
- my $lock = Lucy::Store::Lock->new(
- name => 'commit', # required
- folder => $folder, # required
- host => $hostname, # required
- timeout => 5000, # default: 0
- interval => 1000, # default: 100
- );
-END_CONSTRUCTOR
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Store::Lock",
- bind_methods => [
- qw(
- Obtain
- Request
- Is_Locked
- Release
- Clear_Stale
- Get_Name
- Get_Lock_Path
- Get_Host
- )
- ],
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- methods => [
- qw(
- obtain
- request
- release
- is_locked
- clear_stale
- )
- ],
- },
-);
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Store::LockFileLock",
- bind_constructors => ["new"],
-);
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Store::SharedLock",
- bind_constructors => ["new"],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Store/LockErr.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Store/LockErr.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Store/LockErr.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Store/LockErr.pm Mon Jan 16 15:12:52 2012
@@ -20,28 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- while (1) {
- my $bg_merger = eval {
- Lucy::Index::BackgroundMerger->new( index => $index );
- };
- if ( blessed($@) and $@->isa("Lucy::Store::LockErr") ) {
- warn "Retrying...\n";
- }
- elsif (!$bg_merger) {
- # Re-throw.
- die "Failed to open BackgroundMerger: $@";
- }
- ...
- }
-END_SYNOPSIS
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Store::LockErr",
- make_pod => { synopsis => $synopsis }
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Store/LockFactory.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Store/LockFactory.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Store/LockFactory.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Store/LockFactory.pm Mon Jan 16 15:12:52 2012
@@ -20,42 +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 $folder = Lucy::Store::FSFolder->new(
- path => '/path/to/index',
- );
- my $lock_factory = Lucy::Store::LockFactory->new(
- folder => $folder,
- host => $hostname,
- );
- my $write_lock = $lock_factory->make_lock(
- name => 'write',
- timeout => 5000,
- interval => 100,
- );
-END_SYNOPSIS
-
-my $constructor = <<'END_CONSTRUCTOR';
- my $lock_factory = Lucy::Store::LockFactory->new(
- folder => $folder, # required
- host => $hostname, # required
- );
-END_CONSTRUCTOR
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Store::LockFactory",
- bind_methods => [qw( Make_Lock Make_Shared_Lock )],
- bind_constructors => ["new"],
- make_pod => {
- methods => [qw( make_lock make_shared_lock)],
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- }
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Store/OutStream.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Store/OutStream.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Store/OutStream.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Store/OutStream.pm Mon Jan 16 15:12:52 2012
@@ -20,66 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $xs_code = <<'END_XS_CODE';
-MODULE = Lucy PACKAGE = Lucy::Store::OutStream
-
-void
-print(self, ...)
- lucy_OutStream *self;
-PPCODE:
-{
- int i;
- for (i = 1; i < items; i++) {
- STRLEN len;
- char *ptr = SvPV(ST(i), len);
- Lucy_OutStream_Write_Bytes(self, ptr, len);
- }
-}
-
-void
-write_string(self, aSV)
- lucy_OutStream *self;
- SV *aSV;
-PPCODE:
-{
- STRLEN len = 0;
- char *ptr = SvPVutf8(aSV, len);
- Lucy_OutStream_Write_C32(self, len);
- Lucy_OutStream_Write_Bytes(self, ptr, len);
-}
-END_XS_CODE
-
-my $synopsis = <<'END_SYNOPSIS'; # Don't use this yet.
- my $outstream = $folder->open_out($filename) or die $@;
- $outstream->write_u64($file_position);
-END_SYNOPSIS
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Store::OutStream",
- xs_code => $xs_code,
- bind_methods => [
- qw(
- Tell
- Length
- Flush
- Close
- Absorb
- Write_I8
- Write_I32
- Write_I64
- Write_U8
- Write_U32
- Write_U64
- Write_C32
- Write_C64
- Write_F32
- Write_F64
- )
- ],
- bind_constructors => ['open|do_open'],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Store/RAMFile.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Store/RAMFile.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Store/RAMFile.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Store/RAMFile.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::Store::RAMFile",
- bind_methods => [qw( Get_Contents )],
- bind_constructors => ['new'],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Store/RAMFileHandle.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Store/RAMFileHandle.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Store/RAMFileHandle.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Store/RAMFileHandle.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::Store::RAMFileHandle",
- bind_methods => [qw( Get_File )],
- bind_constructors => ['_open|do_open'],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Store/RAMFolder.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Store/RAMFolder.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Store/RAMFolder.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Store/RAMFolder.pm Mon Jan 16 15:12:52 2012
@@ -20,31 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- my $folder = Lucy::Store::RAMFolder->new;
-
- # or sometimes...
- my $folder = Lucy::Store::RAMFolder->new(
- path => $relative_path,
- );
-END_SYNOPSIS
-
-my $constructor = <<'END_CONSTRUCTOR';
- my $folder = Lucy::Store::RAMFolder->new(
- path => $relative_path, # default: empty string
- );
-END_CONSTRUCTOR
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Store::RAMFolder",
- bind_constructors => ["new"],
- make_pod => {
- synopsis => $synopsis,
- constructor => { sample => $constructor },
- }
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Test.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Test.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Test.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Test.pm Mon Jan 16 15:12:52 2012
@@ -38,247 +38,4 @@ sub run_tests {
__END__
-__BINDING__
-
-my $xs_code = <<'END_XS_CODE';
-MODULE = Lucy PACKAGE = Lucy::Test::TestUtils
-
-SV*
-doc_set()
-CODE:
- RETVAL = CFISH_OBJ_TO_SV_NOINC(lucy_TestUtils_doc_set());
-OUTPUT: RETVAL
-
-MODULE = Lucy PACKAGE = Lucy::Test
-
-void
-run_tests(package)
- char *package;
-PPCODE:
-{
- // Lucy::Analysis
- if (strEQ(package, "TestAnalyzer")) {
- lucy_TestAnalyzer_run_tests();
- }
- else if (strEQ(package, "TestCaseFolder")) {
- lucy_TestCaseFolder_run_tests();
- }
- else if (strEQ(package, "TestPolyAnalyzer")) {
- lucy_TestPolyAnalyzer_run_tests();
- }
- else if (strEQ(package, "TestSnowballStopFilter")) {
- lucy_TestSnowStop_run_tests();
- }
- else if (strEQ(package, "TestSnowStemmer")) {
- lucy_TestSnowStemmer_run_tests();
- }
- else if (strEQ(package, "TestNormalizer")) {
- lucy_TestNormalizer_run_tests();
- }
- else if (strEQ(package, "TestRegexTokenizer")) {
- lucy_TestRegexTokenizer_run_tests();
- }
- else if (strEQ(package, "TestStandardTokenizer")) {
- lucy_TestStandardTokenizer_run_tests();
- }
- // Lucy::Object
- else if (strEQ(package, "TestObj")) {
- lucy_TestObj_run_tests();
- }
- else if (strEQ(package, "TestI32Array")) {
- lucy_TestI32Arr_run_tests();
- }
- else if (strEQ(package, "TestByteBuf")) {
- lucy_TestBB_run_tests();
- }
- else if (strEQ(package, "TestLockFreeRegistry")) {
- lucy_TestLFReg_run_tests();
- }
- // Lucy::Plan
- else if (strEQ(package, "TestBlobType")) {
- lucy_TestBlobType_run_tests();
- }
- else if (strEQ(package, "TestFieldType")) {
- lucy_TestFType_run_tests();
- }
- else if (strEQ(package, "TestFullTextType")) {
- lucy_TestFullTextType_run_tests();
- }
- else if (strEQ(package, "TestNumericType")) {
- lucy_TestNumericType_run_tests();
- }
- else if (strEQ(package, "TestSchema")) {
- lucy_TestSchema_run_tests();
- }
- // Lucy::Index
- else if (strEQ(package, "TestDocWriter")) {
- lucy_TestDocWriter_run_tests();
- }
- else if (strEQ(package, "TestHighlightWriter")) {
- lucy_TestHLWriter_run_tests();
- }
- else if (strEQ(package, "TestIndexManager")) {
- lucy_TestIxManager_run_tests();
- }
- else if (strEQ(package, "TestPolyReader")) {
- lucy_TestPolyReader_run_tests();
- }
- else if (strEQ(package, "TestPostingListWriter")) {
- lucy_TestPListWriter_run_tests();
- }
- else if (strEQ(package, "TestSegment")) {
- lucy_TestSeg_run_tests();
- }
- else if (strEQ(package, "TestSegWriter")) {
- lucy_TestSegWriter_run_tests();
- }
- else if (strEQ(package, "TestSnapshot")) {
- lucy_TestSnapshot_run_tests();
- }
- // Lucy::Search
- else if (strEQ(package, "TestANDQuery")) {
- lucy_TestANDQuery_run_tests();
- }
- else if (strEQ(package, "TestLeafQuery")) {
- lucy_TestLeafQuery_run_tests();
- }
- else if (strEQ(package, "TestMatchAllQuery")) {
- lucy_TestMatchAllQuery_run_tests();
- }
- else if (strEQ(package, "TestNoMatchQuery")) {
- lucy_TestNoMatchQuery_run_tests();
- }
- else if (strEQ(package, "TestNOTQuery")) {
- lucy_TestNOTQuery_run_tests();
- }
- else if (strEQ(package, "TestORQuery")) {
- lucy_TestORQuery_run_tests();
- }
- else if (strEQ(package, "TestPhraseQuery")) {
- lucy_TestPhraseQuery_run_tests();
- }
- else if (strEQ(package, "TestQueryParserLogic")) {
- lucy_TestQPLogic_run_tests();
- }
- else if (strEQ(package, "TestSeriesMatcher")) {
- lucy_TestSeriesMatcher_run_tests();
- }
- else if (strEQ(package, "TestRangeQuery")) {
- lucy_TestRangeQuery_run_tests();
- }
- else if (strEQ(package, "TestReqOptQuery")) {
- lucy_TestReqOptQuery_run_tests();
- }
- else if (strEQ(package, "TestTermQuery")) {
- lucy_TestTermQuery_run_tests();
- }
- // Lucy::Store
- else if (strEQ(package, "TestCompoundFileReader")) {
- lucy_TestCFReader_run_tests();
- }
- else if (strEQ(package, "TestCompoundFileWriter")) {
- lucy_TestCFWriter_run_tests();
- }
- else if (strEQ(package, "TestFileHandle")) {
- lucy_TestFH_run_tests();
- }
- else if (strEQ(package, "TestFolder")) {
- lucy_TestFolder_run_tests();
- }
- else if (strEQ(package, "TestFSDirHandle")) {
- lucy_TestFSDH_run_tests();
- }
- else if (strEQ(package, "TestFSFolder")) {
- lucy_TestFSFolder_run_tests();
- }
- else if (strEQ(package, "TestFSFileHandle")) {
- lucy_TestFSFH_run_tests();
- }
- else if (strEQ(package, "TestInStream")) {
- lucy_TestInStream_run_tests();
- }
- else if (strEQ(package, "TestIOChunks")) {
- lucy_TestIOChunks_run_tests();
- }
- else if (strEQ(package, "TestIOPrimitives")) {
- lucy_TestIOPrimitives_run_tests();
- }
- else if (strEQ(package, "TestRAMDirHandle")) {
- lucy_TestRAMDH_run_tests();
- }
- else if (strEQ(package, "TestRAMFileHandle")) {
- lucy_TestRAMFH_run_tests();
- }
- else if (strEQ(package, "TestRAMFolder")) {
- lucy_TestRAMFolder_run_tests();
- }
- // Lucy::Util
- else if (strEQ(package, "TestAtomic")) {
- lucy_TestAtomic_run_tests();
- }
- else if (strEQ(package, "TestBitVector")) {
- lucy_TestBitVector_run_tests();
- }
- else if (strEQ(package, "TestCharBuf")) {
- lucy_TestCB_run_tests();
- }
- else if (strEQ(package, "TestHash")) {
- lucy_TestHash_run_tests();
- }
- else if (strEQ(package, "TestJson")) {
- lucy_TestJson_run_tests();
- }
- else if (strEQ(package, "TestMemory")) {
- lucy_TestMemory_run_tests();
- }
- else if (strEQ(package, "TestIndexFileNames")) {
- lucy_TestIxFileNames_run_tests();
- }
- else if (strEQ(package, "TestNumberUtils")) {
- lucy_TestNumUtil_run_tests();
- }
- else if (strEQ(package, "TestNum")) {
- lucy_TestNum_run_tests();
- }
- else if (strEQ(package, "TestPriorityQueue")) {
- lucy_TestPriQ_run_tests();
- }
- else if (strEQ(package, "TestStringHelper")) {
- lucy_TestStrHelp_run_tests();
- }
- else if (strEQ(package, "TestMemoryPool")) {
- lucy_TestMemPool_run_tests();
- }
- else if (strEQ(package, "TestVArray")) {
- lucy_TestVArray_run_tests();
- }
- // Lucy::Highlight
- else if (strEQ(package, "TestHighlighter")) {
- lucy_TestHighlighter_run_tests();
- }
- else {
- THROW(LUCY_ERR, "Unknown test id: %s", package);
- }
-}
-
-MODULE = Lucy PACKAGE = Lucy::Test::Search::TestQueryParserSyntax
-
-void
-run_tests(index);
- lucy_Folder *index;
-PPCODE:
- lucy_TestQPSyntax_run_tests(index);
-END_XS_CODE
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Test::TestSchema",
- bind_constructors => ["new"],
-);
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Test",
- xs_code => $xs_code,
-);
Modified: incubator/lucy/trunk/perl/lib/Lucy/Test/Util/BBSortEx.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Test/Util/BBSortEx.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Test/Util/BBSortEx.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Test/Util/BBSortEx.pm Mon Jan 16 15:12:52 2012
@@ -20,57 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $xs_code = <<'END_XS_CODE';
-MODULE = Lucy PACKAGE = Lucy::Test::Util::BBSortEx
-
-SV*
-fetch(self)
- lucy_BBSortEx *self;
-CODE:
-{
- void *address = Lucy_BBSortEx_Fetch(self);
- if (address) {
- RETVAL = XSBind_cfish_to_perl(*(lucy_Obj**)address);
- CFISH_DECREF(*(lucy_Obj**)address);
- }
- else {
- RETVAL = newSV(0);
- }
-}
-OUTPUT: RETVAL
-
-SV*
-peek(self)
- lucy_BBSortEx *self;
-CODE:
-{
- void *address = Lucy_BBSortEx_Peek(self);
- if (address) {
- RETVAL = XSBind_cfish_to_perl(*(lucy_Obj**)address);
- }
- else {
- RETVAL = newSV(0);
- }
-}
-OUTPUT: RETVAL
-
-void
-feed(self, bb)
- lucy_BBSortEx *self;
- lucy_ByteBuf *bb;
-CODE:
- CFISH_INCREF(bb);
- Lucy_BBSortEx_Feed(self, &bb);
-
-END_XS_CODE
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Test::Util::BBSortEx",
- bind_constructors => ["new"],
- xs_code => $xs_code,
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Util/Debug.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Util/Debug.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Util/Debug.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Util/Debug.pm Mon Jan 16 15:12:52 2012
@@ -23,82 +23,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $xs_code = <<'END_XS_CODE';
-MODULE = Lucy PACKAGE = Lucy::Util::Debug
-
-#include "Lucy/Util/Debug.h"
-
-void
-DEBUG_PRINT(message)
- char *message;
-PPCODE:
- LUCY_DEBUG_PRINT("%s", message);
-
-void
-DEBUG(message)
- char *message;
-PPCODE:
- LUCY_DEBUG("%s", message);
-
-chy_bool_t
-DEBUG_ENABLED()
-CODE:
- RETVAL = LUCY_DEBUG_ENABLED;
-OUTPUT: RETVAL
-
-=for comment
-
-Keep track of any Lucy objects that have been assigned to global Perl
-variables. This is useful when accounting how many objects should have been
-destroyed and diagnosing memory leaks.
-
-=cut
-
-void
-track_globals(...)
-PPCODE:
-{
- CHY_UNUSED_VAR(items);
- LUCY_IFDEF_DEBUG(lucy_Debug_num_globals++;);
-}
-
-void
-set_env_cache(str)
- char *str;
-PPCODE:
- lucy_Debug_set_env_cache(str);
-
-void
-ASSERT(maybe)
- int maybe;
-PPCODE:
- LUCY_ASSERT(maybe, "XS ASSERT binding test");
-
-IV
-num_allocated()
-CODE:
- RETVAL = lucy_Debug_num_allocated;
-OUTPUT: RETVAL
-
-IV
-num_freed()
-CODE:
- RETVAL = lucy_Debug_num_freed;
-OUTPUT: RETVAL
-
-IV
-num_globals()
-CODE:
- RETVAL = lucy_Debug_num_globals;
-OUTPUT: RETVAL
-END_XS_CODE
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Util::Debug",
- xs_code => $xs_code,
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Util/IndexFileNames.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Util/IndexFileNames.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Util/IndexFileNames.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Util/IndexFileNames.pm Mon Jan 16 15:12:52 2012
@@ -20,34 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $xs_code = <<'END_XS_CODE';
-MODULE = Lucy PACKAGE = Lucy::Util::IndexFileNames
-
-uint64_t
-extract_gen(name)
- const lucy_CharBuf *name;
-CODE:
- RETVAL = lucy_IxFileNames_extract_gen(name);
-OUTPUT: RETVAL
-
-SV*
-latest_snapshot(folder)
- lucy_Folder *folder;
-CODE:
-{
- lucy_CharBuf *latest = lucy_IxFileNames_latest_snapshot(folder);
- RETVAL = XSBind_cb_to_sv(latest);
- CFISH_DECREF(latest);
-}
-OUTPUT: RETVAL
-END_XS_CODE
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Util::IndexFileNames",
- xs_code => $xs_code,
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Util/MemoryPool.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Util/MemoryPool.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Util/MemoryPool.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Util/MemoryPool.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::Util::MemoryPool",
- bind_constructors => ["new"],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Util/PriorityQueue.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Util/PriorityQueue.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Util/PriorityQueue.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Util/PriorityQueue.pm Mon Jan 16 15:12:52 2012
@@ -20,22 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Util::PriorityQueue",
- bind_methods => [
- qw(
- Less_Than
- Insert
- Pop
- Pop_All
- Peek
- Get_Size
- )
- ],
- bind_constructors => ["new"],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Util/SortExternal.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Util/SortExternal.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Util/SortExternal.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Util/SortExternal.pm Mon Jan 16 15:12:52 2012
@@ -20,34 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $xs_code = <<'END_XS_CODE';
-MODULE = Lucy PACKAGE = Lucy::Util::SortExternal
-
-IV
-_DEFAULT_MEM_THRESHOLD()
-CODE:
- RETVAL = LUCY_SORTEX_DEFAULT_MEM_THRESHOLD;
-OUTPUT: RETVAL
-END_XS_CODE
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Util::SortExternal",
- xs_code => $xs_code,
- bind_methods => [
- qw(
- Flush
- Flip
- Add_Run
- Refill
- Sort_Cache
- Cache_Count
- Clear_Cache
- Set_Mem_Thresh
- )
- ],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Util/Stepper.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Util/Stepper.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Util/Stepper.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Util/Stepper.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::Util::Stepper",
- bind_methods => [qw( Read_Record )],
-);
-
Modified: incubator/lucy/trunk/perl/lib/Lucy/Util/StringHelper.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Util/StringHelper.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Util/StringHelper.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Util/StringHelper.pm Mon Jan 16 15:12:52 2012
@@ -20,103 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $xs_code = <<'END_XS_CODE';
-MODULE = Lucy PACKAGE = Lucy::Util::StringHelper
-
-=for comment
-
-Turn an SV's UTF8 flag on. Equivalent to Encode::_utf8_on, but we don't have
-to load Encode.
-
-=cut
-
-void
-utf8_flag_on(sv)
- SV *sv;
-PPCODE:
- SvUTF8_on(sv);
-
-=for comment
-
-Turn an SV's UTF8 flag off.
-
-=cut
-
-void
-utf8_flag_off(sv)
- SV *sv;
-PPCODE:
- SvUTF8_off(sv);
-
-SV*
-to_base36(num)
- uint64_t num;
-CODE:
-{
- char base36[lucy_StrHelp_MAX_BASE36_BYTES];
- size_t size = lucy_StrHelp_to_base36(num, &base36);
- RETVAL = newSVpvn(base36, size);
-}
-OUTPUT: RETVAL
-
-IV
-from_base36(str)
- char *str;
-CODE:
- RETVAL = strtol(str, NULL, 36);
-OUTPUT: RETVAL
-
-=for comment
-
-Upgrade a SV to UTF8, converting Latin1 if necessary. Equivalent to
-utf::upgrade().
-
-=cut
-
-void
-utf8ify(sv)
- SV *sv;
-PPCODE:
- sv_utf8_upgrade(sv);
-
-chy_bool_t
-utf8_valid(sv)
- SV *sv;
-CODE:
-{
- STRLEN len;
- char *ptr = SvPV(sv, len);
- RETVAL = lucy_StrHelp_utf8_valid(ptr, len);
-}
-OUTPUT: RETVAL
-
-=for comment
-
-Concatenate one scalar onto the end of the other, ignoring UTF-8 status of the
-second scalar. This is necessary because $not_utf8 . $utf8 results in a
-scalar which has been infected by the UTF-8 flag of the second argument.
-
-=cut
-
-void
-cat_bytes(sv, catted)
- SV *sv;
- SV *catted;
-PPCODE:
-{
- STRLEN len;
- char *ptr = SvPV(catted, len);
- if (SvUTF8(sv)) { CFISH_THROW(LUCY_ERR, "Can't cat_bytes onto a UTF-8 SV"); }
- sv_catpvn(sv, ptr, len);
-}
-END_XS_CODE
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "Lucy::Util::StringHelper",
- xs_code => $xs_code,
-);
-
Modified: incubator/lucy/trunk/perl/lib/LucyX/Search/Filter.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/LucyX/Search/Filter.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/LucyX/Search/Filter.pm (original)
+++ incubator/lucy/trunk/perl/lib/LucyX/Search/Filter.pm Mon Jan 16 15:12:52 2012
@@ -190,15 +190,7 @@ BEGIN { our @ISA = qw( Lucy::Search::Mat
__END__
-__BINDING__
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "LucyX::Search::FilterMatcher",
- bind_constructors => ["new"],
-);
-
-__POD__
=head1 NAME
Modified: incubator/lucy/trunk/perl/lib/LucyX/Search/MockMatcher.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/LucyX/Search/MockMatcher.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/LucyX/Search/MockMatcher.pm (original)
+++ incubator/lucy/trunk/perl/lib/LucyX/Search/MockMatcher.pm Mon Jan 16 15:12:52 2012
@@ -42,15 +42,7 @@ sub new {
__END__
-__BINDING__
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "LucyX::Search::MockMatcher",
- bind_constructors => ["_new|init"],
-);
-
-__POD__
=head1 NAME
Modified: incubator/lucy/trunk/perl/lib/LucyX/Search/ProximityQuery.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/LucyX/Search/ProximityQuery.pm?rev=1232021&r1=1232020&r2=1232021&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/LucyX/Search/ProximityQuery.pm (original)
+++ incubator/lucy/trunk/perl/lib/LucyX/Search/ProximityQuery.pm Mon Jan 16 15:12:52 2012
@@ -20,32 +20,4 @@ use Lucy;
__END__
-__BINDING__
-
-my $synopsis = <<'END_SYNOPSIS';
- my $proximity_query = LucyX::Search::ProximityQuery->new(
- field => 'content',
- terms => [qw( the who )],
- within => 10, # match within 10 positions
- );
- my $hits = $searcher->hits( query => $proximity_query );
-END_SYNOPSIS
-
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "LucyX::Search::ProximityQuery",
- bind_methods => [qw( Get_Field Get_Terms )],
- bind_constructors => ["new"],
- make_pod => {
- constructor => { sample => '' },
- synopsis => $synopsis,
- methods => [qw( get_field get_terms get_within )],
- },
-);
-Clownfish::CFC::Binding::Perl::Class->register(
- parcel => "Lucy",
- class_name => "LucyX::Search::ProximityCompiler",
- bind_constructors => ["do_new"],
-);
-