[ViewVC] Contents of: cvsroot/COMP/SCRAM/src/GetFilePath

#!/usr/local/bin/perl
#
# Check file locally and release top, returning the full actual path
# Replacement occurs only if the library exists
# first argument is file base

$base=shift;
@infiles=@ARGV;
use Utilities::SCRAMUtils;
$files="";

foreach $file ( @infiles ) {
        $files = $files." ".SCRAMUtils::checkfile("$base/$file");
} 
print $files;
exit 1;
Revision:	1.1.2.1
Committed:	Mon May 31 16:46:15 1999 UTC (25 years, 11 months ago) by williamc
Branch:	V0_9branch
CVS Tags:	V0_9_13, V0_9_12
Changes since 1.1:	+16 -0 lines
Log Message:	Wrapper around checkdir for use by gmake
#	Content
1	#!/usr/local/bin/perl
2	#
3	# Check file locally and release top, returning the full actual path
4	# Replacement occurs only if the library exists
5	# first argument is file base
6
7	$base=shift;
8	@infiles=@ARGV;
9	use Utilities::SCRAMUtils;
10	$files="";
11
12	foreach $file ( @infiles ) {
13	$files = $files." ".SCRAMUtils::checkfile("$base/$file");
14	}
15	print $files;
16	exit 1;