Update of /project/elephant/cvsroot/elephant/src/db-bdb In directory clnet:/tmp/cvs-serv3903/src/db-bdb

Modified Files: bdb-controller.lisp package.lisp Log Message: Provide checkpoint function

--- /project/elephant/cvsroot/elephant/src/db-bdb/bdb-controller.lisp 2007/02/17 19:28:53 1.29 +++ /project/elephant/cvsroot/elephant/src/db-bdb/bdb-controller.lisp 2007/02/18 10:58:58 1.30 @@ -258,7 +258,20 @@ (defmethod stop-deadlock-detector ((ctrl bdb-store-controller)) (when (controller-deadlock-pid ctrl) (kill-background-program (controller-deadlock-pid ctrl)))) + +;; +;; Enable program-based checkpointing +;;

+(defmethod checkpoint ((sc bdb-store-controller) &key force (time 0) (log-size 0)) + "Forces a checkpoint of the db and flushes the memory pool to disk. + Use keywords ':force t' to write the checkpoint under any + condition, ':time N' to checkpoint based on if the number of + minutes since the last checkpoint is greater than time and + ':log-size N' to checkpoint if the data written to the log is + greater than N kilobytes" + (db-env-txn-checkpoint (controller-environment sc) log-size time :force force)) + ;; ;; Take advantage of release 4.4's compact storage feature. Feature of BDB only ;; --- /project/elephant/cvsroot/elephant/src/db-bdb/package.lisp 2007/02/16 23:02:51 1.6 +++ /project/elephant/cvsroot/elephant/src/db-bdb/package.lisp 2007/02/18 10:58:58 1.7 @@ -45,4 +45,5 @@ (:import-from :ccl #:byte-length) (:export - #:optimize-layout)) + #:optimize-layout + #:checkpoint))