Module Zlib

module Zlib: sig .. end

exception Error of string * string
val compress : ?level:int ->
?header:bool -> (string -> int) -> (string -> int -> unit) -> unit
val compress_direct : ?level:int ->
?header:bool ->
(string -> int -> unit) -> (string -> int -> int -> unit) * (unit -> unit)
val uncompress : ?header:bool -> (string -> int) -> (string -> int -> unit) -> unit
type stream 
type flush_command = 
| Z_NO_FLUSH
| Z_SYNC_FLUSH
| Z_FULL_FLUSH
| Z_FINISH
val deflate_init : int -> bool -> stream
val deflate : stream ->
string ->
int -> int -> string -> int -> int -> flush_command -> bool * int * int
val deflate_end : stream -> unit
val inflate_init : bool -> stream
val inflate : stream ->
string ->
int -> int -> string -> int -> int -> flush_command -> bool * int * int
val inflate_end : stream -> unit
val update_crc : int32 -> string -> int -> int -> int32