[elephant-cvs] CVS elephant/src/db-bdb

[ieslick]

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