Caml1999I037+J)Topcommon)set_paths,auto_include&optionL)Load_path5auto_include_callback@@@@@@@@#dir&stringQ@@@@@@@@@$unitF@@@@@@@@ @@ @@ @@ @6toplevel/topcommon.mli`aH@@>@@@;update_search_path_from_env@@@@ @@@@@@@@ff@@SA@@,toplevel_env&Stdlib#ref#Env!t@@@@@@@0j1j@@mE@@7initialize_toplevel_env@G@@@@@K@@@@@@ElQQFlQ{@@F@@1preprocess_phrase@4&Format)formatter@@@@@@)Parsetree/toplevel_phrase@@@@@/toplevel_phrase@@@@@@@@kolp@@I@@0typecheck_phrase@Z&)formatter@@@@@@[!t@@@ @@!@/)structure@@@"@@#@)Typedtree)structure@@@&@%Types)signature@@@%@!t@@@$@@'@@(@@)@@*@tv @@N@@0record_backtrace@@@@+@@,@@@-@@.@z  z  @@O@@0find_eval_phrase@<)structure@@@/@@0@J*expression@@@3@R*attributes@@@2@(Location!t@@@1@@4@@@5@@6@  A  B@@6P@@1max_printer_depth#ref#intA@@@7@@@8@C D DC D b@@KQ@@1max_printer_steps#ref@@@9@@@:@!D c c"D c @@^R@@/print_out_value #ref@)formatter@@@;@@<@+Outcometree)out_value@@@=@@>O@@@?@@@@@A@@@B@JH  KI  @@V@@.print_out_type&Oprint'printer(out_type@@@C@@@D@bJ  cJ  #@@W@@4print_out_class_type2.out_class_type@@@E@@@F@vK $ $wK $ b@@X@@5print_out_module_type,)F/out_module_type@@@G@@@H@L c cL c @@Y@@8print_out_type_extension@=Z2out_type_extension@@@I@@@J@M  M  @@Z@@2print_out_sig_itemTQn,out_sig_item@@@K@@@L@N  N  #@@[@@3print_out_signaturehe$listK,out_sig_item@@@M@@@N@@@O@O $ $O $ d@@ \@@0print_out_phrase#ref@)formatter@@@P@@Q@*out_phrase@@@R@@S@@@T@@U@@V@@@W@P e eQ | @@1]@@ 0Undefined_global##exnG@@@@X@@A&_none_@@A@C^@B@)EVAL_BASE*eval_ident@%Ident!t@@@@@#Obj!t@@@@@@)Z V X*Z V x@@f_@@@@-V  .\ z }@j`@@Ӡ/MakeEvalPrinter@@.,eval_address@'address@@@@@,#Obj!t@@@@@@Qa  Ra  @@a@@0eval_module_path@7!t@@@@@@$Path!t@@@@@R#Obj!t@@@@@@@@wd  xd $@@b@@/eval_value_path@]!t@@@@@@&!t@@@@@v#Obj!t@@@@@@@@e%'e%T@@c@@3eval_extension_path @!t@@@@@@J!t@@@@@#Obj!t@@@@@@@@fUWfU@@d@@/eval_class_path!@!t@@@@@@n!t@@@@@#Obj!t@@@@@@@@gg@@ e@@Ӡ'Printer"@!t';@@@A#Obj!t@@@@@@@j"j0@@@@8f@A@;outval_of_untyped_exception(@@@@@@+Outcometree)out_value@@@@@@8toplevel/genprintval.mliF f jF f @@+Genprintval_@@/outval_of_value)@#intA@@@@@@ @@@@@@@@@@@@@9@@@@@@%Types)type_expr@@@@@&optionLJ)out_value@@@@@@@@@@@@@@@#Env!t@@@@@@e@@@@@@,)type_expr@@@@@n)out_value@@@@@@@@@@@@@@@@lG  mJ $ ^@@k`@@@@j@g@@@+print_value#@i!t@@@@@@!t@@@@@@R)formatter@@@@@@)type_expr@@@@@@@@@@@@@@@@@l24l2@@h@@7print_untyped_exception$@s)formatter@@@@@@5!t@@@@@@@@@@@@@nn@@i@@7print_exception_outcome%@)formatter@@@@@@@@@@@@@@@@@@@pp@@4j@@/outval_of_value&@!t@@@@@@t!t@@@@@@w)type_expr@@@@@)out_value@@@@@@@@@@#sCE$tZ@@`k@@@@'_  (v@dl@@@-directive_fun;@@.Directive_noneϐ@E@@@i@@jI@@@k@@l@@C|D|@@n@0Directive_stringА@f@@@e@@f_@@@g@@h@@Y} Z}0@@o@-Directive_intѐ@`@@@a@@bu@@@c@@d@@o~13p~1S@@p@/Directive_identҐ@)Longident!t@@@]@@^@@@_@@`@@TVT@@q@.Directive_boolِ@$boolE@@@Y@@Z@@@[@@\@@@@r@@@A@@@@@{@@@@m@A@.directive_info;@@'section@@@@@n@@t@#doc@@@@@m@@u@@@A@@@@@@@@@s@A@-add_directive@@@@o@@p@@@@q@@r@<@@@s@@t@@@u@@v@@w@@x@'''l@@(v@@-get_directive@ @@@y@@z)%@@@{@@@|@@}@nnn@@Aw@@2get_directive_info@&@@@~@@B6@@@@@@@@@@@Zx@@3all_directive_names@4@@@@@oG@@@@@@@@@78 @@ty@@1try_run_directive@&)formatter@@@@@@c@@@@@@2directive_argument@@@@@@@@@@@@@@@@@@e  f#g@@z@@/directive_tableP'Hashtbl!t@@@@@@@@@@~iii@*deprecatedinix@@iliy@@{@@4directive_info_tablet'Hashtbl!t@@@@@@@@@@Z@*deprecated@@ @@|@@5parse_toplevel_phrase#ref@&Lexing&lexbuf@@@@@i/toplevel_phrase@@@@@@@@@8@@ }@@.parse_use_file#ref@&Lexing&lexbuf@@@@@'/toplevel_phrase@@@@@@@@@@@@999@@/~@@.print_location@)formatter@@@@@@!t@@@@@@@@@@@@@@@P@@+print_error@)formatter@@@@@@:%error@@@@@:@@@@@@@@45@@q@@@-print_warning @Q!t@@@@@@-)formatter@@@@@@(Warnings!t@@@@@g@@@@@@@@@@ab0@@A@@*input_name K#ref@@@@@@@t11u1L@@B@@-phrase_buffer _&Buffer!t@@@@@@C@@*first_line n#ref@@@@@@@ @@D@@'got_eof #ref@@@@@@@%@@E@@6read_interactive_input#ref@@@@@@@%bytesC@@@@@@@@@@@@@@@ʠ@E@@@@@@@@@@@@@@@'''n@@F@@5toplevel_startup_hook#ref@@@@@@@@@@@@@@@}}}@@9G@@%event;@@@A@@@@@@@@@BH@A@ 'Startup# @@@A @JI@@@ +After_setup#@@@A@QJ@A@(add_hook@@@@@@@2@@@@@@@6@@@@@@01@@mK@@)run_hooks@1@@@@@J@@@@@@DZZEZw@@L@@1override_sys_argv@%arrayJl@@@@@@@@f@@@@@@`a@@M@@4is_command_like_name@@@@@@@@@@@@uv@@N@@2evaluation_outcome;@@&Result}g#Obj!t@@@@@ : I@@P@)Exception~@@@@@ J \@@Q@@@A@@@@@  @@@@O@A@)backtrace#refؠ@@@@@@@@@@^^^~@@R@@2parse_mod_use_file@@@@@@@&Lexing&lexbuf@@@@@x/toplevel_phrase@@@@@@@@@@@@@S@@7comment_prompt_override#refS@@@@@@@@@,T@@-refill_lexbuf@8@@@@@@@@@@@@@@@@@@@  #@@IU@@@\)Topcommon0Bf L(G-ؠ(Warnings0Ef{&/Value_rec_types0`4xiVC)Unit_info0'T Χ@aR%Types0"|Vȷ`X )Typedtree0L+=%Eȧk]U젠.Type_immediacy00$ jbv\"k&%Subst0=aqT/!p+-Stdlib__Uchar0=H^V9>ɠ+Stdlib__Sys0b'8=OIn.Stdlib__String0 w_OA4D"Q~~+Stdlib__Set0ܔ@Z8XWaa2+Stdlib__Seq0?72#[O.Stdlib__Result0p~ !ԥ//+Stdlib__Obj0Zh+:N*+Stdlib__Map0*4ɇ2.Stdlib__Domain0'Ϳo\0m.K.Stdlib__Digest0#z25I*.Stdlib__Buffer0,I[?z&Stdlib0t0VoS%{<F:%Shape0 M``ll)Primitive0dU=\I/}$Path0k.tbGmᠠ)Parsetree0v o[pY Y+Outcometree0BuG^)= 9c &Oprint0֊D߅dʠ$Misc0Kvor#2D)Longident0wP q;ɡ(Location0nBɊOn?7~ؠ)Load_path0,j " nn7ݠ,Identifiable0]/*N %Ident0>ЃzV)j⠠+Genprintval0Ð/{*Kb50*Format_doc0uy@GmWUࠠ#Env02O<r7 *Data_types0v\3,Svh*Cmi_format0{)ݬ[ƥ  0CamlinternalLazy0zY# #4#-8CamlinternalFormatBasics0|.e1R$|o5Build_path_prefix_map0zd,J4z(Asttypes0eT$BbRM dc@@@Caml1999T037~YyC)Topcommon*ocaml.text&_none_@@A This module provides common implementations for internals of [Toploop], for bytecode and native code (see [Topeval] for the diverging parts of the implementation). You should not use it directly, refer to the functions in [Toploop] instead. 6toplevel/topcommon.mliP77U9;@@@@@@3@@@@@@#intA;@@#intA@@@@@;@A@$charB;@@$charA@@@@@A@A@&stringQ;@@&stringA@@@@@G@@@%bytesC;@@%bytesA@@@@@M@@@%floatD;@@%floatA@@@@@S@@@$boolE;@@%falsec@@]@$trued@@c@@@A@@@@@d@A@$unitF;@@"()e@@n@@@A@@@@@o@A@ #exnG;@@@A@@@@@s@@@#effH;@@O@A@A@@@@@@|@@@,continuationI;@@Q@@P@B,continuationA@nY@@@@@@@@@%arrayJ;@@R@A%arrayA@@@@@@@@@ $listK;@@S@A"[]f@@@"::g@@@T@@@ @@A@Y@@@@@@@@&optionL;@@V@A$Noneh@@@$Somei@@@@@A@Y@@@@@@@@)nativeintM;@@)nativeintA@@@@@@@@%int32N;@@%int32A@@@@@@@@%int64O;@@%int64A@@@@@@@@&lazy_tP;@@X@A&lazy_tA@Y@@@@@@@@ 5extension_constructorR;@@5extension_constructorA@@@@@@@@*floatarrayS;@@*floatarrayA@@@@@@@@&iarrayT;@@Y@A&iarrayA@Y@@@@@@@@ *atomic_locU;@@Z@A*atomic_locA@@@@@@ @@@ .Assert_failure`#@@@@@J@@@@@@@@[@@A!=ocaml.warn_on_literal_pattern%@&@0Division_by_zero]#@@@A+ . .@+End_of_file\#$@@@A366@'FailureY#,@'@@A<??@0Invalid_argumentX#5@0@@AE$H#H@-Match_failureV#>@@=@9@;@@a@@AV5Y4Y@)Not_foundZ#O@@@A^=a<a@-Out_of_memoryW#W@@@AfEiDi@.Stack_overflow^#_@@@AnMqLq@.Sys_blocked_io_#g@@@AvUyTy@)Sys_error[#o@j@@A^]@:Undefined_recursive_modulea#x@@w@s@u@@h@@Aon@:Continuation_already_takenb#@@@Awv@&Stdlib@A"/*W==W=D@@@@@@ࠡ&Format\\@@A3@ @A\@@@)set_pathsʠ``@б,auto_includeг)Load_path5auto_include_callback)Load_patha a@ aa)@@@@@@* @@б#dirг&stringa2a8@@ @@@;@@б@г$unita<a@@@ @@@ J@@г$unitaDaH@@ @@@ W@@@@@ @@ \ @@2k-@@@@@@@fa-@@Y H@@@@@@@p a@@ @#`"@@;@@@$@@w;update_search_path_from_envˠ.f/f@б@гݠ$unit9f:f@@ @@@3;::;;;;;@@A@@г점$unitHfIf@@ @@@@@@@@@@ @@@Uf @@mA@@@@,toplevel_envp`jaj@г#refijjj@г#Env!t#Envyjzj@ }j~j@@@@@@3@F[2@A @@@$ @@@!@@@j$@@E@@&@@ 7initialize_toplevel_envqlQUlQl@б@гG$unitlQolQs@@ @@@3@&N@A@@гV$unitlQwlQ{@@ @@@@@@@@@@ @@@lQQ @@F@@@@1preprocess_phraseoo@б@г))formatterpp@@ @@@3@3H@A@@б@г)Parsetree/toplevel_phrase)Parsetreepp@ pp@@@@@@$ @@г/toplevel_phrase)Parsetreepp @ p p@@@@@@$2 @@@@@$@@$7& @@@?@@$ @@$<B@@@o@@1I@@@@B0typecheck_phrase$t%t@б@г)formatter/u0u@@ @@@$310011111@[p@A@@б@г!t#EnvDuEu@ HuIu@@@@@@% @@б@гr)structure)Parsetree\u]u@ `uau@@@@@@%2 @@В@г)Typedtree)structure)Typedtreexvyv@ |v}v@@@@@@-N @@@г%Types)signature%Typesvv@ vv@@@@@@1h @@@г3!t#Envvv@ vv @@@@@@1 @@@@:@"@ @@1F@@@_@@1 @@1g@@@|@@1 @@1@@@@@1 @@1@@@t!@@N@@#@@0record_backtracez  z  @б@г$unitz  z  @@ @@@23@@A@@г$unitz  z  @@ @@@2@@@@@2@@2 @@@z   @@O@@@@0find_eval_phraseߠ      @б@г)structure)Typedtree@  @  @ @   @  @@@@@@23"!!"""""@<Q(@A @@г&option/A  <0A  B@В@г*expression)TypedtreeAA  BA  @ EA  FA  @@@@@@2& @@@г*attributes)TypedtreeYA  ZA  "@ ]A  #^A  -@@@@@@2> @@@г(Location!t(LocationsA  0tA  8@ wA  9xA  :@@@@@@6hX @@@@:@$@ @@6iaF@@@_ @@@6kfA  ]@@@o@@6l @@6mlwb@@@  e@@P@@g@@r1max_printer_depthC D HC D Y@г#refC D _C D b@г#intC D [C D ^@@ @@@6n3@'@A@@@ @@@6p @@@C D D@@Q@@@@ 1max_printer_stepsD c gD c x@гB#refD c ~D c @г#intD c zD c }@@ @@@6q3@.K'@A@@@ @@@6s @@@D c c@@R@@@@ +'printerAF  F  @А!a@6t3@!>@AF  F  @@BA@; @A@A&Oprint'printerB@6@@@6ՠ@@@@@F  F  @@@@5S@@@Aг&Oprint(F  )F  @,F  @@А!a.3F  4F  @@@'1@@@@2@/print_out_valueG?H  @H  @г#refHI  II  @б@г)formatterTI  UI  @@ @@@93VUUVVVVV@VeQ@A@@б@г+Outcometree)out_value+OutcometreekI  lI  @ oI  pI  @@@@@@; @@г!$unit}I  ~I  @@ @@@;)@@@@@;@@;. @@@6@@; @@;39@@@L@@@;8I  J@@@H  M@@V@@O@@?.print_out_typeHJ  J  @г'printerJ  J  #@гN(out_type+OutcometreeJ  J  @ J  J  @@@@@@;3@i0@A @@@" @@@;@@@J  "@@W@@$@@ 4print_out_class_typeIK $ (K $ <@г堐'printerK $ [K $ b@г.out_class_type+OutcometreeK $ @K $ K@ K $ LK $ Z@@@@@@;3@7]0@A @@@" @@@;@@@K $ $"@@X@@$@@ 5print_out_module_typeJ L c g L c |@г'printerL c L c @г/out_module_type+Outcometree#L c $L c @ 'L c (L c @@@@@@;3*))*****@7]0@A @@@" @@@;@@@7L c c"@@OY@@$@@ 8print_out_type_extensionKBM  CM  @гQ'printerKM  LM  @г2out_type_extension+OutcometreeYM  ZM  @ ]M  ^M  @@@@@@;3`__`````@7]0@A @@@" @@@;@@@mM  "@@Z@@$@@ 2print_out_sig_itemLxN  yN  @г'printerN  N  #@г&,out_sig_item+OutcometreeN  N  @ N  N  @@@@@@;3@7]0@A @@@" @@@;@@@N  "@@[@@$@@ 3print_out_signatureMO $ (O $ ;@г'printerO $ ]O $ d@г2$listO $ XO $ \@гf,out_sig_item+OutcometreeO $ ?O $ J@ O $ KO $ W@@@@@@;3@Ag:@A @@@" @@@;@@@1@@@; .@@@O $ $1@@\@@3@@0print_out_phraseNP e iP e y@гi#refQ | Q | @б@г\)formatterQ |  Q | @@ @@@;3        @5e)@A@@б@г*out_phrase+OutcometreeQ | Q | @ !Q | "Q | @@@@@@; @@гӠ$unit/Q | 0Q | @@ @@@;'@@@@@;@@;, @@@4@@; @@;17@@@J@@@;6DQ | ~H@@@GP e eK@@_]@@M@@=0Undefined_globalOBST  TT  @#U@&@@@;@@A]T  ^T  @@v^@@г &stringiT   @@3gffggggg@^}'@A@@@@@@@)EVAL_BASECvV  wV  @`@Б*eval_identZ V \Z V f@б@г%Ident!t%IdentZ V hZ V m@ Z V nZ V o@@@@@@=3@7SM@A @@г#Obj!tZ V sZ V v@ Z V wZ V x@@@@@@> @@@ @@>@@>( @@@Z V X@@_@@@@#@D@@3@&F @A3@(@AV  \ z }@@@V  @3@.@A@/MakeEvalPrinterD_  _  @l@@Т@@_  _  @Рu)EVAL_BASE_  _  @3@O~t7@@@)}@A  @@Б,eval_addressa  a  @б@г'address#Enva  a  @ a  a  @@@@@@>3@,@A @@г#Obj!t'a  (a  @ +a  ,a  @@@@@@> @@@@@>@@>' @@@9a  @@Qa@@@@"0eval_module_pathDd  Ed  @б@г!t#EnvSd  Td @ Wd Xd @@@@@@>3ZYYZZZZZ@pb(@A @@б@г$Path!t$Pathod pd @ sd td @@@@@@?C @@г#Obj!td d "@ d #d $@@@@@@?D2 @@@@@?E@@?F7& @@@?@@?G @@?H<G@@@d  @@b@@@@B/eval_value_pathe%+e%:@б@г?!t#Enve%<e%?@ e%@e%A@@@@@@?I3@d(@A @@б@гc!t$Pathe%Ee%I@ e%Je%K@@@@@@?J @@гP#Obj!te%Oe%R@ e%Se%T@@@@@@?K0 @@@@@?L@@?M5& @@@=@@?N @@?O:E@@@e%'@@ c@@@@@3eval_extension_path fU[ fUn@б@г!t#Env fUp fUs@  fUt fUu@@@@@@?P3        @b(@A @@б@г!t$Path 1fUy 2fU}@  5fU~ 6fU@@@@@@?Q @@г#Obj!t GfU HfU@  KfU LfU@@@@@@?R0 @@@@@?S@@?T5& @@@=@@?U @@?V:E@@@ ^fUW@@ vd@@@@@/eval_class_path ig jg@б@г!t#Env xg yg@  |g }g@@@@@@?W3  ~ ~     @b(@A @@б@г%!t$Path g g@  g g@@@@@@?X @@г#Obj!t g g@  g g@@@@@@?Y0 @@@@@?Z@@?[5& @@@=@@?\ @@?]:E@@@ g@@ e@@@@@'PrinterE j j @ g@@УР+Genprintval!S+Genprintval j j@  j j@@3        @e+@A @@!t@!t j' j(@+ @;@@@Ao#Obj!t@@@?@@@@ j" j0@@@@ f@@@Aг  j+ j.@ j/@@@-@@@@+F;@@@A! @@@?@@@@@@@A@;outval_of_untyped_exception@@@@?@@?+Outcometree)out_value@@@?@@?@8toplevel/genprintval.mliF f jF f @@+Genprintval_@@/outval_of_value@#intA@@@?@@?@ @@@?@@?@@@@@?@@?@9@@@?@@?@%Types)type_expr@@@?@@?&optionLJ)out_value@@@?@@@?@@?@@?@@?@@?@#Env!t@@@?@@?@e@@@?@@?@,)type_expr@@@?@@?n)out_value@@@?@@?@@?@@?@@?@@?@@?@lG  mJ $ ^@@k`@@@@@@ j@°@+print_valueɠ l28 l2C@б@гI!t#Env l2E l2H@  l2I l2J@@@@@@?3        @@A@@@@@.@A@@б@г!t'Printer l2N l2U@  l2V l2W@@@@@@?" @@б@г J)formatter l2[ l2d@@ @@@?1@@б@гy)type_expr%Types l2h l2m@  l2n l2w@@@@@@?I @@г $unit l2{ l2@@ @@@?V@@@@@?@@?[ @@@2@@? @@?`5@@@F@@? @@?eN@@@m@@? @@?ju@@@ 7l24@@ Oh@@@@p7print_untyped_exceptionʠ Bn Cn@б@г )formatter Mn Nn@@ @@@?3 O N N O O O O O@@A@@б@г!t'Printer bn cn@  fn gn@@@@@@? @@г $unit tn un@@ @@@?'@@@@@?@@?, @@@4@@? @@?17@@@ n@@ i@@@@77print_exception_outcomeˠ p p@б@г )formatter p p@@ @@@?3        @Pe@A@@б@г F#exn p p@@ @@@?@@г ^$unit p p@@ @@@?@@@@@?@@?# @@@+@@? @@@(.@@@ p@@ j@@@@./outval_of_value̠ sCI sCX@б@г o!t#Env tZ^ tZa@  tZb tZc@@@@@@@3        @Pe(@A @@б@г2!t'Printer tZg tZn@  tZo tZp@@@@@@@ @@б@г)type_expr%Types tZt tZy@  tZz tZ@@@@@@@2 @@г)out_value+Outcometree .tZ /tZ@  2tZ 3tZ@@@@@@@H @@@@@@@@@M& @@@;@@@ @@@RC@@@Z@@@  @@@ Wb@@@ JsCE@@ bk@@@@]@R@@X@Q@@@F@@@'@ @@@@3 _ ^ ^ _ _ _ _ _@s@A3 b a a b b b b b@w@A g_   hv@@@~ l_  @@@ n_  @ @A+-directive_funG y{ z{@@;@@.Directive_noneϐ@ 2@@@@ @@@  6@@@@ @@@@@ | |@@ n@0Directive_stringА@ k@@@@@@@ L@@@@@@@@@ }  }0@@ o@-Directive_intѐ@ @@@@@@@ b@@@@@@@@@ ~13 ~1S@@ p@/Directive_identҐ@)Longident!t@@@@^@@@` |@@@@_@@@a@@ TV T@@ q@.Directive_boolِ@ @@@@b@@@d @@@@c@@@e@@  @@ r@@@A@@@@@ {@@@@ m@@#vv | |@g@б@гv$unit | |@@~3        @3@@&@w@p@@Z@R@A@@@@@{S@@v@@]@V@@@M;@@@A@@@@@<@@@:@A)(@@г$unit 2| 3|@@/@@03@@@@@# :}  ;}@@б@г&string F}! G}'@@C@@г$unit O}+ P}/@@L@@M @@@@@# W~15 X~1B@@б@г#int c~1G d~1J@@`@@г$unit l~1N m~1R@@i@@j @@@@@# tTX uTg@@б@г)Longident Tl Tu@ Tv Tw@@@@@г$unit T{ T@@@@@@@@@#  @@б@г$bool  @@@@г$unit  @@@@ @@@@@@A@@@3        @@A@A+.directive_infoH  @@;@@'section@@ @@@@  @@ t@#doc@@ @@@@  @@ u@@@A@@@@@  @@@@ s@@# @@@Ш@г &string  @@(3        @zt7;@@@A@@@@@@@@@A@@0@@@@,@#((# @"@@Ш@г+&string@@3@@6@@@@2@@A@.@@3@@A/.@-add_directiveݠ'+'8@б@г ⠐&string';'A@@ @@@@3@4jd@A@@б@г-directive_fun,'E-'R@@ @@@@@@б@г.directive_info;'V<'d@@ @@@@ @@г 점$unitH'hI'l@@ @@@@-@@@@@@@@@2 @@@)@@@ @@@7,@@@?@@@ @@@<B@@@_''@@wv@@@@B-get_directiveޠjnrkn@б@г<&stringunvn@@ @@@@3wvvwwwww@[p@A@@г ؠ&optionnn@г-directive_funnn@@ @@@@@@@@@@@ @@@&@@@ @@@#)@@@nn@@w@@@@)2get_directive_infoߠ@б@г}&string@@ @@@@3@BW@A@@г&option@г.directive_info@@ @@@@@@@@@@@ @@@&@@@ @@@#)@@@@@x@@@@)3all_directive_names@б@г$unit@@ @@@@3@BW@A@@гw$list @гנ&string@@ @@@@@@@@@@@ @@@&@@@ @@@#)@@@"@@:y@@@@)1try_run_directive- .  @б@г )formatter8#%9#.@@ @@@@3:99:::::@BW@A@@б@г&stringI#2J#8@@ @@@@@@б@г&optionX#YY#_@г |2directive_argument)Parsetreef#<g#E@ j#Fk#X@@@@@@@3 @@@ @@@@8@@г2$bool}#c~#g@@ @@@@E@@@@@@@@@J" @@@A@@@ @@@OD@@@W@@@ @@@TZ@@@  @@z@@@@Z/directive_table izi@г'Hashtbl!tii@ ii@@г&stringii@@ @@@B3@0@A@@гR-directive_funii@@ @@@B@@@0@@@Bi'@@@ii*@*deprecatedinix@@iliy@@{@@7@  @ @,4directive_info_table !5@гk'Hashtbl!tQX@ YZ@@гנ&string9?@@ @@@B3@V|?@A@@гd.directive_info A!O@@ @@@B@@@0@@@B,8'@@@/*@*deprecated56@@9: @@R|@@7@  @ @,5parse_toplevel_phrase%IJ@г#refR5S8@б@г&Lexing&lexbufb c@ fg@@@@@@D3ihhiiiii@X~A@A @@г /toplevel_phrase)Parsetreez{#@ ~$3@@@@@@D @@@ @@D@@D( @@@?@@@D"=@@@@@@}@@B@@).parse_use_file&9=9K@г#ref99@б@г &Lexing&lexbuf9O9U@ 9V9\@@@@@@D3@U}2@A @@г;$list9z9~@г /toplevel_phrase)Parsetree9`9i@ 9j9y@@@@@@D" @@@ @@@D'@@@/@@D @@D,7"@@@N@@@D19NL@@@99O@@ ~@@Q@@8.print_location'@б@г_)formatter  @@ @@@D3        @Qy@A@@б@г !t(Location !@ $%@@@@@@D @@г֠$unit23@@ @@@D'@@@@@D @@D!, @@@4@@D" @@D#17@@@D@@\@@@@7+print_error(OP@б@г)formatterZ[@@ @@@D$3\[[\\\\\@Pe@A@@б@г %error(Locationop@ st@@@@@@D% @@г%$unit@@ @@@D&'@@@@@D'@@D(, @@@4@@D) @@D*17@@@@@@@@@@7-print_warningE@б@г }?}@г#refG}H}@б@г$unitS}T}@@ @@@G3UTTUUUUU@)@A@@г$unitb}c}@@ @@@G@@@@@G@@H @@@-@@@Hr}+@@@u}}.@@G@@0@@ A+%eventuI@@;@@@A@@@@@@@@@H@@AA@@@3@1P@A@%event@@'StartupvJ@#@@@A@@I@@@@@+After_setupwJ@#@@@A@@J@@@@@@A @@3@/;5@A @(add_hookx@б@б@гM%event@@ @@@H3@>8/)@A @@г$unit@@ @@@H@@@@@H@@H @@г$unit@@ @@@H "@@@@@H @@H ' @@@@@K@@@@.)run_hooksy Z^ Zg@б@г%eventZjZo@@ @@@H 3@G^@A@@гǠ$unit#Zs$Zw@@ @@@H @@@@@H@@H @@@0ZZ @@HL@@@@1override_sys_argvz;<@б@г %arrayFG@г&stringPQ@@ @@@H3RQQRRRRR@=R)@A@@@ @@@H @@г$unitde@@ @@@H@@@@@H@@H @@@q @@M@@@@4is_command_like_name{|}@б@гN&string@@ @@@H3@8W@A@@гK$bool@@ @@@H@@@@@H@@H @@@ @)ocaml.doc [is_command_like_name s] is [true] if [s] is an implicit basename with no file extension and which doesn't begin with a hyphen. Basically, if it looks like a sub-command name (e.g. ocaml help). @@@@@@@N@@@Ɛ@@@@@@5Ӑ"/*@@@@@@3@G\3@AA+2evaluation_outcome|K % 7@@;@@&Result}\#Obj!t@@@H@@ : I@@P@)Exception~@@@H@@ J \@@Q@@@A@@@@@  @@@@O@@### @@@г$& D G@) H'@(@@13@GA;@@@A@@@@@@@@@A -@@@@/@#++! L" U@$@г-#exn+ Y.@@4/@@@@1@@A@-@@[-0@)backtrace6^b7^k@г#ref?^{@^~@г&optionI^tJ^z@г&stringS^mT^s@@ @@@I!3UTTUUUUU@{@A@@@ @@@I# @@@(@@@I% %@@@g^^(@@R@@*@@2parse_mod_use_filers@б@гD&string}~@@ @@@I&3~~@+R@A@@б@г&Lexing&lexbuf@ @@@@@@I' @@г$list@г/toplevel_phrase)Parsetree@ @@@@@@I(: @@@ @@@I*?@@@-@@I+ @@I,D5"@@@L@@I- @@I.IO'@@@*@@S@@,@@O7comment_prompt_override@гO#ref@г$bool@@ @@@I/3@p'@A@@@ @@@I1 @@@@@T@@@@ -refill_lexbuf@б@гҠ%bytes@@ @@@I23@&C@A@@б@г#int"#@@ @@@I3@@г#int/ 0#@@ @@@I4@@@@@I5@@I6# @@@+@@I7 @@I8(.@@@A@@YU@@@@.@;@@@ID@@@IC@@IByG|@@@IA@@@I@@@I?@u@@@I>@@I=k@@@I<@@I;@@I:@@I9@F@D@@@=@@@IH@@IG1@@@IF@@IE@!@@ @@@IJ@@@II@@@@@@@IN@@IM@@@IL@@IK@@@@ @@@IU@@IT@@@@IS@@IR@@@IQ@@IP@@IO@@@@"@@@Ib@@Ia@}|@@@I`@@I_@ml@@@I^@@I]@[X@@@IZ@GD@@@I[@32@@@I\@@IY@@IX@@IW@@IV@@@@@@@If@@Ie@@@Id@@Ic@@@@@@@In@@ImƠ@@@@Ij@@@@Ik@@@@Il@@Ii@@@Ih@@Ig@s@q@m}hb@@@Ip@@@Io@Q@O@KF@@@@Ir@@@Iq@/@-@ޠ@@@@Iz@@Iy@@@@Ix@@Iw@@@Iv@@Iu@@It@@@Is@@@/@@@I|@@@I}@I{@{@y@u<kj@@@I@@@I@I~@R@P@LIBA@@@I@@@I@I@)@'@#V@@@I@@@I@I@@@c@@@I@@@I@I@@@pǠ@@@I@@@I@@@I@I@@@@ @@@I@@I@@@@I@@Iz@@@I@@I@@I@@@I@`@^@Y#@S@@@I@@AR@OB@>4@2/@@@I@@I4@@@I@@I@@@@@L@@@䑠@@@@I@@IL@@@I@@I@@@@@@@I@@I@@@@I@@Ievu@@@I@@I@@I@Z@X@T@RQ@@@I@@I@@?@@@I@@I~.-@@@I@@I@@I@@@ @  @@@I@@I@@@@I@@I@@@I@@I@@I@@@@@@@I@@I@@@@I@@I@@@I@@I@@I@@@ӱ{E@[F;@@@AQP@@@J@@@@O@@@LA@0@@@@J@@I/,@@@I@@I@+@'@%@$@@@I@@I@!@@@I@@I@@ @@@I@@I@)@@@I@@I@@@@I@@I@@@I@@@I@@I@@I@@I@@I@@@@I@@I@H@@@I@@I@@@@I@@I@@@I@@I@@I@@I@@I@@I@@I@@ @@@ @@@@@@I@@I@ @@@I@@I@=# @@@I@@I@  @@@I@@I @@@I@@I@@I@@I@@I@ @ @ @U; @@@I@@I@* @@@I@@I @@@I@@I@@I@ k@ i@ e@mS d@@@I@@I@ [@@@I@@I Q@@@I@@I@@I@ <@ :@ 6@ 4 3@@@I@@I@X !@@@I@@I@  @@@I@@I  @@@I@@I@@I@@I@ @ @@@ K@@ ;@@ @ @@@J@@J @@@J@@J@@ @  @ @@@J @@J @@@J@@J@@ @  @ @@@J @@J  @@@J @@J @@ @  @  @@@J@@J @@@J@@J@@ @  @ @@@J@@J @@@J@@J@@ @ @@A@@@@@ @@@ A@ ;@@ @@ @@@J @  @@ @@@J @ @@A@@@@@ @@@ A@ v@ s@@@J!@@J @ i@@@J@@J@ a@@@J@@J W@@@J@@J@@J@@J@ =@ ;@ 7@ 4@@@J&@@J% ( !@@@J$@@@J#@@J"@ @ @ @ @@@J+@@J*  @@@J)@@@J(@@J'@ @ @ @ @@@J0@@J/ Ƞ @@@J.@@@J-@@J,@ @ @ @J0 @@@J;@@J:@ @@@J9@@J8@   @@@J7@@@J6@@J5 w@@@J4@@J3@@J2@@J1@ ]@ [@ Wh R Q D@@@J= 8@@@J>@@@J<@ ' % @ x   @@@J@ @@@JA@@@J?@   @  Ƞ@  @@@JF@@JE  @@@JD@@JC@@@JB@ @ @  @  @@@JL@@JK r k j@@@JJ@@@JI@@JH@@@JG@ J@ H@ D@ B@@@JS@@JR@ 9 8@@@JQ@@JP '@@@JO@@JN@@JM@ @ @ @ @@@JZ@@JY@  @@@JX@@JW@@@JV@@JU@@JT@@@@@@@Jd@@Jc@@@@Jb@@Ja@@@@J`@@J_@@@J^@@J]@@J\@@J[@@@z@@@Jf@@@Je@i@g@c^]@@@Jg@J@H@D?9@@@Ji@@@Jh@(@&@" @@@Jk@@@Jj@@@+@@@@Jx@@Jw@@@@Jv@@Ju@@@@Jt@@Js@@@@Jq@@@@Jr@@Jp@@Jo@@Jn@@Jm@@@Jl@@@T@@@@J}@@J|@@@J{@@Jz@@@Jy@{@y@t;@@@A@@@@@n@@@kA@\#f@@@AV@T@@Q#j@@@AK@IA@?@@>@@@J@@J1@@@J@@J@@J"@@@J@@J~@@@ @@@@J@@J@@@J@@J@@@@@@@J@@@J@@J@@@J@@J@@@@@@@J@@J@@@J@@J@@b;@@\ZY@@@J@@X@UTR@@@J@@Q@N@@A@@@@@M@@@KA@ @@@J@@@J@@@J@@@@@@@J@@J@@@@J@@JҠ@@@J@@@J@@J@@J@@@@@@J@@@J@@@@@@@J@@J@u@@@J@@Jk@@@J@@J@@J@V@T@@3@Y@A@ H************************************************************************A@@A@L@ H BMMBM@ H OCaml CC@ H DD3@ H Xavier Leroy, projet Cristal, INRIA Rocquencourt E44E4@ H FF@ H Copyright 1996 Institut National de Recherche en Informatique et GG@ H en Automatique. HHg@ H IhhIh@ H All rights reserved. This file is distributed under the terms of JJ@ H the GNU Lesser General Public License version 2.1, with the KKN@ H special exception on linking described in the file LICENSE. LOOLO@ H MM@ H************************************************************************NN5@ * This module provides common implementations for internals of [Toploop], for bytecode and native code (see [Topeval] for the diverging parts of the implementation). You should not use it directly, refer to the functions in [Toploop] instead. #*/*R ^ Definitions for the interactive toplevel loop that are common between bytecode and native YFFZ@ - Set the load paths, before running anything ^^@ R Add directories listed in OCAMLTOP_INCLUDE_PATH to the end of the search path cJJd@ * Management and helpers for the execution h h@ % Typing environment for the toplevel k'kP@ 4 Initialize the typing environment for the toplevel m|m|@ i Preprocess the given toplevel phrase using regular and ppx preprocessors. Return the updated phrase. qrZ@ Type-check the current toplevel phrase (not a directive) in the current typing environment, return an updated typing environment.  w  !x = @4 Printing of values &}  '}  @ Z Return the value referred to by a base ident @raise [Undefined_global] if not found ,X  -Y ' U@3 Used for printers 2b  3b  @ : Return the toplevel object referred to by the given path 8h9h@ @ Print an exception resulting from the evaluation of user code. >q?qA@ $ Interface with toplevel directives DyEy@ > Add toplevel directive and its documentation. @since 4.03 JK&@ Z @deprecated please use [add_directive] instead of inserting in this table directly. PQ@ Z @deprecated please use [add_directive] instead of inserting in this table directly. V[]W@ ) Hooks for external parsers and printers \]@ Hooks for external line editor bNNcNr@ ] Phrase buffer that stores the last toplevel phrase (see [Location.input_phrase_buffer]). htti@' Hooks nppop{@ Just after the setup, when the toplevel is ready to evaluate user input. This happens before the toplevel has evaluated any kind of user input, in particular this happens before loading the [.ocamlinit] file. tu@ ] Add a function that will be called at key points of the toplevel initialization process. z{;X@? Run all the registered hooks. xxx@& Misc @  [override_sys_argv args] replaces the contents of [Sys.argv] by [args] and reset [Arg.current] to [0]. This is called by [run_script] so that [Sys.argv] represents "script.ml args..." instead of the full command line: "ocamlrun unix.cma ... script.ml args...". @ * [is_command_like_name s] is [true] if [s] is an implicit basename with no file extension and which doesn't begin with a hyphen. Basically, if it looks like a sub-command name (e.g. ocaml help). ࠠ#*/*Š & internal functions used by [Topeval] @@-./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(toplevel"-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"-I-toplevel/byte"-cא T/home/teraram/ci/builds/workspace/parallel-build/flambda/false/label/ocaml-manycores @3210/.-,+*)('&%$#"! @@05e_*qC3@@@(Asttypes0eT$BbRM dc5Build_path_prefix_map0zd,J4z8CamlinternalFormatBasics0|.e1R$|o0CamlinternalLazy0zY# #4#-*Cmi_format0{)ݬ[ƥ  *Data_types0v\3,Svh02O<r7 *Format_doc0uy@GmWUࠠD0Ð/{*Kb50%Ident0>ЃzV)j⠠,Identifiable0]/*N a0,j " nn7ݠ(Location0nBɊOn?7~ؠ)Longident0wP q;ɡ$Misc0Kvor#2D0֊D߅dʠ+Outcometree0BuG^)= 9c )Parsetree0v o[pY Y$Path0k.tbGmᠠ)Primitive0dU=\I/}%Shape0 M``ll&Stdlib0t0VoS%{<F:.Stdlib__Buffer0,I[?z.Stdlib__Digest0#z25I*.Stdlib__Domain0'Ϳo\0m.K.Stdlib__Either0HD ?|>.Stdlib__Format00FClW/Stdlib__Hashtbl0(L%bԠ-Stdlib__Int320y Mzs.Vs,Stdlib__Lazy0$1mlࠠ.Stdlib__Lexing0^m|e+Stdlib__Map0*4ɇ2ɠ%Subst0=aqT/!p+Ӑ0Bf L(G-ؠ.Type_immediacy00$ jbv\"k&P0L+=%Eȧk]U젠%Types0"|Vȷ`X )Unit_info0'T Χ@aR/Value_rec_types0`4xiVC(Warnings0Ef{&@0Bf L(G-AK@@n@@ A M@P#{ѐ'@7@@Ӓ@ c@@@,@\@9@@C@ r °cs@@@@@@  sx@@ ]  b nm@1~@z@ m -Wc@KU@~@  (  yB@  +@ 4 @@ 6 z@Q@jT@ I @@  @Cq@  |@  QvY@@ay@@  @@ %ið @!`@@a@k@@@  1@@@I@m@S@  @  @@@P@@