system_getumask Function

public function system_getumask() result(umask_value)

NAME

system_getumask(3f) - [M_system:QUERY_FILE] get current umask
(LICENSE:PD)

SYNOPSIS

integer function system_getumask() result (umask_value)

DESCRIPTION

The return value from getumask(3f) is the value of the file creation mask, obtained by using umask(3c).

EXAMPLE

Sample program

program demo_getumask
use M_system, only : system_getumask, system_setumask
integer :: i
write(*,101)(system_getumask(),i=1,4)
101 format(1x,i0,1x,"O'",o4.4,"'",1x,'Z"',z0,"'",1x,"B'",b12.12,"'")
end program demo_getumask

Expected output

 18 O'022' Z"12' B'000010010"

Arguments

None

Return Value integer


Contents

Source Code

system_getumask

Source Code

integer function system_getumask() result (umask_value)
! The return value from umask() is just the previous value of the file
! creation mask, so that this system call can be used both to get and
! set the required values. Sadly, however, there is no way to get the old
! umask value without setting a new value at the same time.

! This means that in order just to see the current value, it is necessary
! to execute a piece of code like the following function:
integer             :: idum
integer(kind=c_int) :: old_umask
   old_umask=system_umask(0_c_int) ! get current umask but by setting umask to 0 (a conservative mask so no vulnerability is open)
   idum=system_umask(old_umask)    ! set back to original mask
   umask_value=old_umask
end function system_getumask