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
|
open Filepath
type t = {
path : filepath list;
destdir : filepath option;
_all : (string * string option) list; (* kept for potential future use *)
_loaded : bool; (* kept for potential future use *)
}
let default = { _all = []; path = []; destdir = None; _loaded = false }
let conf = ref default
let parse_file path =
let content = Filesystem.read_file path in
let unquote s =
match s with
| None -> failwith "unknown configuration key with no value"
| Some x -> String_utils.init 1 (String_utils.drop 1 x)
in
let kvs = List.map Utils.toKVeq (String_utils.lines_noempty content) in
let paths = String_utils.split ':' (unquote (List.assoc "path" kvs)) in
let destdir = unquote (List.assoc "destdir" kvs) in
{ _all = kvs; path = List.map fp paths; destdir = Some (fp destdir); _loaded = true }
let get_program_config () =
match Process.run [ "ocamlfind"; "printconf"; "conf" ] with
| Process.Failure err -> failwith ("ocamlfind printconf failed err " ^ err)
| Process.Success (out, _, _) -> (
match String_utils.lines_noempty out with
| [ x ] -> [ fp x ]
| _ -> failwith ("ocamlfind printconf failed output: " ^ out))
let get_paths () =
try [ fp (Sys.getenv "OCAMLFIND_CONF") ]
with Not_found -> (
try get_program_config () with Failure _ | Not_found -> [ fp "/etc/findlib.conf"; fp "/etc/ocamlfind.conf" ])
let get_system () =
let paths = get_paths () in
try
let found_path = List.find Filesystem.exists paths in
parse_file found_path
with Not_found -> default
let load () =
match Gconf.get_env "findlib-path" with
| None -> conf := get_system ()
| Some p -> conf := parse_file (fp p)
let get_paths () = !conf.path
let get_destdir () = !conf.destdir
|
