pxfisfifo

Date:: 10-20-2011

NAME

PXFISFIFO - Tests for pipe or a FIFO special file

SYNOPSIS

LOGICAL FUNCTION PXFISFIFO(m)
INTEGER m
IF (m) then

IMPLEMENTATION

Cray Linux Environment (CLE)

STANDARDS

IEEE Std 1003.9-1992 standard interface for FORTRAN 77

DESCRIPTION

The logical function PXFISFIFO checks if a file is a pipe or FIFO special file. The argument m should be supplied by the st_mode component of the stat structure used by the PXFSTAT(3F) routine.

All arguments must be of default kind unless documented otherwise. Default kind is KIND=4 for integer, real, complex, and logical arguments.

The following argument is valid for this routine:

m: An integer input variable containing the file mode.

If the file is a block special file, PXFISFIFO returns a logical true, otherwise a logical false is returned.

EXAMPLES

In this example, a file named testfile in /tmp created by mkfifo(1) is tested to see if it is a FIFO special file.

program pxftest
integer mode, ierror
integer jstat
logical PXFISFIFO

CALL PXFCHDIR('/tmp',0,ierror)
CALL MKFIFO('testfile',644,ierror)
CALL PXFSTRUCTCREATE('stat',jstat,ierror)
CALL PXFSTAT('testfile',0,jstat,ierror)
CALL PXFINTGET(jstat,'st_mode',mode,ierror)
if (PXFISFIFO(mode,ierror) .eqv. .TRUE.) then
    print *,'PASSED: PXFISFIFO test'
    else
    print *,'FAILED: PXFISFIFO test'
endif
end