scsh-conservatory
/
scsh-bdb
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add support for DB_INIT_CDB

This commit is contained in:
eknauel 2005-02-14 07:14:36 +00:00
parent e2f497619a
commit d110aa567d
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
c/bdb.c
View File

@ -106,6 +106,7 @@ static s48_value scheme_DB_AFTER = S48_FALSE;
static s48_value scheme_DB_BEFORE = S48_FALSE;
static s48_value scheme_DB_KEYFIRST = S48_FALSE;
static s48_value scheme_DB_KEYLAST = S48_FALSE;
static s48_value scheme_DB_INIT_CDB = S48_FALSE;
static s48_value scheme_DB_DBT_USERMEM = S48_FALSE;
/* initialise DB_TYPES */
@ -1370,8 +1371,9 @@ void scsh_init_bdb_bindings(void)
ENTER_INTEGER_CONSTANT(scheme_DB_BEFORE, DB_BEFORE);
ENTER_INTEGER_CONSTANT(scheme_DB_KEYFIRST, DB_KEYFIRST);
ENTER_INTEGER_CONSTANT(scheme_DB_KEYLAST, DB_KEYLAST);
ENTER_INTEGER_CONSTANT(scheme_DB_INIT_CDB, DB_INIT_CDB);
ENTER_INTEGER_CONSTANT(scheme_DB_DBT_USERMEM, DB_DBT_USERMEM);
/* return codes */
ENTER_INTEGER_CONSTANT(scheme_DB_DONOTINDEX, DB_DONOTINDEX);
ENTER_INTEGER_CONSTANT(scheme_DB_FILEOPEN, DB_FILEOPEN);

3
scheme/bdb.scm
View File

@ -156,7 +156,8 @@
(before (lookup-shared-value "scheme_DB_BEFORE"))
(key-first (lookup-shared-value "scheme_DB_KEYFIRST"))
(key-last (lookup-shared-value "scheme_DB_KEYLAST"))
(dbt-user-memory (lookup-shared-value "scheme_DB_DBT_USERMEM")))
(init-cdb (lookup-shared-value "scheme_DB_INIT_CDB"))
(dbt-user-memory (lookup-shared-value "scheme_DB_DBT_USERMEM"))))
(define-finite-type lock-mode :lock-mode
(id)