add clean calling directory

Author: freevryheid

src/fpm.f90

@@ -506,6 +506,7 @@ end subroutine cmd_run
 subroutine cmd_clean(settings)
     class(fpm_clean_settings), intent(in) :: settings
     character(len=1) :: response
+    write(stdout, '(*(a))') "fpm: Clean calling directory '"//settings%calling_dir//"'"
     if (is_dir("build")) then
         write(stdout, '(A)', advance='no') "Delete the build directory (y/n)? "
         read(stdin, '(A1)') response

src/fpm_command_line.f90

@@ -106,7 +106,8 @@ module fpm_command_line
 end type
 
 type, extends(fpm_cmd_settings)  :: fpm_clean_settings
-    logical :: unix
+    logical                       :: unix         ! is the system os unix?
+    character(len=:), allocatable :: calling_dir  ! directory clean called from
 end type
 
 character(len=:),allocatable :: name
@@ -481,6 +482,7 @@ subroutine get_command_line_settings(cmd_settings)
             if(lget('list'))then
                call printhelp(help_list_dash)
             endif
+
         case('test')
             call set_args(common_args // compiler_args // run_args // ' --', &
               help_test,version_text)
@@ -543,7 +545,8 @@ subroutine get_command_line_settings(cmd_settings)
         case('clean')
             call set_args(common_args, help_clean)
             allocate(fpm_clean_settings :: cmd_settings)
-            cmd_settings=fpm_clean_settings(unix=unix)
+            call get_current_directory(working_dir, error)
+            cmd_settings=fpm_clean_settings(unix=unix, calling_dir=working_dir)
 
         case default