sig
exception Not_enough_data
exception Bad_data
exception Out_of_sync
module Page :
sig
type t = string * string
val serialno : Ogg.Page.t -> int
val eos : Ogg.Page.t -> bool
val bos : Ogg.Page.t -> bool
val continued : Ogg.Page.t -> bool
val packets : Ogg.Page.t -> int
val version : Ogg.Page.t -> int
val granulepos : Ogg.Page.t -> int
val pageno : Ogg.Page.t -> int
val set_checksum : Ogg.Page.t -> unit
end
module Sync :
sig
type t
val create : (int -> string * int) -> Ogg.Sync.t
val create_from_file : string -> Ogg.Sync.t
val read : Ogg.Sync.t -> Ogg.Page.t
val reset : ?read_func:(int -> string * int) -> Ogg.Sync.t -> unit
end
module Stream :
sig
type stream
type packet
val create : ?serial:int -> unit -> Ogg.Stream.stream
val get_page : Ogg.Stream.stream -> Ogg.Page.t
val put_page : Ogg.Stream.stream -> Ogg.Page.t -> unit
val get_packet :
?sync:bool Pervasives.ref -> Ogg.Stream.stream -> Ogg.Stream.packet
val flush_page : Ogg.Stream.stream -> Ogg.Page.t
type t = Ogg.Stream.stream
val pageout : Ogg.Stream.t -> string
val pagesout : Ogg.Stream.t -> string
val flush : Ogg.Stream.t -> string
val pagesout_eos : Ogg.Stream.t -> string
end
end