rfc1951 1.5.2 · OCaml Package

val _max_match : int

val _min_match : int

val _min_lookahead : int

val (.!()) : bigstring -> int -> int32

val (.![]) : bigstring -> int -> int

val (.!{}) : bigstring -> int -> int

type deflate_configuration = {

max_chain : int;
max_lazy : int;
good_length : int;
nice_length : int;

}

type configuration =

| Copy
| Deflate of deflate_configuration

val _0 : configuration

val _1 : configuration

val _2 : configuration

val _3 : configuration

val _4 : configuration

val _5 : configuration

val _6 : configuration

val _7 : configuration

val _8 : configuration

val _9 : configuration

val _mem_level : int

val _hash_bits : int

val _hash_size : int

val _hash_mask : int

val _hash_shift : int

val _too_far : int

val update_hash : int -> int -> int

type src = [

| `Channel of in_channel
| `String of string
| `Manual

]

type decode = [

| `Await
| `Flush
| `End

]

type state = {

src : src;
cfg : configuration;
level : int;
mutable i : bigstring;
mutable i_pos : int;
mutable i_len : int;
l : literals;
d : distances;
w : bigstring;
wbits : int;
mutable lookahead : int;
mutable strstart : int;
prev : int array;
head : int array;
mutable hash : int;
mutable match_start : int;
mutable match_length : int;
mutable match_available : bool;
mutable insert : int;
mutable prev_length : int;
mutable prev_match : int;
q : Queue.t;
mutable crc : optint;
mutable k : configuration -> state -> decode;

}

val max_dist : state -> int

exception Break

val longest_match : deflate_configuration -> state -> int -> int

val eoi : state -> unit

val src : 
  state ->
  (char, Bigarray.int8_unsigned_elt, Bigarray.c_layout) Bigarray.Array1.t ->
  int ->
  int ->
  unit

val i_rem : state -> int

val src_rem : state -> int

val io_buffer_size : int

val refill : (configuration -> state -> decode) -> state -> decode

val memcpy : 
  bigstring ->
  src_off:int ->
  bigstring ->
  dst_off:int ->
  len:int ->
  unit

val update_crc : state -> int -> unit

val insert_string : state -> int -> int

val succ_length : int array -> int -> unit

val succ_distance : int array -> int -> unit

val emit_match : state -> off:int -> len:int -> bool

val succ_literal : int array -> char -> unit

val emit_literal : state -> char -> bool

val trailing : state -> [> `End ]

val slide_hash : state -> unit

val fill_window : configuration -> state -> decode

val enough : configuration -> state -> decode

val deflate_fast : deflate_configuration -> state -> decode

val deflate_slow : deflate_configuration -> state -> decode

val copy : state -> decode

val _literals : int

val _length_codes : int

val _l_codes : int

val _d_codes : int

val checksum : state -> optint

val distances : state -> distances

val literals : state -> literals

val ctz : int -> int

val state : 
  ?level:int ->
  q:Queue.t ->
  w:(char, Bigarray.int8_unsigned_elt, Bigarray.c_layout) Bigarray.Array1.t ->
  src ->
  state

val compress : state -> decode

type window = bigstring

val make_window : 
  bits:int ->
  (char, Bigarray.int8_unsigned_elt, Bigarray.c_layout) Bigarray.Array1.t

val no_compression : state -> bool

package rfc1951