Module `Decompress_inflate.RFC1951`Source

Sourcemodule Heap : sig ... end

Sourcemodule Huffman : sig ... end

Sourceval reverse_bits : int -> int

Sourcemodule Lookup : sig ... end

Sourcetype ('i, 'o, 'crc) t = {

last : bool;
hold : int;
bits : int;
o_off : int;
o_pos : int;
o_len : int;
i_off : int;
i_pos : int;
i_len : int;
write : int;
state : ('i, 'o, 'crc) state;
window : ('o, 'crc) Window.t;
wbits : int;
wi : 'i Buffer.t;
wo : 'o Buffer.t;

}

and ('i, 'o, 'crc) k =
  (Safe.ro, 'i) Safe.t ->
  (Safe.wo, 'o) Safe.t ->
  ('i, 'o, 'crc) t ->
  ('i, 'o, 'crc) res

Sourceand ('i, 'o, 'crc) state =

| Last
| Block
| Flat of ('i, 'o, 'crc) k
| Fixed
| Dictionary of ('i, 'o, 'crc) k
| Inffast of Lookup.t * Lookup.t * code
| Inflate of ('i, 'o, 'crc) k
| Switch
| Finish of int
| Exception of error

Sourceand ('i, 'o, 'crc) res =

| Cont of ('i, 'o, 'crc) t
| Wait of ('i, 'o, 'crc) t
| Flush of ('i, 'o, 'crc) t
| Ok of ('i, 'o, 'crc) t
| Error of ('i, 'o, 'crc) t * error

Sourceand code =

| Length
| ExtLength of int
| Dist of int
| ExtDist of int * int
| Write of int * int

Sourceand error = error_rfc1951

Sourceval pp_error : Format.formatter -> error_rfc1951 -> unit

Sourceval pp_code : Format.formatter -> code -> unit

Sourceval pp_state : Format.formatter -> ('a, 'b, 'c) state -> unit

Sourceval pp : Format.formatter -> ('a, 'b, 'c) t -> unit

Sourceval error : ('a, 'b, 'c) t -> error -> ('a, 'b, 'c) res

Sourceval ok : ('a, 'b, 'c) t -> int -> ('a, 'b, 'c) res

Source

val get_byte : 
  ctor:
    ((([< `Rd | `Wr Rd ] as 'a, 'b) Safe.t ->
       'c ->
       ('b, 'd, 'e) t ->
       ('b, 'd, 'e) res) ->
      ('b, 'd, 'e) state) ->
  (int -> ('a, 'b) Safe.t -> 'c -> ('b, 'd, 'e) t -> ('b, 'd, 'e) res) ->
  ('a, 'b) Safe.t ->
  'c ->
  ('b, 'd, 'e) t ->
  ('b, 'd, 'e) res

Source

val put_byte : 
  ctor:
    (('a ->
       ([< `Rd | `Wr Wr ] as 'b, 'c) Safe.t ->
       ('d, 'c, 'e) t ->
       ('d, 'c, 'e) res) ->
      ('d, 'c, 'e) state) ->
  int ->
  ('a -> ('b, 'c) Safe.t -> ('d, 'c, 'e) t -> ('d, 'c, 'e) res) ->
  'a ->
  ('b, 'c) Safe.t ->
  ('d, 'c, 'e) t ->
  ('d, 'c, 'e) res

Source

val fill_byte : 
  ctor:
    (('a ->
       ([< `Rd | `Wr Wr ] as 'b, 'c) Safe.t ->
       ('d, 'c, 'e) t ->
       ('d, 'c, 'e) res) ->
      ('d, 'c, 'e) state) ->
  int ->
  int ->
  ('a -> ('b, 'c) Safe.t -> ('d, 'c, 'e) t -> ('d, 'c, 'e) res) ->
  'a ->
  ('b, 'c) Safe.t ->
  ('d, 'c, 'e) t ->
  ('d, 'c, 'e) res

Source

val peek_bits : 
  ctor:
    ((([< `Rd | `Wr Rd ] as 'a, 'b) Safe.t ->
       'c ->
       ('b, 'd, 'e) t ->
       ('b, 'd, 'e) res) ->
      ('b, 'd, 'e) state) ->
  int ->
  (('a, 'b) Safe.t -> 'c -> ('b, 'd, 'e) t -> ('b, 'd, 'e) res) ->
  ('a, 'b) Safe.t ->
  'c ->
  ('b, 'd, 'e) t ->
  ('b, 'd, 'e) res

Source

val drop_bits : 
  ctor:
    ((([< `Rd | `Wr Rd ] as 'a, 'b) Safe.t ->
       'c ->
       ('b, 'd, 'e) t ->
       ('b, 'd, 'e) res) ->
      ('b, 'd, 'e) state) ->
  int ->
  (('a, 'b) Safe.t -> 'c -> ('b, 'd, 'e) t -> ('b, 'd, 'e) res) ->
  ('a, 'b) Safe.t ->
  'c ->
  ('b, 'd, 'e) t ->
  ('b, 'd, 'e) res

Source

val get_bits : 
  ctor:
    ((([< `Rd | `Wr Rd ] as 'a, 'b) Safe.t ->
       'c ->
       ('b, 'd, 'e) t ->
       ('b, 'd, 'e) res) ->
      ('b, 'd, 'e) state) ->
  int ->
  (int -> ('a, 'b) Safe.t -> 'c -> ('b, 'd, 'e) t -> ('b, 'd, 'e) res) ->
  ('a, 'b) Safe.t ->
  'c ->
  ('b, 'd, 'e) t ->
  ('b, 'd, 'e) res

Source

val get_with_holding : 
  ctor:
    ((([< `Rd | `Wr Rd ] as 'a, 'b) Safe.t ->
       'c ->
       ('b, 'd, 'e) t ->
       ('b, 'd, 'e) res) ->
      ('b, 'd, 'e) state) ->
  (int -> ('a, 'b) Safe.t -> 'c -> ('b, 'd, 'e) t -> ('b, 'd, 'e) res) ->
  ('a, 'b) Safe.t ->
  'c ->
  ('b, 'd, 'e) t ->
  ('b, 'd, 'e) res

Source

val get_int16 : 
  ctor:
    ((([< `Rd | `Wr Rd ] as 'a, 'b) Safe.t ->
       'c ->
       ('b, 'd, 'e) t ->
       ('b, 'd, 'e) res) ->
      ('b, 'd, 'e) state) ->
  (int -> ('a, 'b) Safe.t -> 'c -> ('b, 'd, 'e) t -> ('b, 'd, 'e) res) ->
  ('a, 'b) Safe.t ->
  'c ->
  ('b, 'd, 'e) t ->
  ('b, 'd, 'e) res

Sourcemodule KLast : sig ... end

Sourcemodule KBlock : sig ... end

Sourcemodule KDictionary : sig ... end

Sourcemodule KFlat : sig ... end

Sourcemodule KInflate : sig ... end

Sourcemodule Dictionary : sig ... end

Sourceval fixed : 'a -> 'b -> ('c, 'd, 'e) t -> ('c, 'd, 'e) res

Source

val dictionary : 
  (Safe.ro, 'a) Safe.t ->
  (Safe.wo, 'b) Safe.t ->
  ('a, 'b, 'c) t ->
  ('a, 'b, 'c) res

Sourceval switch : 'a -> 'b -> ('c, 'd, 'e) t -> ('c, 'd, 'e) res

Source

val flat : 
  (Safe.ro, 'a) Safe.t ->
  (Safe.wo, 'a) Safe.t ->
  ('a, 'a, 'b) t ->
  ('a, 'a, 'b) res

Source

val inflate : 
  Lookup.t ->
  Lookup.t ->
  (Safe.ro, 'a) Safe.t ->
  (Safe.wo, 'b) Safe.t ->
  ('a, 'b, 'c) t ->
  ('a, 'b, 'c) res

Sourceexception End

Sourceexception Exn_invalid_distance of int * int

Source

val inffast : 
  ([< `Rd | `Wr Rd ], 'a) Safe.t ->
  ([< `Rd | `Wr Wr ], 'b) Safe.t ->
  ('a, 'b, 'c) t ->
  Lookup.t ->
  Lookup.t ->
  code ->
  ('a, 'b, 'c) res

Source

val block : 
  ([< `Rd | `Wr Rd ], 'a) Safe.t ->
  'b ->
  ('a, 'a, 'c) t ->
  ('a, 'a, 'c) res

Source

val last : 
  ([< `Rd | `Wr Rd ], 'a) Safe.t ->
  'b ->
  ('a, 'c, 'd) t ->
  ('a, 'c, 'd) res

Source

val eval0 : 
  (Safe.ro, 'a) Safe.t ->
  (Safe.wo, 'a) Safe.t ->
  ('a, 'a, 'b) t ->
  ('a, 'a, 'b) res

Source

val eval : 
  'a ->
  'a ->
  ('a, 'a, 'b) t ->
  [> `Await of ('a, 'a, 'b) t
  | `End of ('a, 'a, 'b) t
  | `Error of ('a, 'a, 'b) t * error
  | `Flush of ('a, 'a, 'b) t ]

Source

val default : 
  witness:'a Buffer.t ->
  ?wbits:int ->
  ('a, 'b) Window.t ->
  ('a, 'a, 'b) t

Sourceval refill : int -> int -> ('a, 'b, 'c) t -> ('a, 'b, 'c) t

Sourceval flush : int -> int -> ('a, 'b, 'c) t -> ('a, 'b, 'c) t

Sourceval used_in : ('a, 'b, 'c) t -> int

Sourceval used_out : ('a, 'b, 'c) t -> int

Sourceval write : ('a, 'b, 'c) t -> int

Sourceval bits_remaining : ('a, 'b, 'c) t -> int

include sig ... end

Source

val to_result : 
  'a ->
  'a ->
  ('a -> int) ->
  ('a -> int -> int) ->
  ('a, 'a, Window.none) t ->
  (('a, 'a, Window.none) t, error) result

Source

val bytes : 
  'a ->
  'a ->
  ('a -> int) ->
  ('a -> int -> int) ->
  ('a, 'a, Window.none) t ->
  (('a, 'a, Window.none) t, error) result

Source

val bigstring : 
  'a ->
  'a ->
  ('a -> int) ->
  ('a -> int -> int) ->
  ('a, 'a, Window.none) t ->
  (('a, 'a, Window.none) t, error) result

Install

Dune Dependency

Authors

Maintainers

Sources

doc/decompress.impl/Impl/Decompress_inflate/RFC1951/index.html

Module `Decompress_inflate.RFC1951`Source

package decompress

Install

Dune Dependency

Authors

Maintainers

Sources

doc/decompress.impl/Impl/Decompress_inflate/RFC1951/index.html

Module Decompress_inflate.RFC1951Source

Module `Decompress_inflate.RFC1951`Source