myocamlbuild.ml

(* OASIS_START *)
(* OASIS_STOP *)

let dispatch = function
  | After_rules ->
    let stubgen          = "stubgen/ffi_stubgen.byte" in
    let stubgen_types    = "stubgen/ffi_types_stubgen.byte" in
    let stubgen_ml_types = "stubgen/ffi_ml_types_subgen" in

    rule "generated ml"
      ~dep:stubgen
      ~prod:"lib/ffi_generated.ml"
      (fun _ _ ->
         Cmd(S[P stubgen; A"-ml"; Sh">"; A"lib/ffi_generated.ml"]));

    rule "generated-types c"
      ~dep:stubgen_types
      ~prod:"stubgen/ffi_ml_types_stubgen.c"
      (fun _ _ ->
         Cmd (S [P stubgen_types; Sh">"; A"stubgen/ffi_ml_types_stubgen.c"]));

    rule "generated-types exe"
      ~dep:"stubgen/ffi_ml_types_stubgen.c"
      ~prod:stubgen_ml_types
      (fun _ _ ->
         let env = BaseEnvLight.load () in
         let cc = BaseEnvLight.var_get "bytecomp_c_compiler" env in
         let stdlib = BaseEnvLight.var_get "standard_library" env in
         let ctypes = BaseEnvLight.var_get "pkg_ctypes_stubs" env in
         Cmd (S [Sh cc; A"stubgen/ffi_ml_types_stubgen.c";
                 A"-I"; P ctypes; A"-I"; P stdlib;
                 A"-o"; A stubgen_ml_types])
      );

    rule "generated-types ml"
      ~dep:stubgen_ml_types
      ~prod:"lib/ffi_generated_types.ml"
      (fun _ _ ->
         Cmd (S [P stubgen_ml_types; Sh">>"; A"lib/ffi_generated_types.ml"]));

    rule "generated c"
      ~dep:stubgen
      ~prod:"lib/ffi_generated_stubs.c"
      (fun _ _ ->
         Cmd(S[P stubgen; A"-c"; Sh">"; A"lib/ffi_generated_stubs.c"]));

    flag ["c"; "compile"] & S[A"-I"; A"lib"; A"-package"; A"ctypes"]

  | _ ->
    ()

let () = Ocamlbuild_plugin.dispatch (fun hook -> dispatch hook; dispatch_default hook)