32 lines
673 B
OCaml
32 lines
673 B
OCaml
|
module By = Digestif_by
|
||
|
|
module Bi = Digestif_bi
|
||
|
|
|
||
|
|
module type S = sig
|
||
|
|
type ctx
|
||
|
|
type kind = [ `SHA3_256 ]
|
||
|
|
|
||
|
|
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_256 ]
|
||
|
|
|
||
|
|
module U = Baijiu_sha3.Unsafe (struct
|
||
|
|
let padding = Baijiu_sha3.keccak_padding
|
||
|
|
end)
|
||
|
|
|
||
|
|
open U
|
||
|
|
|
||
|
|
type nonrec ctx = ctx
|
||
|
|
|
||
|
|
let init () = U.init 32
|
||
|
|
let unsafe_get = unsafe_get
|
||
|
|
let dup = dup
|
||
|
|
let unsafe_feed_bytes = unsafe_feed_bytes
|
||
|
|
let unsafe_feed_bigstring = unsafe_feed_bigstring
|
||
|
|
end
|