sig
  class dbm :
    string ->
    AnyDBM.anydbm_open_flag ->
    int ->
    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 do_add : string -> string -> unit
      method private do_close : unit
      method private do_find : string -> string
      method private do_iter : (string -> string -> unit) -> unit
      method private do_remove : string -> unit
      method private 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
  val opendbm : string -> AnyDBM.open_flag list -> int -> AnyDBM_String.dbm
end