Update of /project/elephant/cvsroot/elephant/src/db-bdb In directory clnet:/tmp/cvs-serv5278/src/db-bdb
Modified Files: berkeley-db.lisp libberkeley-db.c libberkeley-db.def Log Message: Promoted diff's provided by the community (Pierre and Gabor) as well as a checkpoint of ongoing work to get the 0.6.1 development tree on HEAD working again.
--- /project/elephant/cvsroot/elephant/src/db-bdb/berkeley-db.lisp 2007/01/19 21:03:29 1.2 +++ /project/elephant/cvsroot/elephant/src/db-bdb/berkeley-db.lisp 2007/01/20 22:12:17 1.3 @@ -466,7 +466,17 @@
(wrap-errno db-env-get-flags (env) :outs 2 :documentation "Get flags of an environment.") - + +(def-function ("db_env_txn_checkpoint" %db-env-txn-checkpoint) + ((env :pointer-void) + (kbyte :unsigned-int) + (min :unsigned-int) + (flags :unsigned-int)) + :returning :int) + +(wrap-errno db-env-txn-checkpoint (env kbyte min flags) + :flags (force) + :documentation "Make a checkpoint.")
;; Database
--- /project/elephant/cvsroot/elephant/src/db-bdb/libberkeley-db.c 2007/01/19 21:03:29 1.4 +++ /project/elephant/cvsroot/elephant/src/db-bdb/libberkeley-db.c 2007/01/20 22:12:17 1.5 @@ -210,6 +210,11 @@ return dbenv->get_flags(dbenv, flagsp); }
+int db_env_txn_checkpoint(DB_ENV *dbenv, u_int32_t kbyte, u_int32_t min, + u_int32_t flags) { + return dbenv->txn_checkpoint(dbenv, kbyte, min, flags); +} + /* Database */
DB *db_cr(DB_ENV *dbenv, u_int32_t flags, int *errno) { --- /project/elephant/cvsroot/elephant/src/db-bdb/libberkeley-db.def 2006/11/11 18:41:10 1.1 +++ /project/elephant/cvsroot/elephant/src/db-bdb/libberkeley-db.def 2007/01/20 22:12:17 1.2 @@ -19,6 +19,7 @@ db_env_remove db_env_set_flags db_env_get_flags + db_env_txn_checkpoint db_cr db_close db_open