Ppxlib.ExtensionDeclare extenders to rewrite extension nodes.
module Context : sig ... endval declare :
string ->
'context Context.t ->
(Astlib.Ast_500.Parsetree.payload, 'a, 'context) Ast_pattern.t ->
(loc:Location.t -> path:string -> 'a) ->
tdeclare name context pattern expander declares the extension names name for context.
expander is responsible for producing the code to replace the extension in the AST. It receives as argument:
loc: the location of the enclosing node. For instance for expression it is the pexp_loc fieldpath: the current module pathval declare_with_path_arg :
string ->
'context Context.t ->
(Astlib.Ast_500.Parsetree.payload, 'a, 'context) Ast_pattern.t ->
(loc:Location.t ->
path:string ->
arg:Longident.t Ppxlib_ast.Asttypes.loc option ->
'a) ->
tSame as declare except that the extension name takes an additional path argument. The path is the part of the name that start with a capitalized component. For instance in the following, the extension "map" would receive the path argument Foo.Bar:
let%map.Foo.Bar x = 1 in
...val declare_inline :
string ->
'context Context.t ->
(Astlib.Ast_500.Parsetree.payload, 'a, 'context list) Ast_pattern.t ->
(loc:Location.t -> path:string -> 'a) ->
tInline the result of the expansion into its parent. Only works for these contexts:
class_fieldclass_type_fieldsignature_itemstructure_itemval declare_inline_with_path_arg :
string ->
'context Context.t ->
(Astlib.Ast_500.Parsetree.payload, 'a, 'context list) Ast_pattern.t ->
(loc:Location.t ->
path:string ->
arg:Longident.t Ppxlib_ast.Asttypes.loc option ->
'a) ->
tmodule For_context : sig ... endThis module is used to implement Context_free.map_top_down
val filter_by_context : 'a Context.t -> t list -> 'a For_context.t listGiven a context and a list of extension expander, returns all the ones that are for this context.
module Expert : sig ... endThis module allows to declare extensions that do not produce a value of the context type. This is typically useful for extensions point that depends on more things from the context than the path and location.
val check_unused : Ast_traverse.iterval collect_unhandled_extension_errors :
Location.Error.t list Ast_traverse.foldmodule V2 : sig ... endmodule V3 : sig ... end