L- .*55.5.0+dev0-2025-04-28/*Ast_mapper&mapper`A;@@)attributea@@@*Ast_mapper&mapper@@@ @)Parsetree)attribute@@@ )Parsetree)attribute@@@ @@ @@ <../../parsing/ast_mapper.mli{ c e{ c @@*Ast_mapperC@*attributesb@@@*Ast_mapper&mapper@@@ @$list)Parsetree)attribute@@@ @@@ )Parsetree)attribute@@@ @@@ @@ @@ 3|  4|  @@2D@*binding_opc@@@*Ast_mapper&mapper@@@ @)Parsetree *binding_op@@@ )Parsetree!*binding_op@@@ @@ @@ W}  X}  @@VE@$cased@@@*Ast_mapper"&mapper@@@ @)Parsetree#$case@@@ )Parsetree$$case@@@ @@ @@ {~  |~  @@zF@%casese@@@*Ast_mapper%&mapper@@@ @y')Parsetree&$case@@@ @@@ !))Parsetree($case@@@ "@@@ $@@ %@@ &    H@@G@1class_declarationf@@@*Ast_mapper*&mapper@@@ )@)Parsetree+1class_declaration@@@ *)Parsetree,1class_declaration@@@ +@@ ,@@ -@ I K@ I @@H@1class_descriptiong@@@*Ast_mapper-&mapper@@@ 0@)Parsetree.1class_description@@@ 1)Parsetree/1class_description@@@ 2@@ 3@@ 4A  A  @@I@*class_exprh@@@*Ast_mapper0&mapper@@@ 7@)Parsetree1*class_expr@@@ 8)Parsetree2*class_expr@@@ 9@@ :@@ ;B  B  @@J@+class_fieldi@@@*Ast_mapper3&mapper@@@ >@)Parsetree4+class_field@@@ ?)Parsetree5+class_field@@@ @@@ A@@ B;C  <C  =@@:K@/class_signaturej@@@*Ast_mapper6&mapper@@@ E@)Parsetree7/class_signature@@@ F)Parsetree8/class_signature@@@ G@@ H@@ I_D > @`D > ~@@^L@/class_structurek@@@*Ast_mapper9&mapper@@@ L@)Parsetree:/class_structure@@@ M)Parsetree;/class_structure@@@ N@@ O@@ PE  E  @@M@*class_typel@@@*Ast_mapper<&mapper@@@ S@)Parsetree=*class_type@@@ T)Parsetree>*class_type@@@ U@@ V@@ WF  F  @@N@6class_type_declarationm@@@*Ast_mapper?&mapper@@@ Z@)Parsetree@6class_type_declaration@@@ [)ParsetreeA6class_type_declaration@@@ \@@ ]@@ ^G  H - a@@O@0class_type_fieldn@@@*Ast_mapperB&mapper@@@ a@)ParsetreeC0class_type_field@@@ b)ParsetreeD0class_type_field@@@ c@@ d@@ eI b dI b @@P@(constanto@@@*Ast_mapperE&mapper@@@ h@)ParsetreeF(constant@@@ i)ParsetreeG(constant@@@ j@@ k@@ lJ  J  @@Q@7constructor_declarationp@@@*Ast_mapperH&mapper@@@ o@)ParsetreeI7constructor_declaration@@@ p)ParsetreeJ7constructor_declaration@@@ q@@ r@@ s7K  8L  E@@6R@2directive_argumentq@@@*Ast_mapperK&mapper@@@ v@)ParsetreeL2directive_argument@@@ w)ParsetreeM2directive_argument@@@ x@@ y@@ z[M F H\M F @@ZS@$exprr@@@*Ast_mapperN&mapper@@@ }@)ParsetreeO*expression@@@ ~)ParsetreeP*expression@@@ @@ @@ N  N  @@~T@)extensions@@@*Ast_mapperQ&mapper@@@ @)ParsetreeR)extension@@@ )ParsetreeS)extension@@@ @@ @@ O  O  @@U@5extension_constructort@@@*Ast_mapperT&mapper@@@ @)ParsetreeU5extension_constructor@@@ )ParsetreeV5extension_constructor@@@ @@ @@ P  Q$V@@V@3include_declarationu@@@*Ast_mapperW&mapper@@@ @)ParsetreeX3include_declaration@@@ )ParsetreeY3include_declaration@@@ @@ @@ RWYRW@@W@3include_descriptionv@@@*Ast_mapperZ&mapper@@@ @)Parsetree[3include_description@@@ )Parsetree\3include_description@@@ @@ @@ SS@@X@1label_declarationw@@@*Ast_mapper]&mapper@@@ @)Parsetree^1label_declaration@@@ )Parsetree_1label_declaration@@@ @@ @@ 3T4T7@@2Y@(location@@@*Ast_mapper`&mapper@@@ @(Locationa!t@@@(Locationb!t@@@@@@@WU8:XU8g@@VZ@.module_binding@@@*Ast_mapperc&mapper@@@@)Parsetreed.module_binding@@@)Parsetreee.module_binding@@@@@@@{Vhj|Vh@@z[@2module_declaration@@@*Ast_mapperf&mapper@@@@)Parsetreeg2module_declaration@@@)Parsetreeh2module_declaration@@@@@@@WW@@\@3module_substitution@@@*Ast_mapperi&mapper@@@ @)Parsetreej3module_substitution@@@ )Parsetreek3module_substitution@@@ @@@@XX<@@]@+module_expr@@@*Ast_mapperl&mapper@@@@)Parsetreem+module_expr@@@)Parsetreen+module_expr@@@@@@@Y=?Y=q@@^@+module_type@@@*Ast_mappero&mapper@@@@)Parsetreep+module_type@@@)Parsetreeq+module_type@@@@@@@ Zrt Zr@@ _@7module_type_declaration@@@*Ast_mapperr&mapper@@@ @)Parsetrees7module_type_declaration@@@!)Parsetreet7module_type_declaration@@@"@@#@@$/[0\@@.`@0open_declaration@@@*Ast_mapperu&mapper@@@'@)Parsetreev0open_declaration@@@()Parsetreew0open_declaration@@@)@@*@@+S]T]^@@Ra@0open_description@@@*Ast_mapperx&mapper@@@.@)Parsetreey0open_description@@@/)Parsetreez0open_description@@@0@@1@@2w^_ax^_@@vb@,package_type@@@*Ast_mapper{&mapper@@@5@)Parsetree|,package_type@@@6)Parsetree},package_type@@@7@@8@@9__@@c@#pat@@@*Ast_mapper~&mapper@@@<@)Parsetree'pattern@@@=)Parsetree'pattern@@@>@@?@@@``@@d@'payload@@@*Ast_mapper&mapper@@@C@)Parsetree'payload@@@D)Parsetree'payload@@@E@@F@@Gaa(@@e@)signature@@@*Ast_mapper&mapper@@@J@)Parsetree)signature@@@K)Parsetree)signature@@@L@@M@@Nb)+b)W@@f@.signature_item@@@*Ast_mapper&mapper@@@Q@)Parsetree.signature_item@@@R)Parsetree.signature_item@@@S@@T@@U+cXZ,cX@@*g@)structure@@@*Ast_mapper&mapper@@@X@)Parsetree)structure@@@Y)Parsetree)structure@@@Z@@[@@\OdPd@@Nh@.structure_item@@@*Ast_mapper&mapper@@@_@)Parsetree.structure_item@@@`)Parsetree.structure_item@@@a@@b@@csete@@ri@2toplevel_directive@@@*Ast_mapper&mapper@@@f@)Parsetree2toplevel_directive@@@g)Parsetree2toplevel_directive@@@h@@i@@jffL@@j@/toplevel_phrase@@@*Ast_mapper&mapper@@@m@)Parsetree/toplevel_phrase@@@n)Parsetree/toplevel_phrase@@@o@@p@@qgMOgM@@k@#typ@@@*Ast_mapper&mapper@@@t@)Parsetree)core_type@@@u)Parsetree)core_type@@@v@@w@@xhh@@l@0type_declaration@@@*Ast_mapper&mapper@@@{@)Parsetree0type_declaration@@@|)Parsetree0type_declaration@@@}@@~@@ii@@m@.type_extension@@@*Ast_mapper&mapper@@@@)Parsetree.type_extension@@@)Parsetree.type_extension@@@@@@@'j(j8@@&n@.type_exception@@@*Ast_mapper&mapper@@@@)Parsetree.type_exception@@@)Parsetree.type_exception@@@@@@@Kk9;Lk9v@@Jo@)type_kind@@@*Ast_mapper&mapper@@@@)Parsetree)type_kind@@@)Parsetree)type_kind@@@@@@@olwyplw@@np@-value_binding@@@*Ast_mapper&mapper@@@@)Parsetree-value_binding@@@)Parsetree-value_binding@@@@@@@mm@@q@1value_description@@@*Ast_mapper&mapper@@@@)Parsetree1value_description@@@)Parsetree1value_description@@@@@@@nn'@@r@/with_constraint@@@*Ast_mapper&mapper@@@@)Parsetree/with_constraint@@@)Parsetree/with_constraint@@@@@@@o(*o(h@@s@@@A@@@@@z S Spij@@@@B@A@.default_mapper*Ast_mapper&mapper@@@@v??v?Y@@t@@)tool_name @$unit@@@&string@@@@@@{{@@u@@%apply &source@@@&target@@@@*Ast_mapper&mapper@@@1@@@ @@!@@"@@#@12@@0v@@(run_main @@(B@@@$@@@&*Ast_mapper&mapper@@@'@@(V@@@)@@*@VW@@Uw@@1register_function &Stdlib#ref@h@@@+@@\v@@@,@@@.*Ast_mapper&mapper@@@/@@0@@@1@@2@@3@@@5@SSS@@x@@(register @@@@6@@@@@7@@@9*Ast_mapper&mapper@@@:@@;@@@<@@=@@>@@@y@@'map_opt@@!a@IB@?!b@KB@@@@A@&optionL@@@C@@@E@@F@@G@G@@z@@2extension_of_error@(Location%error@@@L)Parsetree)extension@@@M@@N@III|@@{@@4attribute_of_warning@(Location!t@@@O@ @@@P)Parsetree)attribute@@@Q@@R@@S@ - - - h@@|@@3add_ppx_context_str)tool_name'@@@T@)Parsetree)structure@@@U)Parsetree)structure@@@V@@W@@X@?!Y!Y@!r!@@>}@@3add_ppx_context_sig)tool_nameK@@@Y@)Parsetree)signature@@@Z)Parsetree)signature@@@[@@\@@]@c""d""@@b~@@4drop_ppx_context_str'restore$bool@@@^@)Parsetree)structure@@@_)Parsetree)structure@@@`@@a@@b@###8#v@@@@4drop_ppx_context_sig'restore%@@@c@)Parsetree)signature@@@d)Parsetree)signature@@@e@@f@@g@$$$($f@@@@@*set_cookie@@@@h@)Parsetree*expression@@@i@@@j@@k@@l@%o%o%o%@@A@@*get_cookie@@@@m )Parsetree*expression@@@n@@@p@@q@%%%%@@B@@@3 The interface of a -ppx rewriter@ P A -ppx rewriter is a program that accepts a serialized abstract syntax tree and outputs another, possibly modified, abstract syntax tree. This module encapsulates the interface between the compiler and the -ppx rewriters, handling such details as the serialization format, forwarding of command-line flags, and storing state.@# 1Ast_mapper.mapperE@ R enables AST rewriting using open recursion. A typical mapper would be based on 9Ast_mapper.default_mapperD@ o, a deep identity mapper, and will fall back on it for handling the syntax it does not modify. For example:@# u open Asttypes open Parsetree open Ast_mapper let test_mapper argv = { default_mapper with expr = fun mapper expr -> match expr with | { pexp_desc = Pexp_extension ({ txt = "test" }, PStr [])} -> Ast_helper.Exp.constant (Pconst_integer ("42", None)) | other -> default_mapper.expr mapper other; } let () = register "ppx_test" test_mapper@ & This -ppx rewriter, which replaces '[%test] $ in expressions with the constant "42:, can be compiled using @ocamlc -o ppx_test -I +compiler-libs ocamlcommon.cma ppx_test.ml!.@# (Warning:@ ' this module is unstable and part of -Compiler_libs@-compiler-libs@!.@@@@@@@@@@@@A 9A@:A generic Parsetree mapper@@#J3 A mapper record implements one "method" per syntactic category, using an open recursion style: each method takes as its first argument the mapper to be applied to children in the syntax tree.@@@@@@@@@@@@@ l@@ k@ H@@ G@ @@ @@@@@@@@@@@@@c@@b@A@@@@@@@@@@@@@@@@@@@u@@t@S@@R@1@@0@@@@@@@@@@@@@@@@e@@d@C@@B@!@@ @@@@@@@@@@@@@w@@v@U@@T@3@@2@@@@@@@@@@@@@@@@g@@f@E@@D@#@@"@@@@@@@@@@@@@y@@x@W@@V@5@@4@@@@@@@@A@@@@3 =A default mapper, which implements a "deep identity" mapping.@@@@@@@@@@@@@@@@͠A@ "Apply mappers to compilation units@@4Ast_mapper.tool_name3 KCan be used within a ppx preprocessor to know which tool is calling it ("ocamlc"", *"ocamlopt"", *"ocamldoc"", *"ocamldep"&, '"ocaml" , ... Some global variables that reflect command-line options are automatically synchronized between the calling tool and the ppx preprocessor: 4Clflags.include_dirs@@&, ;Clflags.hidden_include_dirs@@", )Load_path@@", 4Clflags.open_modules@@&, 3Clflags.for_package@@", -Clflags.debug@@!.@@@@@@@@@@@@@ @@@@0Ast_mapper.apply3 VApply a mapper (parametrized by the unit name) to a dumped parsetree found in the &source $ file and put the result in the &target+ file. The )structure$ or )signature G field of the mapper is applied to the implementation or interface.@@@@@@@@@@@@(@('@"!@.@@@@3Ast_mapper.run_main3 Entry point to call to implement a standalone -ppx rewriter from a mapper, parametrized by the command line arguments. The current unit name can be obtained from 3Location.input_name@@ S. This function implements proper error reporting for uncaught exceptions.@@@@@@@@@@@@@C@@@@A@0Registration API@@Ast_mapper.add_ppx_context_str3 Extract information from the current environment and encode it into an attribute which is prepended to the list of structure items in order to pass the information to an external processor.@@@@@@@@@@@@@@@@@@>Ast_mapper.add_ppx_context_sig3(Same as 3add_ppx_context_str5, but for signatures.@@@@@@@@@@@@@@@@@@?Ast_mapper.drop_ppx_context_str3 ?Drop the ocaml.ppx.context attribute from a structure. If 'restore F is true, also restore the associated data in the current process.@@@@@@@@@@@@@@@@@@?Ast_mapper.drop_ppx_context_sig3(Same as 4drop_ppx_context_str5, but for signatures.@@@@@@@@@@@@@@@@@@A@'Cookies@@ Cookies are used to pass information from a ppx processor to a further invocation of itself, when called from the OCaml toplevel (or other tools that support cookies).@5Ast_mapper.set_cookie@@,@/@@@@y5Ast_mapper.get_cookie@t@8u@@@@e@@ O@@A)Parsetree(Location@@@@@