ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/cvsroot/COMP/SCRAM/src/scram
(Generate patch)

Comparing COMP/SCRAM/src/scram (file contents):
Revision 1.2 by williamc, Mon Mar 1 11:01:42 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          }
86           if ( ! ( exists $ENV{SCRAM_CONFIG} ) ){
87 <                $ENV{SCRAM_CONFIG}="$ENV{SCRAM_HOME}/Configuration";
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