Module Zlib

module Zlib: sig .. end

val zlib_get_version_string : unit -> string

type z_flush = [ `BLOCK | `FINISH | `FULL_FLUSH | `NO_FLUSH | `SYNC_FLUSH ]

val z_no_compression : int

val z_best_speed : int

val z_best_compression : int

val z_default_compression : int

type z_strategy = [ `DEFAULT_STRATEGY | `FILTERED | `FIXED | `HUFFMAN_ONLY | `RLE ]

type z_fields = {

	`mutable next_in : string;`
	`mutable next_in_offset : int;`
	`mutable avail_in : int;`
	`mutable next_out : bytes;`
	`mutable next_out_offset : int;`
	`mutable avail_out : int;`

}

type z_header = [ `default | `gzip | `raw ]

type z_stream_deflate

val deflate_init : level:int ->
       strategy:z_strategy ->
       header:z_header -> unit -> z_stream_deflate

val deflate : z_stream_deflate ->
       z_fields ->
       [ `BLOCK | `FINISH | `FULL_FLUSH | `NO_FLUSH | `PARTIAL_FLUSH | `SYNC_FLUSH ] ->
       [> `ended | `ok ]

val deflate_close : z_stream_deflate -> unit

type z_stream_inflate

val inflate_init : header:[ `auto | `default | `gzip | `raw ] -> unit -> z_stream_inflate

val inflate : z_stream_inflate ->
       z_fields ->
       [ `BLOCK | `FINISH | `FULL_FLUSH | `NO_FLUSH | `SYNC_FLUSH | `TREES ] ->
       [> `ended | `ok ]

val inflate_close : z_stream_inflate -> unit

val crc32_substring : int32 -> string -> int -> int -> int32

val crc32_string : int32 -> string -> int32

module In_inflater: Zlib__In_inflater

module Out_deflater: Zlib__Out_deflater

module Out_inflater: Zlib__Out_inflater