PXFUMASK(3F) Last changed: 1-6-98
PXFUMASK - Sets the file creation mask
SUBROUTINE PXFUMASK (icmask, iprevcmask, ierror)
INTEGER icmask, iprevcmask, ierror
UNICOS, UNICOS/mk, and IRIX systems
On IRIX systems, this routine is in libfortran.so which is linked by
default when compiling programs with the MIPSpro 7 Fortran 90 compiler
or when compiling programs with the -craylibs option to the MIPSpro
7.2 F77 compiler.
The PXFUMASK routine uses the umask(2) system call to change the file
mode creation mask of the calling process. Only the file permission
bits of icmask are used.
When using the CF90 compiler or MIPSpro 7 Fortran 90 compiler on
UNICOS, UNICOS/mk, or IRIX systems, all arguments must be of default
kind unless documented otherwise. On UNICOS and UNICOS/mk, default
kind is KIND=8 for integer, real, complex, and logical arguments; on
IRIX, the default kind is KIND=4.
The following is a list of arguments for this routine:
icmask An input integer variable for the new file mode creation
mask. The symbolic constants used to compose the file mask
can be access by calling PXFCONST(3F).
iprevcmask
An output integer variable for the old file mode creation
mask.
ierror An output integer variable that will contain a status of
zero if the routine was successful.
In this example, the program calls PXFUMASK with a file mode creation
mask of octal 022. Then a file is created using the new file creation
mask.
program pxftest
integer icmask, iprevcmask, imode, ifildes, ifilemode, ierror
integer itemp
integer jstat
character*3 cmask
cmask = '022'
read(cmask,1) icmask
1 format(O3)
CALL PXFUMASK(icmask, iprevcmask, ierror)
CALL PXFCONST('S_IRWXU',imode,ierror)
if (ierror .ne. 0) then
print *,'FAILED: PXFCONST call for S_IRWXU with error=',ierror
else
CALL PXFCONST('S_IRWXG',itemp,ierror)
if (ierror .ne. 0) then
print *,'FAILED: PXFCONST call for S_IRWXG with error=',ierror
else
imode = IOR(imode,itemp)
CALL PXFCREAT('/tmp/tempfile', 0, imode, ifildes, ierror)
if (ierror .ne. 0) then
print *,'FAILED: PXFCREAT call with error = ',ierror
else
endif
endif
end
umask(2)
PXFCONST(3F)
Application Programmer's Library Reference Manual, publication SR2165,
for the printed version of this man page.
PXFUMASK(3F) Last changed: 1-6-98
PXFUMASK - Sets the file creation mask
SUBROUTINE PXFUMASK (icmask, iprevcmask, ierror)
INTEGER icmask, iprevcmask, ierror
UNICOS, UNICOS/mk, and IRIX systems
On IRIX systems, this routine is in libfortran.so which is linked by
default when compiling programs with the MIPSpro 7 Fortran 90 compiler
or when compiling programs with the -craylibs option to the MIPSpro
7.2 F77 compiler.
The PXFUMASK routine uses the umask(2) system call to change the file
mode creation mask of the calling process. Only the file permission
bits of icmask are used.
When using the CF90 compiler or MIPSpro 7 Fortran 90 compiler on
UNICOS, UNICOS/mk, or IRIX systems, all arguments must be of default
kind unless documented otherwise. On UNICOS and UNICOS/mk, default
kind is KIND=8 for integer, real, complex, and logical arguments; on
IRIX, the default kind is KIND=4.
The following is a list of arguments for this routine:
icmask An input integer variable for the new file mode creation
mask. The symbolic constants used to compose the file mask
can be access by calling PXFCONST(3F).
iprevcmask
An output integer variable for the old file mode creation
mask.
ierror An output integer variable that will contain a status of
zero if the routine was successful.
In this example, the program calls PXFUMASK with a file mode creation
mask of octal 022. Then a file is created using the new file creation
mask.
program pxftest
integer icmask, iprevcmask, imode, ifildes, ifilemode, ierror
integer itemp
integer jstat
character*3 cmask
cmask = '022'
read(cmask,1) icmask
1 format(O3)
CALL PXFUMASK(icmask, iprevcmask, ierror)
CALL PXFCONST('S_IRWXU',imode,ierror)
if (ierror .ne. 0) then
print *,'FAILED: PXFCONST call for S_IRWXU with error=',ierror
else
CALL PXFCONST('S_IRWXG',itemp,ierror)
if (ierror .ne. 0) then
print *,'FAILED: PXFCONST call for S_IRWXG with error=',ierror
else
imode = IOR(imode,itemp)
CALL PXFCREAT('/tmp/tempfile', 0, imode, ifildes, ierror)
if (ierror .ne. 0) then
print *,'FAILED: PXFCREAT call with error = ',ierror
else
endif
endif
end
umask(2)
PXFCONST(3F)
Application Programmer's Library Reference Manual, publication SR2165,
for the printed version of this man page.
[ Back ]
|
