module Oid : sig ... endval format_oid : Oid.t -> unitmodule Lcstring : sig ... endval format_lcstring : Lcstring.t -> unittype 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 = {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 = {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 format_schema : schema -> unitexception Parse_error_oc of Lexing.lexbuf * objectclass * stringexception Parse_error_at of Lexing.lexbuf * attribute * stringexception Syntax_error_oc of Lexing.lexbuf * objectclass * stringexception Syntax_error_at of Lexing.lexbuf * attribute * stringval readSchema : string list -> string list -> schema