(* OASIS_START *)
(* OASIS_STOP *)

let doc_intro = "doc/intro.txt"

open Ocamlbuild_plugin;;

dispatch
  (MyOCamlbuildBase.dispatch_combine [
    begin function
    | After_rules ->
      (* replace with Ocamlbuild_cppo.dispatch when 4.00 is not supported
         anymore *)
      let dep_cppo = "%(name).cppo.ml" in
      let prod1 = "%(name: <*> and not <*.cppo>).ml" in
      let prod2 = "%(name: <**/*> and not <**/*.cppo>).ml" in
      let f prod env _build =
        let dep = env dep_cppo 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 "cppo1" ~dep:dep_cppo ~prod:prod1 (f prod1) ;
      rule "cppo2" ~dep:dep_cppo ~prod:prod2 (f prod2) ;
      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]);
      (* end replace *)

      let major, minor = Scanf.sscanf Sys.ocaml_version "%d.%d.%d"
        (fun major minor patchlevel -> major, minor)
      in
      let ocaml_major = "OCAML_MAJOR " ^ string_of_int major in
      let ocaml_minor = "OCAML_MINOR " ^ string_of_int minor in

      flag ["cppo"] & S[A"-D"; A ocaml_major; A"-D"; A ocaml_minor] ;

      (* Documentation index *)
      dep ["ocaml"; "doc"; "extension:html"] & [doc_intro] ;
      flag ["ocaml"; "doc"; "extension:html"] &
      (S[A"-t"; A"Containers doc";
         A"-intro"; P doc_intro;
        ]);

    | _ -> ()
    end;
    dispatch_default
  ])