ViewVC Help

View File | Revision Log | Show Annotations | Root Listing

root/cvsroot/COMP/SCRAM/src/scram

Comparing COMP/SCRAM/src/scram (file contents):
Revision 1.3 by williamc, Mon Mar 1 11:18:31 1999 UTC vs.
Revision 1.6 by williamc, Mon Mar 8 11:02:40 1999 UTC

#	Line 1 | Line 1
1	<	#!/usr/local/bin/perl5 -I$ENV{SCRAM_HOME}/src
1	>	#!/usr/local/bin/perl5 -I$SCRAM_HOME/src -I/afs/cern.ch/user/w/williamc/public/SCRAM/src
2	>
3		#
4		# User Interface
5		#
#	Line 48 | Line 49 | sub project {
49		#
50		foreach $key ( keys %ENV ) {
51		if ( $key=~/^INT/ ) {
52	<	adddir($ENV{$key});
52	>	AddDir::adddir($ENV{$key});
53		}
54		}
55	+	if ( ! -e "$ENV{LOCALTOP}/$ENV{projconfigdir}" ) {
56	+	system("cp", "-r", "$ENV{RELEASETOP}/$ENV{projconfigdir}",
57	+	"$ENV{LOCALTOP}/$ENV{projconfigdir}");
58	+	}
59		use clientfile;
60		BuildClientFile( $ENV{SCRAM_ProjReqsDoc} );
61		}
#	Line 66 | Line 71 | sub environmentinit {
71		my $value;
72
73		$ENV{LatestBuildFile}=""; # stop recursive behaviour in make
74	<	setarch();
74	>	setarchitecture::setarch();
75		$ENV{INTwork}="tmp/$ENV{SCRAM_ARCH}";
76		$ENV{INTlib}="lib/$ENV{SCRAM_ARCH}";
77		$ENV{INTsrc}="src";
#	Line 74 | Line 79 | sub environmentinit {
79		$ENV{INTlog}="logs";
80
81		if ( ! ( exists $ENV{SCRAM_HOME}) ){
82	<	$ENV{SCRAM_HOME}="/afs/cern.ch/user/w/williamc/public/ConfigMan";
82	>	$ENV{SCRAM_HOME}="/afs/cern.ch/user/w/williamc/public/SCRAM";
83		print "Warning : Environment Variable SCRAM_HOME not set.\n";
84		print "Defaulting to $ENV{SCRAM_HOME}\n";
85		}
#	Line 82 | Line 87 | sub environmentinit {
87		$ENV{SCRAM_CONFIG}="$ENV{SCRAM_HOME}/configuration";
88		}
89		if ( ! ( exists $ENV{TOOL_HOME} ) ){
90	<	$ENV{TOOL_HOME}="$ENV{SCRAM_HOME}/toolbox";
90	>	$ENV{TOOL_HOME}="$ENV{SCRAM_HOME}/src";
91		}
92		if ( ! ( exists $ENV{SCRAM_LOOKUPDB} ) ){
93		$ENV{SCRAM_LOOKUPDB}="$ENV{SCRAM_CONFIG}/project.lookup";

Diff Legend

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