pxfdirectory(3F)

NAME
     PXFOPENDIR, PXFREADDIR, PXFREWINDDIR, PXFCLOSEDIR - Performs directory
     operations

SYNOPSIS
     SUBROUTINE PXFOPENDIR (dirname, lendirname, iopendirid, ierror)
     CHARACTER*n dirname
     INTEGER lendirname, iopendir, ierror

     SUBROUTINE PXFREADDIR (idirid, jdirent, ierror)
     INTEGER idirid, jdirent, ierror

     SUBROUTINE PXFREWINDDIR (idirid, ierror)
     INTEGER idirid, ierror

     SUBROUTINE PXFCLOSEDIR (idirid, ierror)
     INTEGER idirid, ierror

STANDARDS
     IEEE standard interface for FORTRAN 77

DESCRIPTION
     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 F77
     compiler.

     The PXFOPENDIR subroutine uses the opendir(3C) routine to open a
     directory stream for the directory dirname and positions the stream at
     the first directory entry.

     The PXFREADDIR subroutine uses the readdir(3C) function to read a
     directory stream for the next entry in the directory stream.

     The PXFREWINDDIR subroutine uses the rewinddir(3C) function to reset
     the position in the directory stream to the first entry of a directory
     stream while updating the directory stream to the current state of the
     directory, as a call to PXFOPENDIR would do.

     The PXFCLOSEDIR subroutine uses the closedir(3C) function to close the
     directory stream referenced by idirid. Upon sucessful completion,
     idirid is undefined and the result of subsequent calls to PXFCLOSEDIR
     with idirid is not well defined.

     All arguments must be of default kind unless documented otherwise.  On
     IRIX systems, the default kind is KIND=4.

     The following is a list of valid arguments for these subroutines:

     dirname   An input character array variable containing the path for
               the directory to be opened.

     lendirname
               An input integer variable containing the length of dirname.

     iopendirid
               An output integer variable for the unique directory ID.

     ierror    An output integer variable that contains zero if the
               operation was successful or nonzero if the operation was not
               successful.

     The iopendirid argument becomes the unique directory ID (idirid) that
     is used by PXFREADDIR, PXFREWINDDIR, and PXFCLOSEDIR.

     idirid
          An input integer variable for the unique directory ID generated
          by PXFOPENDIR.

     jdirent
          An output structure handle created by PXFSTRUCTCREATE(3F) that
          contains one directory entry.

     * The PXFOPENDIR subroutine may return any of the following error
       values:

     EACCES    If a component of dirname denies search permission.

     ENAMETOOLONG
               If the length of the dirname argument exceeds PATH_MAX found
               in <limits.h>

     ENOENT    If the directory in the dirname argument does not exist.

     ENOTDIR   If a component of dirname is not a directory.

     EINVAL    If lendirname < 0 or lendirname > LEN(dirname).

     ENOMEM    If memory needed by PXFOPENDIR could not be allocated.

     EMFILE    If too many file descriptors are currently open for the
               process.

     ENFILE    If too many file descriptors are currently open for the
               system.

     * The PXFREADDIR subroutine may return any of the following error
       values:

     EBADF     If, when detected, an invalid, unique directory stream ID
               was used for idirid.

     EEND      If the end of the directory stream has been reached.

     ENOMEM    If data structures need for successful completion of
               PXFREADIR cannot be allocated.

     ENOENT    If the current file pointer for the directory stream is not
               located at a valid directory entry.

     EDIRCORRUPTED
               If the directory on disk is corrupt.

     * The PXFCLOSEDIR subroutine may return the following error value:

     EBADF     If, when detected, an invalid, unique directory stream ID
               was used for idirid.

NOTES
     The PXF_DEFINITIONS module can be used by Fortran 90 users to enable
     caller-callee interface checking.

EXAMPLES
     In this example, the /dev/dsk directory is opened, the directory
     entries are read and printed, the directory is rewound and the
     contents are redisplayed, and then the directory is closed.

          program pxftest
          integer ierror
          integer (KIND=8) jdirent,idirid

          CALL PXFSTRUCTCREATE('dirent',jdirent,ierror)
          CALL PXFOPENDIR('/dev/dsk',0,idirid,ierror)
          call printdir(idirid,jdirent)
          CALL PXFREWINDDIR(idirid,ierror)
          call printdir(idirid,jdirent)
          CALL PXFCLOSEDIR(idirid,ierror)
          end

          subroutine printdir(idirid,jdirent)
          integer ierror, ilen, EEND
          integer (KIND=8) jdirent, idirid
          character*30 name

          CALL PXFCONST('EEND',EEND,ierror)
             do while ((ierror .ne. EEND) .and. (ierror .eq. 0))
                CALL PXFREADDIR(idirid,jdirent,ierror)
                CALL PXFSTRGET(jdirent,'d_name',name,ilen,ierror)
                   if (ierror .eq. 0) print *,name
             enddo
          end

SEE ALSO
     directory(3C)