Add option for clearing the registry cache

Author: minhqdao

src/fpm.f90

@@ -26,6 +26,7 @@ module fpm
                                         & stderr => error_unit
 use iso_c_binding, only: c_char, c_ptr, c_int, c_null_char, c_associated, c_f_pointer
 use fpm_environment, only: os_is_unix
+use fpm_settings, only: fpm_global_settings, get_global_settings
 
 implicit none
 private
@@ -684,15 +685,23 @@ subroutine cmd_clean(settings)
     class(fpm_clean_settings), intent(in) :: settings
 
     character :: user_response
+    type(fpm_global_settings) :: global_settings
+    type(error_t), allocatable :: error
+
+    ! Clear registry cache
+    if (settings%registry_cache) then
+        call get_global_settings(global_settings, error)
+        if (allocated(error)) return
+
+        call os_delete_dir(os_is_unix(), global_settings%registry_settings%cache_path)
+    end if
 
     if (is_dir('build')) then
         ! Remove the entire build directory
         if (settings%clean_all) then
             call os_delete_dir(os_is_unix(), 'build'); return
-        end if
-
         ! Remove the build directory but skip dependencies
-        if (settings%clean_skip) then
+        else if (settings%clean_skip) then
             call delete_skip(os_is_unix()); return
         end if
 

src/fpm_command_line.f90

@@ -114,6 +114,7 @@ module fpm_command_line
 type, extends(fpm_cmd_settings)   :: fpm_clean_settings
     logical                       :: clean_skip = .false.
     logical                       :: clean_all = .false.
+    logical                       :: registry_cache = .false.
 end type
 
 type, extends(fpm_build_settings) :: fpm_publish_settings
@@ -603,6 +604,7 @@ subroutine get_command_line_settings(cmd_settings)
 
         case('clean')
             call set_args(common_args // &
+            &   ' --registry-cache'   // &
             &   ' --skip'             // &
             &   ' --all',                &
                 help_clean, version_text)
@@ -618,8 +620,9 @@ subroutine get_command_line_settings(cmd_settings)
                 end if
 
                 allocate(fpm_clean_settings :: cmd_settings)
-                cmd_settings=fpm_clean_settings( &
-                &   clean_skip=skip,     &
+                cmd_settings = fpm_clean_settings( &
+                &   registry_cache=lget('registry-cache'), &
+                &   clean_skip=skip, &
                 &   clean_all=clean_all)
             end block