Synced from savonet/liquidsoap@334f66b

Author: github-actions[bot]

detect/all_available.ml

@@ -0,0 +1,14 @@
+let () =
+  let files =
+    Array.sub Sys.argv 1 (Array.length Sys.argv - 1) |> Array.to_list
+  in
+  let all_available =
+    List.for_all
+      (fun path ->
+        let ic = open_in path in
+        let value = input_line ic in
+        close_in ic;
+        value = "true")
+      files
+  in
+  print_string (if all_available then "true" else "false")

detect/dune

@@ -5,6 +5,32 @@
 (executable
  (name check))
 
+(executable
+ (name all_available))
+
+(rule
+ (target all_libs_available)
+ (deps
+  avutil_available
+  avcodec_available
+  avfilter_available
+  av_available
+  swscale_available
+  swresample_available
+  avdevice_available)
+ (action
+  (with-stdout-to
+   %{target}
+   (run
+    ./all_available.exe
+    avutil_available
+    avcodec_available
+    avfilter_available
+    av_available
+    swscale_available
+    swresample_available
+    avdevice_available))))
+
 (rule
  (targets
   avutil_available

gen/dune

@@ -1,23 +1,17 @@
 (executables
  (names gen_test gen_examples)
- (modules gen_test gen_examples has_ffmpeg)
- (libraries
-  (select
-   has_ffmpeg.ml
-   from
-   (ffmpeg -> has_ffmpeg.yes.ml)
-   (-> has_ffmpeg.no.ml))))
+ (modules gen_test gen_examples))
 
 (rule
  (target test_executables.inc)
  (action
   (with-stdout-to
    %{target}
-   (run ./gen_test.exe))))
+   (run ./gen_test.exe %{read:../detect/all_libs_available}))))
 
 (rule
  (target examples_executables.inc)
  (action
   (with-stdout-to
    %{target}
-   (run ./gen_examples.exe))))
+   (run ./gen_examples.exe %{read:../detect/all_libs_available}))))

gen/gen_examples.ml

@@ -4,7 +4,7 @@ let stanza name libraries =
     (String.concat " " libraries)
 
 let () =
-  if Has_ffmpeg.available then begin
+  if Sys.argv.(1) = "true" then begin
     stanza "hw_encode" ["ffmpeg-av"];
     stanza "encode_video" ["ffmpeg-av"];
     stanza "read_metadata" ["ffmpeg-av"];

gen/gen_test.ml

@@ -4,7 +4,7 @@ let stanza name libraries =
     (String.concat " " libraries)
 
 let () =
-  if Has_ffmpeg.available then begin
+  if Sys.argv.(1) = "true" then begin
     stanza "test_resample" ["ffmpeg-av"; "ffmpeg-swresample"];
     stanza "test_info" ["ffmpeg-av"; "ffmpeg-swresample"];
     stanza "test_subtitle_read" ["ffmpeg-av"];