1 #TODO: Convert this to a string
2 package DBM::Deep::Engine::Sector::Index;
7 use warnings FATAL => 'all';
9 use DBM::Deep::Engine::Sector;
10 our @ISA = qw( DBM::Deep::Engine::Sector );
15 my $engine = $self->engine;
17 unless ( $self->offset ) {
18 $self->{offset} = $engine->_request_index_sector( $self->size );
20 my $string = chr(0) x $self->size;
21 substr( $string, 0, 1, $engine->SIG_INDEX );
22 $engine->storage->print_at( $self->offset, $string );
31 unless ( $self->{size} ) {
32 my $e = $self->engine;
33 $self->{size} = $self->base_size + $e->byte_size * $e->hash_chars;
38 sub free_meth { return '_add_free_index_sector' }
42 my $e = $self->engine;
44 for my $i ( 0 .. $e->hash_chars - 1 ) {
45 my $l = $self->get_entry( $i ) or next;
46 $e->_load_sector( $l )->free;
55 return $self->offset + $self->base_size + $idx * $self->engine->byte_size;
62 my $e = $self->engine;
64 DBM::Deep->_throw_error( "get_entry: Out of range ($idx)" )
65 if $idx < 0 || $idx >= $e->hash_chars;
68 $e->StP($e->byte_size),
69 $e->storage->read_at( $self->_loc_for( $idx ), $e->byte_size ),
77 my $e = $self->engine;
79 DBM::Deep->_throw_error( "set_entry: Out of range ($idx)" )
80 if $idx < 0 || $idx >= $e->hash_chars;
82 $self->engine->storage->print_at(
83 $self->_loc_for( $idx ),
84 pack( $e->StP($e->byte_size), $loc ),