| 82 |
|
return $area; |
| 83 |
|
} |
| 84 |
|
|
| 85 |
< |
sub setuptoolsinarea { |
| 86 |
< |
my $self=shift; |
| 87 |
< |
my $area=shift; |
| 88 |
< |
|
| 89 |
< |
# -- initialise |
| 90 |
< |
$self->_allprojectinitsearcher(); |
| 85 |
> |
sub setuptoolsinarea |
| 86 |
> |
{ |
| 87 |
> |
my $self=shift; |
| 88 |
> |
my $area=shift; |
| 89 |
|
|
| 90 |
< |
# -- create a new toolbox object |
| 91 |
< |
my $toolbox=$self->areatoolbox($area); |
| 92 |
< |
$toolbox->searcher($self->_allprojectinitsearcher()); |
| 93 |
< |
|
| 94 |
< |
if ( @_ ) { |
| 95 |
< |
# -- specific tool specified |
| 96 |
< |
if ( my $rv=$toolbox->toolsetup(@_) ) { |
| 97 |
< |
if ( $rv eq 1 ) { |
| 98 |
< |
print "Unknown tool $toolname @ARGV\n"; |
| 99 |
< |
exit 1; |
| 100 |
< |
} |
| 101 |
< |
} |
| 102 |
< |
} |
| 103 |
< |
else { |
| 104 |
< |
# -- setup all tools specified in the requirements doc |
| 105 |
< |
my $reqs=$self->arearequirements($area); |
| 106 |
< |
$self->verbose("Setup ToolBox from Requirements doc ($reqs)"); |
| 107 |
< |
$reqs->setup($toolbox); |
| 108 |
< |
} |
| 109 |
< |
} |
| 90 |
> |
# -- initialise |
| 91 |
> |
print "Initialising setup procedure......","\n"; |
| 92 |
> |
$self->_allprojectinitsearcher(); |
| 93 |
> |
|
| 94 |
> |
# -- create a new toolbox object |
| 95 |
> |
my $toolbox=$self->areatoolbox($area); |
| 96 |
> |
$toolbox->searcher($self->_allprojectinitsearcher()); |
| 97 |
> |
|
| 98 |
> |
if ( @_ ) |
| 99 |
> |
{ |
| 100 |
> |
# -- specific tool specified |
| 101 |
> |
if ( my $rv=$toolbox->toolsetup(@_) ) |
| 102 |
> |
{ |
| 103 |
> |
if ( $rv eq 1 ) |
| 104 |
> |
{ |
| 105 |
> |
print "Unknown tool $toolname @ARGV\n"; |
| 106 |
> |
exit 1; |
| 107 |
> |
} |
| 108 |
> |
} |
| 109 |
> |
} |
| 110 |
> |
else |
| 111 |
> |
{ |
| 112 |
> |
# -- setup all tools specified in the requirements doc |
| 113 |
> |
print "Going to set up all tools....","\n\n"; |
| 114 |
> |
my $reqs=$self->arearequirements($area); |
| 115 |
> |
$self->verbose("Setup ToolBox from Requirements doc ($reqs)"); |
| 116 |
> |
# reqs is a BuildSystem::Requirements object: |
| 117 |
> |
$reqs->setup($toolbox); |
| 118 |
> |
} |
| 119 |
> |
} |
| 120 |
|
|
| 121 |
|
sub satellite { |
| 122 |
|
my $self=shift; |
| 144 |
|
my $area=$relarea->satellite($installarea,$areaname); |
| 145 |
|
$area->archname($self->arch()); |
| 146 |
|
|
| 139 |
– |
# -- copy setup info - deprecated by toolbox copy method |
| 140 |
– |
#$relarea->copysetup($area->location()); |
| 141 |
– |
|
| 147 |
|
# -- copy toolbox |
| 148 |
|
my $rtb=$self->areatoolbox($relarea); |
| 149 |
|
my $tb=$self->areatoolbox($area); |
| 246 |
|
$self->scramprojectdb()->addarea($tagname,$version,$area); |
| 247 |
|
} |
| 248 |
|
|
| 249 |
+ |
|
| 250 |
+ |
sub removeareafromDB |
| 251 |
+ |
{ |
| 252 |
+ |
############################################################### |
| 253 |
+ |
# removearefromDB() # |
| 254 |
+ |
############################################################### |
| 255 |
+ |
# modified : Thu Jun 14 10:46:22 2001 / SFA # |
| 256 |
+ |
# params : projectname, projectversion # |
| 257 |
+ |
# : # |
| 258 |
+ |
# : # |
| 259 |
+ |
# : # |
| 260 |
+ |
# function : Remove project <projectname> from DB file. # |
| 261 |
+ |
# : # |
| 262 |
+ |
# : # |
| 263 |
+ |
############################################################### |
| 264 |
+ |
my $self=shift; |
| 265 |
+ |
my $projname=shift; |
| 266 |
+ |
my $version=shift; |
| 267 |
+ |
|
| 268 |
+ |
# -- Remove from the DB: |
| 269 |
+ |
$self->scramprojectdb()->removearea($projname,$version); |
| 270 |
+ |
} |
| 271 |
+ |
|
| 272 |
+ |
|
| 273 |
|
sub spawnversion |
| 274 |
|
{ |
| 275 |
+ |
############################################################### |
| 276 |
+ |
# spawnversion # |
| 277 |
+ |
############################################################### |
| 278 |
+ |
# modified : Fri Aug 10 15:42:08 2001 / SFA # |
| 279 |
+ |
# params : # |
| 280 |
+ |
# : # |
| 281 |
+ |
# : # |
| 282 |
+ |
# : # |
| 283 |
+ |
# function : Check for version of scram to run, and run it. # |
| 284 |
+ |
# : # |
| 285 |
+ |
# : # |
| 286 |
+ |
############################################################### |
| 287 |
+ |
|
| 288 |
|
my $self=shift; |
| 289 |
|
my $version=shift; |
| 290 |
|
my $rv=0; |
| 301 |
|
$ENV{SCRAM_HOME}=$self->{scram_top}."/".$version; |
| 302 |
|
$ENV{TOOL_HOME}="$ENV{SCRAM_HOME}/src"; |
| 303 |
|
$self->verbose("Spawning SCRAM version $version"); |
| 304 |
+ |
|
| 305 |
|
my $rv=system("scram", @_)/256; |
| 306 |
|
exit $rv; |
| 307 |
|
} |
