ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/BDB/BDB.pm
(Generate patch)

Comparing BDB/BDB.pm (file contents):
Revision 1.24 by root, Mon Dec 10 04:57:14 2007 UTC vs.
Revision 1.29 by root, Sat Dec 22 07:33:48 2007 UTC

24 db_put $db, undef, "key", "data", 0, sub { 24 db_put $db, undef, "key", "data", 0, sub {
25 db_del $db, undef, "key"; 25 db_del $db, undef, "key";
26 }; 26 };
27 db_sync $db; 27 db_sync $db;
28 28
29 # when you also use Coro, management is easy:
30 use Coro::BDB;
31
29 # automatic result processing with AnyEvent: 32 # automatic result processing with AnyEvent:
30 our $FH; open $FH, "<&=" . BDB::poll_fileno; 33 our $FH; open $FH, "<&=" . BDB::poll_fileno;
31 our $WATCHER = AnyEvent->io (fh => $FH, poll => 'r', cb => \&BDB::poll_cb); 34 our $WATCHER = AnyEvent->io (fh => $FH, poll => 'r', cb => \&BDB::poll_cb);
32 35
33 # automatic result processing with EV: 36 # automatic result processing with EV:
107use strict 'vars'; 110use strict 'vars';
108 111
109use base 'Exporter'; 112use base 'Exporter';
110 113
111BEGIN { 114BEGIN {
112 our $VERSION = '1.3'; 115 our $VERSION = '1.41';
113 116
114 our @BDB_REQ = qw( 117 our @BDB_REQ = qw(
115 db_env_open db_env_close db_env_txn_checkpoint db_env_lock_detect 118 db_env_open db_env_close db_env_txn_checkpoint db_env_lock_detect
116 db_env_memp_sync db_env_memp_trickle 119 db_env_memp_sync db_env_memp_trickle
117 db_open db_close db_compact db_sync db_put db_get db_pget db_del db_key_range 120 db_open db_close db_compact db_sync db_upgrade
121 db_put db_get db_pget db_del db_key_range
118 db_txn_commit db_txn_abort db_txn_finish 122 db_txn_commit db_txn_abort db_txn_finish
119 db_c_close db_c_count db_c_put db_c_get db_c_pget db_c_del 123 db_c_close db_c_count db_c_put db_c_get db_c_pget db_c_del
120 db_sequence_open db_sequence_close 124 db_sequence_open db_sequence_close
121 db_sequence_get db_sequence_remove 125 db_sequence_get db_sequence_remove
122 ); 126 );
181 185
182 db_open (DB *db, DB_TXN_ornull *txnid, octetstring file, octetstring database, int type, U32 flags, int mode, SV *callback = &PL_sv_undef) 186 db_open (DB *db, DB_TXN_ornull *txnid, octetstring file, octetstring database, int type, U32 flags, int mode, SV *callback = &PL_sv_undef)
183 flags: AUTO_COMMIT CREATE EXCL MULTIVERSION NOMMAP RDONLY READ_UNCOMMITTED THREAD TRUNCATE 187 flags: AUTO_COMMIT CREATE EXCL MULTIVERSION NOMMAP RDONLY READ_UNCOMMITTED THREAD TRUNCATE
184 db_close (DB *db, U32 flags = 0, SV *callback = &PL_sv_undef) 188 db_close (DB *db, U32 flags = 0, SV *callback = &PL_sv_undef)
185 flags: DB_NOSYNC 189 flags: DB_NOSYNC
190 db_upgrade (DB *db, octetstring file, U32 flags = 0, SV *callback = &PL_sv_undef)
186 db_compact (DB *db, DB_TXN_ornull *txn = 0, SV *start = 0, SV *stop = 0, SV *unused1 = 0, U32 flags = DB_FREE_SPACE, SV *unused2 = 0, SV *callback = &PL_sv_undef) 191 db_compact (DB *db, DB_TXN_ornull *txn = 0, SV *start = 0, SV *stop = 0, SV *unused1 = 0, U32 flags = DB_FREE_SPACE, SV *unused2 = 0, SV *callback = &PL_sv_undef)
187 flags: FREELIST_ONLY FREE_SPACE 192 flags: FREELIST_ONLY FREE_SPACE
188 db_sync (DB *db, U32 flags = 0, SV *callback = &PL_sv_undef) 193 db_sync (DB *db, U32 flags = 0, SV *callback = &PL_sv_undef)
189 db_key_range (DB *db, DB_TXN_ornull *txn, SV *key, SV *key_range, U32 flags = 0, SV *callback = &PL_sv_undef) 194 db_key_range (DB *db, DB_TXN_ornull *txn, SV *key, SV *key_range, U32 flags = 0, SV *callback = &PL_sv_undef)
190 db_put (DB *db, DB_TXN_ornull *txn, SV *key, SV *data, U32 flags = 0, SV *callback = &PL_sv_undef) 195 db_put (DB *db, DB_TXN_ornull *txn, SV *key, SV *data, U32 flags = 0, SV *callback = &PL_sv_undef)
386 DESTROY (DBC_ornull *dbc) 391 DESTROY (DBC_ornull *dbc)
387 CODE: 392 CODE:
388 if (dbc) 393 if (dbc)
389 dbc->c_close (dbc); 394 dbc->c_close (dbc);
390 395
396 $int = $cursor->set_priority ($priority = PRIORITY_*)
397
391=head4 Example: 398=head4 Example:
392 399
393 my $c = $db->cursor; 400 my $c = $db->cursor;
394 401
395 for (;;) { 402 for (;;) {
669 676
670In short: the parent will, after a short pause, continue as if fork had 677In short: the parent will, after a short pause, continue as if fork had
671not been called, while the child will act as if BDB has not been used 678not been called, while the child will act as if BDB has not been used
672yet. 679yet.
673 680
681Win32 note: there is no fork on win32, and perls emulation of it is too
682broken to be supported, so do not use BDB in a windows pseudo-fork, better
683yet, switch to a more capable platform.
684
674=head2 MEMORY USAGE 685=head2 MEMORY USAGE
675 686
676Per-request usage: 687Per-request usage:
677 688
678Each aio request uses - depending on your architecture - around 100-200 689Each aio request uses - depending on your architecture - around 100-200

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines