let absolute_name f =
  if Filename.is_relative f then
    Filename.concat (Unix.getcwd()) f
  else
    f