55 lines
2.4 KiB
OCaml
55 lines
2.4 KiB
OCaml
(***********************************************************************)
|
|
(* 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 Ocamlbuild_pack
|
|
include Ocamlbuild_pack.My_std
|
|
module Arch = Ocamlbuild_pack.Ocaml_arch
|
|
module Command = Ocamlbuild_pack.Command
|
|
module Pathname = Ocamlbuild_pack.Pathname
|
|
module Tags = Ocamlbuild_pack.Tags
|
|
include Pathname.Operators
|
|
include Tags.Operators
|
|
module Rule = Ocamlbuild_pack.Rule
|
|
module Options = Ocamlbuild_pack.Options
|
|
include Rule.Common_commands
|
|
type env = Pathname.t -> Pathname.t
|
|
type builder = Pathname.t list list -> (Pathname.t, exn) Ocamlbuild_pack.My_std.Outcome.t list
|
|
type action = env -> builder -> Command.t
|
|
let rule = Rule.rule
|
|
let dep = Rule.dep
|
|
let file_rule = Rule.file_rule
|
|
let copy_rule = Rule.copy_rule
|
|
let custom_rule = Rule.custom_rule
|
|
let ocaml_lib = Ocamlbuild_pack.Ocaml_utils.ocaml_lib
|
|
let flag = Ocamlbuild_pack.Flags.flag
|
|
let non_dependency = Ocamlbuild_pack.Ocaml_utils.non_dependency
|
|
let use_lib = Ocamlbuild_pack.Ocaml_utils.use_lib
|
|
let module_name_of_pathname = Ocamlbuild_pack.Ocaml_utils.module_name_of_pathname
|
|
let string_list_of_file = Ocamlbuild_pack.Ocaml_utils.string_list_of_file
|
|
let expand_module = Ocamlbuild_pack.Ocaml_utils.expand_module
|
|
let tags_of_pathname = Ocamlbuild_pack.Tools.tags_of_pathname
|
|
let hide_package_contents = Ocamlbuild_pack.Ocaml_compiler.hide_package_contents
|
|
let tag_file file tags =
|
|
Ocamlbuild_pack.Configuration.parse_string (Printf.sprintf "%S: %s" file (String.concat ", " tags));;
|
|
let tag_any tags =
|
|
Ocamlbuild_pack.Configuration.parse_string (Printf.sprintf "true: %s" (String.concat ", " tags));;
|
|
type hook = Ocamlbuild_pack.Hooks.message =
|
|
| Before_hygiene
|
|
| After_hygiene
|
|
| Before_options
|
|
| After_options
|
|
| Before_rules
|
|
| After_rules
|
|
let dispatch = Ocamlbuild_pack.Hooks.setup_hooks
|