Re: [Caml-list] Re: Opening a module from toploop startup

[Michael <michipili@gmail.com>]

Hi Daniel, Hi Anil,

thank you very much for your very useful answers, they helped a lot!

I could have a look at them today, and I studied in more details the
toplevel code, and since the startup hook is processed before that the
toplevel has been initialised, it is probably not a good place to open
modules:

let main () =
  Arg.parse Options.list file_argument usage;
  if not (prepare Format.err_formatter) then exit 2;
  Toploop.loop Format.std_formatter

let loop ppf =
  fprintf ppf "        OCaml version %s@.@." Config.version;
  initialize_toplevel_env ();
  …

let prepare ppf =
  Toploop.set_paths ();
  try
    let res =
      List.for_all (Topdirs.load_file ppf) (List.rev !preload_objects) in
    !Toploop.toplevel_startup_hook ();
    res
  with x ->
    …

A better place to open these modules is probably the initialisation file.


The example of the “core-runner-toplevel” shows well how to write an
alternate toplevel, I will probably found it very useful when I will
need more substantial amenagements.

Regards,
Michael