Update whole dependency tree: make it a subroutine

Author: perazz

src/fpm.f90

@@ -61,14 +61,8 @@ subroutine build_model(model, settings, package, error)
     if (allocated(error)) return
 
     ! Update dependencies where needed
-    do i = 1, model%deps%ndep
-
-       if (model%deps%dep(i)%update) then
-            call model%deps%update(model%deps%dep(i)%name,error)
-            if (allocated(error)) return
-       end if
-
-    end do
+    call model%deps%update(error)
+    if (allocated(error)) return
 
     ! build/ directory should now exist
     if (.not.exists("build/.gitignore")) then

src/fpm/cmd/update.f90

@@ -43,10 +43,8 @@ subroutine cmd_update(settings)
     if (settings%fetch_only) return
 
     if (size(settings%name) == 0) then
-      do ii = 1, deps%ndep
-        call deps%update(deps%dep(ii)%name, error)
-        call handle_error(error)
-      end do
+      call deps%update(error)
+      call handle_error(error)
     else
       do ii = 1, size(settings%name)
         call deps%update(trim(settings%name(ii)), error)

src/fpm/dependency.f90

@@ -159,9 +159,11 @@ module fpm_dependency
     !> Write dependency tree to TOML data structure
     procedure, private :: dump_to_toml
     !> Update dependency tree
-    generic :: update => update_dependency
+    generic :: update => update_dependency,update_tree
     !> Update a list of dependencies
     procedure, private :: update_dependency
+    !> Update all dependencies in the tree
+    procedure, private :: update_tree
   end type dependency_tree_t
 
   !> Common output format for writing to the command line
@@ -382,7 +384,7 @@ subroutine add_dependency(self, dependency, error)
 
       !> Ensure an update is requested whenever the dependency has changed
       if (needs_update) then
-         write(self%unit, out_fmt) "Update needed:", dependency%name
+         write(self%unit, out_fmt) "Dependency change detected:", dependency%name
          call new_dependency_node(self%dep(id), dependency, update=.true.)
       endif
 
@@ -442,6 +444,23 @@ subroutine update_dependency(self, name, error)
 
   end subroutine update_dependency
 
+  !> Update whole dependency tree
+  subroutine update_tree(self, error)
+    !> Instance of the dependency tree
+    class(dependency_tree_t), intent(inout) :: self
+    !> Error handling
+    type(error_t), allocatable, intent(out) :: error
+
+    integer :: i
+
+    ! Update dependencies where needed
+    do i = 1, self%ndep
+       call self%update(self%dep(i)%name,error)
+       if (allocated(error)) return
+    end do
+
+  end subroutine update_tree
+
   !> Resolve all dependencies in the tree
   subroutine resolve_dependencies(self, root, error)
     !> Instance of the dependency tree