Add bitstream filter eof API

Author: toots

avcodec/avcodec.ml

@@ -639,4 +639,6 @@ module BitstreamFilter = struct
 
   external receive_packet : 'a t -> 'a Packet.t
     = "ocaml_avcodec_bsf_receive_packet"
+
+  external send_eof : 'a t -> unit = "ocaml_avcodec_bsf_send_eof"
 end

avcodec/avcodec.mli

@@ -454,6 +454,7 @@ module BitstreamFilter : sig
   val init : ?opts:opts -> filter -> 'a params -> 'a t * 'a params
 
   val send_packet : 'a t -> 'a Packet.t -> unit
+  val send_eof : 'a t -> unit
   val receive_packet : 'a t -> 'a Packet.t
 end
 

avcodec/avcodec_stubs.c

@@ -1736,6 +1736,22 @@ CAMLprim value ocaml_avcodec_bsf_send_packet(value _filter, value _packet) {
   CAMLreturn(Val_unit);
 }
 
+CAMLprim value ocaml_avcodec_bsf_send_eof(value _filter) {
+  CAMLparam1(_filter);
+  int ret;
+  AVBSFContext *bsf = BsfFilter_val(_filter);
+
+  caml_release_runtime_system();
+  ret = av_bsf_send_packet(bsf, NULL);
+  caml_acquire_runtime_system();
+
+  if (ret < 0) {
+    ocaml_avutil_raise_error(ret);
+  }
+
+  CAMLreturn(Val_unit);
+}
+
 CAMLprim value ocaml_avcodec_bsf_receive_packet(value _filter) {
   CAMLparam1(_filter);
   int ret;