let basename s =
    let (_drive, path) = drive_and_path s in
    generic_basename rindex_dir_sep current_dir_name path