exception BDBUnimplemented
exception BDBLibFault
external test_constr : int -> unit = "test_constr"
exception BDBSystemError
exception BDBError of int
type dbenv = Bdb.dbenv
type dbtxn = Bdb.dbtxn
type dbc = Bdb.dbc
type db = Bdb.db
module Env :
  sig
    type create_flags = Bdb.Env.create_flags = DB_RPCCLIENT
    external create : create_flags list -> dbenv = "caml_env_create"
    type open_flags =
      Bdb.Env.open_flags =
        DB_JOINENV
      | DB_INIT_CDB
      | DB_INIT_LOCK
      | DB_INIT_LOG
      | DB_INIT_MPOOL
      | DB_INIT_TXN
      | DB_RECOVER
      | DB_RECOVER_FATAL
      | DB_USE_ENVIRON
      | DB_USE_ENVIRON_ROOT
      | DB_CREATE
      | DB_LOCKDOWN
      | DB_PRIVATE
      | DB_SYSTEM_MEM
      | DB_THREAD
    external env_open : dbenv -> string -> open_flags list -> int32 -> unit
      = "caml_env_open"
    type close_flags = Bdb.Env.close_flags
    external close : dbenv -> close_flags list -> unit = "caml_env_close"
    type dbremove_flags = Bdb.Env.dbremove_flags = DB_AUTO_COMMIT
    external dbremove :
      dbenv -> dbtxn -> string -> string -> dbremove_flags list -> unit
      = "caml_env_dbremove"
    type dbrename_flags = Bdb.Env.dbrename_flags = DB_AUTO_COMMIT
    external dbrename :
      dbenv -> dbtxn -> string -> string -> string -> dbrename_flags list
      = "caml_env_dbrename"
    external err : dbenv -> int -> string -> unit = "caml_env_err"
    external errx : dbenv -> string -> unit = "caml_env_errx"
    type remove_flags =
      Bdb.Env.remove_flags =
        DB_FORCE
      | DB_USE_ENVIRON_
      | DB_USE_ENVIRON_ROOT_
    external remove : dbenv -> string -> remove_flags list -> unit
      = "caml_env_remove"
    external db_strerror : int -> unit = "caml_db_strerror"
    external db_version : int list -> int list -> int list -> string
      = "caml_db_version"
    val set_app_dispatch : 'a -> 'b
    val set_alloc : 'a -> 'b
    val set_data_dir : 'a -> 'b
    val set_encrypt : 'a -> 'b
    val set_errcall : 'a -> 'b
    val set_errfile : 'a -> 'b
    val set_errpfx : 'a -> 'b
    val set_feedback : 'a -> 'b
    val set_flags : 'a -> 'b
    val set_paniccall : 'a -> 'b
    val set_rpc_server : 'a -> 'b
    val set_shm_key : 'a -> 'b
    val set_tas_spins : 'a -> 'b
    val set_timeout : 'a -> 'b
    val set_tmp_dir : 'a -> 'b
    val set_verbose : 'a -> 'b
  end
