1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
type bigstring =
(char, Bigarray.int8_unsigned_elt, Bigarray.c_layout) Bigarray.Array1.t
module type S = sig
type t = Optint.t
val pp : Format.formatter -> t -> unit
val equal : t -> t -> bool
val default : t
val digest_bytes : Bytes.t -> int -> int -> t -> t
val digest_string : String.t -> int -> int -> t -> t
val digest_bigstring : bigstring -> int -> int -> t -> t
end
module Adler32 : S = struct
type t = Optint.t
let equal = Optint.equal
let pp = Optint.pp
let default = Optint.one
let digest_bytes = Gin_adler32.digest_bytes
let digest_string = Gin_adler32.digest_string
let digest_bigstring = Gin_adler32.digest_bigstring
end
module Crc32c : S = struct
type t = Optint.t
let equal = Optint.equal
let pp = Optint.pp
let default = Optint.zero
let digest_bytes = Gin_crc32c.digest_bytes
let digest_string = Gin_crc32c.digest_string
let digest_bigstring = Gin_crc32c.digest_bigstring
end
module Crc32 : S = struct
type t = Optint.t
let equal = Optint.equal
let pp = Optint.pp
let default = Optint.zero
let digest_bytes = Gin_crc32.digest_bytes
let digest_string = Gin_crc32.digest_string
let digest_bigstring = Gin_crc32.digest_bigstring
end