| Line 149... |
Line 149... |
if($new_version){$new_variant = "${new_comp}_${new_version}"}
|
if($new_version){$new_variant = "${new_comp}_${new_version}"}
|
else {$new_variant = $new_comp}
|
else {$new_variant = $new_comp}
|
|
|
|
|
|
|
|
if(($new_vendor eq $vendor ) && ($new_proj eq $project ) && ($new_comp eq $component ) && ($new_version eq $version ) )
|
|
|
if($new_proj eq $project )
|
|
{
|
{
|
|
|
foreach my $i_name ($spirit_component_file->findnodes("//spirit:fileSets/spirit:fileSet/spirit:file/spirit:name"))
|
foreach my $i_name ($spirit_component_file->findnodes("//spirit:fileSets/spirit:fileSet/spirit:file/spirit:name"))
|
{
|
{
|
my($file_name) = $i_name ->findnodes('./text()')->to_literal ;
|
my($file_name) = $i_name ->findnodes('./text()')->to_literal ;
|
| Line 307... |
Line 307... |
{
|
{
|
my($simulation) = $i_name ->findnodes('socgen:name/text()')->to_literal ;
|
my($simulation) = $i_name ->findnodes('socgen:name/text()')->to_literal ;
|
my($configuration) = $i_name ->findnodes('socgen:configuration/text()')->to_literal ;
|
my($configuration) = $i_name ->findnodes('socgen:configuration/text()')->to_literal ;
|
|
|
print " lint files for $project $component $variant $simulation $configuration \n";
|
print " lint files for $project $component $variant $simulation $configuration \n";
|
my $library_path = $sogen_file->findnodes("//socgen:componentConfiguration/socgen:sim/socgen:library_path/text()")->to_literal;
|
my $sim_library_path = $sogen_file->findnodes("//socgen:componentConfiguration/socgen:sim/socgen:library_path/text()")->to_literal;
|
|
|
my $path = "${home}${work_site}/${vendor}__${project}${library_path}/rtl_check";
|
my $path = "${home}${work_site}/${vendor}__${project}${sim_library_path}/rtl_check";
|
|
|
mkdir $path,0755 unless (-e $path) ;
|
mkdir $path,0755 unless (-e $path) ;
|
|
|
$path = "${home}${work_site}/${vendor}__${project}${library_path}/rtl_check/${simulation}";
|
$path = "${home}${work_site}/${vendor}__${project}${sim_library_path}/rtl_check/${simulation}";
|
mkdir $path,0755 unless (-e $path);
|
mkdir $path,0755 unless (-e $path);
|
|
|
my $outfile ="${home}${work_site}/${vendor}__${project}${library_path}/rtl_check/${simulation}/Makefile";
|
my $outfile ="${home}${work_site}/${vendor}__${project}${sim_library_path}/rtl_check/${simulation}/Makefile";
|
open MAKSIMFILE,">$outfile" or die "unable to open $outfile";
|
open MAKSIMFILE,">$outfile" or die "unable to open $outfile";
|
|
|
$outfile ="${home}${work_site}/${vendor}__${project}${library_path}/rtl_check/${simulation}/filelist.ver";
|
$outfile ="${home}${work_site}/${vendor}__${project}${sim_library_path}/rtl_check/${simulation}/filelist.ver";
|
open SIMFILE,">$outfile" or die "unable to open $outfile";
|
open SIMFILE,">$outfile" or die "unable to open $outfile";
|
|
|
|
|
$outfile ="${home}${work_site}/${vendor}__${project}${library_path}/rtl_check/${simulation}/TestBench";
|
$outfile ="${home}${work_site}/${vendor}__${project}${sim_library_path}/rtl_check/${simulation}/TestBench";
|
open SIM_PARM_FILE,">$outfile" or die "unable to open $outfile";
|
open SIM_PARM_FILE,">$outfile" or die "unable to open $outfile";
|
|
|
|
|
print MAKSIMFILE "include ../../../../../bin/Makefile.root\n";
|
print MAKSIMFILE "include ../../../../../bin/Makefile.root\n";
|
print MAKSIMFILE "comp=${variant}\n";
|
print MAKSIMFILE "comp=${variant}\n";
|
