PXFACCESS(3F) Last changed: 1-6-98
NAME
PXFACCESS - Checks the accessibility of a named file
SYNOPSIS
CHARACTER*n path
INTEGER ilen, iamode, ierror
CALL PXFACCESS(path, ilen, iamode, ierror)
IMPLEMENTATION
UNICOS, UNICOS/mk, and IRIX systems
STANDARDS
IEEE standard interface for FORTRAN 77
DESCRIPTION
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 PXFACCESS subroutine uses the access(2) system call to check the
accessibility of a named file.
The value of iamode indicates specific file permissions. These file
permissions are checked against the current file permissions specified
for the file in path. If the iamode permissions are allowed for the
file in path, PXFACCESS returns a zero in ierror. Otherwise, it
returns a nonzero value.
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 valid arguments for this subroutine:
path An input character variable or array element containing the
name of a file.
ilen An input integer variable containing the length of path in
characters. If ilen is zero, all trailing blanks are
removed before calling access().
iamode An input integer variable containing the integer value of
the symbolic constant for one or more of the following
permissions: R_OK, W_OK, X_OK, or F_OK. An integer value
for each of these symbolic constants is retrieved through
the use of PXFCONST or IPXFCONST. The integer values may be
combined through the use of a bitwise inclusive OR function.
ierror An output integer variable that contain zero if the
requested access is permitted or nonzero if the requested
access is not permitted.
In addition to the errors returned by the access(2) system call,
PXFACCESS may return the following errors:
EINVAL If ilen is less than 0 or ilen is greater than LEN(path)
ENOMEM If PXFACCESS is unable to obtain memory to copy path.
EXAMPLES
program test
character*(12) path
integer ilen, iamod, ierr
path = 'testfile'
iamod = 0
ilen = 0
ierr = 0
call pxfconst('R_OK',iamod,ierr)
if (ierr.ne.0) then
print *,'FAIL: error from pxfconst R_OK = ',ierr
else
print *,'PASS: No error from pxfconst R_OK = '
endif
ierr = 0
call pxfaccess(path,ilen,iamod,ierr)
if (ierr.ne.0) then
print *,'FAIL: error from pxfaccess = ',ierr
else
print *,'PASS: No error from pxfaccess = '
endif
end
SEE ALSOaccess(2)
Application Programmer's Library Reference Manual, publication SR-
2165, for the printed version of this man page.
