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
|
module C = Configurator.V1
let packages =
[
"libavutil";
"libavformat";
"libavfilter";
"libavcodec";
"libavdevice";
"libswresample";
"libswscale";
]
let default_paths = ["/usr/local/include"; "/usr/include"]
let trim s =
match String.split_on_char '\n' (String.trim s) with s :: _ -> s | _ -> s
let split_flags flags =
let l = String.split_on_char ' ' flags in
List.fold_left
(fun cur flag ->
match String.split_on_char 'I' flag with
| [_; inc] -> trim inc :: cur
| _ -> cur)
[] l
let add_path c pkg_config cur package =
match C.Process.run c pkg_config ["--cflags-only-I"; package] with
| { C.Process.exit_code; stdout; _ } when exit_code = 0 ->
let paths = split_flags stdout in
(if paths = [] then default_paths else paths) @ cur
| _ -> default_paths @ cur
let () =
C.main ~name:"ffmpeg-gen_code-pkg-config" (fun c ->
let paths =
match C.which c "pkg-config" with
| None -> default_paths
| Some pkg_config ->
List.fold_left (add_path c pkg_config) [] packages
in
let paths =
List.map
(fun path -> String.trim (Printf.sprintf "%S" path))
(List.sort_uniq compare paths)
in
Printf.printf "let paths = [%s]" (String.concat "; " paths))
|
