system_rmdir(3f) - [M_system:FILE_SYSTEM] call rmdir(3c) to remove
empty directories
(LICENSE:PD)
function system_rmdir(dirname) result(err)
character(*),intent(in) :: dirname
integer(c_int) :: err
DIRECTORY The name of a directory to remove if it is empty
err zero (0) if no error occurred
Sample program:
program demo_system_rmdir
use M_system, only : system_perror
use M_system, only : system_rmdir, system_mkdir
use M_system, only : RWX_U
implicit none
integer :: ierr
write(*,*)'BEFORE TRY TO CREATE _scratch/'
call execute_command_line('ls -ld _scratch')
write(*,*)'TRY TO CREATE _scratch/'
ierr=system_mkdir('_scratch',RWX_U)
write(*,*)'IERR=',ierr
call execute_command_line('ls -ld _scratch')
write(*,*)'TRY TO REMOVE _scratch/'
ierr=system_rmdir('_scratch')
write(*,*)'IERR=',ierr
call execute_command_line('ls -ld _scratch')
write(*,*)'TRY TO REMOVE _scratch when it should be gone/'
ierr=system_rmdir('_scratch')
call system_perror('*test of system_rmdir*')
write(*,*)'IERR=',ierr
call execute_command_line('ls -ld _scratch')
end program demo_system_rmdir
Expected output:
John S. Urban
Public Domain
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character, | intent(in) | :: | dirname |
function system_rmdir(dirname) result(err)
! ident_19="@(#) M_system system_rmdir(3f) call rmdir(3c) to remove empty directory"
character(*),intent(in) :: dirname
integer(c_int) :: err
character(kind=c_char,len=1),allocatable :: temp(:)
interface
function c_rmdir(c_path) bind(c,name="rmdir") result(c_err)
import c_char,c_int
character(kind=c_char,len=1),intent(in) :: c_path(*)
integer(c_int) :: c_err
end function
end interface
!-----------------------------------------------------------------------------------------------------------------------------------
temp = str2_carr(trim(dirname)) ! kludge for bug in ifort (IFORT) 2021.3.0 20210609
err= c_rmdir(temp)
if(err.ne.0) err=system_errno()
end function system_rmdir