Changeset 10304

Show
Ignore:
Timestamp:
26.07.2005 10:15:08 (15 years ago)
Author:
davidb
Message:

Introduction of is_incremental() function in base class (not incremental
by default). Over-ridden by inherited classes if incremental building
possible.

Location:
trunk/gsdl/perllib
Files:
2 modified

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/perllib/basebuildproc.pm

    r10251 r10304  
    140140} 
    141141 
     142sub is_incremental 
     143{ 
     144    # By default we return 'no' as the answer 
     145    # Safer to assume non-incremental to start with, and then override in 
     146    # inherited classes that are. 
     147 
     148    return 0; 
     149} 
     150 
    142151sub get_num_docs { 
    143152    my $self = shift (@_); 
  • trunk/gsdl/perllib/lucenebuildproc.pm

    r9919 r10304  
    4545    return bless $self, $class; 
    4646} 
     47 
     48 
     49sub is_incremental 
     50{ 
     51    my $self = shift (@_); 
     52 
     53    # Unlike MG and MGPP, Lucene supports incremental building 
     54    return 1; 
     55} 
     56 
    4757 
    4858sub preprocess_text {