Env.folds (#9922)
parent
9ca9df88c0
commit
f6a5b755f8
|
@ -436,9 +436,34 @@ val print_path: (Format.formatter -> Path.t -> unit) ref
|
||||||
|
|
||||||
(** Folds *)
|
(** Folds *)
|
||||||
|
|
||||||
|
val fold_values:
|
||||||
|
(string -> Path.t -> value_description -> 'a -> 'a) ->
|
||||||
|
Longident.t option -> t -> 'a -> 'a
|
||||||
|
val fold_types:
|
||||||
|
(string -> Path.t -> type_declaration -> 'a -> 'a) ->
|
||||||
|
Longident.t option -> t -> 'a -> 'a
|
||||||
val fold_constructors:
|
val fold_constructors:
|
||||||
(constructor_description -> 'a -> 'a) ->
|
(constructor_description -> 'a -> 'a) ->
|
||||||
Longident.t option -> t -> 'a -> 'a
|
Longident.t option -> t -> 'a -> 'a
|
||||||
|
val fold_labels:
|
||||||
|
(label_description -> 'a -> 'a) ->
|
||||||
|
Longident.t option -> t -> 'a -> 'a
|
||||||
|
|
||||||
|
(** Persistent structures are only traversed if they are already loaded. *)
|
||||||
|
val fold_modules:
|
||||||
|
(string -> Path.t -> module_declaration -> 'a -> 'a) ->
|
||||||
|
Longident.t option -> t -> 'a -> 'a
|
||||||
|
|
||||||
|
val fold_modtypes:
|
||||||
|
(string -> Path.t -> modtype_declaration -> 'a -> 'a) ->
|
||||||
|
Longident.t option -> t -> 'a -> 'a
|
||||||
|
val fold_classes:
|
||||||
|
(string -> Path.t -> class_declaration -> 'a -> 'a) ->
|
||||||
|
Longident.t option -> t -> 'a -> 'a
|
||||||
|
val fold_cltypes:
|
||||||
|
(string -> Path.t -> class_type_declaration -> 'a -> 'a) ->
|
||||||
|
Longident.t option -> t -> 'a -> 'a
|
||||||
|
|
||||||
|
|
||||||
(** Utilities *)
|
(** Utilities *)
|
||||||
val scrape_alias: t -> module_type -> module_type
|
val scrape_alias: t -> module_type -> module_type
|
||||||
|
|
Loading…
Reference in New Issue