Source file file_path_and_name.ml

open! Import

type t =
  { file_name : string
  ; path : string
  }
[@@deriving sexp_of, fields]

let ( /^ ) = Stdlib.Filename.concat
let create ~path ~file_name ~extension = { path; file_name = file_name ^ extension }
let full_path_name t = t.path /^ t.file_name
let tcl_rooted_file_name t = "[file join $root " ^ t.file_name ^ "]"
let prefix_file_name t s = { t with file_name = s ^ t.file_name }