what is cwd?

1 files changed, 20 insertions, 0 deletions

diff --git a/fpm/src/fpm/cmd/new.f90 b/fpm/src/fpm/cmd/new.f90
index 0293033..a8a8876 100644
--- a/fpm/src/fpm/cmd/new.f90
+++ b/fpm/src/fpm/cmd/new.f90
@@ -23,7 +23,9 @@ character(len=:),allocatable :: littlefile(:)
     else
        call mkdir(settings%name)      ! make new directory
     endif
+    call showcwd('before test')
     call run('cd '//settings%name) ! change to new directory as a test. System dependent potentially
+    call showcwd('after test')
     !! NOTE: need some system routines to handle filenames like "." like realpath() or getcwd().
     bname=basename(settings%name)
 
@@ -116,9 +118,27 @@ character(len=:),allocatable :: littlefile(:)
     endif
     call warnwrite(join_path(settings%name, 'fpm.toml'), message)               ! now that built it write NAME/fpm.toml
 
+    call showcwd('before init')
     call run('cd ' // settings%name // ';git init')    ! assumes these commands work on all systems and git(1) is installed
+    call showcwd('after init')
 contains
 
+subroutine showcwd(msg)
+use fpm_environment, only : run, get_os_type 
+use fpm_environment, only : OS_UNKNOWN, OS_LINUX, OS_MACOS, OS_CYGWIN, OS_SOLARIS, OS_FREEBSD, OS_WINDOWS
+character(len=*),intent(in) :: msg
+    write(*,'(a,1x)',advance='no')msg
+    select case (get_os_type()) 
+    case (OS_UNKNOWN, OS_LINUX, OS_MACOS, OS_CYGWIN, OS_SOLARIS, OS_FREEBSD)
+       call run('pwd')
+    case (OS_WINDOWS) 
+       call run('chdir')
+    case default
+       write(*,*)'ERROR: unknown OS. Stopping test'
+       stop 2
+    end select 
+end subroutine showcwd
+
 subroutine warnwrite(fname,data)
 character(len=*),intent(in) :: fname
 character(len=*),intent(in) :: data(:)