#!/bin/csh -f

#
# Script to find all the files currently checked out
# This works with sr, but may be used independently
#
# Until a better way is put in place,  this file must exist on
# all machines that intend to run independently of marley.
#
#

echo "    dir = $1:r"

if ( ! -d $1 ) exit 0

set count = `ls -1 $1 | wc -l`
if ( $count == 0 ) then
    echo "        No files in RCS"
    exit 0
endif

rlog -R -L $1/* > /tmp/cout_files.$$

if ($#argv > 1) then
    foreach file (`cat /tmp/cout_files.$$`)
	    set owner = `rlog $file | grep "^	"`
	    if ($owner[1] == $2\:) then
		echo "      $file 	-- $owner[1] $owner[2]"
	    endif
    end
else
    foreach file (`cat /tmp/cout_files.$$`)
	    set owner = `rlog $file | grep "	"`
	    echo "      $file 	-- $owner[1] $owner[2]"
    end
endif
echo " "
rm -f /tmp/cout_files.$$