unikernel/duniverse/digestif/src-ocaml/baijiu_sha3_512.ml

@@ -0,0 +1,31 @@
+module By = Digestif_by
+module Bi = Digestif_bi
+
+module type S = sig
+  type ctx
+  type kind = [ `SHA3_512 ]
+
+  val init : unit -> ctx
+  val unsafe_feed_bytes : ctx -> By.t -> int -> int -> unit
+  val unsafe_feed_bigstring : ctx -> Bi.t -> int -> int -> unit
+  val unsafe_get : ctx -> By.t
+  val dup : ctx -> ctx
+end
+
+module Unsafe : S = struct
+  type kind = [ `SHA3_512 ]
+
+  module U = Baijiu_sha3.Unsafe (struct
+    let padding = Baijiu_sha3.nist_padding
+  end)
+
+  open U
+
+  type nonrec ctx = ctx
+
+  let init () = U.init 64
+  let unsafe_get = unsafe_get
+  let dup = dup
+  let unsafe_feed_bytes = unsafe_feed_bytes
+  let unsafe_feed_bigstring = unsafe_feed_bigstring
+end