contains_path_fragment Function

private pure function contains_path_fragment(p, frag) result(ok)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: p
character(len=*), intent(in) :: frag

Return Value logical


Calls

proc~~contains_path_fragment~~CallsGraph proc~contains_path_fragment contains_path_fragment proc~ends_with ends_with proc~contains_path_fragment->proc~ends_with

Called by

proc~~contains_path_fragment~~CalledByGraph proc~contains_path_fragment contains_path_fragment proc~is_ignored_path is_ignored_path proc~is_ignored_path->proc~contains_path_fragment proc~vec_push_unique vec_push_unique proc~vec_push_unique->proc~is_ignored_path proc~gather_files_with_mask gather_files_with_mask proc~gather_files_with_mask->proc~vec_push_unique proc~push_file_with_mask push_file_with_mask proc~push_file_with_mask->proc~vec_push_unique proc~compute_watch_files_from_settings compute_watch_files_from_settings proc~compute_watch_files_from_settings->proc~gather_files_with_mask proc~compute_watch_files_from_settings->proc~push_file_with_mask proc~rebuild_watch_list rebuild_watch_list proc~rebuild_watch_list->proc~compute_watch_files_from_settings proc~handle_manifest_change handle_manifest_change proc~handle_manifest_change->proc~rebuild_watch_list proc~watcher_init watcher_t%watcher_init proc~watcher_init->proc~rebuild_watch_list proc~watcher_run watcher_t%watcher_run proc~watcher_run->proc~rebuild_watch_list proc~watcher_run->proc~handle_manifest_change

Source Code

   pure logical function contains_path_fragment(p, frag) result(ok)
      character(len=*), intent(in) :: p, frag
      character(len=:), allocatable :: needle
      ok = .false.
      if (len_trim(frag) == 0) return
      needle = "/" // trim(frag) // "/"
      if (index(p, needle) /= 0) then
         ok = .true.
         return
      end if
      if (ends_with(p, "/" // trim(frag))) then
         ok = .true.
         return
      end if
   end function contains_path_fragment