1 files changed, 90 insertions, 0 deletions
diff --git a/ocamlbuild/rule.mli b/ocamlbuild/rule.mli
new file mode 100644
index 000000000..690913a8e
--- /dev/null
+++ b/ocamlbuild/rule.mli
@@ -0,0 +1,90 @@
+(***********************************************************************)
+(*                             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.               *)
+(*                                                                     *)
+(***********************************************************************)
+
+(* $Id$ *)
+(* Original author: Nicolas Pouillard *)
+open My_std
+open Resource
+
+type env = Pathname.t -> Pathname.t
+type builder = Pathname.t list list -> (Pathname.t, exn) Outcome.t list
+type action = env -> builder -> Command.t
+
+type t = private
+  { name  : string;
+    tags  : Tags.t;
+    deps  : Pathname.t list;
+    prods : Pathname.t list;
+    code  : env -> builder -> Command.t }
+
+val rule : string ->
+  ?tags:string list ->
+  ?prods:string list ->
+  ?deps:string list ->
+  ?prod:string ->
+  ?dep:string ->
+  ?insert:[`top | `before of string | `after of string | `bottom] ->
+  action -> unit
+
+val file_rule : string ->
+  ?tags:string list ->
+  prod:string ->
+  ?deps:string list ->
+  ?dep:string ->
+  ?insert:[`top | `before of string | `after of string | `bottom] ->
+  cache:(env -> string) ->
+  (env -> out_channel -> unit) -> unit
+
+val custom_rule : string ->
+  ?tags:string list ->
+  ?prods:string list ->
+  ?prod:string ->
+  ?deps:string list ->
+  ?dep:string ->
+  ?insert:[`top | `before of string | `after of string | `bottom] ->
+  cache:(env -> string) ->
+  (env -> cached:bool -> unit) -> unit
+
+(** [copy_rule name ?insert source destination] *)
+val copy_rule : string ->
+  ?insert:[`top | `before of string | `after of string | `bottom] ->
+  string -> string -> unit
+
+(** [dep tags deps] Will build [deps] when [tags] will be activated. *)
+val dep : string list -> string list -> unit
+
+module Common_commands : sig
+  val mv : Pathname.t -> Pathname.t -> Command.t
+  val cp : Pathname.t -> Pathname.t -> Command.t
+  val ln_f : Pathname.t -> Pathname.t -> Command.t
+  val ln_s : Pathname.t -> Pathname.t -> Command.t
+  val rm_f : Pathname.t -> Command.t
+  val touch : Pathname.t -> Command.t
+  val chmod : Command.spec -> Pathname.t -> Command.t
+  val cmp : Pathname.t -> Pathname.t -> Command.t
+end
+
+(** For system use only *)
+
+val subst : Resource.env -> t -> t
+val can_produce : Pathname.t -> t -> t option
+val tags_matches : Tags.t -> t -> t option
+val compare : t -> t -> int
+
+val print_rule_name : Format.formatter -> t -> unit
+val print_rule_contents : Format.formatter -> t -> unit
+val print : Format.formatter -> t -> unit
+
+val get_rules : unit -> t list
+
+val call : builder -> t -> unit
+
+val build_deps_of_tags : builder -> Tags.t -> Pathname.t list