Filename_new.Unix

struct

  let current_dir_name = "."

  let parent_dir_name = ".."

  let dir_sep = "/"

  let is_dir_sep s i = s.[i] = '/'

  let rindex_dir_sep s = String.rindex s '/'

  let is_relative n = String.length n < 1 || n.[0] <> '/';;

  let is_implicit n =

    is_relative n

    && (String.length n < 2 || String.sub n 0 2 <> "./")

    && (String.length n < 3 || String.sub n 0 3 <> "../")

  let check_suffix name suff =

    String.length name >= String.length suff &&

    String.sub name (String.length name - String.length suff)

                    (String.length suff) = suff

  let temp_dir_name =

    try Sys.getenv "TMPDIR" with Not_found -> "/tmp"

  let quote = generic_quote "'\\''"

  let basename = generic_basename rindex_dir_sep current_dir_name

  let dirname = generic_dirname rindex_dir_sep current_dir_name dir_sep

end