jon.recoil.org

Source file opamSHA.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
(**************************************************************************)
(*                                                                        *)
(*    Copyright 2016-2018 OCamlPro                                        *)
(*                                                                        *)
(*  All rights reserved. This file is distributed under the terms of the  *)
(*  GNU Lesser General Public License version 2.1, with the special       *)
(*  exception on linking described in the file LICENSE.                   *)
(*                                                                        *)
(**************************************************************************)

let sha1_file file = Sha1.to_hex (Sha1.file file)
let sha256_file file = Sha256.to_hex (Sha256.file file)
let sha512_file file = Sha512.to_hex (Sha512.file file)
let hash_file = function
  | `SHA1 -> sha1_file
  | `SHA256 -> sha256_file
  | `SHA512 -> sha512_file

let sha1_string str = Sha1.to_hex (Sha1.string str)
let sha256_string str = Sha256.to_hex (Sha256.string str)
let sha512_string str = Sha512.to_hex (Sha512.string str)
let hash_string = function
  | `SHA1 -> sha1_string
  | `SHA256 -> sha256_string
  | `SHA512 -> sha512_string