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

type t = { id: int; name: string }

let make =
  let n = ref 0 in
  fun name ->
    let x = { id = !n; name } in
    incr n;
    x

let makef fmt = CCFormat.ksprintf ~f:make fmt
let copy { name; _ } = make name
let id { id; _ } = id
let to_string id = id.name
let equal a b = a.id = b.id
let compare a b = CCInt.compare a.id b.id
let hash a = CCHash.int a.id
let pp_full out a = Format.fprintf out "%s/%d" a.name a.id
let pp_name out a = CCFormat.string out a.name
let pp = pp_name
let to_string_full a = Printf.sprintf "%s/%d" a.name a.id

module AsKey = struct
  type nonrec t = t

  let equal = equal
  let compare = compare
  let hash = hash
end

module Map = CCMap.Make (AsKey)
module Set = CCSet.Make (AsKey)
module Tbl = CCHashtbl.Make (AsKey)