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

add constant DB_DBT_USERMEM

This commit is contained in:
eknauel 2005-02-02 15:00:44 +00:00
parent 244453c1dc
commit e2f497619a
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
c/bdb.c
View File

@ -106,7 +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_DBT_USERMEM = S48_FALSE;
/* initialise DB_TYPES */
static s48_value scheme_DB_BTREE = S48_FALSE;
@ -1370,6 +1370,7 @@ 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_DBT_USERMEM, DB_DBT_USERMEM);
/* return codes */
ENTER_INTEGER_CONSTANT(scheme_DB_DONOTINDEX, DB_DONOTINDEX);

3
scheme/bdb.scm
View File

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