Delete the build directory including or excluding dependencies.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(fpm_clean_settings), | intent(in) | :: | settings |
Settings for the clean command. |
subroutine cmd_clean(settings)
!> Settings for the clean command.
class(fpm_clean_settings), intent(in) :: settings
character :: user_response
if (is_dir('build')) then
! Remove the entire build directory
if (settings%clean_call) then
call os_delete_dir(os_is_unix(), 'build'); return
end if
! Remove the build directory but skip dependencies
if (settings%clean_skip) then
call delete_skip(os_is_unix()); return
end if
! Prompt to remove the build directory but skip dependencies
write(stdout, '(A)', advance='no') "Delete build, excluding dependencies (y/n)? "
read(stdin, '(A1)') user_response
if (lower(user_response) == 'y') call delete_skip(os_is_unix())
else
write (stdout, '(A)') "fpm: No build directory found."
end if
end subroutine cmd_clean