module Db :
  sig
    type dbtype =
      Bdb.Db.dbtype =
        DB_BTREE
      | DB_HASH
      | DB_QUEUE
      | DB_RECNO
      | DB_UNKNOWN
    type create_flags = Bdb.Db.create_flags = DB_XA_CREATE
    external create : dbenv -> create_flags list -> db = "caml_db_create"
    val associate : 'a -> 'b
    type close_flags = Bdb.Db.close_flags = DB_NOSYNC
    external close : db -> close_flags list -> unit = "caml_db_close"
    type del_flags = Bdb.Db.del_flags
    external del : db -> dbtxn option -> string -> del_flags list -> unit
      = "caml_db_del"
    val err : 'a -> 'b
    val errx : 'a -> 'b
    val fd : 'a -> 'b
    type get_flags =
      Bdb.Db.get_flags =
        DB_CONSUME
      | DB_CONSUME_WAIT
      | DB_GET_BOTH
      | DB_SET_RECNO
      | DB_DIRTY_READ
      | DB_MULTIPLE
      | DB_RMW
    external get : db -> dbtxn option -> string -> get_flags list -> string
      = "caml_db_get"
    val pget : 'a -> 'b
    val get_byteswapped : 'a -> 'b
    val get_type : 'a -> 'b
    val join : 'a -> 'b
    val key_range : 'a -> 'b
    type open_flags =
      Bdb.Db.open_flags =
        DB_CREATE
      | DB_DIRTY_READ
      | DB_EXCL
      | DB_NOMMAP
      | DB_RDONLY
      | DB_THREAD
      | DB_TRUNCATE
    external db_open :
      db ->
      dbtxn option ->
      string -> string -> dbtype -> open_flags list -> int -> unit
      = "caml_db_open_bytecode" "caml_db_open_native"
    type put_flags =
      Bdb.Db.put_flags =
        DB_APPEND
      | DB_NODUPDATA
      | DB_NOOVERWRITE
    external put :
      db -> dbtxn option -> string -> string -> put_flags list -> unit
      = "caml_db_put"
    type remove_flags = Bdb.Db.remove_flags
    external remove : db -> string -> string -> remove_flags list -> unit
      = "caml_db_remove"
    type rename_flags = Bdb.Db.rename_flags
    external rename :
      db -> string -> string -> string -> rename_flags list -> unit
      = "caml_db_rename"
    val stat : 'a -> 'b
    type sync_flags = Bdb.Db.sync_flags
    external sync : db -> sync_flags = "caml_db_sync"
    val truncate : 'a -> 'b
    val upgrade : 'a -> 'b
    val verify : 'a -> 'b
    val set_alloc : 'a -> 'b
    val set_cache_priority : 'a -> 'b
    val set_cachesize : 'a -> 'b
    val set_dup_compare : 'a -> 'b
    val set_encrypt : 'a -> 'b
    val set_errcall : 'a -> 'b
    val set_errfile : 'a -> 'b
    val set_errpfx : 'a -> 'b
    val set_feedback : 'a -> 'b
    val set_flags : 'a -> 'b
    val set_lorder : 'a -> 'b
    val set_pagesize : 'a -> 'b
    val set_paniccall : 'a -> 'b
    val set_append_recno : 'a -> 'b
    val set_bt_compare : 'a -> 'b
    val set_bt_minkey : 'a -> 'b
    val set_bt_prefix : 'a -> 'b
    val set_re_delim : 'a -> 'b
    val set_re_len : 'a -> 'b
    val set_re_pad : 'a -> 'b
    val set_re_source : 'a -> 'b
    val set_h_ffactor : 'a -> 'b
    val set_h_hash : 'a -> 'b
    val set_h_nelem : 'a -> 'b
    val set_q_extentsize : 'a -> 'b
  end
module Cursor :
  sig
    type db_cursor_flags =
      Bdb.Cursor.db_cursor_flags =
        DB_DIRTY_READ
      | DB_WRITECURSOR
    external db_cursor : db -> dbtxn option -> db_cursor_flags list -> dbc
      = "caml_db_cursor"
    external dbc_close : dbc -> unit = "caml_dbc_close"
    val dbc_count : 'a -> 'b
    val dbc_del : 'a -> 'b
    val dbc_dup : 'a -> 'b
    type dbc_get_flags =
      Bdb.Cursor.dbc_get_flags =
        DB_CURRENT
      | DB_FIRST
      | DB_LAST
      | DB_GET_BOTH
      | DB_GET_BOTH_RANGE
      | DB_GET_RECNO
      | DB_JOIN_ITEM
      | DB_NEXT
      | DB_PREV
      | DB_NEXT_DUP
      | DB_NEXT_NODUP
      | DB_PREV_NODUP
      | DB_SET
      | DB_SET_RANGE
      | DB_SET_RECNO
    external dbc_get : dbc -> dbc_get_flags list -> string * string
      = "caml_dbc_get"
    val dbc_pget : 'a -> 'b
    val dbc_put : 'a -> 'b
  end
