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

Comparing BDB/BDB.xs (file contents):
Revision 1.5 by root, Mon Feb 5 23:46:15 2007 UTC vs.
Revision 1.11 by root, Wed May 9 06:42:24 2007 UTC

1/* solaris */ 1#include "xthread.h"
2#define _POSIX_PTHREAD_SEMANTICS 1
3
4#if __linux && !defined(_GNU_SOURCE)
5# define _GNU_SOURCE
6#endif
7
8/* just in case */
9#define _REENTRANT 1
10 2
11#include <errno.h> 3#include <errno.h>
12 4
13#include "EXTERN.h" 5#include "EXTERN.h"
14#include "perl.h" 6#include "perl.h"
15#include "XSUB.h" 7#include "XSUB.h"
16
17#include <pthread.h>
18 8
19#include <stddef.h> 9#include <stddef.h>
20#include <stdlib.h> 10#include <stdlib.h>
21#include <errno.h> 11#include <errno.h>
22#include <sys/time.h> 12#include <sys/time.h>
25#include <unistd.h> 15#include <unistd.h>
26#include <fcntl.h> 16#include <fcntl.h>
27 17
28#include <db.h> 18#include <db.h>
29 19
20#if DB_VERSION_MAJOR < 4 || (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR < 5)
21# error you need Berkeley DB 4.5 or newer installed
22#endif
23
30/* number of seconds after which idle threads exit */ 24/* number of seconds after which idle threads exit */
31#define IDLE_TIMEOUT 10 25#define IDLE_TIMEOUT 10
32 26
33/* wether word reads are potentially non-atomic.
34 * this is conservatice, likely most arches this runs
35 * on have atomic word read/writes.
36 */
37#ifndef WORDACCESS_UNSAFE
38# if __i386 || __x86_64
39# define WORDACCESS_UNSAFE 0
40# else
41# define WORDACCESS_UNSAFE 1
42# endif
43#endif
44
45typedef DB_ENV DB_ENV_ornull; 27typedef DB_ENV DB_ENV_ornull;
46typedef DB_TXN DB_TXN_ornull; 28typedef DB_TXN DB_TXN_ornull;
47typedef DBC DBC_ornull; 29typedef DBC DBC_ornull;
48typedef DB DB_ornull; 30typedef DB DB_ornull;
31typedef DB_SEQUENCE DB_SEQUENCE_ornull;
49 32
50typedef SV SV8; /* byte-sv, used for argument-checking */ 33typedef SV SV8; /* byte-sv, used for argument-checking */
51typedef char *octetstring; 34typedef char *octetstring;
52 35
53static SV *prepare_cb; 36static SV *prepare_cb;
56strdup_ornull (const char *s) 39strdup_ornull (const char *s)
57{ 40{
58 return s ? strdup (s) : 0; 41 return s ? strdup (s) : 0;
59} 42}
60 43
61inline void 44static inline void
62sv_to_dbt (DBT *dbt, SV *sv) 45sv_to_dbt (DBT *dbt, SV *sv)
63{ 46{
64 STRLEN len; 47 STRLEN len;
65 char *data = SvPVbyte (sv, len); 48 char *data = SvPVbyte (sv, len);
66 49
67 dbt->data = malloc (len); 50 dbt->data = malloc (len);
68 memcpy (dbt->data, data, len); 51 memcpy (dbt->data, data, len);
69 dbt->size = len; 52 dbt->size = len;
53 dbt->flags = DB_DBT_REALLOC;
70} 54}
71 55
72inline void 56static inline void
73dbt_to_sv (SV *sv, DBT *dbt) 57dbt_to_sv (SV *sv, DBT *dbt)
74{ 58{
59 if (sv)
60 {
75 SvREADONLY_off (sv); 61 SvREADONLY_off (sv);
76 sv_setpvn_mg (sv, dbt->data, dbt->size); 62 sv_setpvn_mg (sv, dbt->data, dbt->size);
63 SvREFCNT_dec (sv);
64 }
77 65
78 free (dbt->data); 66 free (dbt->data);
79} 67}
80 68
81enum { 69enum {
82 REQ_QUIT, 70 REQ_QUIT,
83 REQ_ENV_OPEN, REQ_ENV_CLOSE, 71 REQ_ENV_OPEN, REQ_ENV_CLOSE, REQ_ENV_TXN_CHECKPOINT, REQ_ENV_LOCK_DETECT,
72 REQ_ENV_MEMP_SYNC, REQ_ENV_MEMP_TRICKLE,
84 REQ_DB_OPEN, REQ_DB_CLOSE, REQ_DB_COMPACT, REQ_DB_SYNC, REQ_DB_PUT, REQ_DB_GET, REQ_DB_PGET, 73 REQ_DB_OPEN, REQ_DB_CLOSE, REQ_DB_COMPACT, REQ_DB_SYNC,
74 REQ_DB_PUT, REQ_DB_GET, REQ_DB_PGET, REQ_DB_DEL, REQ_DB_KEY_RANGE,
85 REQ_TXN_COMMIT, REQ_TXN_ABORT, 75 REQ_TXN_COMMIT, REQ_TXN_ABORT,
76 REQ_C_CLOSE, REQ_C_COUNT, REQ_C_PUT, REQ_C_GET, REQ_C_PGET, REQ_C_DEL,
77 REQ_SEQ_OPEN, REQ_SEQ_CLOSE, REQ_SEQ_GET, REQ_SEQ_REMOVE,
86}; 78};
87 79
88typedef struct aio_cb 80typedef struct aio_cb
89{ 81{
90 struct aio_cb *volatile next; 82 struct aio_cb *volatile next;
92 int type, pri, result; 84 int type, pri, result;
93 85
94 DB_ENV *env; 86 DB_ENV *env;
95 DB *db; 87 DB *db;
96 DB_TXN *txn; 88 DB_TXN *txn;
97 DBC *cursor; 89 DBC *dbc;
90
91 UV uv1;
98 int int1, int2; 92 int int1, int2;
99 U32 uint1, uint2; 93 U32 uint1, uint2;
100 char *buf1, *buf2; 94 char *buf1, *buf2;
101 SV *sv1, *sv2; 95 SV *sv1, *sv2, *sv3;
102 96
103 DBT dbt1, dbt2, dbt3; 97 DBT dbt1, dbt2, dbt3;
98 DB_KEY_RANGE key_range;
99 DB_SEQUENCE *seq;
100 db_seq_t seq_t;
104} aio_cb; 101} aio_cb;
105 102
106typedef aio_cb *aio_req; 103typedef aio_cb *aio_req;
107 104
108enum { 105enum {
128 125
129static int next_pri = DEFAULT_PRI + PRI_BIAS; 126static int next_pri = DEFAULT_PRI + PRI_BIAS;
130 127
131static unsigned int started, idle, wanted; 128static unsigned int started, idle, wanted;
132 129
133#if __linux && defined (PTHREAD_ADAPTIVE_MUTEX_INITIALIZER_NP)
134# define AIO_MUTEX_INIT PTHREAD_ADAPTIVE_MUTEX_INITIALIZER_NP
135#else
136# define AIO_MUTEX_INIT PTHREAD_MUTEX_INITIALIZER
137#endif
138
139#define LOCK(mutex) pthread_mutex_lock (&(mutex))
140#define UNLOCK(mutex) pthread_mutex_unlock (&(mutex))
141
142/* worker threads management */ 130/* worker threads management */
143static pthread_mutex_t wrklock = AIO_MUTEX_INIT; 131static mutex_t wrklock = MUTEX_INIT;
144 132
145typedef struct worker { 133typedef struct worker {
146 /* locked by wrklock */ 134 /* locked by wrklock */
147 struct worker *prev, *next; 135 struct worker *prev, *next;
148 136
149 pthread_t tid; 137 thread_t tid;
150 138
151 /* locked by reslock, reqlock or wrklock */ 139 /* locked by reslock, reqlock or wrklock */
152 aio_req req; /* currently processed request */ 140 aio_req req; /* currently processed request */
153 void *dbuf; 141 void *dbuf;
154 DIR *dirp; 142 DIR *dirp;
171static volatile unsigned int nreqs, nready, npending; 159static volatile unsigned int nreqs, nready, npending;
172static volatile unsigned int max_idle = 4; 160static volatile unsigned int max_idle = 4;
173static volatile unsigned int max_outstanding = 0xffffffff; 161static volatile unsigned int max_outstanding = 0xffffffff;
174static int respipe [2]; 162static int respipe [2];
175 163
176static pthread_mutex_t reslock = AIO_MUTEX_INIT; 164static mutex_t reslock = MUTEX_INIT;
177static pthread_mutex_t reqlock = AIO_MUTEX_INIT; 165static mutex_t reqlock = MUTEX_INIT;
178static pthread_cond_t reqwait = PTHREAD_COND_INITIALIZER; 166static cond_t reqwait = COND_INIT;
179 167
180#if WORDACCESS_UNSAFE 168#if WORDACCESS_UNSAFE
181 169
182static unsigned int get_nready () 170static unsigned int get_nready ()
183{ 171{
285 if (SvOK (req->callback)) 273 if (SvOK (req->callback))
286 { 274 {
287 ENTER; 275 ENTER;
288 SAVETMPS; 276 SAVETMPS;
289 PUSHMARK (SP); 277 PUSHMARK (SP);
290 EXTEND (SP, 1);
291 278
292 switch (req->type) 279 switch (req->type)
293 { 280 {
281 case REQ_DB_CLOSE:
282 SvREFCNT_dec (req->sv1);
283 break;
284
294 case REQ_DB_GET: 285 case REQ_DB_GET:
295 case REQ_DB_PGET: 286 case REQ_DB_PGET:
296 dbt_to_sv (req->sv1, &req->dbt3); 287 dbt_to_sv (req->sv3, &req->dbt3);
288 break;
289
290 case REQ_C_GET:
291 case REQ_C_PGET:
292 dbt_to_sv (req->sv1, &req->dbt1);
293 dbt_to_sv (req->sv2, &req->dbt2);
294 dbt_to_sv (req->sv3, &req->dbt3);
295 break;
296
297 case REQ_DB_KEY_RANGE:
298 {
299 AV *av = newAV ();
300
301 av_push (av, newSVnv (req->key_range.less));
302 av_push (av, newSVnv (req->key_range.equal));
303 av_push (av, newSVnv (req->key_range.greater));
304
305 SvREADONLY_off (req->sv1);
306 sv_setsv_mg (req->sv1, newRV_noinc ((SV *)av));
297 SvREFCNT_dec (req->sv1); 307 SvREFCNT_dec (req->sv1);
298 break; 308 }
309 break;
299 310
300 case REQ_DB_CLOSE: 311 case REQ_SEQ_GET:
312 SvREADONLY_off (req->sv1);
313
314 if (sizeof (IV) > 4)
315 sv_setiv_mg (req->sv1, req->seq_t);
316 else
317 sv_setnv_mg (req->sv1, req->seq_t);
318
301 SvREFCNT_dec (req->sv1); 319 SvREFCNT_dec (req->sv1);
302 break; 320 break;
303 } 321 }
304 322
305 errno = req->result; 323 errno = req->result;
324 342
325static void *aio_proc (void *arg); 343static void *aio_proc (void *arg);
326 344
327static void start_thread (void) 345static void start_thread (void)
328{ 346{
329 sigset_t fullsigset, oldsigset;
330 pthread_attr_t attr;
331
332 worker *wrk = calloc (1, sizeof (worker)); 347 worker *wrk = calloc (1, sizeof (worker));
333 348
334 if (!wrk) 349 if (!wrk)
335 croak ("unable to allocate worker thread data"); 350 croak ("unable to allocate worker thread data");
336 351
337 pthread_attr_init (&attr);
338 pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED);
339#ifdef PTHREAD_SCOPE_PROCESS
340 pthread_attr_setscope (&attr, PTHREAD_SCOPE_PROCESS);
341#endif
342
343 sigfillset (&fullsigset);
344
345 LOCK (wrklock); 352 LOCK (wrklock);
346 pthread_sigmask (SIG_SETMASK, &fullsigset, &oldsigset);
347
348 if (pthread_create (&wrk->tid, &attr, aio_proc, (void *)wrk) == 0) 353 if (thread_create (&wrk->tid, aio_proc, (void *)wrk))
349 { 354 {
350 wrk->prev = &wrk_first; 355 wrk->prev = &wrk_first;
351 wrk->next = wrk_first.next; 356 wrk->next = wrk_first.next;
352 wrk_first.next->prev = wrk; 357 wrk_first.next->prev = wrk;
353 wrk_first.next = wrk; 358 wrk_first.next = wrk;
354 ++started; 359 ++started;
355 } 360 }
356 else 361 else
357 free (wrk); 362 free (wrk);
358 363
359 pthread_sigmask (SIG_SETMASK, &oldsigset, 0);
360 UNLOCK (wrklock); 364 UNLOCK (wrklock);
361} 365}
362 366
363static void maybe_start_thread () 367static void maybe_start_thread ()
364{ 368{
396 ++nreqs; 400 ++nreqs;
397 401
398 LOCK (reqlock); 402 LOCK (reqlock);
399 ++nready; 403 ++nready;
400 reqq_push (&req_queue, req); 404 reqq_push (&req_queue, req);
401 pthread_cond_signal (&reqwait); 405 COND_SIGNAL (reqwait);
402 UNLOCK (reqlock); 406 UNLOCK (reqlock);
403 407
404 maybe_start_thread (); 408 maybe_start_thread ();
405 409
406 if (wait_callback) 410 if (wait_callback)
422 req->type = REQ_QUIT; 426 req->type = REQ_QUIT;
423 req->pri = PRI_MAX + PRI_BIAS; 427 req->pri = PRI_MAX + PRI_BIAS;
424 428
425 LOCK (reqlock); 429 LOCK (reqlock);
426 reqq_push (&req_queue, req); 430 reqq_push (&req_queue, req);
427 pthread_cond_signal (&reqwait); 431 COND_SIGNAL (reqwait);
428 UNLOCK (reqlock); 432 UNLOCK (reqlock);
429 433
430 LOCK (wrklock); 434 LOCK (wrklock);
431 --started; 435 --started;
432 UNLOCK (wrklock); 436 UNLOCK (wrklock);
588 if (req) 592 if (req)
589 break; 593 break;
590 594
591 ++idle; 595 ++idle;
592 596
593 if (pthread_cond_timedwait (&reqwait, &reqlock, &ts) 597 if (COND_TIMEDWAIT (reqwait, reqlock, ts)
594 == ETIMEDOUT) 598 == ETIMEDOUT)
595 { 599 {
596 if (idle > max_idle) 600 if (idle > max_idle)
597 { 601 {
598 --idle; 602 --idle;
602 UNLOCK (wrklock); 606 UNLOCK (wrklock);
603 goto quit; 607 goto quit;
604 } 608 }
605 609
606 /* we are allowed to idle, so do so without any timeout */ 610 /* we are allowed to idle, so do so without any timeout */
607 pthread_cond_wait (&reqwait, &reqlock); 611 COND_WAIT (reqwait, reqlock);
608 ts.tv_sec = time (0) + IDLE_TIMEOUT; 612 ts.tv_sec = time (0) + IDLE_TIMEOUT;
609 } 613 }
610 614
611 --idle; 615 --idle;
612 } 616 }
626 630
627 case REQ_ENV_CLOSE: 631 case REQ_ENV_CLOSE:
628 req->result = req->env->close (req->env, req->uint1); 632 req->result = req->env->close (req->env, req->uint1);
629 break; 633 break;
630 634
635 case REQ_ENV_TXN_CHECKPOINT:
636 req->result = req->env->txn_checkpoint (req->env, req->uint1, req->int1, req->uint2);
637 break;
638
639 case REQ_ENV_LOCK_DETECT:
640 req->result = req->env->lock_detect (req->env, req->uint1, req->uint2, &req->int1);
641 break;
642
643 case REQ_ENV_MEMP_SYNC:
644 req->result = req->env->memp_sync (req->env, 0);
645 break;
646
647 case REQ_ENV_MEMP_TRICKLE:
648 req->result = req->env->memp_trickle (req->env, req->int1, &req->int2);
649 break;
650
631 case REQ_DB_OPEN: 651 case REQ_DB_OPEN:
632 req->result = req->db->open (req->db, req->txn, req->buf1, req->buf2, req->int1, req->uint1, req->int2); 652 req->result = req->db->open (req->db, req->txn, req->buf1, req->buf2, req->int1, req->uint1, req->int2);
633 break; 653 break;
634 654
635 case REQ_DB_CLOSE: 655 case REQ_DB_CLOSE:
654 674
655 case REQ_DB_PGET: 675 case REQ_DB_PGET:
656 req->result = req->db->pget (req->db, req->txn, &req->dbt1, &req->dbt2, &req->dbt3, req->uint1); 676 req->result = req->db->pget (req->db, req->txn, &req->dbt1, &req->dbt2, &req->dbt3, req->uint1);
657 break; 677 break;
658 678
679 case REQ_DB_DEL:
680 req->result = req->db->del (req->db, req->txn, &req->dbt1, req->uint1);
681 break;
682
683 case REQ_DB_KEY_RANGE:
684 req->result = req->db->key_range (req->db, req->txn, &req->dbt1, &req->key_range, req->uint1);
685 break;
686
659 case REQ_TXN_COMMIT: 687 case REQ_TXN_COMMIT:
660 req->result = req->txn->commit (req->txn, req->uint1); 688 req->result = req->txn->commit (req->txn, req->uint1);
661 break; 689 break;
662 690
663 case REQ_TXN_ABORT: 691 case REQ_TXN_ABORT:
664 req->result = req->txn->abort (req->txn); 692 req->result = req->txn->abort (req->txn);
693 break;
694
695 case REQ_C_CLOSE:
696 req->result = req->dbc->c_close (req->dbc);
697 break;
698
699 case REQ_C_COUNT:
700 {
701 db_recno_t recno;
702 req->result = req->dbc->c_count (req->dbc, &recno, req->uint1);
703 req->uv1 = recno;
704 }
705 break;
706
707 case REQ_C_PUT:
708 req->result = req->dbc->c_put (req->dbc, &req->dbt1, &req->dbt2, req->uint1);
709 break;
710
711 case REQ_C_GET:
712 req->result = req->dbc->c_get (req->dbc, &req->dbt1, &req->dbt3, req->uint1);
713 break;
714
715 case REQ_C_PGET:
716 req->result = req->dbc->c_pget (req->dbc, &req->dbt1, &req->dbt2, &req->dbt3, req->uint1);
717 break;
718
719 case REQ_C_DEL:
720 req->result = req->dbc->c_del (req->dbc, req->uint1);
721 break;
722
723 case REQ_SEQ_OPEN:
724 req->result = req->seq->open (req->seq, req->txn, &req->dbt1, req->uint1);
725 break;
726
727 case REQ_SEQ_CLOSE:
728 req->result = req->seq->close (req->seq, req->uint1);
729 break;
730
731 case REQ_SEQ_GET:
732 req->result = req->seq->get (req->seq, req->txn, req->int1, &req->seq_t, req->uint1);
733 break;
734
735 case REQ_SEQ_REMOVE:
736 req->result = req->seq->remove (req->seq, req->txn, req->uint1);
665 break; 737 break;
666 738
667 default: 739 default:
668 req->result = ENOSYS; 740 req->result = ENOSYS;
669 break; 741 break;
762 834
763#define SvPTR(var, arg, type, class, nullok) \ 835#define SvPTR(var, arg, type, class, nullok) \
764 if (!SvOK (arg)) \ 836 if (!SvOK (arg)) \
765 { \ 837 { \
766 if (!nullok) \ 838 if (!nullok) \
767 Perl_croak (# var " must be a " # class " object, not undef"); \ 839 croak (# var " must be a " # class " object, not undef"); \
768 \ 840 \
769 (var) = 0; \ 841 (var) = 0; \
770 } \ 842 } \
771 else if (sv_derived_from ((arg), # class)) \ 843 else if (sv_derived_from ((arg), # class)) \
772 { \ 844 { \
773 IV tmp = SvIV ((SV*) SvRV (arg)); \ 845 IV tmp = SvIV ((SV*) SvRV (arg)); \
774 (var) = INT2PTR (type, tmp); \ 846 (var) = INT2PTR (type, tmp); \
775 if (!var) \ 847 if (!var) \
776 Perl_croak (# var " is not a valid " # class " object anymore"); \ 848 croak (# var " is not a valid " # class " object anymore"); \
777 } \ 849 } \
778 else \ 850 else \
779 Perl_croak (# var " is not of type " # class); \ 851 croak (# var " is not of type " # class); \
780 \ 852 \
781 853
782static void 854static void
783ptr_nuke (SV *sv) 855ptr_nuke (SV *sv)
784{ 856{
859 const_iv (REVSPLITOFF) 931 const_iv (REVSPLITOFF)
860 const_iv (INORDER) 932 const_iv (INORDER)
861 const_iv (CONSUME) 933 const_iv (CONSUME)
862 const_iv (CONSUME_WAIT) 934 const_iv (CONSUME_WAIT)
863 const_iv (GET_BOTH) 935 const_iv (GET_BOTH)
936 const_iv (GET_BOTH_RANGE)
864 //const_iv (SET_RECNO) 937 //const_iv (SET_RECNO)
865 //const_iv (MULTIPLE) 938 //const_iv (MULTIPLE)
866 const_iv (SNAPSHOT) 939 const_iv (SNAPSHOT)
867 const_iv (JOIN_ITEM) 940 const_iv (JOIN_ITEM)
868 const_iv (RMW) 941 const_iv (RMW)
873 const_iv (LOCK_NOTGRANTED) 946 const_iv (LOCK_NOTGRANTED)
874 const_iv (RUNRECOVERY) 947 const_iv (RUNRECOVERY)
875 const_iv (OLD_VERSION) 948 const_iv (OLD_VERSION)
876 const_iv (REP_HANDLE_DEAD) 949 const_iv (REP_HANDLE_DEAD)
877 const_iv (REP_LOCKOUT) 950 const_iv (REP_LOCKOUT)
951 const_iv (SECONDARY_BAD)
878 952
879 const_iv (FREE_SPACE) 953 const_iv (FREE_SPACE)
880 const_iv (FREELIST_ONLY) 954 const_iv (FREELIST_ONLY)
881 955
882 const_iv (APPEND) 956 const_iv (APPEND)
887 const_iv (TXN_SNAPSHOT) 961 const_iv (TXN_SNAPSHOT)
888 const_iv (TXN_SYNC) 962 const_iv (TXN_SYNC)
889 963
890 const_iv (SET_LOCK_TIMEOUT) 964 const_iv (SET_LOCK_TIMEOUT)
891 const_iv (SET_TXN_TIMEOUT) 965 const_iv (SET_TXN_TIMEOUT)
966
967 const_iv (JOIN_ITEM)
968 const_iv (FIRST)
969 const_iv (NEXT)
970 const_iv (NEXT_DUP)
971 const_iv (NEXT_NODUP)
972 const_iv (PREV)
973 const_iv (PREV_NODUP)
974 const_iv (SET)
975 const_iv (SET_RANGE)
976 const_iv (LAST)
977 const_iv (BEFORE)
978 const_iv (AFTER)
979 const_iv (CURRENT)
980 const_iv (KEYFIRST)
981 const_iv (KEYLAST)
982 const_iv (NODUPDATA)
983
984 const_iv (FORCE)
985
986 const_iv (LOCK_DEFAULT)
987 const_iv (LOCK_EXPIRE)
988 const_iv (LOCK_MAXLOCKS)
989 const_iv (LOCK_MAXWRITE)
990 const_iv (LOCK_MINLOCKS)
991 const_iv (LOCK_MINWRITE)
992 const_iv (LOCK_OLDEST)
993 const_iv (LOCK_RANDOM)
994 const_iv (LOCK_YOUNGEST)
995
996 const_iv (SEQ_DEC)
997 const_iv (SEQ_INC)
998 const_iv (SEQ_WRAP)
892 }; 999 };
893 1000
894 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 1001 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
895 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 1002 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
896 1003
897 create_pipe (); 1004 create_pipe ();
898 pthread_atfork (atfork_prepare, atfork_parent, atfork_child); 1005 ATFORK (atfork_prepare, atfork_parent, atfork_child);
899} 1006}
900 1007
901void 1008void
902max_poll_reqs (int nreqs) 1009max_poll_reqs (int nreqs)
903 PROTOTYPE: $ 1010 PROTOTYPE: $
1035 PROTOTYPE: & 1142 PROTOTYPE: &
1036 CODE: 1143 CODE:
1037 SvREFCNT_dec (prepare_cb); 1144 SvREFCNT_dec (prepare_cb);
1038 prepare_cb = newSVsv (cb); 1145 prepare_cb = newSVsv (cb);
1039 1146
1147
1040DB_ENV * 1148DB_ENV *
1041db_env_create (U32 env_flags = 0) 1149db_env_create (U32 env_flags = 0)
1042 CODE: 1150 CODE:
1043{ 1151{
1044 errno = db_env_create (&RETVAL, env_flags); 1152 errno = db_env_create (&RETVAL, env_flags);
1050 1158
1051void 1159void
1052db_env_open (DB_ENV *env, octetstring db_home, U32 open_flags, int mode, SV *callback = &PL_sv_undef) 1160db_env_open (DB_ENV *env, octetstring db_home, U32 open_flags, int mode, SV *callback = &PL_sv_undef)
1053 CODE: 1161 CODE:
1054{ 1162{
1163 env->set_thread_count (env, get_nthreads ());
1164
1055 dREQ (REQ_ENV_OPEN); 1165 dREQ (REQ_ENV_OPEN);
1056 req->env = env; 1166 req->env = env;
1057 req->uint1 = open_flags | DB_THREAD; 1167 req->uint1 = open_flags | DB_THREAD;
1058 req->int1 = mode; 1168 req->int1 = mode;
1059 req->buf1 = strdup_ornull (db_home); 1169 req->buf1 = strdup_ornull (db_home);
1069 req->uint1 = flags; 1179 req->uint1 = flags;
1070 REQ_SEND; 1180 REQ_SEND;
1071 ptr_nuke (ST (0)); 1181 ptr_nuke (ST (0));
1072} 1182}
1073 1183
1184void
1185db_env_txn_checkpoint (DB_ENV *env, U32 kbyte = 0, U32 min = 0, U32 flags = 0, SV *callback = &PL_sv_undef)
1186 CODE:
1187{
1188 dREQ (REQ_ENV_TXN_CHECKPOINT);
1189 req->env = env;
1190 req->uint1 = kbyte;
1191 req->int1 = min;
1192 req->uint2 = flags;
1193 REQ_SEND;
1194}
1195
1196void
1197db_env_lock_detect (DB_ENV *env, U32 flags = 0, U32 atype = DB_LOCK_DEFAULT, SV *dummy = 0, SV *callback = &PL_sv_undef)
1198 CODE:
1199{
1200 dREQ (REQ_ENV_LOCK_DETECT);
1201 req->env = env;
1202 req->uint1 = flags;
1203 req->uint2 = atype;
1204 REQ_SEND;
1205}
1206
1207void
1208db_env_memp_sync (DB_ENV *env, SV *dummy = 0, SV *callback = &PL_sv_undef)
1209 CODE:
1210{
1211 dREQ (REQ_ENV_MEMP_SYNC);
1212 req->env = env;
1213 REQ_SEND;
1214}
1215
1216void
1217db_env_memp_trickle (DB_ENV *env, int percent, SV *dummy = 0, SV *callback = &PL_sv_undef)
1218 CODE:
1219{
1220 dREQ (REQ_ENV_MEMP_TRICKLE);
1221 req->env = env;
1222 req->int1 = percent;
1223 REQ_SEND;
1224}
1225
1226
1074DB * 1227DB *
1075db_create (DB_ENV *env = 0, U32 flags = 0) 1228db_create (DB_ENV *env = 0, U32 flags = 0)
1076 CODE: 1229 CODE:
1077{ 1230{
1078 errno = db_create (&RETVAL, env, flags); 1231 errno = db_create (&RETVAL, env, flags);
1079 if (errno) 1232 if (errno)
1080 croak ("db_env_create: %s", db_strerror (errno)); 1233 croak ("db_create: %s", db_strerror (errno));
1081 1234
1082 if (RETVAL) 1235 if (RETVAL)
1083 RETVAL->app_private = (void *)newSVsv (ST (0)); 1236 RETVAL->app_private = (void *)newSVsv (ST (0));
1084} 1237}
1085 OUTPUT: 1238 OUTPUT:
1134 req->uint1 = flags; 1287 req->uint1 = flags;
1135 REQ_SEND; 1288 REQ_SEND;
1136} 1289}
1137 1290
1138void 1291void
1292db_key_range (DB *db, DB_TXN_ornull *txn, SV *key, SV *key_range, U32 flags = 0, SV *callback = &PL_sv_undef)
1293 CODE:
1294{
1295 dREQ (REQ_DB_KEY_RANGE);
1296 req->db = db;
1297 req->txn = txn;
1298 sv_to_dbt (&req->dbt1, key);
1299 req->uint1 = flags;
1300 req->sv1 = SvREFCNT_inc (key_range); SvREADONLY_on (key_range);
1301 REQ_SEND;
1302}
1303
1304void
1139db_put (DB *db, DB_TXN_ornull *txn, SV *key, SV *data, U32 flags = 0, SV *callback = &PL_sv_undef) 1305db_put (DB *db, DB_TXN_ornull *txn, SV *key, SV *data, U32 flags = 0, SV *callback = &PL_sv_undef)
1140 CODE: 1306 CODE:
1141{ 1307{
1142 dREQ (REQ_DB_PUT); 1308 dREQ (REQ_DB_PUT);
1143 req->db = db; 1309 req->db = db;
1153 CODE: 1319 CODE:
1154{ 1320{
1155 dREQ (REQ_DB_GET); 1321 dREQ (REQ_DB_GET);
1156 req->db = db; 1322 req->db = db;
1157 req->txn = txn; 1323 req->txn = txn;
1324 req->uint1 = flags;
1158 sv_to_dbt (&req->dbt1, key); 1325 sv_to_dbt (&req->dbt1, key);
1159 req->dbt3.flags = DB_DBT_MALLOC; 1326 req->dbt3.flags = DB_DBT_MALLOC;
1160 req->uint1 = flags;
1161 req->sv1 = SvREFCNT_inc (data); 1327 req->sv3 = SvREFCNT_inc (data); SvREADONLY_on (data);
1162 SvREADONLY_on (data);
1163 REQ_SEND; 1328 REQ_SEND;
1164} 1329}
1165 1330
1166void 1331void
1167db_pget (DB *db, DB_TXN_ornull *txn, SV *key, SV *pkey, SV *data, U32 flags = 0, SV *callback = &PL_sv_undef) 1332db_pget (DB *db, DB_TXN_ornull *txn, SV *key, SV *pkey, SV *data, U32 flags = 0, SV *callback = &PL_sv_undef)
1168 CODE: 1333 CODE:
1169{ 1334{
1170 dREQ (REQ_DB_PGET); 1335 dREQ (REQ_DB_PGET);
1171 req->db = db; 1336 req->db = db;
1172 req->txn = txn; 1337 req->txn = txn;
1338 req->uint1 = flags;
1173 sv_to_dbt (&req->dbt1, key); 1339 sv_to_dbt (&req->dbt1, key);
1174 sv_to_dbt (&req->dbt2, pkey); 1340 sv_to_dbt (&req->dbt2, pkey);
1175 req->dbt3.flags = DB_DBT_MALLOC; 1341 req->dbt3.flags = DB_DBT_MALLOC;
1342 req->sv3 = SvREFCNT_inc (data); SvREADONLY_on (data);
1343 REQ_SEND;
1344}
1345
1346void
1347db_del (DB *db, DB_TXN_ornull *txn, SV *key, U32 flags = 0, SV *callback = &PL_sv_undef)
1348 CODE:
1349{
1350 dREQ (REQ_DB_DEL);
1351 req->db = db;
1352 req->txn = txn;
1176 req->uint1 = flags; 1353 req->uint1 = flags;
1177 req->sv1 = SvREFCNT_inc (data); 1354 sv_to_dbt (&req->dbt1, key);
1178 SvREADONLY_on (data);
1179 REQ_SEND; 1355 REQ_SEND;
1180} 1356}
1181 1357
1182void 1358void
1183db_txn_commit (DB_TXN *txn, U32 flags = 0, SV *callback = &PL_sv_undef) 1359db_txn_commit (DB_TXN *txn, U32 flags = 0, SV *callback = &PL_sv_undef)
1198 req->txn = txn; 1374 req->txn = txn;
1199 REQ_SEND; 1375 REQ_SEND;
1200 ptr_nuke (ST (0)); 1376 ptr_nuke (ST (0));
1201} 1377}
1202 1378
1379void
1380db_c_close (DBC *dbc, SV *callback = &PL_sv_undef)
1381 CODE:
1382{
1383 dREQ (REQ_C_CLOSE);
1384 req->dbc = dbc;
1385 REQ_SEND;
1386 ptr_nuke (ST (0));
1387}
1388
1389void
1390db_c_count (DBC *dbc, SV *count, U32 flags = 0, SV *callback = &PL_sv_undef)
1391 CODE:
1392{
1393 dREQ (REQ_C_COUNT);
1394 req->dbc = dbc;
1395 req->sv1 = SvREFCNT_inc (count);
1396 REQ_SEND;
1397}
1398
1399void
1400db_c_put (DBC *dbc, SV *key, SV *data, U32 flags = 0, SV *callback = &PL_sv_undef)
1401 CODE:
1402{
1403 dREQ (REQ_C_PUT);
1404 req->dbc = dbc;
1405 sv_to_dbt (&req->dbt1, key);
1406 sv_to_dbt (&req->dbt2, data);
1407 req->uint1 = flags;
1408 REQ_SEND;
1409}
1410
1411void
1412db_c_get (DBC *dbc, SV *key, SV *data, U32 flags = 0, SV *callback = &PL_sv_undef)
1413 CODE:
1414{
1415 dREQ (REQ_C_GET);
1416 req->dbc = dbc;
1417 req->uint1 = flags;
1418 if ((flags & DB_SET) == DB_SET
1419 || (flags & DB_SET_RANGE) == DB_SET_RANGE)
1420 sv_to_dbt (&req->dbt1, key);
1421 else
1422 req->dbt1.flags = DB_DBT_MALLOC;
1423
1424 req->sv1 = SvREFCNT_inc (key); SvREADONLY_on (key);
1425
1426 if ((flags & DB_GET_BOTH) == DB_GET_BOTH
1427 || (flags & DB_GET_BOTH_RANGE) == DB_GET_BOTH_RANGE)
1428 sv_to_dbt (&req->dbt3, data);
1429 else
1430 req->dbt3.flags = DB_DBT_MALLOC;
1431
1432 req->sv3 = SvREFCNT_inc (data); SvREADONLY_on (data);
1433 REQ_SEND;
1434}
1435
1436void
1437db_c_pget (DBC *dbc, SV *key, SV *pkey, SV *data, U32 flags = 0, SV *callback = &PL_sv_undef)
1438 CODE:
1439{
1440 dREQ (REQ_C_PGET);
1441 req->dbc = dbc;
1442 req->uint1 = flags;
1443 if ((flags & DB_SET) == DB_SET
1444 || (flags & DB_SET_RANGE) == DB_SET_RANGE)
1445 sv_to_dbt (&req->dbt1, key);
1446 else
1447 req->dbt1.flags = DB_DBT_MALLOC;
1448
1449 req->sv1 = SvREFCNT_inc (key); SvREADONLY_on (key);
1450
1451 req->dbt2.flags = DB_DBT_MALLOC;
1452 req->sv2 = SvREFCNT_inc (pkey); SvREADONLY_on (pkey);
1453
1454 if ((flags & DB_GET_BOTH) == DB_GET_BOTH
1455 || (flags & DB_GET_BOTH_RANGE) == DB_GET_BOTH_RANGE)
1456 sv_to_dbt (&req->dbt3, data);
1457 else
1458 req->dbt3.flags = DB_DBT_MALLOC;
1459
1460 req->sv3 = SvREFCNT_inc (data); SvREADONLY_on (data);
1461 REQ_SEND;
1462}
1463
1464void
1465db_c_del (DBC *dbc, U32 flags = 0, SV *callback = &PL_sv_undef)
1466 CODE:
1467{
1468 dREQ (REQ_C_DEL);
1469 req->dbc = dbc;
1470 req->uint1 = flags;
1471 REQ_SEND;
1472}
1473
1474
1475void
1476db_sequence_open (DB_SEQUENCE *seq, DB_TXN_ornull *txnid, SV *key, U32 flags = 0, SV *callback = &PL_sv_undef)
1477 CODE:
1478{
1479 dREQ (REQ_SEQ_OPEN);
1480 req->seq = seq;
1481 req->txn = txnid;
1482 req->uint1 = flags | DB_THREAD;
1483 sv_to_dbt (&req->dbt1, key);
1484 REQ_SEND;
1485}
1486
1487void
1488db_sequence_close (DB_SEQUENCE *seq, U32 flags = 0, SV *callback = &PL_sv_undef)
1489 CODE:
1490{
1491 dREQ (REQ_SEQ_CLOSE);
1492 req->seq = seq;
1493 req->uint1 = flags;
1494 REQ_SEND;
1495 ptr_nuke (ST (0));
1496}
1497
1498void
1499db_sequence_get (DB_SEQUENCE *seq, DB_TXN_ornull *txnid, int delta, SV *seq_value, U32 flags = DB_TXN_NOSYNC, SV *callback = &PL_sv_undef)
1500 CODE:
1501{
1502 dREQ (REQ_SEQ_GET);
1503 req->seq = seq;
1504 req->txn = txnid;
1505 req->int1 = delta;
1506 req->uint1 = flags;
1507 req->sv1 = SvREFCNT_inc (seq_value); SvREADONLY_on (seq_value);
1508 REQ_SEND;
1509}
1510
1511void
1512db_sequence_remove (DB_SEQUENCE *seq, DB_TXN_ornull *txnid = 0, U32 flags = 0, SV *callback = &PL_sv_undef)
1513 CODE:
1514{
1515 dREQ (REQ_SEQ_REMOVE);
1516 req->seq = seq;
1517 req->txn = txnid;
1518 req->uint1 = flags;
1519 REQ_SEND;
1520}
1521
1203 1522
1204MODULE = BDB PACKAGE = BDB::Env 1523MODULE = BDB PACKAGE = BDB::Env
1205 1524
1206void 1525void
1207DESTROY (DB_ENV_ornull *env) 1526DESTROY (DB_ENV_ornull *env)
1208 CODE: 1527 CODE:
1209 if (env) 1528 if (env)
1210 env->close (env, 0); 1529 env->close (env, 0);
1211 1530
1531int set_data_dir (DB_ENV *env, const char *dir)
1532 CODE:
1533 RETVAL = env->set_data_dir (env, dir);
1534 OUTPUT:
1535 RETVAL
1536
1537int set_tmp_dir (DB_ENV *env, const char *dir)
1538 CODE:
1539 RETVAL = env->set_tmp_dir (env, dir);
1540 OUTPUT:
1541 RETVAL
1542
1543int set_lg_dir (DB_ENV *env, const char *dir)
1544 CODE:
1545 RETVAL = env->set_lg_dir (env, dir);
1546 OUTPUT:
1547 RETVAL
1548
1549int set_shm_key (DB_ENV *env, long shm_key)
1550 CODE:
1551 RETVAL = env->set_shm_key (env, shm_key);
1552 OUTPUT:
1553 RETVAL
1554
1212int set_cachesize (DB_ENV *env, U32 gbytes, U32 bytes, int ncache = 0) 1555int set_cachesize (DB_ENV *env, U32 gbytes, U32 bytes, int ncache = 0)
1213 CODE: 1556 CODE:
1214 RETVAL = env->set_cachesize (env, gbytes, bytes, ncache); 1557 RETVAL = env->set_cachesize (env, gbytes, bytes, ncache);
1215 OUTPUT: 1558 OUTPUT:
1216 RETVAL 1559 RETVAL
1228 RETVAL 1571 RETVAL
1229 1572
1230int set_timeout (DB_ENV *env, NV timeout, U32 flags) 1573int set_timeout (DB_ENV *env, NV timeout, U32 flags)
1231 CODE: 1574 CODE:
1232 RETVAL = env->set_timeout (env, timeout * 1000000, flags); 1575 RETVAL = env->set_timeout (env, timeout * 1000000, flags);
1576 OUTPUT:
1577 RETVAL
1578
1579int set_mp_max_openfd (DB_ENV *env, int maxopenfd);
1580 CODE:
1581 RETVAL = env->set_mp_max_openfd (env, maxopenfd);
1582 OUTPUT:
1583 RETVAL
1584
1585int set_mp_max_write (DB_ENV *env, int maxwrite, int maxwrite_sleep);
1586 CODE:
1587 RETVAL = env->set_mp_max_write (env, maxwrite, maxwrite_sleep);
1588 OUTPUT:
1589 RETVAL
1590
1591int set_mp_mmapsize (DB_ENV *env, int mmapsize_mb)
1592 CODE:
1593 RETVAL = env->set_mp_mmapsize (env, ((size_t)mmapsize_mb) << 20);
1594 OUTPUT:
1595 RETVAL
1596
1597int set_lk_detect (DB_ENV *env, U32 detect = DB_LOCK_DEFAULT)
1598 CODE:
1599 RETVAL = env->set_lk_detect (env, detect);
1600 OUTPUT:
1601 RETVAL
1602
1603int set_lk_max_lockers (DB_ENV *env, U32 max)
1604 CODE:
1605 RETVAL = env->set_lk_max_lockers (env, max);
1606 OUTPUT:
1607 RETVAL
1608
1609int set_lk_max_locks (DB_ENV *env, U32 max)
1610 CODE:
1611 RETVAL = env->set_lk_max_locks (env, max);
1612 OUTPUT:
1613 RETVAL
1614
1615int set_lk_max_objects (DB_ENV *env, U32 max)
1616 CODE:
1617 RETVAL = env->set_lk_max_objects (env, max);
1618 OUTPUT:
1619 RETVAL
1620
1621int set_lg_bsize (DB_ENV *env, U32 max)
1622 CODE:
1623 RETVAL = env->set_lg_bsize (env, max);
1624 OUTPUT:
1625 RETVAL
1626
1627int set_lg_max (DB_ENV *env, U32 max)
1628 CODE:
1629 RETVAL = env->set_lg_max (env, max);
1233 OUTPUT: 1630 OUTPUT:
1234 RETVAL 1631 RETVAL
1235 1632
1236DB_TXN * 1633DB_TXN *
1237txn_begin (DB_ENV *env, DB_TXN_ornull *parent = 0, U32 flags = 0) 1634txn_begin (DB_ENV *env, DB_TXN_ornull *parent = 0, U32 flags = 0)
1238 CODE: 1635 CODE:
1239 errno = env->txn_begin (env, parent, &RETVAL, flags); 1636 errno = env->txn_begin (env, parent, &RETVAL, flags);
1240 if (errno) 1637 if (errno)
1241 croak ("txn_begin: %s", db_strerror (errno)); 1638 croak ("DB_ENV->txn_begin: %s", db_strerror (errno));
1242 OUTPUT: 1639 OUTPUT:
1243 RETVAL 1640 RETVAL
1244 1641
1245MODULE = BDB PACKAGE = BDB::Db 1642MODULE = BDB PACKAGE = BDB::Db
1246 1643
1276 CODE: 1673 CODE:
1277 RETVAL = db->set_lorder (db, lorder); 1674 RETVAL = db->set_lorder (db, lorder);
1278 OUTPUT: 1675 OUTPUT:
1279 RETVAL 1676 RETVAL
1280 1677
1281
1282int set_bt_minkey (DB *db, U32 minkey) 1678int set_bt_minkey (DB *db, U32 minkey)
1283 CODE: 1679 CODE:
1284 RETVAL = db->set_bt_minkey (db, minkey); 1680 RETVAL = db->set_bt_minkey (db, minkey);
1285 OUTPUT: 1681 OUTPUT:
1286 RETVAL 1682 RETVAL
1324int set_q_extentsize (DB *db, U32 extentsize) 1720int set_q_extentsize (DB *db, U32 extentsize)
1325 CODE: 1721 CODE:
1326 RETVAL = db->set_q_extentsize (db, extentsize); 1722 RETVAL = db->set_q_extentsize (db, extentsize);
1327 OUTPUT: 1723 OUTPUT:
1328 RETVAL 1724 RETVAL
1725
1726DBC *
1727cursor (DB *db, DB_TXN_ornull *txn = 0, U32 flags = 0)
1728 CODE:
1729 errno = db->cursor (db, txn, &RETVAL, flags);
1730 if (errno)
1731 croak ("DB->cursor: %s", db_strerror (errno));
1732 OUTPUT:
1733 RETVAL
1734
1735DB_SEQUENCE *
1736sequence (DB *db, U32 flags = 0)
1737 CODE:
1738{
1739 errno = db_sequence_create (&RETVAL, db, flags);
1740 if (errno)
1741 croak ("db_sequence_create: %s", db_strerror (errno));
1742}
1743 OUTPUT:
1744 RETVAL
1745
1329 1746
1330MODULE = BDB PACKAGE = BDB::Txn 1747MODULE = BDB PACKAGE = BDB::Txn
1331 1748
1332void 1749void
1333DESTROY (DB_TXN_ornull *txn) 1750DESTROY (DB_TXN_ornull *txn)
1340 RETVAL = txn->set_timeout (txn, timeout * 1000000, flags); 1757 RETVAL = txn->set_timeout (txn, timeout * 1000000, flags);
1341 OUTPUT: 1758 OUTPUT:
1342 RETVAL 1759 RETVAL
1343 1760
1344 1761
1762MODULE = BDB PACKAGE = BDB::Cursor
1763
1764void
1765DESTROY (DBC_ornull *dbc)
1766 CODE:
1767 if (dbc)
1768 dbc->c_close (dbc);
1769
1770MODULE = BDB PACKAGE = BDB::Sequence
1771
1772void
1773DESTROY (DB_SEQUENCE_ornull *seq)
1774 CODE:
1775 if (seq)
1776 seq->close (seq, 0);
1777
1778int initial_value (DB_SEQUENCE *seq, db_seq_t value)
1779 CODE:
1780 RETVAL = seq->initial_value (seq, value);
1781 OUTPUT:
1782 RETVAL
1783
1784int set_cachesize (DB_SEQUENCE *seq, U32 size)
1785 CODE:
1786 RETVAL = seq->set_cachesize (seq, size);
1787 OUTPUT:
1788 RETVAL
1789
1790int set_flags (DB_SEQUENCE *seq, U32 flags)
1791 CODE:
1792 RETVAL = seq->set_flags (seq, flags);
1793 OUTPUT:
1794 RETVAL
1795
1796int set_range (DB_SEQUENCE *seq, db_seq_t min, db_seq_t max)
1797 CODE:
1798 RETVAL = seq->set_range (seq, min, max);
1799 OUTPUT:
1800 RETVAL
1801

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines