system_mkdir(3f) - [M_system:FILE_SYSTEM] call mkdir(3c) to create
a new directory
(LICENSE:PD)
Predefined variables are typically used to set permission modes.
You can bytewise-OR together these variables to create the most common
permissions mode:
User: R_USR (read), W_USR (write), X_USR(execute)
Group: R_GRP (read), W_GRP (write), X_GRP(execute)
Others: R_OTH (read), W_OTH (write), X_OTH(execute)
Additionally, some shortcuts are provided (basically a bitwise-OR
combination of the above):
Read + Write + Execute: RWX_U (User), RWX_G (Group), RWX_O (Others)
DEFFILEMODE: Equivalent of 0666 =rw-rw-rw-
ACCESSPERMS: Equivalent of 0777 = rwxrwxrwx
Therefore, to give only the user rwx (read+write+execute) rights whereas
group members and others may not do anything, you can use any of the
following mkdir() calls equivalently:
ierr= mkdir("mydir", IANY([R_USR, W_USR, X_USR]));
ierr= mkdir("mydir", RWX_U);
In order to give anyone any rights (mode 0777 = rwxrwxrwx), you can
use any of the following calls equivalently:
ierr= mkdir("mydir",&
& IANY([R_USR,W_USR,X_USR,R_GRP,W_GRP,X_GRP,R_OTH,W_OTH,X_OTH]));
ierr= mkdir("mydir",IANY([RWX_U,RWX_G,RWX_O]));
ierr= mkdir("mydir",ACCESSPERMS);
Sample program:
program demo_system_mkdir
use M_system, only : system_perror
use M_system, only : system_mkdir
use M_system, only : R_GRP,R_OTH,R_USR,RWX_G,RWX_O
use M_system, only : RWX_U,W_GRP,W_OTH,W_USR,X_GRP,X_OTH,X_USR
use M_system, only : DEFFILEMODE, ACCESSPERMS
implicit none
integer :: ierr
ierr=system_mkdir('_scratch',IANY([R_USR,W_USR,X_USR]))
end program demo_system_mkdir
John S. Urban
Public Domain
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | dirname | |||
| integer, | intent(in) | :: | mode |
function system_mkdir(dirname,mode) result(ierr)
! ident_21="@(#) M_system system_mkdir(3f) call mkdir(3c) to create empty directory"
character(len=*),intent(in) :: dirname
integer,intent(in) :: mode
integer :: c_mode
integer(kind=c_int) :: err
integer :: ierr
character(kind=c_char,len=1),allocatable :: temp(:)
interface
function c_mkdir(c_path,c_mode) bind(c,name="mkdir") result(c_err)
import c_char, c_int
character(len=1,kind=c_char),intent(in) :: c_path(*)
integer(c_int),intent(in),value :: c_mode
integer(c_int) :: c_err
end function c_mkdir
end interface
interface
subroutine my_mkdir(string,c_mode,c_err) bind(C, name="my_mkdir")
use iso_c_binding, only : c_char, c_int
character(kind=c_char) :: string(*)
integer(c_int),intent(in),value :: c_mode
integer(c_int) :: c_err
end subroutine my_mkdir
end interface
!-----------------------------------------------------------------------------------------------------------------------------------
c_mode=mode
temp = str2_carr(trim(dirname)) ! kludge for bug in ifort (IFORT) 2021.3.0 20210609
if(index(dirname,'/').ne.0)then
call my_mkdir(temp,c_mode,err)
else
err= c_mkdir(temp,c_mode)
endif
ierr=err ! c_int to default integer kind
end function system_mkdir