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
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
exception Finally_raised of exn
let protect ~(finally : unit -> unit) work =
let finally_no_exn () =
try finally ()
with e ->
let bt = Printexc.get_raw_backtrace () in
Printexc.raise_with_backtrace (Finally_raised e) bt
in
match work () with
| result ->
finally_no_exn ();
result
| exception work_exn ->
let work_bt = Printexc.get_raw_backtrace () in
finally_no_exn ();
Printexc.raise_with_backtrace work_exn work_bt
let read_lines_from_cmd ~max_lines cmd =
let ic =
try Unix.open_process_in cmd
with exc ->
Printf.eprintf "read_lines_from_cmd: could not open cmd: '%s'" cmd;
raise exc
in
protect
~finally:(fun () -> close_in_noerr ic)
(fun () ->
let rec loop n lines =
if n <= 0 then List.rev lines
else
match input_line ic with
| line -> loop (n - 1) (line :: lines)
| exception _ ->
Printf.eprintf
"read_lines_from_cmd: failed reading line %d, cmd: '%s'"
(max_lines - n + 1)
cmd;
raise End_of_file
in
loop max_lines [])
let opt_map ~default ~f = function Some y -> f y | None -> default
let opt_is_some = function Some _ -> true | _ -> false
let getenv_opt s = try Some (Sys.getenv s) with _ -> None
let pkg_export =
let has_brewcheck = opt_is_some (getenv_opt "SQLITE3_OCAML_BREWCHECK") in
if not has_brewcheck then ""
else
let cmd = "brew ls sqlite | grep pkgconfig" in
match read_lines_from_cmd ~max_lines:1 cmd with
| [ fullpath ] when not (String.equal fullpath "") ->
let path = Filename.dirname fullpath in
Printf.sprintf "PKG_CONFIG_PATH=%s" path
| _ -> ""
let split_ws str =
let lst = ref [] in
let i = ref 0 in
let len = String.length str in
while !i < len do
let j = try String.index_from str !i ' ' with Not_found -> len in
if !i = j then incr i
else (
lst := String.sub str !i (j - !i) :: !lst;
i := j + 1)
done;
List.rev !lst
let () =
let module C = Configurator.V1 in
C.main ~name:"sqlite3" (fun c ->
let is_macosx =
opt_map (C.ocaml_config_var c "system") ~default:false ~f:(function
| "macosx" -> true
| _ -> false)
in
let is_mingw =
opt_map (C.ocaml_config_var c "system") ~default:false ~f:(function
| "mingw" | "mingw64" -> true
| _ -> false)
in
let personality =
opt_map (C.ocaml_config_var c "target") ~default:"" ~f:(fun target ->
"--personality=" ^ target)
in
let pkg_config =
let pkg_config =
match Sys.getenv "PKG_CONFIG" with
| s -> s
| exception Not_found -> "pkg-config"
in
pkg_export
^ if is_mingw then " pkgconf " ^ personality else " " ^ pkg_config
in
let cflags =
let cmd = pkg_config ^ " --cflags sqlite3" in
match read_lines_from_cmd ~max_lines:1 cmd with
| [ cflags ] ->
let cflags = split_ws cflags in
if
is_macosx
|| opt_is_some (getenv_opt "SQLITE3_DISABLE_LOADABLE_EXTENSIONS")
then "-DSQLITE3_DISABLE_LOADABLE_EXTENSIONS" :: cflags
else cflags
| _ -> failwith "pkg-config failed to return cflags"
in
let libs =
let cmd = pkg_config ^ " --libs sqlite3" in
match read_lines_from_cmd ~max_lines:1 cmd with
| [ libs ] -> split_ws libs
| _ -> failwith "pkg-config failed to return libs"
in
C.Flags.write_sexp "c_flags.sexp" cflags;
C.Flags.write_sexp "c_library_flags.sexp" libs)
|
