blob: 1e065666bc37b3904a864238df139ec88e3ec855 (
plain)
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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
(***********************************************************************)
(* *)
(* Objective Caml *)
(* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *)
(* under the terms of the Q Public License version 1.0. *)
(* *)
(***********************************************************************)
(* $Id$ *)
(* Compiling C files and building C libraries *)
let command cmdline =
if !Clflags.verbose then begin
prerr_string "+ ";
prerr_string cmdline;
prerr_newline()
end;
Sys.command cmdline
let run_command cmdline = ignore(command cmdline)
(* Build @responsefile to work around Windows limitations on
command-length line *)
let build_diversion lst =
let (responsefile, oc) = Filename.open_temp_file "camlresp" "" in
List.iter
(fun f ->
if f <> "" then begin
output_string oc (Filename.quote f); output_char oc '\n'
end)
lst;
close_out oc;
at_exit (fun () -> Misc.remove_file responsefile);
"@" ^ responsefile
let quote_files lst =
let s =
String.concat " "
(List.map (fun f -> if f = "" then f else Filename.quote f) lst) in
if Sys.os_type = "Win32" && String.length s >= 256
then build_diversion lst
else s
let compile_file name =
match Config.ccomp_type with
| "mrc" ->
let qname = Filename.quote name in
let includes = (Clflags.std_include_dir ()) @ !Clflags.include_dirs
in
let args =
Printf.sprintf " %s %s -i %s"
(String.concat " " (List.rev_map Filename.quote !Clflags.ccopts))
(String.concat "," (List.rev_map Filename.quote includes))
qname
in
command ("mrc " ^ args ^ " -o " ^ qname ^ ".x")
| "cc" | "msvc" ->
command
(Printf.sprintf
"%s -c %s %s %s %s"
!Clflags.c_compiler
(String.concat " " (List.rev !Clflags.ccopts))
(quote_files
(List.rev_map (fun dir -> "-I" ^ dir) !Clflags.include_dirs))
(Clflags.std_include_flag "-I")
(Filename.quote name))
| _ -> assert false
let create_archive archive file_list =
Misc.remove_file archive;
let quoted_archive = Filename.quote archive in
match Config.ccomp_type with
"msvc" ->
command(Printf.sprintf "lib /nologo /debugtype:cv /out:%s %s"
quoted_archive (quote_files file_list))
| _ ->
let r1 =
command(Printf.sprintf "ar rc %s %s"
quoted_archive (quote_files file_list)) in
if r1 <> 0 || String.length Config.ranlib = 0
then r1
else command(Config.ranlib ^ " " ^ quoted_archive)
let expand_libname name =
if String.length name < 2 || String.sub name 0 2 <> "-l"
then name
else begin
let libname =
"lib" ^ String.sub name 2 (String.length name - 2) ^ Config.ext_lib in
try
Misc.find_in_path !Config.load_path libname
with Not_found ->
libname
end
|
