find_ptr_index Function

private function find_ptr_index(p, all) result(idx)

Uses

    • fpm_targets
  • proc~~find_ptr_index~~UsesGraph proc~find_ptr_index find_ptr_index fpm_targets fpm_targets proc~find_ptr_index->fpm_targets

Arguments

Type IntentOptional Attributes Name
type(build_target_t), intent(in), pointer :: p
type(build_target_ptr), intent(in) :: all(:)

Return Value integer


Called by

proc~~find_ptr_index~~CalledByGraph proc~find_ptr_index find_ptr_index proc~dfs_mark_bool dfs_mark_bool proc~dfs_mark_bool->proc~find_ptr_index proc~dfs_mark_bool->proc~dfs_mark_bool proc~dfs_mark_mask dfs_mark_mask proc~dfs_mark_mask->proc~find_ptr_index proc~dfs_mark_mask->proc~dfs_mark_mask proc~compute_watch_files_from_settings compute_watch_files_from_settings proc~compute_watch_files_from_settings->proc~dfs_mark_bool proc~compute_watch_files_from_settings->proc~dfs_mark_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

   integer function find_ptr_index(p, all) result(idx)
      use fpm_targets, only: build_target_t
      type(build_target_t), pointer, intent(in) :: p
      type(build_target_ptr), intent(in) :: all(:)
      integer :: i
      idx = 0
      do i = 1, size(all)
         if (associated(all(i)%ptr, p)) then
            idx = i
            return
         end if
      end do
   end function find_ptr_index