Add verbose output to git_archive

Author: minhqdao

src/fpm/cmd/publish.f90

@@ -65,7 +65,7 @@ subroutine cmd_publish(settings)
     end do
 
     tmp_file = get_temp_filename()
-    call git_archive('.', tmp_file, error)
+    call git_archive('.', tmp_file, 'HEAD', settings%verbose, error)
     if (allocated(error)) call fpm_stop(1, '*cmd_publish* Archive error: '//error%message)
 
     upload_data = [ &
@@ -91,7 +91,6 @@ subroutine cmd_publish(settings)
     end if
 
     if (settings%verbose) then
-      print *, ''
       call print_upload_data(upload_data)
       print *, ''
     end if

src/fpm/git.f90

@@ -308,31 +308,51 @@ subroutine info(self, unit, verbosity)
     end subroutine info
 
   !> Archive a folder using `git archive`.
-  subroutine git_archive(source, destination, error)
+  subroutine git_archive(source, destination, ref, verbose, error)
     !> Directory to archive.
     character(*), intent(in) :: source
     !> Destination of the archive.
     character(*), intent(in) :: destination
+    !> (Symbolic) Reference to be archived.
+    character(*), intent(in) :: ref
+    !> Whether to print verbose output.
+    logical, intent(in) :: verbose
     !> Error handling.
     type(error_t), allocatable, intent(out) :: error
 
     integer :: stat
-    character(len=:), allocatable :: cmd_output, archive_format
+    character(len=:), allocatable :: cmd_output, archive_format, cmd
+
+    if (verbose) then
+      print *, ''
+      print *, 'Show git archive options:'
+      print *, ' + git archive -l'
+    end if
 
     call execute_and_read_output('git archive -l', cmd_output, error)
     if (allocated(error)) return
 
+    if (verbose) print *, ' ', cmd_output
+
     if (index(cmd_output, 'tar.gz') /= 0) then
       archive_format = 'tar.gz'
     else
       call fatal_error(error, "Cannot find a suitable archive format for 'git archive'."); return
     end if
 
-    call execute_command_line('git archive HEAD --format='//archive_format//' -o '//destination, exitstat=stat)
+    cmd = 'git archive '//ref//' --format='//archive_format//' -o '//destination
+
+    if (verbose) then
+      print *, ''
+      print *, 'Archive ', ref, ' using ', archive_format, ':'
+      print *, ' + ', cmd
+      print *, ''
+    end if
+
+    call execute_command_line(cmd, exitstat=stat)
     if (stat /= 0) then
       call fatal_error(error, "Error packing '"//source//"'."); return
     end if
   end
 
-
 end module fpm_git