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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
open Fugue
open Filepath
open Helper
open Target
open Gconf
let run projFile _isSnapshot =
let name = projFile.Project.name in
let ver = projFile.Project.version in
let sdistDir = name ^ "-" ^ ver in
let sdistName = fn (sdistDir ^ ".tar.gz") in
let dest = Dist.get_path () </> fn sdistDir in
let current_dir = Unix.getcwd () in
let _ = Filesystem.mkdir_safe dest 0o755 in
(* copy project file and extra source files *)
Filesystem.copy_to_dir (Project.findPath ()) dest;
maybe_unit (fun src -> Filesystem.copy_to_dir src dest) projFile.Project.license_file;
(* copy all libs modules *)
let copy_obits obits =
List.iter
(fun dir ->
Filesystem.iterate
(fun ent ->
let fpath = dir </> ent in
match Filetype.of_filepath fpath with
| Filetype.FileML | Filetype.FileMLI -> Filesystem.copy_to_dir fpath dest
| _ -> ())
dir)
obits.target_srcdir
in
let copy_cbits cbits =
Filesystem.iterate
(fun ent ->
let fpath = cbits.target_cdir </> ent in
match Filetype.of_filepath fpath with
| Filetype.FileC | Filetype.FileH -> Filesystem.copy_to_dir fpath dest
| _ -> ())
cbits.target_cdir
in
let copy_target target =
copy_obits target.target_obits;
copy_cbits target.target_cbits;
()
in
let copy_lib lib = List.iter copy_target (Project.Library.to_targets lib) in
List.iter copy_lib projFile.Project.libs;
List.iter (fun exe -> copy_target (Project.Executable.to_target exe)) projFile.Project.exes;
List.iter (fun extra -> Filesystem.copy_to_dir extra dest) projFile.Project.extra_srcs;
finally
(fun () ->
Unix.chdir (fp_to_string (Dist.get_path ()));
Prog.run_tar (fn_to_string sdistName) sdistDir)
(fun () -> Unix.chdir current_dir);
log Report "Source tarball created: %s\n" (fp_to_string (Dist.get_path () </> sdistName));
()
|
