sig
  val iter : ('a -> unit) -> < read_entry : 'a; .. > -> unit
  val fold : ('a -> 'b -> 'a) -> < read_entry : 'b; .. > -> 'a -> 'a
  val entry2ldif :
    ?ext:bool ->
    Buffer.t ->
    < attributes : string list; dn : string;
      get_value : string -> string list; .. > ->
    Buffer.t
  val read_ldif_file : string -> Ldap_ooclient.ldapentry list
  val write_ldif_file : string -> Ldap_ooclient.ldapentry list -> unit
  class ldif :
    ?in_ch:Pervasives.in_channel ->
    ?out_ch:Pervasives.out_channel ->
    unit ->
    object
      method of_string : string -> Ldap_ooclient.ldapentry
      method read_entry : Ldap_ooclient.ldapentry
      method to_string : Ldap_ooclient.ldapentry -> string
      method write_entry : Ldap_ooclient.ldapentry -> unit
    end
end