let dirname = generic_dirname rindex_dir_sep current_dir_name dir_sep