(** [Uncommon] is a [Common], now with less name clashes. *)

let kasprintf k fmt = Fmt.kstr k fmt
let invalid_arg fmt = kasprintf invalid_arg ("Crypto: " ^^ fmt)

let ( // ) x y =
  if y < 1 then raise Division_by_zero
  else if x > 0 then 1 + ((x - 1) / y)
  else 0
[@@inline]

let imin (a : int) b = if a < b then a else b
let imax (a : int) b = if a < b then b else a

type 'a iter = ('a -> unit) -> unit

let iter2 a b f =
  f a;
  f b

let iter3 a b c f =
  f a;
  f b;
  f c

let unsafe_xor_into src ~src_off dst ~dst_off n =
  Native.xor_into_bytes src src_off dst dst_off n

let xor a b =
  assert (String.length a = String.length b);
  let b' = Bytes.of_string b in
  unsafe_xor_into a ~src_off:0 b' ~dst_off:0 (Bytes.length b');
  Bytes.unsafe_to_string b'