sig
type ogg
val callbacks : Ogg_flac.Encoder.ogg Flac.Encoder.callbacks
val create :
?comments:(string * string) list ->
Flac.Encoder.params ->
Ogg.Stream.stream ->
Ogg_flac.Encoder.ogg Flac.Encoder.t * Ogg.Stream.packet *
Ogg.Stream.packet list
val finish : Ogg_flac.Encoder.ogg Flac.Encoder.t -> unit
end