Mailing List Archive

Author: creamyg
Date: 2008-08-23 22:34:07 -0700 (Sat, 23 Aug 2008)
New Revision: 3755

Modified:
trunk/boilerplater/lib/Boilerplater/Binding/Perl.pm
trunk/perl/lib/KinoSearch/Analysis/Analyzer.pm
trunk/perl/lib/KinoSearch/Analysis/Inversion.pm
trunk/perl/lib/KinoSearch/Analysis/Tokenizer.pm
trunk/perl/lib/KinoSearch/Doc.pm
trunk/perl/lib/KinoSearch/Doc/HitDoc.pm
trunk/perl/lib/KinoSearch/FieldSpec.pm
trunk/perl/lib/KinoSearch/Highlight/HeatMap.pm
trunk/perl/lib/KinoSearch/Highlight/Highlighter.pm
trunk/perl/lib/KinoSearch/Index/DelDocs.pm
trunk/perl/lib/KinoSearch/Index/DocReader.pm
trunk/perl/lib/KinoSearch/Index/DocVector.pm
trunk/perl/lib/KinoSearch/Index/FilePurger.pm
trunk/perl/lib/KinoSearch/Index/IndexReader.pm
trunk/perl/lib/KinoSearch/Index/Inverter.pm
trunk/perl/lib/KinoSearch/Index/LexReader.pm
trunk/perl/lib/KinoSearch/Index/Lexicon.pm
trunk/perl/lib/KinoSearch/Index/PostingList.pm
trunk/perl/lib/KinoSearch/Index/SegDataReader.pm
trunk/perl/lib/KinoSearch/Index/SegDataWriter.pm
trunk/perl/lib/KinoSearch/Index/SegInfo.pm
trunk/perl/lib/KinoSearch/Index/SegLexicon.pm
trunk/perl/lib/KinoSearch/Index/SegPostingList.pm
trunk/perl/lib/KinoSearch/Index/SegReader.pm
trunk/perl/lib/KinoSearch/Index/Snapshot.pm
trunk/perl/lib/KinoSearch/Index/TermInfo.pm
trunk/perl/lib/KinoSearch/Index/TermVector.pm
trunk/perl/lib/KinoSearch/Index/TermVectorsReader.pm
trunk/perl/lib/KinoSearch/InvIndex.pm
trunk/perl/lib/KinoSearch/InvIndexer.pm
trunk/perl/lib/KinoSearch/Obj.pm
trunk/perl/lib/KinoSearch/QueryParser.pm
trunk/perl/lib/KinoSearch/Schema.pm
trunk/perl/lib/KinoSearch/Search/ANDScorer.pm
trunk/perl/lib/KinoSearch/Search/Compiler.pm
trunk/perl/lib/KinoSearch/Search/FieldDocCollator.pm
trunk/perl/lib/KinoSearch/Search/HitCollector.pm
trunk/perl/lib/KinoSearch/Search/Hits.pm
trunk/perl/lib/KinoSearch/Search/LeafQuery.pm
trunk/perl/lib/KinoSearch/Search/NOTQuery.pm
trunk/perl/lib/KinoSearch/Search/PhraseQuery.pm
trunk/perl/lib/KinoSearch/Search/PolyQuery.pm
trunk/perl/lib/KinoSearch/Search/Query.pm
trunk/perl/lib/KinoSearch/Search/RequiredOptionalQuery.pm
trunk/perl/lib/KinoSearch/Search/ScoreDoc.pm
trunk/perl/lib/KinoSearch/Search/Scorer.pm
trunk/perl/lib/KinoSearch/Search/Searchable.pm
trunk/perl/lib/KinoSearch/Search/Similarity.pm
trunk/perl/lib/KinoSearch/Search/SortSpec.pm
trunk/perl/lib/KinoSearch/Search/Span.pm
trunk/perl/lib/KinoSearch/Search/Tally.pm
trunk/perl/lib/KinoSearch/Search/TermQuery.pm
trunk/perl/lib/KinoSearch/Search/TopDocs.pm
trunk/perl/lib/KinoSearch/Searcher.pm
trunk/perl/lib/KinoSearch/Store/CompoundFileWriter.pm
trunk/perl/lib/KinoSearch/Store/FileDes.pm
trunk/perl/lib/KinoSearch/Store/Folder.pm
trunk/perl/lib/KinoSearch/Store/InStream.pm
trunk/perl/lib/KinoSearch/Store/Lock.pm
trunk/perl/lib/KinoSearch/Store/LockFactory.pm
trunk/perl/lib/KinoSearch/Store/OutStream.pm
trunk/perl/lib/KinoSearch/Store/RAMFileDes.pm
trunk/perl/lib/KinoSearch/Store/RAMFolder.pm
trunk/perl/lib/KinoSearch/Test/TestQueryParser.pm
trunk/perl/lib/KinoSearch/Test/Util/BBSortEx.pm
trunk/perl/lib/KinoSearch/Test/Util/TestCharBuf.pm
trunk/perl/lib/KinoSearch/Util/BitVector.pm
trunk/perl/lib/KinoSearch/Util/ByteBuf.pm
trunk/perl/lib/KinoSearch/Util/CharBuf.pm
trunk/perl/lib/KinoSearch/Util/Hash.pm
trunk/perl/lib/KinoSearch/Util/I32Array.pm
trunk/perl/lib/KinoSearch/Util/PriorityQueue.pm
trunk/perl/lib/KinoSearch/Util/SortExRun.pm
trunk/perl/lib/KinoSearch/Util/SortExternal.pm
trunk/perl/lib/KinoSearch/Util/Stepper.pm
trunk/perl/lib/KinoSearch/Util/VArray.pm
trunk/perl/lib/KinoSearch/Util/VirtualTable.pm
Log:
Change bind_methods argument to Method_Name instead of method_name.


