Filename_new.Cygwin

struct

  let current_dir_name = "."

  let parent_dir_name = ".."

  let dir_sep = "/"

  let is_dir_sep = Win32.is_dir_sep

  let rindex_dir_sep = Win32.rindex_dir_sep

  let is_relative = Win32.is_relative

  let is_implicit = Win32.is_implicit

  let check_suffix = Win32.check_suffix

  let temp_dir_name = Unix.temp_dir_name

  let quote = Unix.quote

  let basename = generic_basename rindex_dir_sep current_dir_name

  let dirname = generic_dirname rindex_dir_sep current_dir_name dir_sep

end