sig
  val flags_old_to_new : AnyDBM.open_flag list -> AnyDBM.anydbm_open_flag
  val flags_new_to_old : AnyDBM.anydbm_open_flag -> AnyDBM.open_flag list
  val flags_new_to_open :
    AnyDBM.anydbm_open_flag ->
    Pervasives.open_flag -> Pervasives.open_flag list
  class virtual anyDBM_Base :
    AnyDBM.anydbm_open_flag ->
    object
      method add : string -> string -> unit
      method private assert_read : unit
      method private assert_write : unit
      method private can_read : bool
      method private can_write : bool
      method close : unit
      method private virtual do_add : string -> string -> unit
      method private virtual do_close : unit
      method private virtual do_find : string -> string
      method private virtual do_iter : (string -> string -> unit) -> unit
      method private virtual do_remove : string -> unit
      method private virtual do_replace : string -> string -> unit
      method find : string -> string
      method iter : (string -> string -> unit) -> unit
      method remove : string -> unit
      method replace : string -> string -> unit
    end
end