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

Subversion Repositories socgen

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

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

Rev 124 Rev 128
Line 87... Line 87...
#/*                                                                    */
#/*                                                                    */
#/*                                                                    */
#/*                                                                    */
#/**********************************************************************/
#/**********************************************************************/
 
 
 
 
my $project           = $ARGV[0];
 
my $vendor            = $ARGV[1];
 
 
 
my $home              = cwd();
my $home              = cwd();
my $work_site         = "/work";
my $vendor   ;
 
my $project  ;
 
 
 
$_               = $ARGV[0];
 
my $work_site    = $ARGV[1];
 
 
 
 
 
if(/(\S+)__(\S+)/)
 
     {
 
     $vendor           = $1;
 
     $project          = $2;
 
     }
 
 
 
 
 
print "$work_site   $vendor $project \n";
 
 
 
 
my $parser = XML::LibXML->new();
my $parser = XML::LibXML->new();
 
 
 
 
Line 103... Line 114...
my @components   = yp::lib::find_components("socgen:componentConfiguration",$vendor,$project);
my @components   = yp::lib::find_components("socgen:componentConfiguration",$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 $sogen_file     = $parser->parse_file(yp::lib::find_socgen("socgen:componentConfiguration",$vendor,$project,$component));
 
   my $sim_library_path   = $sogen_file->findnodes("//socgen:componentConfiguration/socgen:sim/socgen:library_path/text()")->to_literal;
 
 
 
   print "$vendor $project $component  $sim_library_path   \n";
 
 
   #/*********************************************************************************************/
   #/*********************************************************************************************/
   #/   files for simulation                                                                     */
   #/   create coverage database .cdd file                                                       */
   #/                                                                                            */
   #/                                                                                            */
   #/*********************************************************************************************/
   #/*********************************************************************************************/
 
 
   foreach  my   $i_name ($sogen_file->findnodes("//socgen:componentConfiguration/socgen:sim/socgen:testbenches/socgen:testbench/socgen:name"))
   foreach  my   $i_name ($sogen_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_variant)  = $i_name ->findnodes('../../socgen:variant/text()')->to_literal ;
 
      my($tb_version)  = $i_name ->findnodes('../../socgen:version/text()')->to_literal ;
 
 
 
      if($tb_tool eq "coverage")
 
          {
 
          print "  COVERAGEs   $tb_tool          $tb_variant  $tb_version \n";
 
          chdir  ".${work_site}/${vendor}__${project}${sim_library_path}/cov/${tb_variant}";
 
 
 
          $cmd ="make build_cdd \n";
 
          if (system($cmd)) {}
 
 
 
 
 
 
 
 
 
          foreach  my   $i_name ($sogen_file->findnodes("//socgen:test/socgen:variant"))
      {
      {
      my($tb_name)     = $i_name ->findnodes('./text()')->to_literal ;
              my($test_variant)     = $i_name ->findnodes('./text()')->to_literal ;
      my($tb_variant)  = $i_name ->findnodes('../socgen:variant/text()')->to_literal ;
              my($test_name)        = $i_name ->findnodes('../socgen:name/text()')->to_literal ;
      my($tb_version)  = $i_name ->findnodes('../socgen:version/text()')->to_literal ;
 
 
 
 
              if($tb_variant eq $test_variant  )
 
                {
 
                print "  $tb_variant  $test_variant $test_name \n";
 
                $cmd ="make score_cov TEST=${test_name} \n";
 
                if (system($cmd)) {}
 
                }
 
 
      print "  COVERAGEs     $tb_name    $tb_variant  $tb_version \n";
              }
      chdir  ".${work_site}/${vendor}__${project}/ip/${component}/sim/cov/${tb_variant}";
 
 
 
      $cmd ="ls -la \n";
              $cmd ="make report_cov  \n";
      if (system($cmd)) {}
      if (system($cmd)) {}
 
 
      chdir $home;
          }
 
 
 
 
 
 
 
 
 
 
 
          chdir $home;
 
 
      }
      }
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
   }
   }
 
 
 
 
 
 

powered by: WebSVN 2.1.0

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