let basename = generic_basename rindex_dir_sep current_dir_name