Create a directory. Create subdirectories as needed
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | dir | |||
logical, | intent(in), | optional | :: | echo |
subroutine mkdir(dir, echo)
character(len=*), intent(in) :: dir
logical, intent(in), optional :: echo
integer :: stat
if (is_dir(dir)) return
select case (get_os_type())
case (OS_UNKNOWN, OS_LINUX, OS_MACOS, OS_CYGWIN, OS_SOLARIS, OS_FREEBSD, OS_OPENBSD)
call run('mkdir -p ' // dir, exitstat=stat,echo=echo,verbose=.false.)
case (OS_WINDOWS)
call run("mkdir " // windows_path(dir), &
& echo=echo, exitstat=stat,verbose=.false.)
end select
if (stat /= 0) then
call fpm_stop(1, '*mkdir*:directory creation failed')
end if
end subroutine mkdir