Caml1999I037+\.Input_handling(add_file,@*Primitives*io_channel@@@@@ *io_channel@@@$unitF@@@@@@@@@@@@@;debugger/input_handling.mliX((X(a@@(@@@+remove_file-@'*io_channel@@@@@@@@@[[@@?>@:Continuation_already_takenb#@@@ACvFGF@&Stdlib~@AxSw@@3vvvvvvvv@t@Ay@(add_file X(,X(4@б@г*io_channelX(7X(A@@ @@@@@б@б@г*io_channelX(FX(P@@ @@@@@гV$unitX(TX(X@@ @@@@@@@@@@гf$unitX(]X(a@@ @@@@@@@@X(E @@@8@@Ű; @@@X((@@@@@@@+remove_file![[@б@г*io_channel[[@@ @@@3@i@A@@г$unit[[@@ @@@@@@@@@@@[ @@ A@@ @@2current_controller"^^@б@г*io_channel^^"@@ @@@3@1F@A@@б@г%*io_channel"^'#^1@@ @@@@@г٠$unit/^50^9@@ @@@@@@@@!@@@'@@$*;^:@@@>^@@OB@@@@+=execute_with_other_controller#IbJb@б@б@гY*io_channelVcWc@@ @@@3XXXXXXXX@F[!@A@@г$unitecfc@@ @@@@@@@@@@б@гz*io_channelwcxc@@ @@@ !@@б@б@г2$unitcc@@ @@@!2@@А!a@(A@";cc@@@ @@#@@@А!aDcc@@@ @@$Ic@@@/@@%M2@@@@@@&Pc @@@b@@C@@@@W.exit_main_loop$hJNhJ\@б@А!a@-A@)3@l@AhJ_hJa@@г|$unithJehJi@@ @@@*@@@@@+@@@hJJ @@D@@ @@)main_loop%kk@б@г$unitkk@@ @@@.3@3D@A@@г$unitkk@@ @@@/@@@@@0@@@ k @@E@@ @@*interactif&p p @г#ref!p !"p $@г栐$bool+p ,p  @@ @@@13--------@9N'@A@@@ @@@3 @@@:p  @@KF@@@@ .current_prompt'Er&*Fr&8@г#refNr&BOr&E@г&stringXr&;Yr&A@@ @@@43ZZZZZZZZ@.K'@A@@@ @@@6 @@@gr&&@@xG@@@@ ,user_channel(rumqsum}@г#ref{um|um@г*io_channelumum@@ @@@73@.K'@A@@@ @@@9 @@@umm@@H@@@@ /read_user_input)ww@б@гm%bytesww@@ @@@:3@&C@A@@б@г#intww@@ @@@;@@г#intww@@ @@@<@@@@@=!@@@'@@>$* @@@w@@I@@@@*/stop_user_input*zz@б@г$unitzz@@ @@@?3@CX@A@@г$unitzz@@ @@@@@@@@@A@@@z @@J@@ @@1resume_user_input+}  #}  4@б@гƠ$unit}  7}  ;@@ @@@B3@1F@A@@гՠ$unit+}  ?,}  C@@ @@@C@@@@@D@@@6}   @@GK@@ @@@r@kD@=@@h@a:@3@@@y@rK@D@@3NNNNNNNN@1F@A@ H************************************************************************WA@@XA@L@ H ]BMM^BM@ H OCaml cCdC@ H iDjD3@ H Jerome Vouillon, projet Cristal, INRIA Rocquencourt oE44pE4@ H OCaml port by John Malecki and Xavier Leroy uFvF@ H {G|G@ 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" **ee@ / 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 ? oo @ ! Where the user input come from. tGGtGl@: Stop reading user input. yy@< Resume reading user input. || @@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"-cRS J/home/ci/builds/workspace/precheck/flambda/false/label/ocaml-ubuntu-latest NA@?>=<;:9876543210/.-,+*)('&%@@0XᬔkBEgi@@Ր@@@@@m@Ԑ@}@!J@@@;@@@P@@