package eqaf
Constant-time equal function on string
Install
Dune Dependency
Authors
Maintainers
Sources
eqaf-0.10.tbz
sha256=67d1369c57c4d2d14a10d02632d45e355224abeb98aec08979c0bae5843092ee
sha512=7f75b5d5667e3605f8d95e2d6fda40953129033e6a342ee2c98ee4135c2428e1db87547971868605ab989374757c47c21c5397d4c3da578952d716826a156979
doc/src/eqaf.bytes/eqaf_bytes.ml.html
Source file eqaf_bytes.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 27 28 29 30 31 32let equal a b = let a' = Bytes.unsafe_to_string a in let b' = Bytes.unsafe_to_string b in Eqaf.equal a' b' let compare_le_with_len ~len a b = let a' = Bytes.unsafe_to_string a in let b' = Bytes.unsafe_to_string b in Eqaf.compare_le_with_len ~len a' b' let compare_le a b = let a' = Bytes.unsafe_to_string a in let b' = Bytes.unsafe_to_string b in Eqaf.compare_le a' b' let compare_be_with_len ~len a b = let a' = Bytes.unsafe_to_string a in let b' = Bytes.unsafe_to_string b in Eqaf.compare_be_with_len ~len a' b' let compare_be a b = let a' = Bytes.unsafe_to_string a in let b' = Bytes.unsafe_to_string b in Eqaf.compare_be a' b' let find_uint8 ?off ~f b = let str = Bytes.unsafe_to_string b in Eqaf.find_uint8 ?off ~f str let exists_uint8 ?off ~f b = let str = Bytes.unsafe_to_string b in Eqaf.exists_uint8 ?off ~f str