Caml1999I037(Tc7*Ast_mapper&mapper;@@)attributea@@@ @@@@)Parsetree)attribute@@@)attribute@@@@@@@6parsing/ast_mapper.mli{ c e{ c @@%C@*attributesb@@@@@@@$listK#)attribute@@@@@@ -)attribute@@@@@@@@@@&|  '|  @@JD@*binding_opc@@@C@@@@B*binding_op@@@G*binding_op@@@@@@@?}  @}  @@cE@$cased@@@\@@@@[$case@@@`$case@@@@@@@X~  Y~  @@|F@%casese@@@u@@@@Wx$case@@@@@@a$case@@@@@@@@@@{  |  H@@G@1class_declarationf@@@@@@@1class_declaration@@@1class_declaration@@@@@@@@ I K@ I @@H@1class_descriptiong@@@@@@@1class_description@@@1class_description@@@@@@@A  A  @@I@*class_exprh@@@@@@@*class_expr@@@*class_expr@@@@@@@B  B  @@J@+class_fieldi@@@@@@@+class_field@@@+class_field@@@@@@@C  C  =@@K@/class_signaturej@@@@@@{@/class_signature@@@|/class_signature@@@}@@~@@D > @D > ~@@L@/class_structurek@@@@@@v@/class_structure@@@w/class_structure@@@x@@y@@zE  E  @@5M@*class_typel@@@.@@@q@-*class_type@@@r2*class_type@@@s@@t@@u*F  +F  @@NN@6class_type_declarationm@@@G@@@l@F6class_type_declaration@@@mK6class_type_declaration@@@n@@o@@pCG  DH - a@@gO@0class_type_fieldn@@@`@@@g@_0class_type_field@@@hd0class_type_field@@@i@@j@@k\I b d]I b @@P@(constanto@@@y@@@b@x(constant@@@c}(constant@@@d@@e@@fuJ  vJ  @@Q@7constructor_declarationp@@@@@@]@7constructor_declaration@@@^7constructor_declaration@@@_@@`@@aK  L  E@@R@2directive_argumentq@@@@@@X@2directive_argument@@@Y2directive_argument@@@Z@@[@@\M F HM F @@S@$exprr@@@@@@S@*expression@@@T*expression@@@U@@V@@WN  N  @@T@)extensions@@@@@@N@)extension@@@O)extension@@@P@@Q@@RO  O  @@U@5extension_constructort@@@@@@I@5extension_constructor@@@J5extension_constructor@@@K@@L@@MP  Q$V@@V@3include_declarationu@@@@@@D@3include_declaration@@@E3include_declaration@@@F@@G@@H RWY RW@@/W@3include_descriptionv@@@(@@@?@'3include_description@@@@,3include_description@@@A@@B@@C$S%S@@HX@1label_declarationw@@@A@@@:@@1label_declaration@@@;E1label_declaration@@@<@@=@@>=T>T7@@aY@(location@@@Z@@@5@(Location!t@@@6!t@@@7@@8@@9ZU8:[U8g@@~Z@.module_binding@@@w@@@0@v.module_binding@@@1{.module_binding@@@2@@3@@4sVhjtVh@@[@2module_declaration@@@@@@+@2module_declaration@@@,2module_declaration@@@-@@.@@/WW@@\@3module_substitution@@@@@@&@3module_substitution@@@'3module_substitution@@@(@@)@@*XX<@@]@+module_expr@@@@@@!@+module_expr@@@"+module_expr@@@#@@$@@%Y=?Y=q@@^@+module_type@@@@@@@+module_type@@@+module_type@@@@@@@ ZrtZr@@_@7module_type_declaration@@@@@@@7module_type_declaration@@@7module_type_declaration@@@@@@@[\@@`@0open_declaration@@@ @@@@ 0open_declaration@@@0open_declaration@@@@@@@ ] ]^@@-a@0open_description@@@&@@@ @%0open_description@@@*0open_description@@@@@@@"^_a#^_@@Fb@,package_type@@@?@@@@>,package_type@@@ C,package_type@@@ @@ @@ ;_<_@@_c@#pat@@@X@@@@W'pattern@@@\'pattern@@@@@@@T`U`@@xd@'payload@@@q@@@@p'payload@@@u'payload@@@@@@@mana(@@e@)signature@@@@@@@)signature@@@)signature@@@@@@@b)+b)W@@f@.signature_item@@@@@@@.signature_item@@@.signature_item@@@@@@@cXZcX@@g@)structure@@@@@@@)structure@@@)structure@@@@@@@dd@@h@.structure_item@@@@@@@.structure_item@@@.structure_item@@@@@@@ee@@i@2toplevel_directive@@@@@@@2toplevel_directive@@@2toplevel_directive@@@@@@@ffL@@j@/toplevel_phrase@@@@@@@/toplevel_phrase@@@ /toplevel_phrase@@@@@@@gMOgM@@'k@#typ@@@ @@@@)core_type@@@$)core_type@@@@@@@߰hh@@@l@0type_declaration@@@9@@@@80type_declaration@@@=0type_declaration@@@@@@@ڰ5i6i@@Ym@.type_extension@@@R@@@@Q.type_extension@@@V.type_extension@@@@@@@հNjOj8@@rn@.type_exception@@@k@@@@j.type_exception@@@o.type_exception@@@@@@@аgk9;hk9v@@o@)type_kind@@@@@@@)type_kind@@@)type_kind@@@@@@@˰lwylw@@p@-value_binding@@@@@@@-value_binding@@@-value_binding@@@@@@@ưmm@@q@1value_description@@@@@@@1value_description@@@1value_description@@@@@@@nn'@@r@/with_constraint@@@@@@@/with_constraint@@@/with_constraint@@@@@@@o(*o(h@@s@@@A@@@@@z S Spij@@@@B@A@.default_mapper@@@@v??v?Y@@t@@)tool_name@$unitF@@@&stringQ@@@@@@{{@@u@@%apply&source@@@&target@@@@ @@@*@@@@@@@@@@@@8v@@(run_main@@9@@@@@@=@@@@@G@@@@@@12@@Uw@@1register_function&Stdlib#ref@X@@@@@<d@@@@@@h@@@@@r@@@@@@@@@@@]SS^S@@x@@(register@|@@@@@`@@@@@@@@@@@@@@@@@@@@@y@@'map_opt@@!a@!b@@@@&optionL@@@@@@@@@@@G@@z@@2extension_of_error@b%error@@@)extension@@@@@@III|@@{@@4attribute_of_warning @x!t@@@@@@@)attribute@@@@@@@@ - - - h@@|@@3add_ppx_context_str!)tool_name@@@@)structure@@@)structure@@@@@@@@!Y!Y!r!@@}@@3add_ppx_context_sig")tool_name@@@@)signature@@@)signature@@@@@@@@""""@@7~@@4drop_ppx_context_str#'restore$boolE@@@@5)structure@@@;)structure@@@@@@@@4##5#8#v@@X@@4drop_ppx_context_sig$'restore!@@@@T)signature@@@Z)signature@@@@@@@@S$$T$($f@@w@@@*set_cookie%@r@@@@q*expression@@@@@@@@@@@n%o%oo%o%@@A@@*get_cookie&@@@@*expression@@@@@@@@@%%%%@@B@@@q_b*Ast_mapper0'F(vjY j(Warnings0mJɒkgrn{T8cئ@@@Caml1999T037xf_C*Ast_mapper*ocaml.text&_none_@@A  The interface of a -ppx rewriter 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. {!mapper} enables AST rewriting using open recursion. A typical mapper would be based on {!default_mapper}, a deep identity mapper, and will fall back on it for handling the syntax it does not modify. For example: {[ 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]. {b Warning:} this module is unstable and part of {{!Compiler_libs}compiler-libs}. 6parsing/ast_mapper.mliP77t  @@@@@@3@@@@@@#intA;@@@A@@@@@:@A@$charB;@@A@@@@@>@A@&stringQ;@@ A@@@@@B@@@%bytesC;@@ A@@@@@F@@@%floatD;@@A@@@@@J@@@$boolE;@@%falsec@@T@$trued@@Z@@@A@@@@@[@A@$unitF;@@"()e@@e@@@A@@@@@f@A@ #exnG;@@@A@@@@@j@@@#effH;@@O@A@A@@@@@@s@@@,continuationI;@@Q@@P@B@A@nY@@@@@@@@@%arrayJ;@@R@A@A@@@@@@@@@ $listK;@@S@A"[]f@@@"::g@@@T@@@ @@A@Y@@@@@@@@&optionL;@@V@A$Noneh@@@$Somei@@@@@A@Y@@@@@@@@)nativeintM;@@A@@@@@@@@%int32N;@@A@@@@@@@@%int64O;@@A@@@@@@@@&lazy_tP;@@X@AJA@Y@@@@@@@@5extension_constructorR;@@A@@@@@@@@*floatarrayS;@@A@@@@@@@@&iarrayT;@@Y@A[A@Y@@@@@@@@*atomic_locU;@@Z@AdA@@@@@@@@@.Assert_failure`#@@@@@J@@@@@@@@[@@A=ocaml.warn_on_literal_pattern @ @0Division_by_zero]#@@@A  @+End_of_file\#$@@@A@'FailureY#,@'@@A!$$@0Invalid_argumentX#5@0@@A*$-#-@-Match_failureV#>@@=@9@;@@a@@A;5>4>@)Not_foundZ#O@@@AC=F<F@-Out_of_memoryW#W@@@AKENDN@.Stack_overflow^#_@@@ASMVLV@.Sys_blocked_io_#g@@@A[U^T^@)Sys_error[#o@j@@Ad^g]g@:Undefined_recursive_modulea#x@@w@s@u@@h@@Auoxnx@:Continuation_already_takenb#@@@A}wv@&Stdlib@Axࠐ)Parsetree)Parsetreev  !v  *@@A3@ @Av  @@@ {1 A generic Parsetree mapper} x , ,x , Q@@@@@@A+&mapper`Az S Xz S ^@@;@@)attributea@@@@@@ @;)attribute@@@ @)attribute@@@ @@ @@ { c e{ c @@C@*attributesb@@@+@@@ @QY)attribute@@@ @@@ [c)attribute@@@ @@@ @@ @@ |  |  @@D@*binding_opc@@@O@@@ @y*binding_op@@@ ~*binding_op@@@ @@ @@ }  }  @@E@$cased@@@i@@@ @$case@@@ $case@@@ @@ @@ ~  ~  @@0F@%casese@@@@@@ @$case@@@ @@@ !$case@@@ "@@@ $@@ %@@ &;  <  H@@TG@1class_declarationf@@@@@@ )@1class_declaration@@@ *1class_declaration@@@ +@@ ,@@ -U@ I KV@ I @@nH@1class_descriptiong@@@@@@ 0@1class_description@@@ 11class_description@@@ 2@@ 3@@ 4oA  pA  @@I@*class_exprh@@@@@@ 7@*class_expr@@@ 8 *class_expr@@@ 9@@ :@@ ;B  B  @@J@+class_fieldi@@@@@@ >@+class_field@@@ ?$+class_field@@@ @@@ A@@ BC  C  =@@K@/class_signaturej@@@@@@ E@9/class_signature@@@ F>/class_signature@@@ G@@ H@@ ID > @D > ~@@L@/class_structurek@@@)@@@ L@S/class_structure@@@ MX/class_structure@@@ N@@ O@@ PE  E  @@M@*class_typel@@@C@@@ S@m*class_type@@@ Tr*class_type@@@ U@@ V@@ WF  F  @@ N@6class_type_declarationm@@@]@@@ Z@6class_type_declaration@@@ [6class_type_declaration@@@ \@@ ]@@ ^ G   H - a@@$O@0class_type_fieldn@@@w@@@ a@0class_type_field@@@ b0class_type_field@@@ c@@ d@@ e%I b d&I b @@>P@(constanto@@@@@@ h@(constant@@@ i(constant@@@ j@@ k@@ l?J  @J  @@XQ@7constructor_declarationp@@@@@@ o@7constructor_declaration@@@ p7constructor_declaration@@@ q@@ r@@ sYK  ZL  E@@rR@2directive_argumentq@@@@@@ v@2directive_argument@@@ w2directive_argument@@@ x@@ y@@ zsM F HtM F @@S@$exprr@@@@@@ }@ *expression@@@ ~*expression@@@ @@ @@ N  N  @@T@)extensions@@@@@@ @#)extension@@@ ()extension@@@ @@ @@ O  O  @@U@5extension_constructort@@@@@@ @=5extension_constructor@@@ B5extension_constructor@@@ @@ @@ P  Q$V@@V@3include_declarationu@@@-@@@ @W3include_declaration@@@ \3include_declaration@@@ @@ @@ RWYRW@@W@3include_descriptionv@@@G@@@ @q3include_description@@@ v3include_description@@@ @@ @@ SS@@X@1label_declarationw@@@a@@@ @1label_declaration@@@ 1label_declaration@@@ @@ @@ TT7@@(Y@(location@@@{@@@ @(Location!t@@@!t@@@@@@@-U8:.U8g@@FZ@.module_binding@@@@@@@.module_binding@@@.module_binding@@@@@@@GVhjHVh@@`[@2module_declaration@@@@@@@2module_declaration@@@2module_declaration@@@@@@@aWbW@@z\@3module_substitution@@@@@@ @3module_substitution@@@ 3module_substitution@@@ @@@@{X|X<@@]@+module_expr@@@@@@@+module_expr@@@+module_expr@@@@@@@Y=?Y=q@@^@+module_type@@@@@@@++module_type@@@0+module_type@@@@@@@ZrtZr@@_@7module_type_declaration@@@@@@ @E7module_type_declaration@@@!J7module_type_declaration@@@"@@#@@$[\@@`@0open_declaration@@@5@@@'@_0open_declaration@@@(d0open_declaration@@@)@@*@@+]]^@@a@0open_description@@@O@@@.@y0open_description@@@/~0open_description@@@0@@1@@2^_a^_@@b@,package_type@@@i@@@5@,package_type@@@6,package_type@@@7@@8@@9__@@0c@#pat@@@@@@<@'pattern@@@='pattern@@@>@@?@@@1`2`@@Jd@'payload@@@@@@C@'payload@@@D'payload@@@E@@F@@GKaLa(@@de@)signature@@@@@@J@)signature@@@K)signature@@@L@@M@@Neb)+fb)W@@~f@.signature_item@@@@@@Q@.signature_item@@@R.signature_item@@@S@@T@@UcXZcX@@g@)structure@@@@@@X@)structure@@@Y)structure@@@Z@@[@@\dd@@h@.structure_item@@@@@@_@/.structure_item@@@`4.structure_item@@@a@@b@@cee@@i@2toplevel_directive@@@@@@f@I2toplevel_directive@@@gN2toplevel_directive@@@h@@i@@jffL@@j@/toplevel_phrase@@@9@@@m@c/toplevel_phrase@@@nh/toplevel_phrase@@@o@@p@@qgMOgM@@k@#typ@@@S@@@t@})core_type@@@u)core_type@@@v@@w@@xhh@@l@0type_declaration@@@m@@@{@0type_declaration@@@|0type_declaration@@@}@@~@@ii@@4m@.type_extension@@@@@@@.type_extension@@@.type_extension@@@@@@@5j6j8@@Nn@.type_exception@@@@@@@.type_exception@@@.type_exception@@@@@@@Ok9;Pk9v@@ho@)type_kind@@@@@@@)type_kind@@@)type_kind@@@@@@@ilwyjlw@@p@-value_binding@@@@@@@-value_binding@@@-value_binding@@@@@@@mm@@q@1value_description@@@@@@@1value_description@@@1value_description@@@@@@@nn'@@r@/with_constraint@@@ @@@@3/with_constraint@@@8/with_constraint@@@@@@@o(*o(h@@s@@@A@@@@@z S Spij@)ocaml.docΐ 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. qkkt1=@@@@@@@@@B@@#''{ c n@@@Ш@б@г*&mapper{ c p{ c v@@23@\B;@@@A@@@@@*'@@@A@@б@г34{ c z{ c @@:@@г67{ c { c @@=@@E @@L@@O@@ @=@#99|  @@@Ш@б@г<&mapper |   |  @@D,@@б@гA$list|  |  @гFG|  |  @@M?@@@R@ @@гI$list'|  (|  @гNO/|  0|  @@UQ@@@ZR @@gS @@nT+ @@q@@ W@U@#QQ>;}  @=@@Ш@б@гT&mapperF}  G}  @@\h@@б@гYZP}  Q}  @@`r@@г\]X}  Y}  @@cz@@k{ @@r|@@u@@ @c@#__Lc~  @K@@Ш@б@гb&mappern~  o~  @@j@@б@гghx~  y~  @@n@@гjk~  ~  @@q@@y @@@@@@ @q@#mmP  %@O@@Ш@б@гp&mapper  '  -@@x@@б@гu$list  6  :@гz{  1  5@@˰@@@̰ @@г}$list  C  G@г  >  B@@ݰ@@@ް @@߰ @@+ @@@@ '@@#r@ I \@q@@Ш@б@г&mapper@ I ^@ I d@@@@б@г@ I h@ I y@@@@г@ I }@ I @@@@ @@@@@@ . @@#A  @@@Ш@б@г&mapperA  A  @@@@б@гA  A  @@&@@г A   A  @@.@@/ @@0@@@@ 53@@#B  @@@Ш@б@г&mapper"B  #B  @@D@@б@г,B  -B  @@N@@г4B  5B  @@V@@W @@X@@@@ <[@@#?C  @@@Ш@б@г&mapperJC  KC  @@l@@б@гTC  "UC  -@@v@@г\C  1]C  <@@~@@ @@@@@@ C@@#gD > O@@@Ш@б@г&mapperrD > QsD > W@@@@б@гŠư|D > [}D > j@@@@гȠɰD > nD > }@@@@ @@@@@@ J@@#ˠ˰E  @@@Ш@б@гΠ&mapperE  E  @@@@б@гӠ԰E  E  @@ư@@г֠װE  E  @@ΰ@@ϰ @@а@@@@ Q@@#٠ٰF  @@@Ш@б@гܠ&mapperF  F  @@@@б@г᠐F  F  @@@@г䠐F  F  @@@@ @@@@@@ X@@#G  @@@Ш@б@гꠐ&mapperG  G  @@ @@б@гG  G  ,@@@@гH - JH - `@@@@ @@ @@ @@ _#@@# I b t@@@Ш@б@г&mapper I b v I b |@@4@@б@г I b  I b @@>@@г $I b  %I b @@F@@G @@H@@@@ fK@@# /J  @@@Ш@б@г&mapper :J   ;J  @@\@@б@г   DJ   EJ  @@f@@г LJ   MJ  @@n@@o @@$p@@'@@ ms@@# WK  @@@Ш@б@г&mapper bK   cK  @@@@б@г lK   mK  @@ @@г tL  - uL  D@@#@@+ @@2@@5@@ t@#@#  M F Z@ @@Ш@б@г"&mapper M F \ M F b@@*@@б@г'( M F f M F x@@.@@г*+ M F | M F @@1@@9 @@@@@C@@ {@1@#-- N  @@@Ш@б@г0&mapper N   N  @@8԰@@б@г56 N   N  @@<ް@@г89 N   N  @@?@@G @@N@@Q@@ @?@#;;( O  @'@@Ш@б@г>&mapper O   O  @@F@@б@гCD O   O  @@J@@гFG O   O  @@M@@U @@\@@_@@ @M@#II6 P @5@@Ш@б@гL&mapper P  P  @@T$@@б@гQR P  P #@@X.@@гTU Q$@ Q$U@@[6@@c7 @@j8@@m@@ ;@[@#WWD RWl@C@@Ш@б@гZ&mapper *RWn +RWt@@bL@@б@г_` 4RWx 5RW@@fV@@гbc <RW =RW@@i^@@q_ @@x`@@{@@ c@i@#eeR GS@Q@@Ш@б@гh&mapper RS SS@@pt@@б@гmn \S ]S@@t~@@гpq dS eS@@w@@ @@@@@@ @w@#ss` oT@_@@Ш@б@гv&mapper zT {T @@~@@б@г{| T T!@@@@г~ T% T6@@@@ @@@@@@ @@#j U8B@i@@Ш@б@г&mapper U8D U8J@@İ@@б@г(Location U8N U8V@ U8W U8X@@@ְ@@г(Location U8\ U8d@ U8e U8f@@@@@@@'@@@@@@# Vhx@@@Ш@б@г&mapper Vhz Vh@@@@б@г Vh Vh@@@@г Vh Vh@@@@ @@@@@@@@# W@@@Ш@б@г&mapper W W@@$@@б@г W W@@.@@г W W@@6@@7 @@8@@@@ ;@@# X@@@Ш@б@г&mapper *X +X @@L@@б@г 4X 5X$@@V@@г ð <X( =X;@@^@@_ @@`@@@@c@@#ŠŰ GY=J@@@Ш@б@гȠ&mapper RY=L SY=R@@t@@б@г͠ΰ \Y=V ]Y=a@@~@@гРѰ dY=e eY=p@@@@ @@@@@@@@#ӠӰ oZr@@@Ш@б@г֠&mapper zZr {Zr@@@@б@г۠ܰ Zr Zr@@@@гޠ߰ Zr Zr@@@@ @@@@@@@@# [@@@Ш@б@г䠐&mapper [ [@@İ@@б@г預 [ [@@ΰ@@г점 \ \@@ְ@@װ @@ذ@@@@%@@# ]-@@@Ш@б@г&mapper ]/ ]5@@@@б@г ]9 ]I@@@@г ]M ]]@@@@  @@@@@@,@@# ^_q@@@Ш@б@г&mapper ^_s ^_y@@@@б@г ^_} ^_@@ @@г  ^_ ^_@@&@@' @@(@@!@@3+@@#   _@@@Ш@б@г&mapper _ _@@<@@б@г $_ %_@@F@@г ,_ -_@@N@@%O @@,P@@/@@:S@@# 7`@@@Ш@б@г&mapper B` C`@@$d@@б@г!" L` M`@@(n@@г$% T` U`@@+v@@3w @@:x@@=@@A{@+@#'' _a @@@Ш@б@г*&mapper ja  ka@@2@@б@г/0 ta ua@@6@@г23 |a  }a'@@9@@A @@H@@K@@H@9@#55" b)4@!@@Ш@б@г8&mapper b)6 b)<@@@@@б@г=> b)@ b)I@@D@@г@A b)M b)V@@Gư@@Oǰ @@VȰ@@Y@@O@G@#CC0 cXh@/@@Ш@б@гF&mapper cXj cXp@@Nܰ@@б@гKL cXt cX@@R@@гNO cX cX@@U@@] @@d@@g@@V@U@#QQ> d@=@@Ш@б@гT&mapper d d@@\@@б@гYZ d d@@`@@г\] d d@@c@@k @@r@@u@@]@c@#__L e@K@@Ш@б@гb&mapper e e@@j,@@б@гgh e e@@n6@@гjk e e@@q>@@y? @@@@@@@dC@q@#mmZ 'f@Y@@Ш@б@гp&mapper 2f 3f@@xT@@б@гuv <f# =f5@@|^@@гxy Df9 EfK@@f@@g @@h@@@@kk@@#{{h OgM^@g@@Ш@б@г~&mapper ZgM` [gMf@@|@@б@г dgMj egMy@@@@г lgM} mgM@@@@ @@@@@@r@@#v wh@u@@Ш@б@г&mapper h h@@@@б@г h h@@@@г h h@@@@ @@@@@@y@@# i@@@Ш@б@г&mapper i i@@̰@@б@г i i@@ְ@@г i i@@ް@@߰ @@@@@@@@# j @@@Ш@б@г&mapper j  j@@@@б@г j j%@@@@г j) j7@@@@ @@@@@@ @@# k9I@@@Ш@б@г&mapper k9K k9Q@@@@б@гk9Uk9c@@&@@г k9g k9u@@.@@/ @@0@@@@3@@#lw@@@Ш@б@гĠ&mapper"lw#lw@@D@@б@гɠʰ,lw-lw@@N@@г̠Ͱ4lw5lw@@V@@W @@X@@@@[@@#Ϡϰ?m@@@Ш@б@гҠ&mapperJmKm@@l@@б@гנذTmUm@@v@@гڠ۰\m]m@@~@@ @@@@@@@@#ݠݰgn@@@Ш@б@гࠐ&mapperrnsn@@@@б@г堐|n}n@@@@г蠐nn&@@@@ @@@@@@@@#o(9@@@Ш@б@г&mappero(;o(A@@@@б@гo(Eo(T@@ư@@гo(Xo(g@@ΰ@@ϰ @@ а@@@@@@@A@Ð@@@@@@@ 9@.default_mapperv?Cv?Q@г ,&mapperv?Sv?Y@@ @@@B3@ Q 7 1@A@@@v?? @ ? A default mapper, which implements a "deep identity" mapping. wZZwZ@@@@@@@t@@@.@@@@@@!  ( {1 Apply mappers to compilation units} yy@@@@@@3@3F1@A)tool_name {{@б@гɠ$unit{{@@ @@@C@@г&string){*{@@ @@@D'@@@@@E*@@@4{ @x  Can 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: {!Clflags.include_dirs}, {!Clflags.hidden_include_dirs}, {!Load_path}, {!Clflags.open_modules}, {!Clflags.for_package}, {!Clflags.debug}. A|B|@@@@@@@Zu@@@U@@@@@@I%apply XY@б&sourceг/&stringef@@ @@@F3gffggggg@d_:@A@@б&targetгB&stringxy@@ @@@G@@б@г 㠐&mapper@@ @@@H"@@гA$unit@@ @@@I/@@@@@J2@@0%@@K5 @@G<@@L9@@@@될 Apply 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] field of the mapper is applied to the implementation or interface. @@@@@@@v@@#@Ȑ@@@@@@Y(run_main @б@б@гT$list@г&string@@ @@@M3@~D@A@@@ @@@O @@гR&mapper @@ @@@P@@@@@Q@@г$unit@@ @@@R$@@@@@S' @@@ @ V  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 {!Location.input_name}. This function implements proper error reporting for uncaught exceptions.  "4@@@@@@@8w@@@ f3@@@@@@GA@6 {1 Registration API} =66>6Q@@@@@@3<;;<<<<<@Yz1@A1register_function ISWJSh@г#refRSSS@б@г(&string^Sk_Sq@@ @@@T$@@б@б@г렐$listoS}pS@гC&stringySvzS|@@ @@@U?@@@@@@WD @@г砐&mapperSS@@ @@@XQ@@@@@YT@@гH$unitSS@@ @@@Za@@@@@[dSu @@@G@@\hJ @@@]@@@^mSj[@@@SS^@@x@@`@@t(register @б@г&string@@ @@@_3@@A@@б@б@гU$list@г&string@@ @@@`@@@@@@b" @@гQ&mapper@@ @@@c/@@@@@d2@@г$unit@@ @@@e?@@@@@fB @@@I@@gFL @@@@ X  Apply the [register_function]. The default behavior is to run the mapper immediately, taking arguments from the process command line. This is to support a scenario where a mapper is linked as a stand-alone executable. It is possible to overwrite the [register_function] to define "-ppx drivers", which combine several mappers in a single process. Typically, a driver starts by defining [register_function] to a custom implementation, then lets ppx rewriters (linked statically or dynamically) register themselves, and then run all or some of them. It is also possible to have -ppx drivers apply rewriters to only specific parts of an AST. The first argument to [register] is a symbolic name to be used by the ppx driver. !"@@@@@@@:y@@@ h5@@@@@@eCB , {1 Convenience functions to write mappers} ?@@@@@@@3>==>>>>>@w1@A'map_optKL!@б@б@А!a@rB@hZ$[&@@А!b@tB@i#e*f,@@@ @@j(@@б@гҠ&options4t:@А!a%8z1{3@@@+@@@l? @@г砐&optionAG@А!b/M>@@@@5@@@nT @@@@@oW@@@4@@pZ#@@@@@z@@@@a2extension_of_errorIMI_@б@г %error(LocationIaIi@ IjIo@@@@@@u3@~(@A @@гM)extensionIsI|@@ @@@v@@@@@w@@@II @  Encode an error into an 'ocaml.error' extension node which can be inserted in a generated Parsetree. The compiler will be responsible for reporting the error. }}  +@@@@@@@{@@@ ,@@@@@@14attribute_of_warning - 1 - E@б@г !t(Location  - G  - O@  - P - Q@@@@@@x3@SqA@A @@б@г렐&string! - U" - [@@ @@@y@@г)attribute. - _/ - h@@ @@@z@@@@@{!@@@'@@|$/ @@@< - -@ Encode a warning message into an 'ocaml.ppwarning' attribute which can be inserted in a generated Parsetree. The compiler will be responsible for reporting the warning. I i iJ !!@@@@@@@b|@@@ ]@@@@@@Ckj / {1 Helper functions to call external mappers} g!#!#h!#!W@@@@@@3feefffff@Us1@A3add_ppx_context_strs!Y!]t!Y!p@б)tool_nameгJ&string!r!!r!@@ @@@}@@б@г)structure)Parsetree!r!!r!@ !r!!r!@@@@@@~4 @@г%)structure)Parsetree!r!!r!@ !r!!r!@@@@@@J @@@@@M$ @@B7@@P!r!v @@@!Y!Y@  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. !!"t"@@@@@@@}@@ @ ސ@@@@@@p3add_ppx_context_sig""""@б)tool_nameг&string""""@@ @@@3@:@A@@б@г)signature)Parsetree""""@ """"@@@@@@ @@г)signature)Parsetree""""@ """"@@@@@@0 @@@@@3$ @@D9@@6*"" @@@-""@ q 4 Same as [add_ppx_context_str], but for signatures. :"";"#@@@@@@@S~@@ @ N@@@@@@V4drop_ppx_context_strQ##"R##6@б'restoreг$bool^#8#D_#8#H@@ @@@3`__`````@q:@A@@б@г)structure)Parsetrees#8#Lt#8#U@ w#8#Vx#8#_@@@@@@ @@г)structure)Parsetree#8#c#8#l@ #8#m#8#v@@@@@@0 @@@@@3$ @@D9@@6#8#< @@@##@ ᐠ Drop the ocaml.ppx.context attribute from a structure. If [restore] is true, also restore the associated data in the current process. #w#w#$ @@@@@@@@@ @ @@@@@@V4drop_ppx_context_sig$$$$&@б'restoreг$bool$($4$($8@@ @@@3@q:@A@@б@г_)signature)Parsetree$($<$($E@ $($F$($O@@@@@@ @@гu)signature)Parsetree$($S$($\@ $($]$($f@@@@@@0 @@@@@3$ @@D9@@6 $($, @@@ $$@ Q 5 Same as [drop_ppx_context_str], but for signatures. $g$g$g$@@@@@@@3@@@ @ a.@@@@@@V<;- {1 Cookies} 8$$9$$@@@@@@376677777@h1@AON 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). K$$L%7%m@@@@@@*set_cookieU%o%sV%o%}@б@г*&string`%o%a%o%@@ @@@+@@б@г*expression)Parsetrees%o%t%o%@ w%o%x%o%@@@@@@C @@г2$unit%o%%o%@@ @@@P@@@@@S@@@.@@V1 @@@%o%o@@A@@@@\*get_cookie%%%%@б@гs&string%%%%@@ @@@3@u_@A@@г&option%%%%@гB*expression)Parsetree%%%%@ %%%%@@@@@@" @@@ @@@'@@@-@@*0 @@@%%#@@B@@%@@0@@:A@ @@A@!@<@5@Q@J@@9@@]@=@k@d%@@3@Qf'@A@ H************************************************************************A@@A@L@ H  BMM BM@ H OCaml CC@ H DD3@ H Alain Frisch, LexiFi E44E4@ H "F#F@ H Copyright 2012 Institut National de Recherche en Informatique et (G)G@ H en Automatique. .H/Hg@ H 4Ihh5Ih@ H All rights reserved. This file is distributed under the terms of :J;J@ H the GNU Lesser General Public License version 2.1, with the @KAKN@ H special exception on linking described in the file LICENSE. FLOOGLO@ H LMMM@ H************************************************************************RNSN5@ * The interface of a -ppx rewriter 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. {!mapper} enables AST rewriting using open recursion. A typical mapper would be based on {!default_mapper}, a deep identity mapper, and will fall back on it for handling the syntax it does not modify. For example: {[ 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]. {b Warning:} this module is unstable and part of {{!Compiler_libs}compiler-libs}. X !* {1 A generic Parsetree mapper}   * 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.  @* A default mapper, which implements a "deep identity" mapping. z )* {1 Apply mappers to compilation units} _ * Can 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: {!Clflags.include_dirs}, {!Clflags.hidden_include_dirs}, {!Load_path}, {!Clflags.open_modules}, {!Clflags.for_package}, {!Clflags.debug}. & * Apply 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] field of the mapper is applied to the implementation or interface.  * 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 {!Location.input_name}. This function implements proper error reporting for uncaught exceptions. N7* {1 Registration API} 3  * Apply the [register_function]. The default behavior is to run the mapper immediately, taking arguments from the process command line. This is to support a scenario where a mapper is linked as a stand-alone executable. It is possible to overwrite the [register_function] to define "-ppx drivers", which combine several mappers in a single process. Typically, a driver starts by defining [register_function] to a custom implementation, then lets ppx rewriters (linked statically or dynamically) register themselves, and then run all or some of them. It is also possible to have -ppx drivers apply rewriters to only specific parts of an AST. The first argument to [register] is a symbolic name to be used by the ppx driver. R -* {1 Convenience functions to write mappers} 7 * Encode an error into an 'ocaml.error' extension node which can be inserted in a generated Parsetree. The compiler will be responsible for reporting the error.  * Encode a warning message into an 'ocaml.ppwarning' attribute which can be inserted in a generated Parsetree. The compiler will be responsible for reporting the warning. 3 0* {1 Helper functions to call external mappers}  * 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.  5* Same as [add_ppx_context_str], but for signatures. K * Drop the ocaml.ppx.context attribute from a structure. If [restore] is true, also restore the associated data in the current process. ޠ 6* Same as [drop_ppx_context_str], but for signatures. q.* {1 Cookies} V * 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). F@-./boot/ocamlc)-nostdlib"-I&./boot*-use-prims2runtime/primitives"-g0-strict-sequence*-principal(-absname"-w8+a-4-9-40-41-42-44-45-48+-warn-error"+a*-bin-annot/-strict-formats"-I'parsing"-I%utils"-I'parsing"-I&typing"-I(bytecomp"-I,file_formats"-I&lambda"-I*middle_end"-I2middle_end/closure"-I2middle_end/flambda"-I=middle_end/flambda/base_types"-I'asmcomp"-I&driver"-I(toplevel"-I%tools"-I'runtime"-I1otherlibs/dynlink"-I-otherlibs/str"-I4otherlibs/systhreads"-I.otherlibs/unix"-I8otherlibs/runtime_events"-cː J/home/ci/builds/workspace/precheck/flambda/false/label/ocaml-ubuntu-latest >10/.-,+*)('&%$#"! @@0%P^]J~O(33@@@0'F(vjY j(Asttypes0>n{T8cئ8CamlinternalFormatBasics0%FU(Q/Tu0CamlinternalLazy0&͂7 Pˆ*Format_doc0]mWϓ:Mݠ(Location0a7cK_H%9)Longident0s `7mɕc0T鿁ۘ7Qu&Stdlib0Lku]8_٠.Stdlib__Buffer08APF< t..Stdlib__Domain0:M;׉<O$Ġ.Stdlib__Either0Vy`u~c à.Stdlib__Format0ܚ#G7m|,Stdlib__Lazy0* -S$.)"0D.Stdlib__Lexing0e<.V +Stdlib__Seq0nwzG&amg+Stdlib__Sys0 -ռ鱦s5/-Stdlib__Uchar056uf4[_(Warnings0mJɒkgr