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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
type t = Optint.t
type ba =
(char, Bigarray.int8_unsigned_elt, Bigarray.c_layout) Bigarray.Array1.t
type st = Bytes.t
type off = int
type len = int
type bigstring =
(char, Bigarray.int8_unsigned_elt, Bigarray.c_layout) Bigarray.Array1.t
external adler32_bigstring :
t -> ba -> off -> len -> t
= "caml_checkseum_adler32_ba"
external adler32_bytes :
t -> st -> off -> len -> t
= "caml_checkseum_adler32_st"
external crc32c_bigstring :
t -> ba -> off -> len -> t
= "caml_checkseum_crc32c_ba"
external crc32c_bytes : t -> st -> off -> len -> t = "caml_checkseum_crc32c_st"
external crc32_bigstring :
t -> ba -> off -> len -> t
= "caml_checkseum_crc32_ba"
external crc32_bytes : t -> st -> off -> len -> t = "caml_checkseum_crc32_st"
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 bytes off len adler32 = adler32_bytes adler32 bytes off len
let digest_string string off len adler32 =
digest_bytes (Bytes.unsafe_of_string string) off len adler32
let digest_bigstring bigstring off len adler32 =
adler32_bigstring adler32 bigstring off len
end
module Crc32c : S = struct
type t = Optint.t
let equal = Optint.equal
let pp = Optint.pp
let default = Optint.zero
let digest_bytes bytes off len crc32c = crc32c_bytes crc32c bytes off len
let digest_string string off len crc32c =
digest_bytes (Bytes.unsafe_of_string string) off len crc32c
let digest_bigstring bigstring off len crc32c =
crc32c_bigstring crc32c bigstring off len
end
module Crc32 : S = struct
type t = Optint.t
let equal = Optint.equal
let pp = Optint.pp
let default = Optint.zero
let digest_bytes bytes off len crc32 = crc32_bytes crc32 bytes off len
let digest_string string off len crc32 =
digest_bytes (Bytes.unsafe_of_string string) off len crc32
let digest_bigstring bigstring off len crc32 =
crc32_bigstring crc32 bigstring off len
end