[ViewVC] Annotation 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
#	User	Rev	Content
1	williamc	1.1.2.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;