ObjStore::AV::Set - index-style interface with an array representation

ObjStore documentation Contained in the ObjStore distribution.

Index

Code Index:

NAME

Top

  ObjStore::AV::Set - index-style interface with an array representation

SYNOPSIS

Top

  my $set = ObjStore::AV::Set->new($near, $size);

  $set->add($myobject);

  $set->remove($myobject);

DESCRIPTION

Top

Implements an API very similar to ObjStore::Index, except with an array implementation. Elements are unsorted. Both add and remove always scans the entire set.

This might seems like a joke, but keep in mind that O(N) complexity algorithms takes constant time(Q) for all Q. (Don't be too enamoured with computer-science theory. :-)

This class might be useful as a primary index for ObjStore::Table3 (for small data sets).

ObjStore documentation Contained in the ObjStore distribution. 
use strict;

package ObjStore::AV::Set;
use base 'ObjStore::AV';
use vars qw($VERSION);
use Carp;
use ObjStore ':ADV';

$VERSION = '0.50';

sub add {
    my ($o, $e) = @_;
    $o->PUSH($e) if !defined $o->where($e);
    $e;
}

# depreciate? XXX
sub count {
    my ($o) = @_;
    my $c=0;
    my $sz = $o->FETCHSIZE();
    for (my $x=0; $x < $sz; $x++) {
	++$c if defined $o->[$x];
    }
    $c;
}

sub exists {
    my ($o,$e) = @_;
    defined $o->where($e);
}

sub where {
    my ($o, $e) = @_;
    return if !blessed $e;
    my $x;
    for (my $z=0; $z < $o->FETCHSIZE(); $z++) {
	my $e2 = $o->[$z];
	do { $x = $z; last } if $e2 == $e;
    }
    $x;
}

sub remove {
    my ($o, $e) = @_;
    for (my $z=0; $z < $o->FETCHSIZE(); $z++) {
	while ($e == $o->[$z]) {
	    $o->SPLICE($z,1);
	}
    }
    $e;
}

sub map {
    my ($o, $sub) = @_;
    my @r;
    for (my $x=0; $x < $o->FETCHSIZE(); $x++) { 
	my $at = $o->[$x];
	next if !defined $at;
	push(@r, $sub->($at));
    }
    @r;
}

sub compress {
    carp "this is no longer necessary";
    # compress table - use with add/remove
    my ($ar) = @_;
    my $data = $ar->FETCHSIZE() - 1;
    my $hole = 0;
    while ($hole < $ar->FETCHSIZE()) {
	next if defined $ar->[$hole];
	while ($data > $hole) {
	    next unless defined $ar->[$data];
	    $ar->[$hole] = $ar->[$data];
	    $ar->[$data] = undef;
	} continue { --$data };
    } continue { ++$hole };
    
    while ($ar->FETCHSIZE() and !defined $ar->[$ar->FETCHSIZE() - 1]) {
	$ar->POP();
    }
}

1;
__END__;