Caml1999I037M .Input_handling(add_file,@*Primitives*io_channel@@@@@@@*io_channel@@@@@$unitF@@@@@@@@@@@@@@@;debugger/input_handling.mliX((X(a@@.@@@+remove_file-@-*io_channel@@@@@@@@@@@[[@@DA@@2current_controller.@C*io_channel@@@@@@L*io_channel@@@@@<@@@@@@@@6^7^:@@cB@@=execute_with_other_controller/@@f*io_channel@@@@@V@@@@@@@@s*io_channel@@@@@@@k@@@@@!a@@@@@@@@@@@@ibjc@@C@@.exit_main_loop0@!a@@@@@@@@@~hJJhJi@@D@@)main_loop1@@@@@@@@@@@@kk@@E@@*interactif2&Stdlib#ref$boolE@@@@@@@p  p $@@F@@.current_prompt3#ref&stringQ@@@@@@@r&&r&E@@G@@,user_channel4-#ref*io_channel@@@@@@@ummum@@H@@/read_user_input5@%bytesC@@@@@@#intA@@@@@@@@@@@@@ww@@"I@@/stop_user_input6@ @@@@@@@@@@@ z z@@7J@@1resume_user_input7@!@@@@@%@@@@@@}   }  C@@LK@@@ (y.Input_handling0$šcaԭJ$Unix0^FήfYv+Stdlib__Sys0b'8=OIn/Stdlib__Complex0e<9r@fǠ0Stdlib__Bigarray081}wJf֠&Stdlib0t0VoS%{<F:*Primitives0f 歄!iO:8CamlinternalFormatBasics0|.e1R$|o@@@Caml1999T037'VC.Input_handlingࠐ*Primitives*Primitives;debugger/input_handling.mliSS@@A3@@@@#intA;@@A@@@@@&_none_@@A@A@$charB;@@A@@@@@@A@&stringQ;@@A@@@@@ @@@%bytesC;@@A@@@@@@@@%floatD;@@A@@@@@@@@$boolE;@@%falsec@@!@$trued@@'@@@A@@@@@(@A@$unitF;@@"()e@@2@@@A@@@@@3@A@ #exnG;@@@A@@@@@7@@@#effH;@@O@A@A@@@@@@@@@@,continuationI;@@Q@@P@B A@nY@@@@@@O@@@%arrayJ;@@R@AA@@@@@@Y@@@ $listK;@@S@A"[]f@@f@"::g@@@T@@s@ @@A@Y@@@@@v@@@&optionL;@@V@A$Noneh@@@$Somei@@@@@A@Y@@@@@@@@)nativeintM;@@A@@@@@@@@%int32N;@@A@@@@@@@@%int64O;@@A@@@@@@@@&lazy_tP;@@X@AA@Y@@@@@@@@ 5extension_constructorR;@@A@@@@@@@@*floatarrayS;@@A@@@@@@@@&iarrayT;@@Y@AA@Y@@@@@@@@ *atomic_locU;@@Z@AA@@@@@@@@@ .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@@A54@)Not_foundZ#O@@@A=<@-Out_of_memoryW#W@@@A E#D#@.Stack_overflow^#_@@@A(M+L+@.Sys_blocked_io_#g@@@A0U3T3@)Sys_error[#o@j@@A9^<]<@:Undefined_recursive_modulea#x@@w@s@u@@h@@AJoMnM@:Continuation_already_takenb#@@@ARwUvU@&Stdlib@AS@@3@@A@(add_file X(,X(4@б@г*io_channelX(7X(A@@ @@@@@б@б@г*io_channelX(FX(P@@ @@@@@гa$unitX(TX(X@@ @@@@@@@@@@° @@гs$unitX(]X(a@@ @@@ϰ@@@@@@@԰X(E @@@>@@ @@ڰA@@@X((@@@@@@@+remove_file![[@б@г*io_channel[[@@ @@@3@o@A@@г$unit[[@@ @@@@@@@@@@ @@@[ @@#A@@@@2current_controller"^^@б@г+*io_channel(^)^"@@ @@@ 3********@3H@A@@б@г<*io_channel9^':^1@@ @@@!@@г점$unitF^5G^9@@ @@@"@@@@@#@@$# @@@+@@% @@&(.V^:@@@Y^@@jB@@@@/=execute_with_other_controller#dbeb@б@б@гt*io_channelqcrc@@ @@@'3ssssssss@J_!@A@@г&$unitcc@@ @@@(@@@@@)@@* @@б@г*io_channelcc@@ @@@+#@@б@б@гK$unitcc@@ @@@,4@@А!a@7A@-=cc@@@@@. @@/D@@А!aHcc@@@@@0@@1Oc@@@5@@2 @@3U8 @@@J@@4 @@5Zc@@@b@@C@@@@a.exit_main_loop$hJNhJ\@б@А!a@=A@83@v@AhJ_hJa@@г$unithJehJi@@ @@@9@@@@@:@@; @@@hJJ @@D@@@@)main_loop%kk@б@г$unitkk@@ @@@>3@5F@A@@гϠ$unit)k*k@@ @@@?@@@@@@@@A @@@6k @@GE@@@@*interactif&Ap Bp @г#refJp !Kp $@г $boolTp Up  @@ @@@B3VVVVVVVV@;P'@A@@@ @@@D @@@cp  @@tF@@@@ .current_prompt'nr&*or&8@г#refwr&Bxr&E@гG&stringr&;r&A@@ @@@E3@.K'@A@@@ @@@G @@@r&&@@G@@@@ ,user_channel(umqum}@г#refumum@г*io_channelumum@@ @@@H3@.K'@A@@@ @@@J @@@umm@@H@@@@ /read_user_input)ww@б@г%bytesww@@ @@@K3@&C@A@@б@г#intww@@ @@@L@@гĠ#intww@@ @@@M@@@@@N@@O# @@@+@@P @@Q(.@@@w@@I@@@@./stop_user_input*zz@б@г$unitzz@@ @@@R3@G\@A@@гΠ$unit(z)z@@ @@@S@@@@@T@@U @@@5z @@FJ@@@@1resume_user_input+@}  #A}  4@б@г$unitK}  7L}  ;@@ @@@V3MMMMMMMM@3H@A@@г$unitZ}  ?[}  C@@ @@@W@@@@@X@@Y @@@g}   @@xK@@@@@@^@W@@r@kB@;@@@}@vM@F@@3@3H@A@ H************************************************************************A@@A@L@ H BMMBM@ H OCaml CC@ H DD3@ H Jerome Vouillon, projet Cristal, INRIA Rocquencourt E44E4@ H OCaml port by John Malecki and Xavier Leroy FF@ H GG@ H Copyright 1996 Institut National de Recherche en Informatique et HHg@ H en Automatique. IhhIh@ H JJ@ H All rights reserved. This file is distributed under the terms of KKN@ H the GNU Lesser General Public License version 2.1, with the LOOLO@ H special exception on linking described in the file LICENSE. MM@ H NN5@ H************************************************************************O66O6@ E**************************** Input control **************************QQ@4** Actives files. **UU@ ) Add a file to the list of active files. WW'@ / Remove a file from the list of actives files. ZccZc@ = Return the controller currently attached to the given file. ]]@ : Execute a function with `controller' attached to `file'. `<<`<z@; ### controller file funct a{{a{@5** The "Main Loop" ** e e@ / Call this function for exiting the main loop. ggI@ : Handle active files until `continue_main_loop' is false. jkkjk@:** Managing user inputs **mm@> Are we in interactive mode ? $o%o @ ! Where the user input come from. *tGG+tGl@: Stop reading user input. 0y1y@< Resume reading user input. 6|7| @@3,./ocamlc.opt)-nostdlib"-I(./stdlib"-g0-strict-sequence*-principal(-absname"-w8+a-4-9-40-41-42-44-45-48+-warn-error"+a*-bin-annot/-strict-formats)-for-pack*ocamldebug"-I(debugger"-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.otherlibs/unix"-I1otherlibs/dynlink"-I.otherlibs/unix"-I1otherlibs/dynlink"-I.otherlibs/unix"-I1otherlibs/dynlink"-I.otherlibs/unix"-I1otherlibs/dynlink"-c T/home/teraram/ci/builds/workspace/parallel-build/flambda/false/label/ocaml-manycores NA@?>=<;:9876543210/.-,+*)('&%@@0XᬔkBE