#
#
#
#    LIST File Listing Utility
#    =========================
#
#         Author:  William Wood
#
#         Address: Computer Center
#                  Institute For Cancer Research
#                  7701 Burholme Ave.
#                  Philadelphia, Pa. 19111
#                  (215) 728 2760
#
#         Version: 2.0
#
#         Date:    December 1, 1980
#
#
#
#      *******************************************************
#      *                                                     *
#      *      THIS SOFTWARE WAS DEVELOPED WITH SUPPORT       *
#      *      FROM THE NATIONAL INSTITUTES OF HEALTH:        *
#      *         NIH CA06927                                 *
#      *         NIH CA22780                                 *
#      *                                                     *
#      *      DIRECT INQUIRIES TO:                           *
#      *            COMPUTER CENTER                          *
#      *            THE INSTITUTE FOR CANCER RESEARCH        *
#      *            7701 BURHOLME AVENUE                     *
#      *            PHILADELPHIA, PENNSYLVANIA   19111       *
#      *                                                     *
#      *      NO WARRANTY OR REPRESENTATION, EXPRESS OR      *
#      *      IMPLIED, IS MADE WITH RESPECT TO THE           *
#      *      CORRECTNESS, COMPLETENESS, OR USEFULNESS       *
#      *      OF THIS SOFTWARE, NOR THAT USE OF THIS         *
#      *      SOFTWARE MIGHT NOT INFRINGE PRIVATELY          *
#      *      OWNED RIGHTS.                                  *
#      *                                                     *
#      *      NO LIABILITY IS ASSUMED WITH RESPECT TO        *
#      *      THE USE OF, OR FOR DAMAGES RESULTING FROM      *
#      *      THE USE OF THIS SOFTWARE                       *
#      *                                                     *
#      *******************************************************
#      *                                                     *
#      *      THIS SOFTWARE WAS DESIGNED FOR USE ON A        *
#      *      PDP-11/70 OPERATING UNDER IAS V3.0 USING       *
#      *      THE FORTRAN-IV PLUS COMPILER.                  *
#      *                                                     *
#      *******************************************************
#
#
#
#
#
#   FNDFIL - RETURN FILES SELECTED BY PIP
#   AUTHOR - BILL WOOD
#
#   THIS ROUTINE CALLS RUNSYS, WHICH SUBTASKS PIP TO CREATE
#   A FILE, FNDFIL.TMP, WITH THE FILES SELECTED BY PIP IN IT.
#   (NOTE RUNSYS ONLY WORKS ON IAS.)
#   FNDFIL THEN READS THIS FILE AND RETURNS THE FILE NAMES ONE
#   AT A TIME. THEN FNDFIL.TMP IS DELETED.
#
#   IF THE FILE FORMAT PRODUCED BY YOUR PIP IS DIFFERENT, THIS
#   ROUTINE WILL HAVE TO BE MODIFIED.
#
#
define(MAXLINE,134)
include symbols.rat
subroutine fndfil(lun, pipfil, file, n)
byte pipfil(MAXLINE), file(FILENAMESIZE), pip(MAXLINE), tmp(MAXLINE),
     dir(MAXLINE)
integer lun, n, nc, l, ier
integer concat, index
equivalence (pip, tmp)
 
if (n == 0) {
  call scopy('PIP SY:FNDFIL.TMP=', 1, pip, 1)
  l = concat(pip, pipfil, MAXLINE)
  l = concat(pip, '/DI/BR', MAXLINE)
  call runsys(pip, l, ier)
  if (ier ~= 0)
    goto 10
  close(unit = lun)
  call waitsy
  open(unit=lun, name='SY:FNDFIL.TMP', dispose='delete', type='old', err=10)
  }
repeat {
  call get(lun, tmp, MAXLINE-1, nc)
  if (nc <= 0)
    break
  if (tmp(1) == FF  |  tmp(3) == LF) {
    tmp(nc-1) = EOS
    call scopy(tmp, index(tmp, ' ')+1, dir, 1)
    }
  else
    break
  }
if (nc >= 3) {
  n = n+1
  tmp(nc+1) = EOS
  call scopy(dir, 1, file, 1)
  l = concat(file, tmp(3), FILENAMESIZE)
  }
else
  n = 0
return
10 continue
n = -1
return
end