35 lines
1.3 KiB
OCaml
35 lines
1.3 KiB
OCaml
|
|
open Ocamlbuild_plugin
|
|
|
|
let cppo_rules ext =
|
|
let dep = "%(name).cppo"-.-ext
|
|
and prod1 = "%(name: <*> and not <*.cppo>)"-.-ext
|
|
and prod2 = "%(name: <**/*> and not <**/*.cppo>)"-.-ext in
|
|
let cppo_rule prod env _build =
|
|
let dep = env dep in
|
|
let prod = env prod in
|
|
let tags = tags_of_pathname prod ++ "cppo" in
|
|
Cmd (S[A "cppo"; T tags; S [A "-o"; P prod]; P dep ])
|
|
in
|
|
rule ("cppo: *.cppo."-.-ext^" -> *."-.-ext) ~dep ~prod:prod1 (cppo_rule prod1);
|
|
rule ("cppo: **/*.cppo."-.-ext^" -> **/*."-.-ext) ~dep ~prod:prod2 (cppo_rule prod2)
|
|
|
|
let dispatcher = function
|
|
| After_rules -> begin
|
|
List.iter cppo_rules ["ml"; "mli"; "mlpack"];
|
|
pflag ["cppo"] "cppo_D" (fun s -> S [A "-D"; A s]) ;
|
|
pflag ["cppo"] "cppo_U" (fun s -> S [A "-U"; A s]) ;
|
|
pflag ["cppo"] "cppo_I" (fun s ->
|
|
if Pathname.is_directory s then S [A "-I"; P s]
|
|
else S [A "-I"; P (Pathname.dirname s)]
|
|
) ;
|
|
pdep ["cppo"] "cppo_I" (fun s ->
|
|
if Pathname.is_directory s then [] else [s]) ;
|
|
flag ["cppo"; "cppo_q"] (A "-q") ;
|
|
flag ["cppo"; "cppo_s"] (A "-s") ;
|
|
flag ["cppo"; "cppo_n"] (A "-n") ;
|
|
pflag ["cppo"] "cppo_x" (fun s -> S [A "-x"; A s]);
|
|
pflag ["cppo"] "cppo_V" (fun s -> S [A "-V"; A s]);
|
|
flag ["cppo"; "cppo_V_OCAML"] & S [A "-V"; A ("OCAML:" ^ Sys.ocaml_version)]
|
|
end
|
|
| _ -> ()
|