Modified: trunk/boilerplater/lib/Boilerplater/Binding/Perl.pm
===================================================================
--- trunk/boilerplater/lib/Boilerplater/Binding/Perl.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/boilerplater/lib/Boilerplater/Binding/Perl.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -138,7 +138,7 @@
my ( $alias, $name )
= $meth_namespec =~ /^(.*?)\|(.*)$/
? ( $1, $2 )
- : ( $meth_namespec, $meth_namespec );
+ : ( lc($meth_namespec), $meth_namespec );
$meth_to_bind{$name} = { aliases => [$alias] };
}
}
@@ -147,7 +147,7 @@
my ( $alias, $name )
= $meth_namespec =~ /^(.*?)\|(.*)$/
? ( $1, $2 )
- : ( $meth_namespec, $meth_namespec );
+ : ( lc($meth_namespec), $meth_namespec );
$meth_to_bind{$name} = {
aliases => [$alias],
use_labeled_params => 0
@@ -159,7 +159,7 @@
my ( $alias, $name )
= $meth_namespec =~ /^(.*?)\|(.*)$/
? ( $1, $2 )
- : ( $meth_namespec, $meth_namespec );
+ : ( lc($meth_namespec), $meth_namespec );
$meth_to_bind{$name} = {
aliases => [$alias],
use_labeled_params => 1
@@ -169,7 +169,7 @@
next unless scalar keys %meth_to_bind;

for my $method ( $class->novel_methods ) {
- my $meth_name = $method->get_micro_name;
+ my $meth_name = $method->get_macro_name;
my $extra_args = delete $meth_to_bind{$meth_name};
next unless defined $extra_args;

@@ -179,7 +179,7 @@
confess("$meth_name is private") if $method->private;

for my $descendant ( $class->tree_to_ladder ) {
- my $real_method = $descendant->novel_method($meth_name);
+ my $real_method = $descendant->novel_method(lc($meth_name));
next unless $real_method;

# Create the XSub, add it to the list.

Modified: trunk/perl/lib/KinoSearch/Analysis/Analyzer.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Analysis/Analyzer.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Analysis/Analyzer.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -8,8 +8,8 @@

{ "KinoSearch::Analysis::Analyzer" => {
bind_methods => [.
- qw( transform transform_text
- _split|split )
+ qw( Transform Transform_Text
+ _split|Split )
],
make_constructors => ["new"],
make_pod => {

Modified: trunk/perl/lib/KinoSearch/Analysis/Inversion.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Analysis/Inversion.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Analysis/Inversion.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -31,7 +31,7 @@
__AUTO_XS__

{ "KinoSearch::Analysis::Inversion" => {
- bind_methods => [qw( append reset invert next )],
+ bind_methods => [qw( Append Reset Invert Next )],
}
}


Modified: trunk/perl/lib/KinoSearch/Analysis/Tokenizer.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Analysis/Tokenizer.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Analysis/Tokenizer.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -29,7 +29,7 @@
END_CONSTRUCTOR

{ "KinoSearch::Analysis::Tokenizer" => {
- bind_methods => [qw( set_token_re )],
+ bind_methods => [qw( Set_Token_RE )],
make_constructors => ["_new"],
make_pod => {
constructor => { sample => $constructor },

Modified: trunk/perl/lib/KinoSearch/Doc/HitDoc.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Doc/HitDoc.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Doc/HitDoc.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -16,7 +16,7 @@

{ "KinoSearch::Doc::HitDoc" => {
make_constructors => ['new'],
- bind_methods => [qw( set_score get_score )],
+ bind_methods => [qw( Set_Score Get_Score )],
make_pod => {
methods => [qw( set_score get_score set_boost get_boost )],
synopsis => $synopsis,

Modified: trunk/perl/lib/KinoSearch/Doc.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Doc.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Doc.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -37,11 +37,11 @@
{ "KinoSearch::Doc" => {
make_constructors => ['new'],
bind_methods => [.
- qw( set_doc_num
- get_doc_num
- set_boost
- get_boost
- set_fields )
+ qw( Set_Doc_Num
+ Get_Doc_Num
+ Set_Boost
+ Get_Boost
+ Set_Fields )
],
make_pod => {
methods => [qw( set_boost get_boost get_fields )],

Modified: trunk/perl/lib/KinoSearch/FieldSpec.pm
===================================================================
--- trunk/perl/lib/KinoSearch/FieldSpec.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/FieldSpec.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -33,16 +33,16 @@
{ "KinoSearch::FieldSpec" => {
bind_methods => [.
qw(
- boost
- analyzer
- similarity
- indexed
- stored
- analyzed
- vectorized
- binary
- compressed
- posting
+ Boost
+ Analyzer
+ Similarity
+ Indexed
+ Stored
+ Analyzed
+ Vectorized
+ Binary
+ Compressed
+ Posting
)
],
make_constructors => ["new"],

Modified: trunk/perl/lib/KinoSearch/Highlight/HeatMap.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Highlight/HeatMap.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Highlight/HeatMap.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -15,10 +15,10 @@

{ "KinoSearch::Highlight::HeatMap" => {
bind_methods => [.
- qw( calc_proximity_boost
- _generate_proximity_boosts|generate_proximity_boosts
- _flatten_spans|flatten_spans
- hottest
+ qw( Calc_Proximity_Boost
+ _generate_proximity_boosts|Generate_Proximity_Boosts
+ _flatten_spans|Flatten_Spans
+ Hottest
)
],
make_getters => [qw( spans window )],

Modified: trunk/perl/lib/KinoSearch/Highlight/Highlighter.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Highlight/Highlighter.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Highlight/Highlighter.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -30,22 +30,22 @@

{ "KinoSearch::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|find_sentences
- set_pre_tag
- get_pre_tag
- set_post_tag
- get_post_tag
- get_searchable
- get_query
- get_compiler
- get_excerpt_length
- get_field )
+ qw( Highlight
+ Encode
+ Create_Excerpt
+ _find_best_fragment|Find_Best_Fragment
+ _raw_excerpt|Raw_Excerpt
+ _highlight_excerpt|Highlight_Excerpt
+ _find_sentences|Find_Sentences
+ Set_Pre_Tag
+ Get_Pre_Tag
+ Set_Post_Tag
+ Get_Post_Tag
+ Get_Searchable
+ Get_Query
+ Get_Compiler
+ Get_Excerpt_Length
+ Get_Field )
],
make_constructors => ["new"],
make_pod => {

Modified: trunk/perl/lib/KinoSearch/Index/DelDocs.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/DelDocs.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Index/DelDocs.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -8,8 +8,8 @@

{ "KinoSearch::Index::DelDocs" => {
bind_methods => [.
- qw( read_deldocs write_deldocs
- generate_doc_map delete_postinglist )
+ qw( Read_Deldocs Write_Deldocs
+ Generate_Doc_Map Delete_PostingList )
],
make_constructors => ['new'],
},

Modified: trunk/perl/lib/KinoSearch/Index/DocReader.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/DocReader.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Index/DocReader.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -7,7 +7,7 @@
__AUTO_XS__

{ "KinoSearch::Index::DocReader" => {
- bind_methods => [qw( fetch_doc )],
+ bind_methods => [qw( Fetch_Doc )],
make_getters => [qw( ds_in dsx_in )],
make_constructors => ["new"],
}

Modified: trunk/perl/lib/KinoSearch/Index/DocVector.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/DocVector.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Index/DocVector.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -8,7 +8,7 @@

{ "KinoSearch::Index::DocVector" => {
bind_methods =>
- [ qw( term_vector field_buf add_field_buf ) ],
+ [ qw( Term_Vector Field_Buf Add_Field_Buf ) ],
make_constructors => ["new"],
}
}

Modified: trunk/perl/lib/KinoSearch/Index/FilePurger.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/FilePurger.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Index/FilePurger.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -7,7 +7,7 @@
__AUTO_XS__

{ "KinoSearch::Index::FilePurger" => {
- bind_methods => [qw( purge )],
+ bind_methods => [qw( Purge )],
make_getters => [qw( invindex )],
make_constructors => ["new"],
}

Modified: trunk/perl/lib/KinoSearch/Index/IndexReader.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/IndexReader.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Index/IndexReader.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -41,23 +41,23 @@

{ "KinoSearch::Index::IndexReader" => {
bind_methods => [.
- qw( max_docs
- num_docs
- has_deletions
- is_deleted
- write_deletions
- doc_freq
- lexicon
- posting_list
- fetch_doc
- fetch_doc_vec
- seg_starts
- segreaders
- fetch_sort_cache
- close
- get_invindex
- get_folder
- get_schema
+ qw( Max_Docs
+ Num_Docs
+ Has_Deletions
+ Is_Deleted
+ Write_Deletions
+ Doc_Freq
+ Lexicon
+ Posting_List
+ Fetch_Doc
+ Fetch_Doc_Vec
+ Seg_Starts
+ SegReaders
+ Fetch_Sort_Cache
+ Close
+ Get_InvIndex
+ Get_Folder
+ Get_Schema
)
],
make_constructors => ['open|do_open'],

Modified: trunk/perl/lib/KinoSearch/Index/Inverter.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/Inverter.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Index/Inverter.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -9,16 +9,16 @@
{ "KinoSearch::Index::Inverter" => {
make_constructors => ["new"],
bind_methods => [.qw(
- iter_init
- next
- clear
- expand
- get_field_name
- get_value
- get_fspec
- get_analyzer
- get_similarity
- get_inversion
+ Iter_Init
+ Next
+ Clear
+ Expand
+ Get_Field_Name
+ Get_Value
+ Get_FSpec
+ Get_Analyzer
+ Get_Similarity
+ Get_Inversion
)],
make_getters => [qw( schema )],
}

Modified: trunk/perl/lib/KinoSearch/Index/LexReader.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/LexReader.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Index/LexReader.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -7,7 +7,7 @@
__AUTO_XS__

{ "KinoSearch::Index::LexReader" => {
- bind_methods => [qw( lexicon )],
+ bind_methods => [qw( Lexicon )],
make_constructors => ["new"],
}
}

Modified: trunk/perl/lib/KinoSearch/Index/Lexicon.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/Lexicon.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Index/Lexicon.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -44,8 +44,8 @@

{ "KinoSearch::Index::Lexicon" => {
bind_methods => [.
- qw( seek seek_by_num next reset
- build_sort_cache get_term_num get_size )
+ qw( Seek Seek_By_Num Next Reset
+ Build_Sort_Cache Get_Term_Num Get_Size )
],
make_getters => [qw( field )],
make_constructors => ["new"],

Modified: trunk/perl/lib/KinoSearch/Index/PostingList.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/PostingList.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Index/PostingList.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -20,8 +20,8 @@

{ "KinoSearch::Index::PostingList" => {
bind_methods => [.
- qw( seek next skip_to get_doc_num get_posting
- get_doc_freq make_scorer )
+ qw( Seek Next Skip_To Get_Doc_Num Get_Posting
+ Get_Doc_Freq Make_Scorer )
],
make_constructors => ["new"],
make_pod => {

Modified: trunk/perl/lib/KinoSearch/Index/SegDataReader.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/SegDataReader.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Index/SegDataReader.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -7,7 +7,7 @@
__AUTO_XS__

{ "KinoSearch::Index::SegDataReader" => {
- bind_methods => [qw( get_invindex close )],
+ bind_methods => [qw( Get_InvIndex Close )],
make_constructors => ["new"],
}
}

Modified: trunk/perl/lib/KinoSearch/Index/SegDataWriter.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/SegDataWriter.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Index/SegDataWriter.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -7,7 +7,7 @@
__AUTO_XS__

{ "KinoSearch::Index::SegDataWriter" => {
- bind_methods => [qw( finish add add_segment )],
+ bind_methods => [qw( Finish Add Add_Segment )],
make_getters => [qw( invindex )],
make_constructors => ["new"],
}

Modified: trunk/perl/lib/KinoSearch/Index/SegInfo.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/SegInfo.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Index/SegInfo.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -8,8 +8,8 @@

{ "KinoSearch::Index::SegInfo" => {
bind_methods => [.
- qw( get_metadata add_field field_name get_seg_name
- set_doc_count get_doc_count increment_doc_count )
+ qw( Get_Metadata Add_Field Field_Name Get_Seg_Name
+ Set_Doc_Count Get_Doc_Count Increment_Doc_Count )
],
make_constructors => ["new"],
}

Modified: trunk/perl/lib/KinoSearch/Index/SegLexicon.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/SegLexicon.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Index/SegLexicon.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -7,7 +7,7 @@
__AUTO_XS__

{ "KinoSearch::Index::SegLexicon" => {
- bind_methods => [qw( get_term_info get_field_num )],
+ bind_methods => [qw( Get_Term_Info Get_Field_Num )],
make_constructors => ["new"],
}
}

Modified: trunk/perl/lib/KinoSearch/Index/SegPostingList.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/SegPostingList.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Index/SegPostingList.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -7,7 +7,7 @@
__AUTO_XS__

{ "KinoSearch::Index::SegPostingList" => {
- bind_methods => [qw( set_doc_base )],
+ bind_methods => [qw( Set_Doc_Base )],
make_getters => [qw( post_stream count )], # testing only
make_constructors => ["new"],
}

Modified: trunk/perl/lib/KinoSearch/Index/SegReader.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/SegReader.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Index/SegReader.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -7,7 +7,7 @@
__AUTO_XS__

{ "KinoSearch::Index::SegReader" => {
- bind_methods => [qw( get_seg_info )],
+ bind_methods => [qw( Get_Seg_Info )],
make_constructors => ["new"],
}
}

Modified: trunk/perl/lib/KinoSearch/Index/Snapshot.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/Snapshot.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Index/Snapshot.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -8,8 +8,8 @@

{ "KinoSearch::Index::Snapshot" => {
bind_methods => [.
- qw( read_snapshot write_snapshot add_info
- fetch_info delete_segment size infos )
+ qw( Read_Snapshot Write_Snapshot Add_Info
+ Fetch_Info Delete_Segment Size Infos )
],
make_setters => [qw( generation seg_counter )],
make_getters => [qw( generation seg_counter schema infos )],

Modified: trunk/perl/lib/KinoSearch/Index/TermInfo.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/TermInfo.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Index/TermInfo.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -7,7 +7,7 @@
__AUTO_XS__

{ "KinoSearch::Index::TermInfo" => {
- bind_methods => [qw( reset )],
+ bind_methods => [qw( Reset )],
make_constructors => ["new"],
make_getters =>
[qw( doc_freq post_filepos skip_filepos lex_filepos )],

Modified: trunk/perl/lib/KinoSearch/Index/TermVector.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/TermVector.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Index/TermVector.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -8,7 +8,7 @@

{ "KinoSearch::Index::TermVector" => {
make_constructors => ["new"],
- bind_methods => [qw( get_positions get_start_offsets get_end_offsets )],
+ bind_methods => [qw( Get_Positions Get_Start_Offsets Get_End_Offsets )],
make_getters => [qw( text field )],
}
}

Modified: trunk/perl/lib/KinoSearch/Index/TermVectorsReader.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/TermVectorsReader.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Index/TermVectorsReader.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -7,7 +7,7 @@
__AUTO_XS__

{ "KinoSearch::Index::TermVectorsReader" => {
- bind_methods => [qw( doc_vec )],
+ bind_methods => [qw( Doc_Vec )],
make_constructors => ["new"],
}
}

Modified: trunk/perl/lib/KinoSearch/InvIndex.pm
===================================================================
--- trunk/perl/lib/KinoSearch/InvIndex.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/InvIndex.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -39,7 +39,7 @@
END_CONSTRUCTOR

{ "KinoSearch::InvIndex" => {
- bind_methods => [qw( get_schema get_folder )],
+ bind_methods => [qw( Get_Schema Get_Folder )],
make_constructors => [qw( read|read open|open clobber|clobber )],
make_pod => {
constructor => { sample => $constructor_sample },

Modified: trunk/perl/lib/KinoSearch/InvIndexer.pm
===================================================================
--- trunk/perl/lib/KinoSearch/InvIndexer.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/InvIndexer.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -78,8 +78,8 @@
END_FINISH_POD

{ "KinoSearch::InvIndexer" => {
- bind_methods => [qw( delete_by_term add_invindex )],
- bind_labeled => [qw( finish )],
+ bind_methods => [qw( Delete_By_Term Add_InvIndex )],
+ bind_labeled => [qw( Finish )],
make_constructors => ["new"],
make_getters => [qw( seg_writer )],
make_pod => {

Modified: trunk/perl/lib/KinoSearch/Obj.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Obj.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Obj.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -122,15 +122,15 @@

{ "KinoSearch::Obj" => {
bind_methods => [.
- qw( get_refcount
- inc_refcount
- dec_refcount
- to_string
- clone
- equals
- hash_code
- serialize
- deserialize )
+ qw( Get_RefCount
+ Inc_RefCount
+ Dec_RefCount
+ To_String
+ Clone
+ Equals
+ Hash_Code
+ Serialize
+ Deserialize )
],
make_constructors => ["new"],
},

Modified: trunk/perl/lib/KinoSearch/QueryParser.pm
===================================================================
--- trunk/perl/lib/KinoSearch/QueryParser.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/QueryParser.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -27,15 +27,15 @@
{ "KinoSearch::QueryParser" => {
bind_methods => [.
qw(
- parse
- tree
- expand
- expand_leaf
- prune
- heed_colons
- set_heed_colons
- get_analyzer
- get_schema )
+ Parse
+ Tree
+ Expand
+ Expand_Leaf
+ Prune
+ Heed_Colons
+ Set_Heed_Colons
+ Get_Analyzer
+ Get_Schema )
],
make_constructors => ["new"],
make_pod => {

Modified: trunk/perl/lib/KinoSearch/Schema.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Schema.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Schema.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -8,19 +8,19 @@

{ "KinoSearch::Schema" => {
bind_methods => [.
- qw( analyzer
- similarity
- index_interval
- skip_interval
- fetch_fspec
- fetch_analyzer
- fetch_sim
- fetch_posting
- init_fields
- num_fields
- field_num
- _all_fields|all_fields
- add_field )
+ qw( Analyzer
+ Similarity
+ Index_Interval
+ Skip_Interval
+ Fetch_FSpec
+ Fetch_Analyzer
+ Fetch_Sim
+ Fetch_Posting
+ Init_Fields
+ Num_Fields
+ Field_Num
+ _all_fields|All_Fields
+ Add_Field )
],
make_constructors => [qw( new )],
}

Modified: trunk/perl/lib/KinoSearch/Search/ANDScorer.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/ANDScorer.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Search/ANDScorer.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -7,7 +7,7 @@
__AUTO_XS__

{ "KinoSearch::Search::ANDScorer" => {
- bind_methods => [qw( add_subscorer )],
+ bind_methods => [qw( Add_Subscorer )],
make_constructors => ["new"],
}
}

Modified: trunk/perl/lib/KinoSearch/Search/Compiler.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/Compiler.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Search/Compiler.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -31,14 +31,14 @@
{ "KinoSearch::Search::Compiler" => {
bind_methods => [.
qw(
- make_scorer
- get_parent
- get_similarity
- get_weight
- sum_of_squared_weights
- apply_norm_factor
- normalize
- _highlight_spans|highlight_spans )
+ Make_Scorer
+ Get_Parent
+ Get_Similarity
+ Get_Weight
+ Sum_Of_Squared_Weights
+ Apply_Norm_Factor
+ Normalize
+ _highlight_spans|Highlight_Spans )
],
make_constructors => ["do_new"],
make_pod => {

Modified: trunk/perl/lib/KinoSearch/Search/FieldDocCollator.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/FieldDocCollator.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Search/FieldDocCollator.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -7,7 +7,7 @@
__AUTO_XS__

{ "KinoSearch::Search::FieldDocCollator" => {
- bind_methods => [qw( add )],
+ bind_methods => [qw( Add )],
make_constructors => ["new"],
}
}

Modified: trunk/perl/lib/KinoSearch/Search/HitCollector.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/HitCollector.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Search/HitCollector.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -20,7 +20,7 @@

{
"KinoSearch::Search::HitCollector" => {
- bind_methods => [qw( collect )],
+ bind_methods => [qw( Collect )],
make_constructors => ["new"],
make_pod => {
synopsis => " # Abstract base class.\n",

Modified: trunk/perl/lib/KinoSearch/Search/Hits.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/Hits.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Search/Hits.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -18,7 +18,7 @@
END_SYNOPSIS

{ "KinoSearch::Search::Hits" => {
- bind_methods => [qw( total_hits next )],
+ bind_methods => [qw( Total_Hits Next )],
make_constructors => ["new"],
make_pod => {
synopsis => $synopsis,

Modified: trunk/perl/lib/KinoSearch/Search/LeafQuery.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/LeafQuery.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Search/LeafQuery.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -32,7 +32,7 @@
END_CONSTRUCTOR

{ "KinoSearch::Search::LeafQuery" => {
- bind_methods => [qw( get_field get_text )],
+ bind_methods => [qw( Get_Field Get_Text )],
make_constructors => ["new"],
make_pod => {
methods => [ qw( get_field get_text ) ],

Modified: trunk/perl/lib/KinoSearch/Search/NOTQuery.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/NOTQuery.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Search/NOTQuery.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -25,7 +25,7 @@

{ "KinoSearch::Search::NOTQuery" => {
make_constructors => ["new"],
- bind_methods => [qw( get_negated_query set_negated_query )],
+ bind_methods => [qw( Get_Negated_Query Set_Negated_Query )],
make_pod => {
methods => [ qw( get_negated_query set_negated_query ) ],
synopsis => $synopsis,

Modified: trunk/perl/lib/KinoSearch/Search/PhraseQuery.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/PhraseQuery.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Search/PhraseQuery.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -15,7 +15,7 @@
END_SYNOPSIS

{ "KinoSearch::Search::PhraseQuery" => {
- bind_methods => [qw( get_field _get_terms|get_terms )],
+ bind_methods => [qw( Get_Field _get_terms|Get_Terms )],
make_constructors => ["new"],
make_pod => {
constructor => { sample => '' },

Modified: trunk/perl/lib/KinoSearch/Search/PolyQuery.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/PolyQuery.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Search/PolyQuery.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -7,7 +7,7 @@
__AUTO_XS__

{ "KinoSearch::Search::PolyQuery" => {
- bind_methods => [qw( add_child set_children get_children )],
+ bind_methods => [qw( Add_Child Set_Children Get_Children )],
make_constructors => ["new"],
make_pod => { }
},

Modified: trunk/perl/lib/KinoSearch/Search/Query.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/Query.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Search/Query.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -29,9 +29,9 @@

{ "KinoSearch::Search::Query" => {
bind_methods => [.
- qw( set_boost
- get_boost
- _make_compiler|make_compiler )
+ qw( Set_Boost
+ Get_Boost
+ _make_compiler|Make_Compiler )
],
make_constructors => ["new"],
make_pod => {

Modified: trunk/perl/lib/KinoSearch/Search/RequiredOptionalQuery.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/RequiredOptionalQuery.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Search/RequiredOptionalQuery.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -24,8 +24,8 @@

{ "KinoSearch::Search::RequiredOptionalQuery" => {
bind_methods => [.
- qw( get_required_query set_required_query
- get_optional_query set_optional_query )
+ qw( Get_Required_Query Set_Required_Query
+ Get_Optional_Query Set_Optional_Query )
],
make_constructors => ["new"],
make_pod => {

Modified: trunk/perl/lib/KinoSearch/Search/ScoreDoc.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/ScoreDoc.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Search/ScoreDoc.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -7,7 +7,7 @@
__AUTO_XS__

{ "KinoSearch::Search::ScoreDoc" => {
- bind_methods => [qw( get_doc_num set_doc_num get_score set_score )],
+ bind_methods => [qw( Get_Doc_Num Set_Doc_Num Get_Score Set_Score )],
make_constructors => ["new"],
}
}

Modified: trunk/perl/lib/KinoSearch/Search/Scorer.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/Scorer.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Search/Scorer.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -18,7 +18,7 @@
END_CONSTRUCTOR_CODE_SAMPLE

{ "KinoSearch::Search::Scorer" => {
- bind_methods => [qw( next skip_to get_doc_num tally collect )],
+ bind_methods => [qw( Next Skip_To Get_Doc_Num Tally Collect )],
make_constructors => ["new"],
make_pod => {
synopsis => $synopsis,

Modified: trunk/perl/lib/KinoSearch/Search/Searchable.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/Searchable.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Search/Searchable.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -18,16 +18,16 @@

{ "KinoSearch::Search::Searchable" => {
bind_methods => [.
- qw( max_docs
- doc_freq
- glean_query
- search
- collect
- top_docs
- fetch_doc
- fetch_doc_vec
- get_schema
- close )
+ qw( Max_Docs
+ Doc_Freq
+ Glean_Query
+ Search
+ Collect
+ Top_Docs
+ Fetch_Doc
+ Fetch_Doc_Vec
+ Get_Schema
+ Close )
],
make_constructors => ["new"],
make_pod => {

Modified: trunk/perl/lib/KinoSearch/Search/Similarity.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/Similarity.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Search/Similarity.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -27,12 +27,12 @@

{ "KinoSearch::Search::Similarity" => {
bind_methods => [.
- qw( idf
- tf
- encode_norm
- decode_norm
- query_norm
- length_norm )
+ qw( IDF
+ TF
+ Encode_Norm
+ Decode_Norm
+ Query_Norm
+ Length_Norm )
],
make_constructors => ["new"],
make_pod => {

Modified: trunk/perl/lib/KinoSearch/Search/SortSpec.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/SortSpec.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Search/SortSpec.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -21,7 +21,7 @@
= qq| my \$sort_spec = KinoSearch::Search::SortSpec->new;\n|;

{ "KinoSearch::Search::SortSpec" => {
- bind_methods => [qw( add make_field_doc_collator sort_remote_docs )],
+ bind_methods => [qw( Add Make_Field_Doc_Collator Sort_Remote_Docs )],
make_getters => [qw( rules )],
make_constructors => ["new"],
make_pod => {

Modified: trunk/perl/lib/KinoSearch/Search/Span.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/Span.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Search/Span.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -26,12 +26,12 @@

{ "KinoSearch::Search::Span" => {
bind_methods => [.
- qw( set_offset
- get_offset
- set_length
- get_length
- set_weight
- get_weight )
+ qw( Set_Offset
+ Get_Offset
+ Set_Length
+ Get_Length
+ Set_Weight
+ Get_Weight )
],
make_constructors => ["new"],
make_pod => {

Modified: trunk/perl/lib/KinoSearch/Search/Tally.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/Tally.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Search/Tally.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -12,7 +12,7 @@
END_SYNOPSIS

{ "KinoSearch::Search::Tally" => {
- bind_methods => [qw( set_score get_score )],
+ bind_methods => [qw( Set_Score Get_Score )],
make_constructors => ["new"],
make_pod => {
synopsis => $synopsis,

Modified: trunk/perl/lib/KinoSearch/Search/TermQuery.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/TermQuery.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Search/TermQuery.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -41,7 +41,7 @@
END_CONSTRUCTOR

{ "KinoSearch::Search::TermQuery" => {
- bind_methods => [qw( get_field )],
+ bind_methods => [qw( Get_Field )],
make_constructors => ["new"],
make_pod => {
synopsis => $synopsis,

Modified: trunk/perl/lib/KinoSearch/Search/TopDocs.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/TopDocs.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Search/TopDocs.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -8,14 +8,14 @@

{ "KinoSearch::Search::TopDocs" => {
bind_methods => [.qw(
- remotify
- _get_score_docs|get_score_docs
- _set_score_docs|set_score_docs
- get_total_hits
- set_total_hits
- get_max_score
- set_max_score
- get_remotified
+ Remotify
+ _get_score_docs|Get_Score_Docs
+ _set_score_docs|Set_Score_Docs
+ Get_Total_Hits
+ Set_Total_Hits
+ Get_Max_Score
+ Set_Max_Score
+ Get_Remotified
)],
make_constructors => ["new"],
}

Modified: trunk/perl/lib/KinoSearch/Searcher.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Searcher.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Searcher.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -26,7 +26,7 @@
END_CONSTRUCTOR

{ "KinoSearch::Searcher" => {
- bind_methods => [qw( get_reader )],
+ bind_methods => [qw( Get_Reader )],
make_constructors => ["new"],
make_pod => {
synopsis => $synopsis,

Modified: trunk/perl/lib/KinoSearch/Store/CompoundFileWriter.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/CompoundFileWriter.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Store/CompoundFileWriter.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -7,7 +7,7 @@
__AUTO_XS__

{ "KinoSearch::Store::CompoundFileWriter" => {
- bind_methods => [qw( consolidate )],
+ bind_methods => [qw( Consolidate )],
make_constructors => ["new"],
}
}

Modified: trunk/perl/lib/KinoSearch/Store/FileDes.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/FileDes.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Store/FileDes.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -52,7 +52,7 @@
__AUTO_XS__

{ "KinoSearch::Store::FileDes" => {
- bind_methods => [qw( length close )],
+ bind_methods => [qw( Length Close )],
}
}


Modified: trunk/perl/lib/KinoSearch/Store/Folder.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/Folder.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Store/Folder.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -8,19 +8,19 @@

{ "KinoSearch::Store::Folder" => {
bind_methods => [.
- qw( open_outstream
- safe_open_outstream
- open_instream
- _list|list
- _list_real_files|list_real_files
- file_exists
- real_file_exists
- delete_file
- rename_file
- latest_snapshot_file
- consolidate_segment
- _slurp_file|slurp_file
- close
+ qw( Open_OutStream
+ Safe_Open_OutStream
+ Open_InStream
+ _list|List
+ _list_real_files|List_Real_Files
+ File_Exists
+ Real_File_Exists
+ Delete_File
+ Rename_File
+ Latest_Snapshot_File
+ Consolidate_Segment
+ _slurp_file|Slurp_File
+ Close
)
],
make_constructors => ["new"],

Modified: trunk/perl/lib/KinoSearch/Store/InStream.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/InStream.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Store/InStream.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -128,19 +128,19 @@

{ "KinoSearch::Store::InStream" => {
bind_methods => [.
- qw( seek
- tell
- length
- close
- read_i8
- read_i32
- read_i64
- read_u8
- read_u32
- read_u64
- read_c32
- read_c64
- read_float )
+ qw( Seek
+ Tell
+ Length
+ Close
+ Read_I8
+ Read_I32
+ Read_I64
+ Read_U8
+ Read_U32
+ Read_U64
+ Read_C32
+ Read_C64
+ Read_Float )
],
make_getters => [qw( offset file_des )],
}

Modified: trunk/perl/lib/KinoSearch/Store/Lock.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/Lock.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Store/Lock.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -27,7 +27,7 @@

{ "KinoSearch::Store::Lock" => {
bind_methods =>
- [qw( obtain do_obtain is_locked release clear_stale )],
+ [qw( Obtain Do_Obtain Is_Locked Release Clear_Stale )],
make_getters => [qw( folder timeout lock_name agent_id filename )],
make_constructors => ["new"],
make_pod => {

Modified: trunk/perl/lib/KinoSearch/Store/LockFactory.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/LockFactory.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Store/LockFactory.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -30,7 +30,7 @@
END_CONSTRUCTOR

{ "KinoSearch::Store::LockFactory" => {
- bind_methods => [qw( make_lock make_shared_lock )],
+ bind_methods => [qw( Make_Lock Make_Shared_Lock )],
make_getters => [qw( folder agent_id )],
make_constructors => ["new"],
make_pod => {

Modified: trunk/perl/lib/KinoSearch/Store/OutStream.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/OutStream.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Store/OutStream.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -67,20 +67,20 @@

{ "KinoSearch::Store::OutStream" => {
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_float )
+ qw( Tell
+ Length
+ Flush
+ Close
+ Absorb
+ Write_I8
+ Write_I32
+ Write_I64
+ Write_U8
+ Write_U32
+ Write_U64
+ Write_C32
+ Write_C64
+ Write_Float )
],
make_getters => [qw( file_des )],
}

Modified: trunk/perl/lib/KinoSearch/Store/RAMFileDes.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/RAMFileDes.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Store/RAMFileDes.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -7,7 +7,7 @@
__AUTO_XS__

{ "KinoSearch::Store::RAMFileDes" => {
- bind_methods => [qw( _contents|contents )],
+ bind_methods => [qw( _contents|Contents )],
make_constructors => ['new'],
make_getters => [qw( len )],
}

Modified: trunk/perl/lib/KinoSearch/Store/RAMFolder.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/RAMFolder.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Store/RAMFolder.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -22,7 +22,7 @@
END_CONSTRUCTOR

{ "KinoSearch::Store::RAMFolder" => {
- bind_methods => [qw( ram_file )],
+ bind_methods => [qw( RAM_File )],
make_constructors => ["new"],
make_pod => {
synopsis => $synopsis,

Modified: trunk/perl/lib/KinoSearch/Test/TestQueryParser.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Test/TestQueryParser.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Test/TestQueryParser.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -18,10 +18,10 @@

{ "KinoSearch::Test::TestQueryParser" => {
bind_methods => [.
- qw( get_query_string
- get_tree
- get_expanded
- get_num_hits ),
+ qw( Get_Query_String
+ Get_Tree
+ Get_Expanded
+ Get_Num_Hits ),
],
}
}

Modified: trunk/perl/lib/KinoSearch/Test/Util/BBSortEx.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Test/Util/BBSortEx.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Test/Util/BBSortEx.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -9,7 +9,7 @@
{ "KinoSearch::Test::Util::BBSortEx" => { make_constructors => ["new"], },
"KinoSearch::Test::Util::BBSortExRun" => {
make_constructors => ["new"],
- bind_methods => [qw( set_mem_thresh )],
+ bind_methods => [qw( Set_Mem_Thresh )],
},
}


Modified: trunk/perl/lib/KinoSearch/Test/Util/TestCharBuf.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Test/Util/TestCharBuf.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Test/Util/TestCharBuf.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -18,8 +18,8 @@

{ "KinoSearch::Test::Util::TestCharBuf" => {
bind_methods => [.
- qw( get_wanted
- get_got )
+ qw( Get_Wanted
+ Get_Got )
],
}
}

Modified: trunk/perl/lib/KinoSearch/Util/BitVector.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/BitVector.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Util/BitVector.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -22,8 +22,8 @@

{ "KinoSearch::Util::BitVector" => {
bind_methods => [.
- qw( get set clear clear_all grow count copy and or
- and_not xor flip flip_block to_array )
+ qw( Get Set Clear Clear_All Grow Count Copy And Or
+ And_Not Xor Flip Flip_Block To_Array )
],
make_getters => [qw( cap count )],
make_constructors => ["new"],

Modified: trunk/perl/lib/KinoSearch/Util/ByteBuf.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/ByteBuf.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Util/ByteBuf.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -43,7 +43,7 @@
__AUTO_XS__

{ "KinoSearch::Util::ByteBuf" => {
- bind_methods => [qw( copy cat grow starts_with ends_with )],
+ bind_methods => [qw( Copy Cat Grow Starts_With Ends_With )],
make_getters => [qw( len cap )]
}
}

Modified: trunk/perl/lib/KinoSearch/Util/CharBuf.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/CharBuf.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Util/CharBuf.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -9,23 +9,23 @@
{ "KinoSearch::Util::CharBuf" => {
bind_methods => [.
qw(
- copy
- cat
- cat_char
- grow
- starts_with
- ends_with
- nip
- chop
- truncate
- trim_top
- trim_tail
- trim
- substring
- code_point_at
- code_point_from
- set_size
- get_size )
+ Copy
+ Cat
+ Cat_Char
+ Grow
+ Starts_With
+ Ends_With
+ Nip
+ Chop
+ Truncate
+ Trim_Top
+ Trim_Tail
+ Trim
+ SubString
+ Code_Point_At
+ Code_Point_From
+ Set_Size
+ Get_Size )
],
make_getters => [qw( cap )]
}

Modified: trunk/perl/lib/KinoSearch/Util/Hash.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/Hash.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Util/Hash.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -32,10 +32,10 @@
__AUTO_XS__

{ "KinoSearch::Util::Hash" => {
- bind_positional => [qw( store )],
+ bind_positional => [qw( Store )],
bind_methods => [.
- qw( fetch add_key find_key clear delete
- iter_init keys values )
+ qw( Fetch Add_Key Find_Key Clear Delete
+ Iter_Init Keys Values )
],
make_getters => [qw( size )],
make_constructors => ["new"],

Modified: trunk/perl/lib/KinoSearch/Util/I32Array.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/I32Array.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Util/I32Array.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -60,7 +60,7 @@
__AUTO_XS__

{ "KinoSearch::Util::I32Array" => {
- bind_methods => [qw( get get_size )],
+ bind_methods => [qw( Get Get_Size )],
}
}


Modified: trunk/perl/lib/KinoSearch/Util/PriorityQueue.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/PriorityQueue.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Util/PriorityQueue.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -7,7 +7,7 @@
__AUTO_XS__

{ "KinoSearch::Util::PriorityQueue" => {
- bind_methods => [qw( less_than insert pop _pop_all|pop_all peek )],
+ bind_methods => [qw( Less_Than Insert Pop _pop_all|Pop_All Peek )],
make_getters => [qw( size max_size )],
make_constructors => ["new"],
}

Modified: trunk/perl/lib/KinoSearch/Util/SortExRun.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/SortExRun.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Util/SortExRun.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -46,7 +46,7 @@
__AUTO_XS__

{ "KinoSearch::Util::SortExRun" => {
- bind_methods => [ qw( refill peek_last read_elem ) ],
+ bind_methods => [ qw( Refill Peek_Last Read_Elem ) ],
}
}


Modified: trunk/perl/lib/KinoSearch/Util/SortExternal.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/SortExternal.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Util/SortExternal.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -88,7 +88,7 @@

{ "KinoSearch::Util::SortExternal" => {
bind_methods =>
- [ qw( fetch flush flip add_run peek sort_cache clear_cache ) ],
+ [ qw( Fetch Flush Flip Add_Run Peek Sort_Cache Clear_Cache ) ],
}
}


Modified: trunk/perl/lib/KinoSearch/Util/Stepper.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/Stepper.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Util/Stepper.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -7,7 +7,7 @@
__AUTO_XS__

{ "KinoSearch::Util::Stepper" => {
- bind_methods => [qw( read_record dump dump_to_file )],
+ bind_methods => [qw( Read_Record Dump Dump_To_File )],
}
}


Modified: trunk/perl/lib/KinoSearch/Util/VArray.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/VArray.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Util/VArray.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -7,18 +7,18 @@
__AUTO_XS__

{ "KinoSearch::Util::VArray" => {
- bind_positional => [qw( store )],
+ bind_positional => [qw( Store )],
bind_methods => [.
- qw( push
- push_varray
- pop
- shift
- unshift
- delete
- splice
- fetch
- resize
- shallow_copy )
+ qw( Push
+ Push_VArray
+ Pop
+ Shift
+ Unshift
+ Delete
+ Splice
+ Fetch
+ Resize
+ Shallow_Copy )
],
make_getters => [qw( size )],
make_constructors => ["new"],

Modified: trunk/perl/lib/KinoSearch/Util/VirtualTable.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/VirtualTable.pm 2008-08-24 04:36:45 UTC (rev 3754)
+++ trunk/perl/lib/KinoSearch/Util/VirtualTable.pm 2008-08-24 05:34:07 UTC (rev 3755)
@@ -7,7 +7,7 @@
__AUTO_XS__

{ "KinoSearch::Util::VirtualTable" => {
- bind_methods => [qw( get_name )],
+ bind_methods => [qw( Get_Name )],
}
}



_______________________________________________
kinosearch-commits mailing list
kinosearch-commits@rectangular.com
http://www.rectangular.com/mailman/listinfo/kinosearch-commits