Source file `tar.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
open! Core
open! Async

let extract ~working_dir tar =
  let args = [
    "-xzf"; tar;
  ] in
  Shell.run ~working_dir "tar" args
;;

let list tar =
  (* curiously, tar doesn't need a z option *)
  let args = [ "-tf" ; tar ] in
  Shell.run_lines "tar" args
;;

let create ~working_dir ~files tar =
  (* The tar should be deterministic if possible, to avoid causing spurious rebuilds.
     This option isn't supported on mac os, it seems, so we use this conditionally. *)
  let deterministic_archive_flag = [ "--mtime"; "2017-01-01" ] in
  Process.run ~working_dir ~prog:"tar"
    ~args:(deterministic_archive_flag @ [ "--version" ]) ()
  >>| Result.is_ok
  >>= fun support_mtime ->
  let args =
    (if support_mtime then deterministic_archive_flag else [])
    @ [ "-I"; "gzip -n"; "-cf"; tar ]
    @ files
  in
  Shell.run ~working_dir "tar" args
;;