Summary: It seems that we don't need to rely on `make` anymore as the internal process manager is working fine on Buck Java projects. Reviewed By: jvillard Differential Revision: D7903639 fbshipit-source-id: 9b32f05master
Jeremy Dubreil
7 years ago
committed by
Facebook Github Bot
parent
afe511b53d
commit
8ce79a0613
@ -1,50 +0,0 @@
|
||||
(*
|
||||
* Copyright (c) 2015 - present Facebook, Inc.
|
||||
* All rights reserved.
|
||||
*
|
||||
* This source code is licensed under the BSD style license found in the
|
||||
* LICENSE file in the root directory of this source tree. An additional grant
|
||||
* of patent rights can be found in the PATENTS file in the same directory.
|
||||
*)
|
||||
|
||||
open! IStd
|
||||
module F = Format
|
||||
|
||||
(** Module to process clusters of procedures. *)
|
||||
|
||||
(** a cluster is a file *)
|
||||
type t = SourceFile.t
|
||||
|
||||
(** type stored in .cluster file: (n,cl) indicates cl is cluster n *)
|
||||
type serializer_t = int * t
|
||||
|
||||
(** Serializer for clusters *)
|
||||
let serializer : serializer_t Serialization.serializer =
|
||||
Serialization.create_serializer Serialization.Key.cluster
|
||||
|
||||
|
||||
(** Load a cluster from a file *)
|
||||
let load_from_file (filename: DB.filename) : serializer_t option =
|
||||
Serialization.read_from_file serializer filename
|
||||
|
||||
|
||||
(** Save a cluster into a file *)
|
||||
let store_to_file (filename: DB.filename) (data: serializer_t) =
|
||||
Serialization.write_to_file serializer filename ~data
|
||||
|
||||
|
||||
let cl_name n = "cl" ^ string_of_int n
|
||||
|
||||
let cl_file n = "x" ^ cl_name n ^ ".cluster"
|
||||
|
||||
let pp_cluster_name fmt n = Format.pp_print_string fmt (cl_name n)
|
||||
|
||||
let pp_cluster fmt (nr, cluster) =
|
||||
let fname = Config.results_dir ^/ Config.multicore_dir_name ^/ cl_file nr in
|
||||
let pp_cl fmt n = Format.pp_print_string fmt (cl_name n) in
|
||||
store_to_file (DB.filename_from_string fname) (nr, cluster) ;
|
||||
F.fprintf fmt "%a: @\n" pp_cl nr ;
|
||||
F.fprintf fmt "\t%@$(INFERANALYZE) --cluster '%s'@\n" fname ;
|
||||
(* touch the target of the rule to let `make` know that the job has been done *)
|
||||
F.fprintf fmt "\t%@touch $%@@\n" ;
|
||||
F.fprintf fmt "@\n"
|
||||
@ -1,28 +0,0 @@
|
||||
(*
|
||||
* Copyright (c) 2016 - present Facebook, Inc.
|
||||
* All rights reserved.
|
||||
*
|
||||
* This source code is licensed under the BSD style license found in the
|
||||
* LICENSE file in the root directory of this source tree. An additional grant
|
||||
* of patent rights can be found in the PATENTS file in the same directory.
|
||||
*)
|
||||
|
||||
open! IStd
|
||||
module F = Format
|
||||
|
||||
(** Module to process clusters of procedures. *)
|
||||
|
||||
(** a cluster is a file *)
|
||||
type t = SourceFile.t
|
||||
|
||||
(** type stored in .cluster file: (n,cl) indicates cl is cluster n *)
|
||||
type serializer_t = int * t
|
||||
|
||||
val load_from_file : DB.filename -> serializer_t option
|
||||
(** Load a cluster from a file *)
|
||||
|
||||
val pp_cluster : F.formatter -> serializer_t -> unit
|
||||
(** Print a cluster *)
|
||||
|
||||
val pp_cluster_name : F.formatter -> int -> unit
|
||||
(** Print a cluster name *)
|
||||
@ -1,49 +0,0 @@
|
||||
(*
|
||||
* Copyright (c) 2015 - present Facebook, Inc.
|
||||
* All rights reserved.
|
||||
*
|
||||
* This source code is licensed under the BSD style license found in the
|
||||
* LICENSE file in the root directory of this source tree. An additional grant
|
||||
* of patent rights can be found in the PATENTS file in the same directory.
|
||||
*)
|
||||
|
||||
open! IStd
|
||||
module F = Format
|
||||
|
||||
(** Module to create a makefile with dependencies between clusters *)
|
||||
|
||||
let pp_prolog fmt clusters =
|
||||
let escape = Escape.escape_map (fun c -> if Char.equal c '#' then Some "\\#" else None) in
|
||||
let infer_flag_of_compilation_db = function
|
||||
| `Escaped f ->
|
||||
F.sprintf "--compilation-database-escaped '%s'" f
|
||||
| `Raw f ->
|
||||
F.sprintf "--compilation-database '%s'" f
|
||||
in
|
||||
let compilation_dbs_cmd =
|
||||
List.map ~f:infer_flag_of_compilation_db !Config.clang_compilation_dbs
|
||||
|> String.concat ~sep:" " |> escape
|
||||
in
|
||||
F.fprintf fmt "INFERANALYZE = '%s' --no-report --results-dir '%s' %s@\n@\n"
|
||||
(Config.bin_dir ^/ InferCommand.(to_exe_name Analyze))
|
||||
(escape Config.results_dir) compilation_dbs_cmd ;
|
||||
F.pp_print_string fmt "CLUSTERS=" ;
|
||||
List.iteri ~f:(fun i _ -> F.fprintf fmt "%a " Cluster.pp_cluster_name (i + 1)) clusters ;
|
||||
F.fprintf fmt "@\n@\ndefault: test@\n@\nall: test@\n@\n" ;
|
||||
F.fprintf fmt "test: $(CLUSTERS)@\n" ;
|
||||
if Config.show_progress_bar then F.fprintf fmt "\t%@echo@\n@."
|
||||
|
||||
|
||||
let pp_epilog fmt () = F.fprintf fmt "@.clean:@.\trm -f $(CLUSTERS)@."
|
||||
|
||||
let create_cluster_makefile (clusters: Cluster.t list) (fname: string) =
|
||||
let outc = Out_channel.create fname in
|
||||
let fmt = Format.formatter_of_out_channel outc in
|
||||
let do_cluster cluster_nr cluster =
|
||||
F.fprintf fmt "#%a@\n" SourceFile.pp cluster ;
|
||||
Cluster.pp_cluster fmt (cluster_nr + 1, cluster)
|
||||
in
|
||||
pp_prolog fmt clusters ;
|
||||
List.iteri ~f:do_cluster clusters ;
|
||||
pp_epilog fmt () ;
|
||||
Out_channel.close outc
|
||||
Loading…
Reference in new issue