| 17 |
|
# scramprojectdb() : return the scram project DB object |
| 18 |
|
# areatoolbox(ConfigArea) : return the toolbox of the specified area |
| 19 |
|
# setuptoolsinarea($area[,$toolname[,$toolversion[,toolfile]) : setup |
| 20 |
+ |
# arch() : get/set the architecture string |
| 21 |
|
|
| 22 |
|
package Scram::ScramFunctions; |
| 23 |
|
use URL::URLcache; |
| 49 |
|
my $bs=Configuration::BootStrapProject-> |
| 50 |
|
new($self->globalcache(),$installarea); |
| 51 |
|
my $area=$bs->boot($url,$areaname); |
| 52 |
+ |
$area->archname($self->arch()); |
| 53 |
|
|
| 54 |
|
# -- download all tool description files |
| 55 |
|
my $req=$self->arearequirements($area); |
| 107 |
|
|
| 108 |
|
# -- create satellite |
| 109 |
|
my $area=$relarea->satellite($installarea,$areaname); |
| 110 |
+ |
$area->archname($self->arch()); |
| 111 |
|
|
| 112 |
< |
# -- copy setup info |
| 113 |
< |
$relarea->copysetup($area->location()); |
| 112 |
> |
# -- copy setup info - deprecated by toolbox copy method |
| 113 |
> |
#$relarea->copysetup($area->location()); |
| 114 |
> |
|
| 115 |
> |
# -- copy toolbox |
| 116 |
> |
my $rtb=$self->areatoolbox($relarea); |
| 117 |
> |
my $tb=$self->areatoolbox($area); |
| 118 |
> |
$rtb->copytools($tb); |
| 119 |
|
|
| 120 |
|
# -- copy configuration directory |
| 121 |
|
if ( ! -d $area->location()."/".$area->configurationdir() ) { |
| 212 |
|
return $self->{requirements}{$name}; |
| 213 |
|
} |
| 214 |
|
|
| 215 |
+ |
sub arch { |
| 216 |
+ |
my $self=shift; |
| 217 |
+ |
|
| 218 |
+ |
@_?$self->{arch}=shift |
| 219 |
+ |
:$self->{arch}; |
| 220 |
+ |
} |
| 221 |
+ |
|
| 222 |
|
# -------------- Support Routines ------------------------------ |
| 223 |
|
|
| 224 |
|
|
