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

Subversion Repositories socgen

[/] [socgen/] [trunk/] [tools/] [simulation/] [run_coverage] - Blame information for rev 127

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 119 jt_eaton
eval 'exec `which perl` -S $0 ${1+"$@"}'
2
   if 0;
3
 
4
#/**********************************************************************/
5
#/*                                                                    */
6
#/*             -------                                                */
7
#/*            /   SOC  \                                              */
8
#/*           /    GEN   \                                             */
9
#/*          /    TOOL    \                                            */
10
#/*          ==============                                            */
11
#/*          |            |                                            */
12
#/*          |____________|                                            */
13
#/*                                                                    */
14
#/*                                                                    */
15
#/*                                                                    */
16
#/*  Author(s):                                                        */
17
#/*      - John Eaton, jt_eaton@opencores.org                          */
18
#/*                                                                    */
19
#/**********************************************************************/
20
#/*                                                                    */
21
#/*    Copyright (C) <2010-2011>                */
22
#/*                                                                    */
23
#/*  This source file may be used and distributed without              */
24
#/*  restriction provided that this copyright statement is not         */
25
#/*  removed from the file and that any derivative work contains       */
26
#/*  the original copyright notice and the associated disclaimer.      */
27
#/*                                                                    */
28
#/*  This source file is free software; you can redistribute it        */
29
#/*  and/or modify it under the terms of the GNU Lesser General        */
30
#/*  Public License as published by the Free Software Foundation;      */
31
#/*  either version 2.1 of the License, or (at your option) any        */
32
#/*  later version.                                                    */
33
#/*                                                                    */
34
#/*  This source is distributed in the hope that it will be            */
35
#/*  useful, but WITHOUT ANY WARRANTY; without even the implied        */
36
#/*  warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR           */
37
#/*  PURPOSE.  See the GNU Lesser General Public License for more      */
38
#/*  details.                                                          */
39
#/*                                                                    */
40
#/*  You should have received a copy of the GNU Lesser General         */
41
#/*  Public License along with this source; if not, download it        */
42
#/*  from http://www.opencores.org/lgpl.shtml                          */
43
#/*                                                                    */
44
#/**********************************************************************/
45
 
46
 
47
############################################################################
48
# General PERL config
49
############################################################################
50
use Getopt::Long;
51
use English;
52
use File::Basename;
53
use Cwd;
54
use XML::LibXML;
55
use lib './tools';
56
use sys::lib;
57
use yp::lib;
58
 
59
$OUTPUT_AUTOFLUSH = 1; # set autoflush of stdout to TRUE.
60
 
61
 
62
############################################################################
63
### Process the options
64
############################################################################
65
Getopt::Long::config("require_order", "prefix=-");
66
GetOptions("h","help",
67
) || die "(use '$program_name -h' for help)";
68
 
69
 
70
 
71
 
72
##############################################################################
73
## Help option
74
##############################################################################
75
if ( $opt_h or $opt_help  )
76
  { print "\n run_coverage project_name  project_vendor";
77
    print "\n";
78
    exit 1;
79
  }
80
 
81
 
82
#/**********************************************************************/
83
#/*  Process each project by finding any ip-xact file in any component */
84
#/*                                                                    */
85
#/*  Each ip-xact file is parsed and it's filename and the names of any*/
86
#/*  modules that it uses are saved.                                   */
87
#/*                                                                    */
88
#/*                                                                    */
89
#/**********************************************************************/
90
 
91
 
92
my $project           = $ARGV[0];
93
my $vendor            = $ARGV[1];
94
 
95
my $home              = cwd();
96
my $work_site         = "/work";
97
 
98
 
99
my $parser = XML::LibXML->new();
100
 
101
 
102
 
103 124 jt_eaton
my @components   = yp::lib::find_components("socgen:componentConfiguration",$vendor,$project);
104 119 jt_eaton
 
105
foreach my $component (@components)
106
   {
107 124 jt_eaton
   my $sogen_file     = $parser->parse_file(yp::lib::find_socgen("socgen:componentConfiguration",$vendor,$project,$component));
108 119 jt_eaton
 
109
   #/*********************************************************************************************/
110
   #/   files for simulation                                                                     */
111
   #/                                                                                            */
112
   #/*********************************************************************************************/
113
 
114 124 jt_eaton
   foreach  my   $i_name ($sogen_file->findnodes("//socgen:componentConfiguration/socgen:sim/socgen:testbenches/socgen:testbench/socgen:name"))
115 119 jt_eaton
      {
116
      my($tb_name)     = $i_name ->findnodes('./text()')->to_literal ;
117
      my($tb_variant)  = $i_name ->findnodes('../socgen:variant/text()')->to_literal ;
118
      my($tb_version)  = $i_name ->findnodes('../socgen:version/text()')->to_literal ;
119
 
120
 
121
      print "  COVERAGEs     $tb_name    $tb_variant  $tb_version \n";
122
      chdir  ".${work_site}/${vendor}__${project}/ip/${component}/sim/cov/${tb_variant}";
123
 
124
      $cmd ="ls -la \n";
125
      if (system($cmd)) {}
126
 
127
      chdir $home;
128
 
129
 
130
      }
131
 
132
   }
133
 
134
 
135
 

powered by: WebSVN 2.1.0

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