package ocaml-base-compiler
type 'a class_info = {cls_id : Ident.t;cls_id_loc : string Asttypes.loc;cls_decl : Types.class_declaration;cls_ty_id : Ident.t;cls_ty_decl : Types.class_type_declaration;cls_obj_id : Ident.t;cls_obj_abbr : Types.type_declaration;cls_typesharp_id : Ident.t;cls_abbr : Types.type_declaration;cls_arity : int;cls_pub_methods : string list;cls_info : 'a;
}type class_type_info = {clsty_ty_id : Ident.t;clsty_id_loc : string Asttypes.loc;clsty_ty_decl : Types.class_type_declaration;clsty_obj_id : Ident.t;clsty_obj_abbr : Types.type_declaration;clsty_typesharp_id : Ident.t;clsty_abbr : Types.type_declaration;clsty_info : Typedtree.class_type_declaration;
}val class_declarations :
Env.t ->
Parsetree.class_declaration list ->
Typedtree.class_declaration class_info list * Env.tval class_descriptions :
Env.t ->
Parsetree.class_description list ->
Typedtree.class_description class_info list * Env.tval class_type_declarations :
Env.t ->
Parsetree.class_description list ->
class_type_info list * Env.tval approx_class_declarations :
Env.t ->
Parsetree.class_description list ->
class_type_info listval virtual_methods : Types.class_signature -> Asttypes.label listtype error = | Unconsistent_constraint of (Types.type_expr * Types.type_expr) list| Field_type_mismatch of string * string * (Types.type_expr * Types.type_expr) list| Structure_expected of Types.class_type| Cannot_apply of Types.class_type| Apply_wrong_label of Asttypes.arg_label| Pattern_type_clash of Types.type_expr| Repeated_parameter| Unbound_class_2 of Longident.t| Unbound_class_type_2 of Longident.t| Abbrev_type_clash of Types.type_expr * Types.type_expr * Types.type_expr| Constructor_type_mismatch of string * (Types.type_expr * Types.type_expr) list| Virtual_class of bool * bool * string list * string list| Parameter_arity_mismatch of Longident.t * int * int| Parameter_mismatch of (Types.type_expr * Types.type_expr) list| Bad_parameters of Ident.t * Types.type_expr * Types.type_expr| Class_match_failure of Ctype.class_match_failure list| Unbound_val of string| Unbound_type_var of Format.formatter -> unit * Ctype.closed_class_failure| Make_nongen_seltype of Types.type_expr| Non_generalizable_class of Ident.t * Types.class_declaration| Cannot_coerce_self of Types.type_expr| Non_collapsable_conjunction of Ident.t * Types.class_declaration * (Types.type_expr * Types.type_expr) list| Final_self_clash of (Types.type_expr * Types.type_expr) list| Mutability_mismatch of string * Asttypes.mutable_flag| No_overriding of string * string| Duplicate of string * string
exception Error of Location.t * Env.t * errorexception Error_forward of Location.errorval report_error : Env.t -> Format.formatter -> error -> unit