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

#!/usr/local/bin/perl5
#
# 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.2
Committed:	Thu Jun 3 14:21:30 1999 UTC (25 years, 11 months ago) by williamc
Branch:	V0_9branch
CVS Tags:	V0_14_0, V0_12_12_4, V0_12_12_3, V0_13_3, V0_13_2, V0_12_12_2, V0_12_12_1, V0_12_12_0, PlayGround_0, V0_13_1, V0_13_0, V0_12_12, V0_12_11, V0_12_9b, V0_12_10, V0_12_9, V0_12_8, V0_12_7, V0_12_6, V0_12_5, V0_12_4, V0_12_3, V0_12_2, V0_12_1, V0_12_0, V0_11_4, V0_11_3, V0_11_2, V0_11_1, V0_11_0, V0_10_19, V0_10_18, V0_10_17, V0_10_16, V0_10_15, V0_10_14, V0_10_13, V0_10_12, V0_10_11, V0_10_10, V0_10_9, V0_10_8, V0_10_7, V0_10_6, V0_10_5, V0_10_4, V0_10_3, V0_10_2, V0_10_1, V0_10_0, V0_10_0beta, V0_9_42, V0_9_41, V0_9_40, V0_9_39, V0_9_38, V0_9_37, V0_9_36, V0_9_35, V0_9_34, V0_9_33, V0_9_32, V0_9_31, V0_9_30, V0_9_29, V0_9_28, V0_9_27, V0_9_26, V0_9_25, V0_9_24, V0_9_23, V0_9_22, V0_9_21, V0_9_20, V0_9_19, V0_9_18, V0_9_17, V0_9_16, V0_9_15, V0_9_14
Branch point for:	HPWbranch
Changes since 1.1.2.1:	+1 -1 lines
Log Message:	Cjange all scripts to use perl5
#	User	Rev	Content
1	williamc	1.1.2.2	#!/usr/local/bin/perl5
2	williamc	1.1.2.1	#
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;