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

Subversion Repositories socgen

[/] [socgen/] [trunk/] [tools/] [simulation/] [run_coverage] - Diff between revs 128 and 130

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

Rev 128 Rev 130
Line 109... Line 109...
 
 
my $parser = XML::LibXML->new();
my $parser = XML::LibXML->new();
 
 
 
 
 
 
my @components   = yp::lib::find_components("socgen:componentConfiguration",$vendor,$project);
my @components   = yp::lib::find_components($vendor,$project);
 
 
foreach my $component (@components)
foreach my $component (@components)
   {
   {
   my $sogen_file     = $parser->parse_file(yp::lib::find_socgen("socgen:componentConfiguration",$vendor,$project,$component));
   my $socgen_file              = $parser->parse_file(yp::lib::find_componentConfiguration($vendor,$project,$component));
   my $sim_library_path   = $sogen_file->findnodes("//socgen:componentConfiguration/socgen:sim/socgen:library_path/text()")->to_literal;
   my $sim_library_path ;
 
   my $lib_comp_sep             = yp::lib::find_lib_comp_sep($vendor,$project,$component);
 
   my $sim_comp_path            = $socgen_file->findnodes("//socgen:componentConfiguration/socgen:sim/socgen:comp_path/text()")->to_literal;
 
 
   print "$vendor $project $component  $sim_library_path   \n";
   if ($sim_comp_path)
 
      {
 
      $sim_library_path            ="${lib_comp_sep}${sim_comp_path}";
 
      }
 
   else
 
      {
 
      $sim_library_path            = $socgen_file->findnodes("//socgen:componentConfiguration/socgen:sim/socgen:library_path/text()")->to_literal;
 
      }
 
 
 
   print "XXXX-   $vendor $project $component  $sim_library_path   \n";
 
 
   #/*********************************************************************************************/
   #/*********************************************************************************************/
   #/   create coverage database .cdd file                                                       */
   #/   create coverage database .cdd file                                                       */
   #/                                                                                            */
   #/                                                                                            */
   #/*********************************************************************************************/
   #/*********************************************************************************************/
 
 
   foreach  my   $i_name ($sogen_file->findnodes("//socgen:componentConfiguration/socgen:sim/socgen:testbenches/socgen:testbench/socgen:tools/socgen:tool"))
   foreach  my   $i_name ($socgen_file->findnodes("//socgen:componentConfiguration/socgen:sim/socgen:testbenches/socgen:testbench/socgen:tools/socgen:tool"))
      {
      {
      my($tb_tool)     = $i_name ->findnodes('./text()')->to_literal ;
      my($tb_tool)     = $i_name ->findnodes('./text()')->to_literal ;
      my($tb_variant)  = $i_name ->findnodes('../../socgen:variant/text()')->to_literal ;
      my($tb_variant)  = $i_name ->findnodes('../../socgen:variant/text()')->to_literal ;
      my($tb_version)  = $i_name ->findnodes('../../socgen:version/text()')->to_literal ;
      my($tb_version)  = $i_name ->findnodes('../../socgen:version/text()')->to_literal ;
 
 
Line 140... Line 151...
          if (system($cmd)) {}
          if (system($cmd)) {}
 
 
 
 
 
 
 
 
          foreach  my   $i_name ($sogen_file->findnodes("//socgen:test/socgen:variant"))
          foreach  my   $i_name ($socgen_file->findnodes("//socgen:test/socgen:variant"))
              {
              {
              my($test_variant)     = $i_name ->findnodes('./text()')->to_literal ;
              my($test_variant)     = $i_name ->findnodes('./text()')->to_literal ;
              my($test_name)        = $i_name ->findnodes('../socgen:name/text()')->to_literal ;
              my($test_name)        = $i_name ->findnodes('../socgen:name/text()')->to_literal ;
 
 
              if($tb_variant eq $test_variant  )
              if($tb_variant eq $test_variant  )

powered by: WebSVN 2.1.0

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