Find file
Fetching contributors…
Cannot retrieve contributors at this time
45 lines (37 sloc) 2.03 KB
(***********************************************************************)
(* *)
(* ocamlbuild *)
(* *)
(* Nicolas Pouillard, Berke Durak, projet Gallium, INRIA Rocquencourt *)
(* *)
(* Copyright 2007 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *)
(* under the terms of the Q Public License version 1.0. *)
(* *)
(***********************************************************************)
(* Original author: Nicolas Pouillard *)
(** OCaml dependencies *)
exception Circular_dependencies of string list * string
(** Give to this module a way to access libraries, packages,
and dependencies between files. *)
module type INPUT = sig
val fold_dependencies : (string -> string -> 'a -> 'a) -> 'a -> 'a
val fold_libraries : (string -> string list -> 'a -> 'a) -> 'a -> 'a
val fold_packages : (string -> string list -> 'a -> 'a) -> 'a -> 'a
end
(** Wait an [INPUT] module and gives a function to compute the
transitive closure of caml file takeing in account libraries and packages. *)
module Make (I : INPUT) : sig
(** [caml_transitive_closure] takes a list of root ocaml compiled files and returns
the list of files that must be given to a linker. Optionally you can change the
extension of caml object/library files (cmo/cma by default); use the pack mode
(false by default) to include only root files (just sort them); and gives the
list of used libraries (empty by default). *)
val caml_transitive_closure :
?caml_obj_ext:string ->
?caml_lib_ext:string ->
?pack_mode:bool ->
?used_libraries:string list ->
?hidden_packages:string list ->
Pathname.t list -> Pathname.t list
end