propagate exit code, fixes #7

azimut · Apr 9, 2024 · 346d91c · 346d91c
1 parent 87c32f4
commit 346d91c
Showing 1 changed file with 15 additions and 5 deletions.
diff --git a/bin/main.ml b/bin/main.ml
@@ -80,8 +80,18 @@ let () =
         print_usage ()
       else
         read_output stdin
-  | _ :: args ->
-      read_output @@ Unix.open_process_in
-      @@ Filename.quote_command "/usr/bin/ffmpeg"
-           (["-nostdin"; "-hide_banner"; "-stats"; "-progress"; "-"] @ args)
-           ~stdout:"/dev/stdout" ~stderr:"/dev/stdout"
+  | _ :: args -> (
+      let chan =
+        Unix.open_process_in
+        @@ Filename.quote_command "/usr/bin/ffmpeg"
+             (["-nostdin"; "-hide_banner"; "-stats"; "-progress"; "-"] @ args)
+             ~stdout:"/dev/stdout" ~stderr:"/dev/stdout"
+      in
+      read_output chan ;
+      print_newline () ;
+      match Unix.close_process_in chan with
+      | Unix.WEXITED n ->
+          Printf.printf "exited with %d\n" n ;
+          exit n
+      | Unix.WSIGNALED n -> Printf.printf "signaled with %d\n" n
+      | Unix.WSTOPPED n -> Printf.printf "stopped with %d\n" n )