OpenCores
URL https://opencores.org/ocsvn/socgen/socgen/trunk

Subversion Repositories socgen

[/] [socgen/] [trunk/] [tools/] [verilog/] [gen_verilog] - Diff between revs 126 and 127

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 126 Rev 127
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";

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.