type ('i, 'o) t = {d : ('i, 'o, crc) RFC1951.t; |
z : ('i, 'o) state; |
mtime : Optint.t; |
xfl : int; |
os : OS.t; |
extra_l : int option; |
extra : string option; |
name : string option; |
comment : string option; |
crc16 : Optint.t; |
hcrc16 : int option; |
}and ('i, 'o) state = | Header of ('i, 'o) k |
| Inflate |
| Crc32 of ('i, 'o) k |
| Size of ('i, 'o) k |
| Finish |
| Exception of error |
and ('i, 'o) res = | Cont of ('i, 'o) t |
| Wait of ('i, 'o) t |
| Flush of ('i, 'o) t |
| Ok of ('i, 'o) t |
| Error of ('i, 'o) t * error |
and error = error_gand crc = Window.crc32val pp_error : Stdlib.Format.formatter -> error_g -> unitval pp_state : Stdlib.Format.formatter -> ('a, 'b) state -> unitval pp : Stdlib.Format.formatter -> ('a, 'b) t -> unitval get_byte : ctor:((([< `Rd | `Wr Rd ] as 'a, 'b) Safe.t -> 'c -> ('b, 'd) t -> ('b, 'd) res) -> ('b, 'd) state) -> (int -> ('a, 'b) Safe.t -> 'c -> ('b, 'd) t -> ('b, 'd) res) -> ('a, 'b) Safe.t -> 'c -> ('b, 'd) t -> ('b, 'd) resval get_with_holding : ctor:((([< `Rd | `Wr Rd ] as 'a, 'b) Safe.t -> 'c -> ('b, 'd) t -> ('b, 'd) res) -> ('b, 'd) state) -> (int -> ('a, 'b) Safe.t -> 'c -> ('b, 'd) t -> ('b, 'd) res) -> ('a, 'b) Safe.t -> 'c -> ('b, 'd) t -> ('b, 'd) resval peek_bits : ctor:((([< `Rd | `Wr Rd ] as 'a, 'b) Safe.t -> 'c -> ('b, 'd) t -> ('b, 'd) res) -> ('b, 'd) state) -> int -> (('a, 'b) Safe.t -> 'c -> ('b, 'd) t -> ('b, 'd) res) -> ('a, 'b) Safe.t -> 'c -> ('b, 'd) t -> ('b, 'd) resval drop_bits : ctor:((([< `Rd | `Wr Rd ] as 'a, 'b) Safe.t -> 'c -> ('b, 'd) t -> ('b, 'd) res) -> ('b, 'd) state) -> int -> (('a, 'b) Safe.t -> 'c -> ('b, 'd) t -> ('b, 'd) res) -> ('a, 'b) Safe.t -> 'c -> ('b, 'd) t -> ('b, 'd) resval get_int16 : ctor:((([< `Rd | `Wr Rd ] as 'a, 'b) Safe.t -> 'c -> ('b, 'd) t -> ('b, 'd) res) -> ('b, 'd) state) -> (int -> ('a, 'b) Safe.t -> 'c -> ('b, 'd) t -> ('b, 'd) res) -> ('a, 'b) Safe.t -> 'c -> ('b, 'd) t -> ('b, 'd) resval get_string : ctor:((([< `Rd | `Wr Rd ] as 'a, 'b) Safe.t -> 'c -> ('b, 'd) t -> ('b, 'd) res) -> ('b, 'd) state) -> int -> (string -> ('a, 'b) Safe.t -> 'c -> ('b, 'd) t -> ('b, 'd) res) -> ('a, 'b) Safe.t -> 'c -> ('b, 'd) t -> ('b, 'd) resval get_zero_term_string : ctor:((([< `Rd | `Wr Rd ] as 'a, 'b) Safe.t -> 'c -> ('b, 'd) t -> ('b, 'd) res) -> ('b, 'd) state) -> (string -> ('a, 'b) Safe.t -> 'c -> ('b, 'd) t -> ('b, 'd) res) -> ('a, 'b) Safe.t -> 'c -> ('b, 'd) t -> ('b, 'd) resval digest_crc16_byte : (int -> 'a -> 'b -> ('c, 'd) t -> 'e) -> int -> 'a -> 'b -> ('c, 'd) t -> 'eval digest_crc16_int16 : (int -> 'a -> 'b -> ('c, 'd) t -> 'e) -> int -> 'a -> 'b -> ('c, 'd) t -> 'eval digest_crc16_z_string : (Stdlib.String.t -> 'a -> 'b -> ('c, 'd) t -> 'e) -> Stdlib.String.t -> 'a -> 'b -> ('c, 'd) t -> 'eval digest_crc16_n_string : (Stdlib.String.t -> 'a -> 'b -> ('c, 'd) t -> 'e) -> int -> Stdlib.String.t -> 'a -> 'b -> ('c, 'd) t -> 'emodule KHeader : sig ... endmodule KCrc : sig ... endmodule KSize : sig ... endval fextra : ((Safe.ro, 'a) Safe.t -> (Safe.wo, 'b) Safe.t -> ('a, 'b) t -> ('a, 'b) res) -> (Safe.ro, 'a) Safe.t -> (Safe.wo, 'b) Safe.t -> ('a, 'b) t -> ('a, 'b) resval fname : ((Safe.ro, 'a) Safe.t -> (Safe.wo, 'b) Safe.t -> ('a, 'b) t -> ('a, 'b) res) -> (Safe.ro, 'a) Safe.t -> (Safe.wo, 'b) Safe.t -> ('a, 'b) t -> ('a, 'b) resval fcomment : ((Safe.ro, 'a) Safe.t -> (Safe.wo, 'b) Safe.t -> ('a, 'b) t -> ('a, 'b) res) -> (Safe.ro, 'a) Safe.t -> (Safe.wo, 'b) Safe.t -> ('a, 'b) t -> ('a, 'b) resval fcrc16 : ((Safe.ro, 'a) Safe.t -> (Safe.wo, 'b) Safe.t -> ('a, 'b) t -> ('a, 'b) res) -> (Safe.ro, 'a) Safe.t -> (Safe.wo, 'b) Safe.t -> ('a, 'b) t -> ('a, 'b) resval eval : 'a -> 'a -> ('a, 'a) t -> [> `Await of ('a, 'a) t | `End of ('a, 'a) t | `Error of ('a, 'a) t * error | `Flush of ('a, 'a) t ]val used_in : ('a, 'b) t -> intval used_out : ('a, 'b) t -> intval write : ('a, 'b) t -> intval xfl : ('a, 'b) t -> intval extra : ('a, 'b) t -> string optionval name : ('a, 'b) t -> string optionval comment : ('a, 'b) t -> string optioninclude sig ... end
val to_result : 'a -> 'a -> ('a -> int) -> ('a -> int -> int) -> ('a, 'a) t -> (('a, 'a) t, error) Stdlib.resultval bytes : 'a -> 'a -> ('a -> int) -> ('a -> int -> int) -> ('a, 'a) t -> (('a, 'a) t, error) Stdlib.resultval bigstring : 'a -> 'a -> ('a -> int) -> ('a -> int -> int) -> ('a, 'a) t -> (('a, 'a) t, error) Stdlib.result