test if a file is hidden
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | file_basename |
logical function is_hidden_file(file_basename) result(r)
character(*), intent(in) :: file_basename
if (len(file_basename) <= 2) then
r = .false.
else
r = str_begins_with_str(file_basename, '.')
end if
end function is_hidden_file