+let is_filename_starts_with_dot filename =
+ match filename.[0] with
+ | exception Invalid_argument _ ->
+ (* Filename should not be an empty string *)
+ assert false
+ | '.' -> true
+ | _ -> false
+
+let is_filename_not_hidden filename =
+ not (is_filename_starts_with_dot filename)
+