Berkley DB CFFI-Bindings

Transactions 

(defmethod+ ("db_txn_id" db-txn-id) :uint32
  (txn :pointer :class (txn txn-handle)))

(defmethod+ ("db_env_set_tx_max" db-env-set-tx-max) :int
  (dbenv :pointer :class (db-env db-env))
  (max :uint32))

(defmethod+ ("db_env_get_tx_max" db-env-get-tx-max) :int
  (dbenv :pointer :class (db-env db-env))
  (max :out :uint32))

(defmethod+ ("db_env_txn_checkpoint" db-env-txn-checkpoint) :int
  (env :pointer :class (db-env db-env))
  (kbyte :uint32)
  (min :uint32)
  (flags :uint32))

(defmethod+ ("db_txn_set_timeout" db-txn-set-timeout) :int
  (tid :pointer :class (txn txn-handle))
  (timeout :uint32)
  (flags :flag (:lock-timeout :txn-timeout)))

(defmethod+ ("db_env_set_timeout" db-env-set-timeout) :int
  (dbenv :pointer :class (db-env db-env))
  (timeout :uint32)
  (flags :flag (:lock-timeout :txn-timeout)))

(defmethod+ ("db_env_get_timeout" db-env-get-timeout) :int
  (dbenv :pointer :class (db-env db-env))
  (timeout :out :uint32)
  (flags :flag (:lock-timeout :txn-timeout)))