system_isfifo(3f) - [M_system:QUERY_FILE] checks if argument is a
fifo - named pipe
(LICENSE:PD)
elemental impure logical function system_isfifo(pathname)
character(len=*),intent(in) :: pathname
logical :: system_isfifo
The isfifo(3f) function checks if path is a path to a fifo -
named pipe.
path a character string representing a fifo - named pipe
pathname. Trailing spaces are ignored.
The system_isfifo() function should always be successful and no
return value is reserved to indicate an error.
No errors are defined.
system_isreg(3f), system_stat(3f), system_isdir(3f), system_perm(3f)
check if filename is a FIFO file
program demo_system_isfifo
use M_system, only : system_isfifo
implicit none
integer :: i
character(len=80),parameter :: names(*)=[ &
'/tmp ', &
'/tmp/NOTTHERE ', &
'/usr/local ', &
'. ', &
'fifo.test ', &
'PROBABLY_NOT ']
do i=1,size(names)
write(*,*)' is ',trim(names(i)),' a fifo(named pipe)? ', &
& system_isfifo(names(i))
enddo
end program demo_system_isfifo
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | pathname |
elemental impure function system_isfifo(pathname)
implicit none
! ident_5="@(#) M_system system_isfifo(3f) determine if pathname is a fifo(named pipe)"
character(len=*),intent(in) :: pathname
logical :: system_isfifo
character(kind=c_char,len=1),allocatable :: temp(:)
interface
function c_isfifo(pathname) bind (C,name="my_isfifo") result (c_ierr)
import c_char,c_int
character(kind=c_char,len=1),intent(in) :: pathname(*)
integer(kind=c_int) :: c_ierr
end function c_isfifo
end interface
temp = str2_carr(trim(pathname)) ! kludge for bug in ifort (IFORT) 2021.3.0 20210609
if(c_isfifo(temp).eq.1)then
system_isfifo=.true.
else
system_isfifo=.false.
endif
end function system_isfifo