module Oid :
  sig
    type t = Ldap_schemaparser.Oid.t
    val of_string : string -> t
    val to_string : t -> string
    val compare : t -> t -> int
  end
val format_oid : Oid.t -> unit
module Lcstring :
  sig
    type t = Ldap_schemaparser.Lcstring.t
    val of_string : string -> t
    val to_string : t -> string
    val compare : t -> t -> int
  end
val format_lcstring : Lcstring.t -> unit
type octype = Ldap_schemaparser.octype = Abstract | Structural | Auxiliary
type objectclass =
  Ldap_schemaparser.objectclass = {
  oc_name : string list;
  oc_oid : Oid.t;
  oc_desc : string;
  oc_obsolete : bool;
  oc_sup : Lcstring.t list;
  oc_must : Lcstring.t list;
  oc_may : Lcstring.t list;
  oc_type : octype;
  oc_xattr : string list;
}
type attribute =
  Ldap_schemaparser.attribute = {
  at_name : string list;
  at_desc : string;
  at_oid : Oid.t;
  at_equality : string;
  at_ordering : string;
  at_substr : Oid.t;
  at_syntax : Oid.t;
  at_length : Int64.t;
  at_obsolete : bool;
  at_single_value : bool;
  at_collective : bool;
  at_no_user_modification : bool;
  at_usage : string;
  at_sup : Lcstring.t list;
  at_xattr : string list;
}
type schema =
  Ldap_schemaparser.schema = {
  objectclasses : (Lcstring.t, objectclass) Hashtbl.t;
  objectclasses_byoid : (Oid.t, objectclass) Hashtbl.t;
  attributes : (Lcstring.t, attribute) Hashtbl.t;
  attributes_byoid : (Oid.t, attribute) Hashtbl.t;
}
val schema_print_depth : int ref
val format_schema : schema -> unit
exception Parse_error_oc of Lexing.lexbuf * objectclass * string
exception Parse_error_at of Lexing.lexbuf * attribute * string
exception Syntax_error_oc of Lexing.lexbuf * objectclass * string
exception Syntax_error_at of Lexing.lexbuf * attribute * string
val readSchema : string list -> string list -> schema