s/relative_build_dir/relative_to_build_dir/
This commit is contained in:
parent
f44b8bdb1b
commit
a1835c7fa0
|
@ -647,7 +647,7 @@ module Promotion = struct
|
||||||
Io.copy_file ~src ~dst
|
Io.copy_file ~src ~dst
|
||||||
end
|
end
|
||||||
|
|
||||||
let db_file = Path.relative_build_dir ".to-promote"
|
let db_file = Path.relative_to_build_dir ".to-promote"
|
||||||
|
|
||||||
let dump_db db =
|
let dump_db db =
|
||||||
if Path.build_dir_exists () then begin
|
if Path.build_dir_exists () then begin
|
||||||
|
|
|
@ -14,7 +14,7 @@ let misc_dir = Path.(relative build_dir) ".misc"
|
||||||
module Promoted_to_delete = struct
|
module Promoted_to_delete = struct
|
||||||
let db = ref []
|
let db = ref []
|
||||||
|
|
||||||
let fn = Path.relative_build_dir ".to-delete-in-source-tree"
|
let fn = Path.relative_to_build_dir ".to-delete-in-source-tree"
|
||||||
|
|
||||||
let add p = db := p :: !db
|
let add p = db := p :: !db
|
||||||
|
|
||||||
|
@ -1106,7 +1106,7 @@ let stamp_file_for_files_of t ~dir ~ext =
|
||||||
module Trace = struct
|
module Trace = struct
|
||||||
type t = (Path.t, Digest.t) Hashtbl.t
|
type t = (Path.t, Digest.t) Hashtbl.t
|
||||||
|
|
||||||
let file = Path.relative_build_dir ".db"
|
let file = Path.relative_to_build_dir ".db"
|
||||||
|
|
||||||
let dump (trace : t) =
|
let dump (trace : t) =
|
||||||
let sexp =
|
let sexp =
|
||||||
|
|
|
@ -13,7 +13,7 @@ let no_log = None
|
||||||
|
|
||||||
let create ?(display=Config.default.display) () =
|
let create ?(display=Config.default.display) () =
|
||||||
Path.ensure_build_dir_exists ();
|
Path.ensure_build_dir_exists ();
|
||||||
let oc = Io.open_out (Path.relative_build_dir "log") in
|
let oc = Io.open_out (Path.relative_to_build_dir "log") in
|
||||||
Printf.fprintf oc "# %s\n# OCAMLPARAM: %s\n%!"
|
Printf.fprintf oc "# %s\n# OCAMLPARAM: %s\n%!"
|
||||||
(String.concat (List.map (Array.to_list Sys.argv) ~f:quote_for_shell) ~sep:" ")
|
(String.concat (List.map (Array.to_list Sys.argv) ~f:quote_for_shell) ~sep:" ")
|
||||||
(match Env.get Env.initial "OCAMLPARAM" with
|
(match Env.get Env.initial "OCAMLPARAM" with
|
||||||
|
|
|
@ -457,7 +457,7 @@ let build_dir_exists () = is_directory build_dir
|
||||||
|
|
||||||
let ensure_build_dir_exists () = Local.mkdir_p build_dir
|
let ensure_build_dir_exists () = Local.mkdir_p build_dir
|
||||||
|
|
||||||
let relative_build_dir = relative build_dir
|
let relative_to_build_dir = relative build_dir
|
||||||
|
|
||||||
let extend_basename t ~suffix = t ^ suffix
|
let extend_basename t ~suffix = t ^ suffix
|
||||||
|
|
||||||
|
|
|
@ -151,4 +151,4 @@ val build_dir_exists : unit -> bool
|
||||||
|
|
||||||
val ensure_build_dir_exists : unit -> unit
|
val ensure_build_dir_exists : unit -> unit
|
||||||
|
|
||||||
val relative_build_dir : string -> t
|
val relative_to_build_dir : string -> t
|
||||||
|
|
|
@ -183,7 +183,7 @@ module Cached_digest = struct
|
||||||
|
|
||||||
let remove fn = Hashtbl.remove cache fn
|
let remove fn = Hashtbl.remove cache fn
|
||||||
|
|
||||||
let db_file = Path.relative_build_dir ".digest-db"
|
let db_file = Path.relative_to_build_dir ".digest-db"
|
||||||
|
|
||||||
let dump () =
|
let dump () =
|
||||||
let module Pmap = Path.Map in
|
let module Pmap = Path.Map in
|
||||||
|
|
Loading…
Reference in New Issue