val env_set_lk_conflicts : 'a -> 'b
val env_set_lk_detect : 'a -> 'b
val env_set_lk_max_lockers : 'a -> 'b
val env_set_lk_max_locks : 'a -> 'b
val env_set_lk_max_objects : 'a -> 'b
val lock_detect : 'a -> 'b
val lock_get : 'a -> 'b
val lock_id : 'a -> 'b
val lock_id_free : 'a -> 'b
val lock_put : 'a -> 'b
val lock_stat : 'a -> 'b
val lock_vec : 'a -> 'b
val env_set_lg_bsize : 'a -> 'b
val env_set_lg_dir : 'a -> 'b
val env_set_lg_max : 'a -> 'b
val env_set_lg_regionmax : 'a -> 'b
val log_archive : 'a -> 'b
val log_file : 'a -> 'b
val log_flush : 'a -> 'b
val log_put : 'a -> 'b
val log_stat : 'a -> 'b
val log_cursor : 'a -> 'b
val logc_close : 'a -> 'b
val logc_get : 'a -> 'b
val log_compare : 'a -> 'b
val env_set_cachesize : 'a -> 'b
val env_set_mp_mmapsize : 'a -> 'b
val memp_register : 'a -> 'b
val memp_stat : 'a -> 'b
val memp_sync : 'a -> 'b
val memp_trickle : 'a -> 'b
val memp_fcreate : 'a -> 'b
val memp_fclose : 'a -> 'b
val memp_fget : 'a -> 'b
val memp_fopen : 'a -> 'b
val memp_fput : 'a -> 'b
val memp_fset : 'a -> 'b
val memp_fsync : 'a -> 'b
val memp_set_clear_len : 'a -> 'b
val memp_set_fileid : 'a -> 'b
val memp_set_ftype : 'a -> 'b
val memp_set_lsn_offset : 'a -> 'b
val memp_set_pgcookie : 'a -> 'b
module Txn :
  sig
    val env_set_tx_max : 'a -> 'b
    val env_set_tx_timestamp : 'a -> 'b
    val checkpoint : 'a -> 'b
    val recover : 'a -> 'b
    val txn_stat : 'a -> 'b
    type txn_begin_flags =
      Bdb.Txn.txn_begin_flags =
        DB_DIRTY_READ
      | DB_TXN_NOSYNC
      | DB_TXN_NOWAIT
      | DB_TXN_SYNC
    external txn_begin :
      dbenv -> dbtxn option -> txn_begin_flags list -> dbtxn
      = "caml_txn_begin"
    external abort : dbtxn -> unit = "caml_txn_abort"
    type commit_flags = Bdb.Txn.commit_flags = DB_TXN_NOSYNC | DB_TXN_SYNC
    external commit : dbtxn -> commit_flags option -> unit
      = "caml_txn_commit"
    val discard : 'a -> 'b
    external id : dbtxn -> int32 = "caml_txn_id"
    val prepare : 'a -> 'b
    val set_timeout : 'a -> 'b
  end
val set_rep_transport : 'a -> 'b
val rep_elect : 'a -> 'b
val rep_limit : 'a -> 'b
val rep_process_message : 'a -> 'b
val rep_start : 'a -> 'b
val set_func_close : 'a -> 'b
val set_func_dirfree : 'a -> 'b
val set_func_dirlist : 'a -> 'b
val set_func_exists : 'a -> 'b
val set_func_free : 'a -> 'b
val set_func_fsync : 'a -> 'b
val set_func_ioinfo : 'a -> 'b
val set_func_malloc : 'a -> 'b
val set_func_map : 'a -> 'b
val set_func_open : 'a -> 'b
val set_func_read : 'a -> 'b
val set_func_realloc : 'a -> 'b
val set_func_rename : 'a -> 'b
val set_func_seek : 'a -> 'b
val set_func_unlink : 'a -> 'b
val set_func_unmap : 'a -> 'b
val set_func_write : 'a -> 'b
val set_func_yield : 'a -> 'b
val err_notfound : int
val err_keyempty : int
val err_keyexist : int
val err_lock_deadlock : int
val err_lock_notgranted : int
val err_runrecovery : int