open StdLabels

type t = {
  file : string;
  tab : int;
  name : string;
}

(** Get the internal name for the given table. 

    This value may differ from the association name given in the configuration. *)
let name : t -> string =
 fun source ->
  let file_name =
    source.file |> Filename.basename |> Filename.remove_extension
  in
  match source.tab with
  | 1 -> file_name
  | _ -> String.concat ~sep:"_" [ file_name; string_of_int source.tab ]