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