Module Ocaml_plugin.Dynloader
Ocaml plugin loader, from ocaml source file. Wrapper around Dynlink module, including on the fly async ocaml compilation.
This is a low level module, casual user should rather use Compiler apart from Make to create a dedicated Plugin loader.
val default_disabled_warnings : int listSee the labelled argument
custom_warnings_specfor what these are for.
type dynloader= ttype 'a create_arguments= ?in_dir:string -> ?in_dir_perm:Async.Unix.file_perm -> ?include_directories:string list -> ?custom_warnings_spec:string -> ?strict_sequence:bool -> ?cmx_flags:string list -> ?cmxs_flags:string list -> ?trigger_unused_value_warnings_despite_mli:bool -> ?use_cache:Plugin_cache.Config.t -> 'a
module Ppx : sig ... endmodule Preprocessor : sig ... endmodule Compilation_config : sig ... endval create : (?initialize:(directory:string -> unit Async.Deferred.Or_error.t) -> ?compilation_config:Compilation_config.t -> ?ocamlopt_opt:string -> ?ocamldep_opt:string -> unit -> t Async.Deferred.Or_error.t) create_argumentsCurrently this library works with native code only. The function
createwill raise if called in bytecode.
val clean : t -> unit Async.Deferred.Or_error.tCleaning the files generated by this Dynloader.t from the begining of his life, and try to remove the directory if it is empty once the files have been removed. Doesn't fail if the directory contains other files, keep them and keep the directory in that case. Once cleaned, you cannot use a dynloader anymore, you should just leave it alone and let it be collected by the GC at some point. Using a cleaned dynloader will result in an error.
module Univ_constr : sig ... endmodule type Module_type = sig ... endval find_dependencies : t -> string -> string list Async.Deferred.Or_error.tfind_dependencies t fileuses ocamldep to compute the list of .ml and .mli files thatfiledepends on transitively, which you can then pass toload_ocaml_src_files.filemust be an .ml file, and all the files it depend on must be in the same folder.
module type S = sig ... endmodule Side_effect : S with type t := unitIn some cases, we are only interested by the toplevel side effects of dynlinked modules.
module type Side_effect = sig ... endval side_effect_univ_constr : (module Side_effect) Univ_constr.tval return_plugin : 'a Univ_constr.t -> (unit -> 'a) -> unit