| Line 87... |
Line 87... |
#/* */
|
#/* */
|
#/* */
|
#/* */
|
#/**********************************************************************/
|
#/**********************************************************************/
|
|
|
|
|
|
my $home = cwd();
|
|
|
|
|
|
|
my $vendor ;
|
my $vendor ;
|
my $project ;
|
my $project ;
|
my $home = cwd();
|
|
|
|
|
|
|
|
$_ = $ARGV[0];
|
$_ = $ARGV[0];
|
|
my $work_site = $ARGV[1];
|
|
|
|
|
if(/(\S+)__(\S+)/)
|
if(/(\S+)__(\S+)/)
|
{
|
{
|
$vendor = $1;
|
$vendor = $1;
|
$project = $2;
|
$project = $2;
|
| Line 111... |
Line 110... |
|
|
|
|
|
|
|
|
|
|
my $work_site = $ARGV[1];
|
|
|
|
|
|
|
|
my $parser = XML::LibXML->new();
|
my $parser = XML::LibXML->new();
|
|
|
|
|
|
|
my @components = yp::lib::find_components("socgen:ip",$vendor,$project);
|
my @components = yp::lib::find_components("socgen:componentConfiguration",$vendor,$project);
|
|
|
foreach my $component (@components)
|
foreach my $component (@components)
|
{
|
{
|
my $socgen_ip_file = $parser->parse_file(yp::lib::find_socgen("socgen:ip",$vendor,$project,$component));
|
my $sogen_file = $parser->parse_file(yp::lib::find_socgen("socgen:componentConfiguration",$vendor,$project,$component));
|
|
|
#/*********************************************************************************************/
|
#/*********************************************************************************************/
|
#/ files for simulation */
|
#/ files for simulation */
|
#/ */
|
#/ */
|
#/*********************************************************************************************/
|
#/*********************************************************************************************/
|
|
|
foreach my $i_name ($socgen_ip_file->findnodes("//socgen:ip/socgen:testbenches/socgen:testbench/socgen:version"))
|
foreach my $i_name ($sogen_file->findnodes("//socgen:componentConfiguration/socgen:sim/socgen:rtl_check/socgen:lint/socgen:name"))
|
{
|
{
|
my($tb_version) = $i_name ->findnodes('./text()')->to_literal ;
|
my($sim_name) = $i_name ->findnodes('./text()')->to_literal ;
|
my($tb_variant) = $i_name ->findnodes('../socgen:variant/text()')->to_literal ;
|
my($sim_configuration) = $i_name ->findnodes('../socgen:configuration/text()')->to_literal ;
|
|
my($sim_variant) = $i_name ->findnodes('../socgen:variant/text()')->to_literal ;
|
|
|
|
print " lint $sim_name $sim_configuration $sim_variant ";
|
|
chdir ".${work_site}/${vendor}__${project}/ip/${component}/sim/rtl_check/${sim_name}";
|
|
|
|
$cmd ="make lint";
|
print " Lint $component $tb_version $tb_variant \n";
|
|
chdir ".${work_site}/${vendor}__${project}/ip/${component}/sim/lint/${component}_${tb_version}";
|
|
|
|
$cmd ="make lint \n";
|
|
if (system($cmd)) {}
|
if (system($cmd)) {}
|
|
|
|
|
|
|
chdir $home;
|
chdir $home;
|
|
|
|
|
}
|
}
|
|
|
