is_hidden_file Function

public function is_hidden_file(file_basename) result(r)

test if a file is hidden

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	file_basename

Return Value logical

Source Code

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