Source file `toplevel_backend.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
module Compiler_modules = struct
  module Toploop = Toploop
  module Topdirs = Topdirs
end

open Compiler_modules

[%%if ocaml_version >= (5, 0, 0)]

let unsafe_string () = true

[%%else]

let unsafe_string () = !Clflags.unsafe_string

[%%endif]

module type S = sig
  val dir_directory : string -> unit
  val dir_install_printer : Format.formatter -> Longident.t -> unit
end

let init ~native:_ (module M : S) =
  Topfind.log := ignore;
  Topfind.don't_load_deeply [ "toplevel_expect_test" ];
  Topfind.add_predicates [ "byte"; "toploop"; "ppx_driver"; "mt"; "mt_posix" ];
  (* Add findlib path so Topfind is available and it won't be initialized twice if the
     user does [#use "topfind"]. *)
  Topdirs.dir_directory (Findlib.package_directory "findlib")
;;