sig
  type t
  val check : Ogg.Stream.packet -> bool
  val create : unit -> Theora.Decoder.t
  val is_ready : Theora.Decoder.t -> bool
  val headerin :
    Theora.Decoder.t ->
    Ogg.Stream.packet -> Theora.info * string * (string * string) list
  val get_yuv : Theora.Decoder.t -> Ogg.Stream.t -> Theora.yuv_buffer
end