Line 105... |
Line 105... |
else {$variant = "${component}";}
|
else {$variant = "${component}";}
|
|
|
|
|
|
|
|
|
my $lib_comp_sep = yp::lib::find_lib_comp_sep($vendor,$project);
|
my $lib_comp_sep = yp::lib::find_lib_comp_sep($vendor,$project,$component);
|
my $comp_xml_sep = yp::lib::find_ipxact_component_path("spirit:component",$vendor,$project,$component,$version);
|
my $comp_xml_sep = yp::lib::find_ipxact_component_path("spirit:component",$vendor,$project,$component,$version);
|
|
|
|
|
|
|
|
|
Line 130... |
Line 130... |
|
|
|
|
|
|
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 $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 $lib_sim_sep = $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;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#if( ($prefix eq "/work") && ($lib_sim_sep) ){$opt_tb = 1;}
|
#if( ($prefix eq "/work") && ($sim_library_path) ){$opt_tb = 1;}
|
|
|
|
|
if($opt_tb )
|
if($opt_tb )
|
{
|
{
|
print "Creating testbench for $vendor $project $component $version \n";
|
print "Creating testbench for $vendor $project $component $version \n";
|
|
|
|
|
my $path ="${home}/projects/${vendor}/${project}${lib_sim_sep}";
|
my $path ="${home}/projects/${vendor}/${project}${sim_library_path}";
|
mkdir $path,0755 unless( -e $path );
|
mkdir $path,0755 unless( -e $path );
|
|
|
my $path ="${home}/projects/${vendor}/${project}${lib_sim_sep}/testbenches";
|
my $path ="${home}/projects/${vendor}/${project}${sim_library_path}/testbenches";
|
mkdir $path,0755 unless( -e $path );
|
mkdir $path,0755 unless( -e $path );
|
|
|
$path ="${home}/projects/${vendor}/${project}${lib_sim_sep}/testbenches/xml";
|
$path ="${home}/projects/${vendor}/${project}${sim_library_path}/testbenches/xml";
|
mkdir $path,0755 unless( -e $path );
|
mkdir $path,0755 unless( -e $path );
|
|
|
|
|
$outfile ="${home}/projects/${vendor}/${project}/ip/${component}/sim/testbenches/xml/${variant}_dut.params.xml";
|
$outfile ="${home}/projects/${vendor}/${project}/ip/${component}/sim/testbenches/xml/${variant}_dut.params.xml";
|
open TB_COMP_FILE,">$outfile" or die "unable to open $outfile";
|
open TB_COMP_FILE,">$outfile" or die "unable to open $outfile";
|