ViewVC Help

View File | Revision Log | Show Annotations | Root Listing

root/cvsroot/COMP/SCRAM/src/ProcessSiteFile

Comparing COMP/SCRAM/src/ProcessSiteFile (file contents):
Revision 1.2 by williamc, Wed Mar 3 17:04:13 1999 UTC vs.
Revision 1.3 by williamc, Thu Mar 18 12:53:57 1999 UTC

#	Line 5 | Line 5
5		# version defaults by argument 3
6
7		open (OUT, ">$ARGV[1]" );
8	–	open (requires, "<$ARGV[0]_reqs" );
9	–	while( <requires> ) {
10	–	print OUT $_;
11	–	}
12	–	close requirements;
8		# group stuff - prototypeonly - hardcoded in for now
9		#
10		print OUT<<ENDTEXT;
11		ifdef GROUP_G3
12		cmsim=true
13	<	GEANT=true
13	>	geant=true
14		endif
15		ENDTEXT
16
17	+	open (requires, "<$ARGV[0]_reqs" );
18	+	while( <requires> ) {
19	+	print OUT $_;
20	+	}
21	+	close requirements;
22	+
23		# project defualts
24
25		open (defaultsfile, "<$ARGV[2]" ) || die "Unable to open file $ARGV[2] $!";
#	Line 27 | Line 28 | while( <defaultsfile> ) {
28		next if /^#/;
29		next if /^\s*$/;
30		($product, $version )=split /:/;
31	+	$product=~tr[A-Z][a-z];
32		print OUT<<ENDTEXT;
33		ifdef $product
34		${product}_V_$version=true
#	Line 42 | Line 44 | while( <file> ) {
44		next if /^\s*$/;
45		($product, $version, $type, $variable, $value, @junk)=split /:/;
46		next if ( $variable=~/\&/ );
47	+	$product=~tr[A-Z][a-z];
48		if ( ! $version=="" ) {
49		$product=$product."_V_".$version;
50		}

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines