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
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 to_binary_local 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)