(* This file is free software. See file "license" for more details. *)

(** {1 Util} *)

module Fmt = CCFormat

type 'a printer = 'a CCFormat.printer

let pp_sep sep out () = Format.fprintf out "%s@," sep

let pp_list ?(sep=" ") pp out l =
  Fmt.list ~sep:(pp_sep sep) pp out l

let pp_iter ?(sep=" ") pp out l =
  Fmt.iter ~sep:(pp_sep sep) pp out l

let pp_pair ?(sep=" ") pp1 pp2 out t =
  Fmt.pair ~sep:(pp_sep sep) pp1 pp2 out t

let pp_array ?(sep=" ") pp out l =
  Fmt.array ~sep:(pp_sep sep) pp out l

let pp_iarray ?(sep=" ") pp out a =
  Fmt.iter ~sep:(pp_sep sep) pp out (IArray.to_iter a)

let flat_map_l_ia f l =
  CCList.flat_map (fun x -> IArray.to_list @@ f x) l

let setup_gc () =
  let g = Gc.get () in
  Gc.set {
    g with Gc.
    space_overhead = 3_000; (* major gc *)
    max_overhead = 10_000; (* compaction *)
    minor_heap_size = 500_000; (* ×8 to obtain bytes on 64 bits -->  *)
  }

module Int_set = CCSet.Make(CCInt)
module Int_map = CCMap.Make(CCInt)
module Int_tbl = CCHashtbl.Make(CCInt)