PXFISCHR(3F) Last changed: 1-6-98
NAMEPXFISCHR - Tests for character special file
SYNOPSIS
LOGICAL FUNCTION PXFISCHR(m)
INTEGER m
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 logical function PXFISCHR checks if a file is a character special
file. The argument m should be supplied by the st_mode component of
the stat structure used by the PXFSTAT(3F) routine.
When using the CF90 compiler or MIPSpro 7 Fortran 90 compiler on
UNICOS, UNICOS/mk, or IRIX, 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 valid argument for this routine:
m An integer input variable containing the file mode.
If the file is a character special file, PXFISCHR returns a logical
true, otherwise a logical false is returned.
EXAMPLES
In this example, PXFSTAT is called on /dev/tty, which should be a
character special file. After PXFINTGET(3F) returns the mode of
/dev/tty, PXFISCHR is called to check the mode of /dev/tty.
program pxftest
integer jstat,ierror,mode
logical pxfischr
CALL PXFSTRUCTCREATE('stat',jstat,ierror)
CALL PXFSTAT('/dev/tty',0,jstat,ierror)
CALL PXFINTGET(jstat,'st_mode', mode, ierror)
if (PXFISCHR(mode) .eqv. .TRUE.) then
print *,'/dev/tty is a character special file.'
else
print *,'/dev/tty should be a character special file, but is not.'
endif
end
This program may display:
/dev/tty is a character special file.
SEE ALSO
PXFISBLK, PXFINTGET(3F), PXFSTAT(3F), PXFSTRUCTCREATE(3F)
Application Programmer's Library Reference Manual, publication SR-
2165, for the printed version of this man page.
