Toplevel Integration

OCaml provides a small REPL to use the language interactively. We generally call this tool a toplevel. The compiler distribution comes with a small REPL called simply ocaml, and the community has developed enhanced versions such as UTop.

It’s possible to load Dune projects in any toplevel. To do that, simply execute the following in your toplevel:

# #use_output "dune ocaml top";;

dune ocaml top is a Dune command that builds all the libraries in the current directory and subdirectories and outputs the relevant toplevel directives (#directory and #load) to make the various modules available in the toplevel.

Additionally, if some of the libraries are PPX rewriters, the phrases you type in the toplevel will be rewritten with these PPX rewriters.

This command became available with Dune 2.5.0.

It’s also possible to load individual modules (since dune 3.6.0) for interactive development. Use the following dune command:

# #use_output "dune ocaml top-module foo.ml";;

This will print directives that will load foo.ml without sealing it behind foo.mli. This is particularly useful for peeking and prodding at a module’s internals.

Note that the #use_output directive has only been available since OCaml 4.11. You can add the following snippet to your ~/.ocamlinit file to make it available in older versions of OCaml:

 #directory "+compiler-libs"

 let try_finally ~always f =
   match f () with
   | x ->
     always ();
     x
   | exception e ->
     always ();
     raise e

 let use_output command =
   let fn = Filename.temp_file "ocaml" "_toploop.ml" in
   try_finally
     ~always:(fun () -> try Sys.remove fn with Sys_error _ -> ())
     (fun () ->
       match
         Printf.ksprintf Sys.command "%s > %s" command (Filename.quote fn)
       with
       | 0 -> ignore (Toploop.use_file Format.std_formatter fn : bool)
       | n -> Format.printf "Command exited with code %d.@." n)

 let () =
   let name = "use_output" in
   if not (Hashtbl.mem Toploop.directive_table name) then
     Hashtbl.add Toploop.directive_table name
       (Toploop.Directive_string use_output)

;;
#remove_directory "+compiler-libs"