Lines Matching defs:BerkeleyDB
2 package BerkeleyDB;
561 #bootstrap BerkeleyDB $VERSION;
563 { XSLoader::load("BerkeleyDB", $VERSION)}
565 { bootstrap BerkeleyDB $VERSION }
625 my $p = BerkeleyDB::ParseParameters({
644 # $env = BerkeleyDB::env_remove
650 my $got = BerkeleyDB::ParseParameters({
660 @BerkeleyDB::a = () ;
663 push @BerkeleyDB::a, "$k\t$v" ;
666 $got->{"Config"} = pack("p*", @BerkeleyDB::a, undef)
667 if @BerkeleyDB::a ;
675 my $got = BerkeleyDB::ParseParameters(
687 croak("Env not of type BerkeleyDB::Env")
688 if defined $got->{Env} and ! isa($got->{Env},'BerkeleyDB::Env');
695 my $got = BerkeleyDB::ParseParameters(
705 croak("Env not of type BerkeleyDB::Env")
706 if defined $got->{Env} and ! isa($got->{Env},'BerkeleyDB::Env');
722 my $got = BerkeleyDB::ParseParameters(
731 croak("Env not of type BerkeleyDB::Env")
732 if defined $got->{Env} and ! isa($got->{Env},'BerkeleyDB::Env');
740 package BerkeleyDB::Env ;
762 # $env = new BerkeleyDB::Env
778 my $got = BerkeleyDB::ParseParameters({
810 @BerkeleyDB::a = () ;
813 if ($BerkeleyDB::db_version >= 3.1 && ! $valid_config_keys{$k} ){
814 $BerkeleyDB::Error = "illegal name-value pair: $k $v\n" ;
815 croak $BerkeleyDB::Error ;
817 push @BerkeleyDB::a, "$k\t$v" ;
820 $got->{"Config"} = pack("p*", @BerkeleyDB::a, undef)
821 if @BerkeleyDB::a ;
824 BerkeleyDB::parseEncrypt($got);
829 if ($obj && $BerkeleyDB::db_version >= 3.1 && keys %config) {
839 $BerkeleyDB::Error = "illegal name-value pair: $k $v\n" ;
840 croak $BerkeleyDB::Error
853 $obj = bless [$addr, $env] , "BerkeleyDB::TxnMgr" if $addr ;
862 $obj = bless [$addr, $env] , "BerkeleyDB::Txn" if $addr ;
872 package BerkeleyDB::Hash ;
875 @ISA = qw( BerkeleyDB::Common BerkeleyDB::_tiedHash ) ;
882 my $got = BerkeleyDB::ParseParameters(
887 #Flags => BerkeleyDB::DB_CREATE(),
905 # BerkeleyDB specific
912 croak("Env not of type BerkeleyDB::Env")
913 if defined $got->{Env} and ! isa($got->{Env},'BerkeleyDB::Env');
915 croak("Txn not of type BerkeleyDB::Txn")
916 if defined $got->{Txn} and ! isa($got->{Txn},'BerkeleyDB::Txn');
921 BerkeleyDB::parseEncrypt($got);
937 package BerkeleyDB::Btree ;
940 @ISA = qw( BerkeleyDB::Common BerkeleyDB::_tiedHash ) ;
947 my $got = BerkeleyDB::ParseParameters(
952 #Flags => BerkeleyDB::DB_CREATE(),
971 croak("Env not of type BerkeleyDB::Env")
972 if defined $got->{Env} and ! isa($got->{Env},'BerkeleyDB::Env');
974 croak("Txn not of type BerkeleyDB::Txn")
975 if defined $got->{Txn} and ! isa($got->{Txn},'BerkeleyDB::Txn');
980 BerkeleyDB::parseEncrypt($got);
993 *BerkeleyDB::Btree::TIEHASH = \&BerkeleyDB::Btree::new ;
996 package BerkeleyDB::Recno ;
999 @ISA = qw( BerkeleyDB::Common BerkeleyDB::_tiedArray ) ;
1006 my $got = BerkeleyDB::ParseParameters(
1011 #Flags => BerkeleyDB::DB_CREATE(),
1031 croak("Env not of type BerkeleyDB::Env")
1032 if defined $got->{Env} and ! isa($got->{Env},'BerkeleyDB::Env');
1034 croak("Txn not of type BerkeleyDB::Txn")
1035 if defined $got->{Txn} and ! isa($got->{Txn},'BerkeleyDB::Txn');
1044 BerkeleyDB::parseEncrypt($got);
1059 *BerkeleyDB::Recno::TIEARRAY = \&BerkeleyDB::Recno::new ;
1060 *BerkeleyDB::Recno::db_stat = \&BerkeleyDB::Btree::db_stat ;
1062 package BerkeleyDB::Queue ;
1065 @ISA = qw( BerkeleyDB::Common BerkeleyDB::_tiedArray ) ;
1072 my $got = BerkeleyDB::ParseParameters(
1077 #Flags => BerkeleyDB::DB_CREATE(),
1096 croak("Env not of type BerkeleyDB::Env")
1097 if defined $got->{Env} and ! isa($got->{Env},'BerkeleyDB::Env');
1099 croak("Txn not of type BerkeleyDB::Txn")
1100 if defined $got->{Txn} and ! isa($got->{Txn},'BerkeleyDB::Txn');
1108 BerkeleyDB::parseEncrypt($got);
1123 *BerkeleyDB::Queue::TIEARRAY = \&BerkeleyDB::Queue::new ;
1131 ## package BerkeleyDB::Text ;
1134 ## @ISA = qw( BerkeleyDB::Common BerkeleyDB::_tiedArray ) ;
1141 ## my $got = BerkeleyDB::ParseParameters(
1145 ## #Flags => BerkeleyDB::DB_CREATE(),
1163 ## croak("Env not of type BerkeleyDB::Env")
1164 ## if defined $got->{Env} and ! isa($got->{Env},'BerkeleyDB::Env');
1166 ## croak("Txn not of type BerkeleyDB::Txn")
1167 ## if defined $got->{Txn} and ! isa($got->{Txn},'BerkeleyDB::Txn');
1176 ## return BerkeleyDB::Recno::_db_open_recno($self, $got);
1179 ## *BerkeleyDB::Text::TIEARRAY = \&BerkeleyDB::Text::new ;
1180 ## *BerkeleyDB::Text::db_stat = \&BerkeleyDB::Btree::db_stat ;
1182 package BerkeleyDB::Unknown ;
1185 @ISA = qw( BerkeleyDB::Common BerkeleyDB::_tiedArray ) ;
1192 my $got = BerkeleyDB::ParseParameters(
1197 #Flags => BerkeleyDB::DB_CREATE(),
1211 croak("Env not of type BerkeleyDB::Env")
1212 if defined $got->{Env} and ! isa($got->{Env},'BerkeleyDB::Env');
1214 croak("Txn not of type BerkeleyDB::Txn")
1215 if defined $got->{Txn} and ! isa($got->{Txn},'BerkeleyDB::Txn');
1220 BerkeleyDB::parseEncrypt($got);
1225 $obj = bless [$addr], "BerkeleyDB::$type" ;
1234 package BerkeleyDB::_tiedHash ;
1266 tie %{ $ref }, "BerkeleyDB::_tiedHash", $self ;
1275 #return bless $db_object, 'BerkeleyDB::Common' ;
1318 while ($cursor->c_get($key, $value, BerkeleyDB::DB_PREV()) == 0)
1325 # print "BerkeleyDB::_tieHash::DESTROY\n" ;
1329 package BerkeleyDB::_tiedArray ;
1351 tie @{ $ref }, "BerkeleyDB::_tiedArray", $self ;
1370 #return bless $db_object, 'BerkeleyDB::Common' ;
1393 *CLEAR = \&BerkeleyDB::_tiedHash::CLEAR ;
1394 *FIRSTKEY = \&BerkeleyDB::_tiedHash::FIRSTKEY ;
1395 *NEXTKEY = \&BerkeleyDB::_tiedHash::NEXTKEY ;
1405 return undef if $cursor->c_get($key, $value, BerkeleyDB::DB_FIRST()) != 0 ;
1419 my $status = $cursor->c_get($key, $value, BerkeleyDB::DB_FIRST()) ;
1425 $cursor->c_put($key, $value, BerkeleyDB::DB_BEFORE()) ;
1428 elsif ($status == BerkeleyDB::DB_NOTFOUND())
1446 my $status = $cursor->c_get($key, $value, BerkeleyDB::DB_LAST()) ;
1447 if ($status == 0 || $status == BerkeleyDB::DB_NOTFOUND())
1449 $key = -1 if $status != 0 and $self->type != BerkeleyDB::DB_RECNO() ;
1460 # my $status = $cursor->c_put($key, $value, BerkeleyDB::DB_AFTER()) ;
1471 return undef if $cursor->c_get($key, $value, BerkeleyDB::DB_LAST()) != 0 ;
1518 # print "BerkeleyDB::_tieArray::DESTROY\n" ;
1522 package BerkeleyDB::Common ;
1537 #print "BerkeleyDB::Common::Txn db [$self] txn [$txn]\n" ;
1545 #print "end BerkeleyDB::Common::Txn \n";
1568 for ($status = $cursor->c_get($key, $value, BerkeleyDB::DB_SET()) ;
1570 $status = $cursor->c_get($key, $value, BerkeleyDB::DB_NEXT()) ) {
1591 $obj = bless [$addr, $db] , "BerkeleyDB::Cursor" if $addr ;
1600 $obj = bless [$addr, $db] , "BerkeleyDB::Cursor" if $addr ;
1606 croak 'Usage: $db->BerkeleyDB::db_join([cursors], flags=0)'
1613 $obj = bless [$addr, $db, $_[0]] , "BerkeleyDB::Cursor" if $addr ;
1617 package BerkeleyDB::Cursor ;
1631 $obj = bless [$addr, $cursor->[1]] , "BerkeleyDB::Cursor" if $addr ;
1641 package BerkeleyDB::TxnMgr ;
1654 $obj = bless [$addr, $txnmgr] , "BerkeleyDB::Txn" if $addr ;
1658 package BerkeleyDB::Txn ;
1708 package BerkeleyDB::CDS::Lock;
1713 sub BerkeleyDB::Common::cds_lock
1729 return bless [$db, 1], "BerkeleyDB::CDS::Lock" ;
1760 package BerkeleyDB::Term ;
1768 package BerkeleyDB ;