Line 117... |
Line 117... |
|
|
|
|
my $sogen_file = $parser->parse_file(yp::lib::find_socgen("socgen:componentConfiguration",$vendor,$project,$component));
|
my $sogen_file = $parser->parse_file(yp::lib::find_socgen("socgen:componentConfiguration",$vendor,$project,$component));
|
|
|
|
|
|
foreach my $i_name ($sogen_file->findnodes("//socgen:syn/socgen:ise[socgen:variant/text() = '$variant']"))
|
foreach my $i_name ($sogen_file->findnodes("//socgen:syn/socgen:ise[socgen:name/text() = '$variant']"))
|
|
{
|
{
|
my($replace_vendor) = $i_name ->findnodes('socgen:target/socgen:vendor/text()')->to_literal ;
|
my($replace_vendor) = $i_name ->findnodes('socgen:target/socgen:vendor/text()')->to_literal ;
|
my($replace_library) = $i_name ->findnodes('socgen:target/socgen:library/text()')->to_literal ;
|
my($replace_library) = $i_name ->findnodes('socgen:target/socgen:library/text()')->to_literal ;
|
my @replace_components = yp::lib::find_components("spirit:component",$replace_vendor,$replace_library);
|
my @replace_components = yp::lib::find_components("spirit:component",$replace_vendor,$replace_library);
|
|
|
Line 164... |
Line 163... |
{
|
{
|
$new_vendor = $1;
|
$new_vendor = $1;
|
$new_proj = $2;
|
$new_proj = $2;
|
$new_comp = $3;
|
$new_comp = $3;
|
$new_version = $4;
|
$new_version = $4;
|
if(($new_vendor ne $vendor ) or ($new_proj ne $project ) )
|
&link_child( $vendor,$project,$new_comp, $new_proj ,$new_vendor);
|
|
|
{ &link_child( $vendor,$project,$new_comp, $new_proj ,$new_vendor); }
|
|
}
|
}
|
}
|
}
|
|
|
|
|
|
|
Line 193... |
Line 190... |
my $parent_library = shift;
|
my $parent_library = shift;
|
my $child_component = shift;
|
my $child_component = shift;
|
my $child_library = shift;
|
my $child_library = shift;
|
my $child_vendor = shift;
|
my $child_vendor = shift;
|
|
|
my $lib_comp_sep = yp::lib::find_lib_comp_sep($child_vendor,$child_library);
|
my $lib_comp_sep = yp::lib::find_lib_comp_sep($child_vendor,$child_library,$child_component);
|
|
|
|
|
|
|
my $path = ".${prefix}/${parent_vendor}__${parent_library}/children";
|
my $path = ".${prefix}/${parent_vendor}__${parent_library}/children";
|
mkdir $path,0755 unless( -e $path );
|
mkdir $path,0755 unless( -e $path );
|
my $path = ".${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}";
|
my $path = ".${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}";
|
Line 213... |
Line 211... |
symlink( "${home}/tools/bin/Makefile.root", "${home}${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}/bin/Makefile.root");
|
symlink( "${home}/tools/bin/Makefile.root", "${home}${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}/bin/Makefile.root");
|
symlink( "${home}/tools/bin/Makefile", "${home}${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}/bin/Makefile");
|
symlink( "${home}/tools/bin/Makefile", "${home}${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}/bin/Makefile");
|
}
|
}
|
|
|
|
|
|
|
|
my $path = ".${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}${lib_comp_sep}";
|
|
mkdir $path,0755 unless( -e $path );
|
|
|
|
my $path = ".${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}${lib_comp_sep}/${child_component}";
|
|
|
|
|
|
unless( -e $path )
|
|
{
|
|
mkdir $path,0755;
|
|
|
|
$root = "${home}/${projects_dir}/${child_vendor}/${child_library}${lib_comp_sep}/${child_component}";
|
|
$dest = ".${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}${lib_comp_sep}/${child_component}";
|
|
&sys::lib::link_dir( "$root", "$dest" );
|
|
|
|
|
|
|
|
|
|
my $sogen_file = $parser->parse_file(yp::lib::find_socgen("socgen:componentConfiguration",$child_vendor,$child_library,$child_component));
|
|
my $sim_library_path = $sogen_file->findnodes("//socgen:componentConfiguration/socgen:sim/socgen:library_path/text()")->to_literal;
|
|
my $sim_full_path = ".${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}${sim_library_path}";
|
|
|
|
if( $sim_library_path)
|
|
{
|
|
if(-e $sim_full_path)
|
|
{
|
|
|
|
my $cmd = "rm -r .${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}${sim_library_path} \n";
|
|
if (system($cmd)) {}
|
|
}
|
|
}
|
|
|
|
|
|
my $syn_library_path = $sogen_file->findnodes("//socgen:componentConfiguration/socgen:syn/socgen:library_path/text()")->to_literal;
|
|
my $syn_full_path = ".${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}${syn_library_path}";
|
|
|
|
if( $syn_library_path)
|
|
{
|
|
if(-e $syn_full_path)
|
|
{
|
|
|
|
my $cmd = "rm -r .${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}${syn_library_path} \n";
|
|
if (system($cmd)) {}
|
|
}
|
|
}
|
|
|
|
|
|
|
|
}
|
|
|
|
|
my $lib_sw_dir = yp::lib::find_lib_sw_dir($child_vendor,$child_library);
|
my $lib_sw_dir = yp::lib::find_lib_sw_dir($child_vendor,$child_library);
|
|
|
if($lib_sw_dir)
|
if($lib_sw_dir)
|
{
|
{
|
my $path = ".${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}${lib_sw_dir}";
|
my $path = ".${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}${lib_sw_dir}";
|
Line 227... |
Line 276... |
$dest = "${home}${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}${lib_sw_dir}";
|
$dest = "${home}${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}${lib_sw_dir}";
|
&sys::lib::link_dir( "$root", "$dest" );
|
&sys::lib::link_dir( "$root", "$dest" );
|
}
|
}
|
}
|
}
|
|
|
# only works for simple single item paths
|
|
my $path = ".${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}${lib_comp_sep}";
|
|
mkdir $path,0755 unless( -e $path );
|
|
my $path = ".${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}${lib_comp_sep}/${child_component}";
|
|
|
|
unless( -e $path )
|
|
{
|
|
mkdir $path,0755;
|
|
$root = "${home}/${projects_dir}/${child_vendor}/${child_library}${lib_comp_sep}/${child_component}";
|
|
$dest = "${home}${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}${lib_comp_sep}/${child_component}";
|
|
&sys::lib::link_dir( "$root", "$dest" );
|
|
}
|
|
}
|
}
|
|
|
|
|
|
|
|
|