Line 150... |
Line 150... |
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 214... |
Line 214... |
print "Building SIM filelists for $work_site $vendor $project $component $version $variant \n" ;
|
print "Building SIM filelists for $work_site $vendor $project $component $version $variant \n" ;
|
|
|
my $spirit_component_file = $parser->parse_file(yp::lib::find_ipxact("spirit:component",$vendor,$project,$component,$version));
|
my $spirit_component_file = $parser->parse_file(yp::lib::find_ipxact("spirit:component",$vendor,$project,$component,$version));
|
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));
|
|
|
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;
|
|
|
|
|
|
|
#/*********************************************************************************************/
|
#/*********************************************************************************************/
|
#/ */
|
#/ */
|
Line 296... |
Line 296... |
{
|
{
|
|
|
|
|
|
|
|
|
my $path ="${home}${work_site}/${vendor}__${project}${library_path}/cov";
|
my $path ="${home}${work_site}/${vendor}__${project}${sim_library_path}/cov";
|
mkdir $path,0755 unless( -e $path );
|
mkdir $path,0755 unless( -e $path );
|
$path ="${home}${work_site}/${vendor}__${project}${library_path}/cov/${variant}";
|
$path ="${home}${work_site}/${vendor}__${project}${sim_library_path}/cov/${variant}";
|
mkdir $path,0755 unless( -e $path );
|
mkdir $path,0755 unless( -e $path );
|
my $outfile ="${home}${work_site}/${vendor}__${project}${library_path}/cov/${variant}/filelist.cov";
|
my $outfile ="${home}${work_site}/${vendor}__${project}${sim_library_path}/cov/${variant}/filelist.cov";
|
open COVFILE,">$outfile" or die "unable to open $outfile";
|
open COVFILE,">$outfile" or die "unable to open $outfile";
|
|
|
foreach my $i_line (@filelist_cov) {print COVFILE "$i_line";}
|
foreach my $i_line (@filelist_cov) {print COVFILE "$i_line";}
|
|
|
my $outfile ="${home}${work_site}/${vendor}__${project}${library_path}/cov/${variant}/TestBench";
|
my $outfile ="${home}${work_site}/${vendor}__${project}${sim_library_path}/cov/${variant}/TestBench";
|
open DUTFILE,">$outfile" or die "unable to open $outfile";
|
open DUTFILE,">$outfile" or die "unable to open $outfile";
|
print DUTFILE "`define SYNTHESIS \n";
|
print DUTFILE "`define SYNTHESIS \n";
|
print DUTFILE "`timescale 1ns/1ns \n";
|
print DUTFILE "`timescale 1ns/1ns \n";
|
print DUTFILE " module TB(); \n";
|
print DUTFILE " module TB(); \n";
|
print DUTFILE " $variant test ( ); \n";
|
print DUTFILE " $variant test ( ); \n";
|
Line 338... |
Line 338... |
{
|
{
|
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 " sim files for $project $component $variant $simulation $configuration \n";
|
print " sim files for $project $component $variant $simulation $configuration \n";
|
|
|
my $path ="${home}${work_site}/${vendor}__${project}${library_path}/verilator";
|
my $path ="${home}${work_site}/${vendor}__${project}${sim_library_path}/verilator";
|
mkdir $path,0755 unless( -e $path );
|
mkdir $path,0755 unless( -e $path );
|
$path ="${home}${work_site}/${vendor}__${project}${library_path}/verilator/${simulation}";
|
$path ="${home}${work_site}/${vendor}__${project}${sim_library_path}/verilator/${simulation}";
|
mkdir $path,0755 unless( -e $path );
|
mkdir $path,0755 unless( -e $path );
|
|
|
my $outfile ="${home}${work_site}/${vendor}__${project}${library_path}/verilator/${simulation}/Makefile";
|
my $outfile ="${home}${work_site}/${vendor}__${project}${sim_library_path}/verilator/${simulation}/Makefile";
|
open MAKSIMFILE,">$outfile" or die "unable to open $outfile";
|
open MAKSIMFILE,">$outfile" or die "unable to open $outfile";
|
|
|
my $outfile ="${home}${work_site}/${vendor}__${project}${library_path}/verilator/${simulation}/filelist.sim";
|
my $outfile ="${home}${work_site}/${vendor}__${project}${sim_library_path}/verilator/${simulation}/filelist.sim";
|
open SIMFILE,">$outfile" or die "unable to open $outfile";
|
open SIMFILE,">$outfile" or die "unable to open $outfile";
|
|
|
my $outfile ="${home}${work_site}/${vendor}__${project}${library_path}/verilator/${simulation}/TestBench";
|
my $outfile ="${home}${work_site}/${vendor}__${project}${sim_library_path}/verilator/${simulation}/TestBench";
|
open SIM_PARM_FILE,">$outfile" or die "unable to open $outfile";
|
open SIM_PARM_FILE,">$outfile" or die "unable to open $outfile";
|
|
|
|
|
|
|
|
|