Source file `md5_lib.ml`

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
type t = string

(* Share the digest of the empty string *)
let empty = Digest.string ""
let make s =
  if s = empty then
    empty
  else
    s

let compare = compare

let length = 16

let to_binary s = s
let of_binary_exn s = assert (String.length s = length); make s
let unsafe_of_binary = make

let to_hex = Digest.to_hex
let of_hex_exn s = make (Digest.from_hex s)

let string s = make (Digest.string s)

let bytes s = make (Digest.bytes s)

let subbytes bytes ~pos ~len = make (Digest.subbytes bytes pos len)