| Line 135... |
Line 135... |
my $root = "root";
|
my $root = "root";
|
|
|
if($version) {$variant = "${component}_${version}";}
|
if($version) {$variant = "${component}_${version}";}
|
else {$variant = "${component}";}
|
else {$variant = "${component}";}
|
|
|
print "trace_bus -prefix $prefix -vendor $vendor -library $library -component $component -version $version -path $path -bus_name $bus_name -test_name $test_name \n";
|
#print "trace_bus -prefix $prefix -vendor $vendor -library $library -component $component -version $version -path $path -bus_name $bus_name -test_name $test_name \n";
|
|
|
my $parser = XML::LibXML->new();
|
my $parser = XML::LibXML->new();
|
|
|
my $socgen_file = $parser->parse_file(yp::lib::find_componentConfiguration($vendor,$library,$component));
|
my $socgen_file = $parser->parse_file(yp::lib::find_componentConfiguration($vendor,$library,$component));
|
|
|
| Line 161... |
Line 161... |
}
|
}
|
|
|
|
|
unless( -e $root_path )
|
unless( -e $root_path )
|
{
|
{
|
print "$root_path does not exist... creating \n";
|
#print "$root_path does not exist... creating \n";
|
my $cmd = "mkdir $root_path \n";
|
my $cmd = "mkdir $root_path \n";
|
if(system($cmd)){};
|
if(system($cmd)){};
|
}
|
}
|
|
|
|
|
$root_path = "${root_path}/${destination}";
|
$root_path = "${root_path}/${destination}";
|
|
|
|
|
unless( -e $root_path )
|
unless( -e $root_path )
|
{
|
{
|
print "$root_path does not exist... creating \n";
|
#print "$root_path does not exist... creating \n";
|
my $cmd = "mkdir $root_path \n";
|
my $cmd = "mkdir $root_path \n";
|
if(system($cmd)){};
|
if(system($cmd)){};
|
}
|
}
|
|
|
|
|
| Line 200... |
Line 200... |
$output_file = "${report_dir}/${path}_${bus_name}.txt";
|
$output_file = "${report_dir}/${path}_${bus_name}.txt";
|
$output_file =~s/root.dut.//;
|
$output_file =~s/root.dut.//;
|
|
|
open DEST_FILE,">$output_file" or die "unable to open $output_file";
|
open DEST_FILE,">$output_file" or die "unable to open $output_file";
|
|
|
|
my $elab_db_file = yp::lib::get_elab_db_filename($vendor,$library,$component,$version,"default");
|
|
|
my $data_db_file = "${home}/dbs/${vendor}_${library}_${component}_${version}.db";
|
|
|
|
|
|
unless(-e $data_db_file )
|
unless(-e $elab_db_file )
|
{
|
{
|
print "$data_db_file root file does not exist \n";
|
#print "$elab_db_file root file does not exist \n";
|
}
|
}
|
|
|
my $root_db = new BerkeleyDB::Hash( -Filename => "$data_db_file", -Flags => DB_CREATE ) or die "Cannot open $data_db_file: $!";
|
my $root_db = new BerkeleyDB::Hash( -Filename => "$elab_db_file", -Flags => DB_CREATE ) or die "Cannot open $elab_db_file: $!";
|
|
|
|
|
my $comp_data;
|
my $comp_data;
|
|
|
my $bd_vendor;
|
my $bd_vendor;
|
| Line 230... |
Line 230... |
$root_db->db_get("component___${path}", $comp_data );
|
$root_db->db_get("component___${path}", $comp_data );
|
( $vendor,$library,$component,$version) = split( /\:/ , $comp_data);
|
( $vendor,$library,$component,$version) = split( /\:/ , $comp_data);
|
|
|
|
|
|
|
my $instance_db_file = yp::lib::get_io_busses_db_filename($vendor,$library,$component,$version);
|
my $instance_db_file = yp::lib::get_io_busses_db_filename($vendor,$library,$component,$version,"default");
|
|
|
|
|
|
|
unless(-e $instance_db_file )
|
unless(-e $instance_db_file )
|
{
|
{
|
print "$instance_db_file instance file does not exist \n";
|
#print "$instance_db_file instance file does not exist \n";
|
}
|
}
|
|
|
my $instance_db = new BerkeleyDB::Hash( -Filename => "$instance_db_file", -Flags => DB_CREATE ) or die "Cannot open $instance_db_file: $!";
|
my $instance_db = new BerkeleyDB::Hash( -Filename => "$instance_db_file", -Flags => DB_CREATE ) or die "Cannot open $instance_db_file: $!";
|
|
|
|
|
| Line 348... |
Line 348... |
# print "QQQQQQ $path || $vendor $library $component $version == $bus_name \n";
|
# print "QQQQQQ $path || $vendor $library $component $version == $bus_name \n";
|
|
|
|
|
|
|
|
|
my $instance_db_file = yp::lib::get_io_busses_db_filename($vendor,$library,$component,$version);
|
my $instance_db_file = yp::lib::get_io_busses_db_filename($vendor,$library,$component,$version,"default");
|
|
|
unless(-e $instance_db_file )
|
unless(-e $instance_db_file )
|
{
|
{
|
print "$instance_db_file instance file does not exist \n";
|
#print "$instance_db_file instance file does not exist \n";
|
}
|
}
|
|
|
my $instance_db = new BerkeleyDB::Hash( -Filename => "$instance_db_file", -Flags => DB_CREATE ) or die "Cannot open $instance_db_file: $!";
|
my $instance_db = new BerkeleyDB::Hash( -Filename => "$instance_db_file", -Flags => DB_CREATE ) or die "Cannot open $instance_db_file: $!";
|
|
|
|
|
