lib/SWE/DB.pm

package SWE::DB;
use strict;
use warnings;

sub new ($) {
  my $self = bless {}, shift;
  return $self;
} # new

sub sw3db_dir_name : lvalue { $_[0]->{sw3db_dir_name} }
sub global_lock_dir_name : lvalue { $_[0]->{global_lock_dir_name} }
sub id_dir_name : lvalue { $_[0]->{id_dir_name} }
sub name_dir_name : lvalue { $_[0]->{name_dir_name} }

sub name_inverted_index ($) {
  my $self = shift;
  
  return $self->{name_inverted_index} ||= do {
    require SWE::DB::HashedIndex;
    my $names_index_db = SWE::DB::HashedIndex->new;
    $names_index_db->{root_directory_name} = $self->name_dir_name;
    $names_index_db;
  };
} # name_inverted_index

sub id_tfidf ($) {
  my $self = shift;

  return $self->{id_tfidf} ||= do {
    require SWE::DB::IDText;
    my $tfidf_db = SWE::DB::IDText->new;
    $tfidf_db->{root_directory_name} = $self->id_dir_name;
    $tfidf_db->{leaf_suffix} = '.tfidf';
    $tfidf_db;
  };
} # id_tfidf

1;
1	wakaba	1.1	package SWE::DB;
2			use strict;
3			use warnings;
4
5			sub new ($) {
6			my $self = bless {}, shift;
7			return $self;
8			} # new
9
10			sub sw3db_dir_name : lvalue { $_[0]->{sw3db_dir_name} }
11			sub global_lock_dir_name : lvalue { $_[0]->{global_lock_dir_name} }
12			sub id_dir_name : lvalue { $_[0]->{id_dir_name} }
13			sub name_dir_name : lvalue { $_[0]->{name_dir_name} }
14
15			sub name_inverted_index ($) {
16			my $self = shift;
17
18			return $self->{name_inverted_index} \|\|= do {
19			require SWE::DB::HashedIndex;
20			my $names_index_db = SWE::DB::HashedIndex->new;
21			$names_index_db->{root_directory_name} = $self->name_dir_name;
22			$names_index_db;
23			};
24			} # name_inverted_index
25
26			sub id_tfidf ($) {
27			my $self = shift;
28
29			return $self->{id_tfidf} \|\|= do {
30			require SWE::DB::IDText;
31			my $tfidf_db = SWE::DB::IDText->new;
32			$tfidf_db->{root_directory_name} = $self->id_dir_name;
33			$tfidf_db->{leaf_suffix} = '.tfidf';
34			$tfidf_db;
35			};
36			} # id_tfidf
37
38			1;