ocaml-base-compiler 4.09.1

module TypeSet : Set.S with type elt = Types.type_expr

module TypeMap : Map.S with type key = Types.type_expr

module TypeHash : Hashtbl.S with type key = Types.type_expr

val generic_level : int

val newty2 : int -> Types.type_desc -> Types.type_expr

val newgenty : Types.type_desc -> Types.type_expr

val newgenvar : ?name:string -> unit -> Types.type_expr

val is_Tvar : Types.type_expr -> bool

val is_Tunivar : Types.type_expr -> bool

val is_Tconstr : Types.type_expr -> bool

val dummy_method : Asttypes.label

val default_mty : Types.module_type option -> Types.module_type

val repr : Types.type_expr -> Types.type_expr

val field_kind_repr : Types.field_kind -> Types.field_kind

val commu_repr : Types.commutable -> Types.commutable

val row_repr : Types.row_desc -> Types.row_desc

val row_field_repr : Types.row_field -> Types.row_field

val row_field : Asttypes.label -> Types.row_desc -> Types.row_field

val row_more : Types.row_desc -> Types.type_expr

val row_fixed : Types.row_desc -> bool

val static_row : Types.row_desc -> bool

val hash_variant : Asttypes.label -> int

val proxy : Types.type_expr -> Types.type_expr

val row_of_type : Types.type_expr -> Types.type_expr

val has_constr_row : Types.type_expr -> bool

val is_row_name : string -> bool

val is_constr_row : allow_ident:bool -> Types.type_expr -> bool

val iter_type_expr : (Types.type_expr -> unit) -> Types.type_expr -> unit

val fold_type_expr : 
  ('a -> Types.type_expr -> 'a) ->
  'a ->
  Types.type_expr ->
  'a

val iter_row : (Types.type_expr -> unit) -> Types.row_desc -> unit

val fold_row : ('a -> Types.type_expr -> 'a) -> 'a -> Types.row_desc -> 'a

val iter_abbrev : (Types.type_expr -> unit) -> Types.abbrev_memo -> unit

type type_iterators = {

it_signature : type_iterators -> Types.signature -> unit;
it_signature_item : type_iterators -> Types.signature_item -> unit;
it_value_description : type_iterators -> Types.value_description -> unit;
it_type_declaration : type_iterators -> Types.type_declaration -> unit;
it_extension_constructor : type_iterators -> Types.extension_constructor -> unit;
it_module_declaration : type_iterators -> Types.module_declaration -> unit;
it_modtype_declaration : type_iterators -> Types.modtype_declaration -> unit;
it_class_declaration : type_iterators -> Types.class_declaration -> unit;
it_class_type_declaration : type_iterators -> Types.class_type_declaration -> unit;
it_module_type : type_iterators -> Types.module_type -> unit;
it_class_type : type_iterators -> Types.class_type -> unit;
it_type_kind : type_iterators -> Types.type_kind -> unit;
it_do_type_expr : type_iterators -> Types.type_expr -> unit;
it_type_expr : type_iterators -> Types.type_expr -> unit;
it_path : Path.t -> unit;

}

val type_iterators : type_iterators

val unmark_iterators : type_iterators

val copy_type_desc : 
  ?keep_names:bool ->
  (Types.type_expr -> Types.type_expr) ->
  Types.type_desc ->
  Types.type_desc

val copy_row : 
  (Types.type_expr -> Types.type_expr) ->
  bool ->
  Types.row_desc ->
  bool ->
  Types.type_expr ->
  Types.row_desc

val copy_kind : Types.field_kind -> Types.field_kind

module For_copy : sig ... end

val lowest_level : int

val pivot_level : int

val mark_type : Types.type_expr -> unit

val mark_type_node : Types.type_expr -> unit

val mark_type_params : Types.type_expr -> unit

val unmark_type : Types.type_expr -> unit

val unmark_type_decl : Types.type_declaration -> unit

val unmark_extension_constructor : Types.extension_constructor -> unit

val unmark_class_type : Types.class_type -> unit

val unmark_class_signature : Types.class_signature -> unit

val find_expans : 
  Asttypes.private_flag ->
  Path.t ->
  Types.abbrev_memo ->
  Types.type_expr option

val cleanup_abbrev : unit -> unit

val memorize_abbrev : 
  Types.abbrev_memo ref ->
  Asttypes.private_flag ->
  Path.t ->
  Types.type_expr ->
  Types.type_expr ->
  unit

val forget_abbrev : Types.abbrev_memo ref -> Path.t -> unit

val is_optional : Asttypes.arg_label -> bool

val label_name : Asttypes.arg_label -> Asttypes.label

val prefixed_label_name : Asttypes.arg_label -> Asttypes.label

val extract_label : 
  Asttypes.label ->
  (Asttypes.arg_label * 'a) list ->
  Asttypes.arg_label
  * 'a
  * (Asttypes.arg_label * 'a) list
  * (Asttypes.arg_label * 'a) list

type snapshot

val snapshot : unit -> snapshot

val backtrack : snapshot -> unit

val undo_compress : snapshot -> unit

val link_type : Types.type_expr -> Types.type_expr -> unit

val set_level : Types.type_expr -> int -> unit

val set_scope : Types.type_expr -> int -> unit

val set_name : 
  (Path.t * Types.type_expr list) option ref ->
  (Path.t * Types.type_expr list) option ->
  unit

val set_row_field : Types.row_field option ref -> Types.row_field -> unit

val set_univar : Types.type_expr option ref -> Types.type_expr -> unit

val set_kind : Types.field_kind option ref -> Types.field_kind -> unit

val set_commu : Types.commutable ref -> Types.commutable -> unit

val set_typeset : TypeSet.t ref -> TypeSet.t -> unit

val log_type : Types.type_expr -> unit

val print_raw : (Format.formatter -> Types.type_expr -> unit) ref

val iter_type_expr_kind : (Types.type_expr -> unit) -> Types.type_kind -> unit

val iter_type_expr_cstr_args : 
  (Types.type_expr -> unit) ->
  Types.constructor_arguments ->
  unit

val map_type_expr_cstr_args : 
  (Types.type_expr -> Types.type_expr) ->
  Types.constructor_arguments ->
  Types.constructor_arguments

package ocaml-base-compiler