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

val plain_uncompress : string -> int -> string -> int -> bool

type stream 

type flush_command = 

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