| Line 73... |
Line 73... |
"library=s" => \$library,
|
"library=s" => \$library,
|
"component=s" => \$component,
|
"component=s" => \$component,
|
"version=s" => \$version,
|
"version=s" => \$version,
|
"path=s" => \$path,
|
"path=s" => \$path,
|
"bus_name=s" => \$bus_name,
|
"bus_name=s" => \$bus_name,
|
"test_name=s" => \$test_name
|
"test_name=s" => \$test_name,
|
|
"dest_dir=s" => \$dest_dir
|
|
|
|
|
|
|
) || die "(use '$program_name -h' for help)";
|
) || die "(use '$program_name -h' for help)";
|
|
|
|
|
##############################################################################
|
##############################################################################
|
## Help option
|
## Help option
|
##############################################################################
|
##############################################################################
|
if ( $opt_h or $opt_help )
|
if ( $opt_h or $opt_help )
|
{ print "\n trace_bus -envidentifier {sim/syn} -prefix /work -vendor vendor_name -library library_name -component component_name -version version_name -path root.dut.core.cpu -bus_name cpu \n";
|
{ print "\n trace_bus -envidentifier {sim/syn} -prefix /work -vendor vendor_name -library library_name -component component_name -version version_name -path root.dut.core.cpu -bus_name cpu -dest_dir dest_dir \n";
|
exit 1;
|
exit 1;
|
}
|
}
|
|
|
|
|
|
|
| Line 114... |
Line 115... |
|
|
|
|
|
|
|
|
my $variant;
|
my $variant;
|
my $dest_dir = "elab";
|
unless(defined $dest_dir ){ $dest_dir = "elab";}
|
my $destination = "${component}_${version}";
|
|
|
my $main_module_name = yp::lib::get_module_name($vendor,$library,$component,$version);
|
|
|
|
my $destination = "${main_module_name}";
|
|
|
|
if($test_name)
|
|
{
|
|
$destination = "${destination}_${test_name}";
|
|
}
|
|
|
if($test_name){ $destination = "${component}_${version}_${test_name}";}
|
|
|
|
my @reg_list ="";
|
my @reg_list ="";
|
my @param_list ="";
|
my @param_list ="";
|
|
|
my $root = "root";
|
my $root = "root";
|
| Line 140... |
Line 148... |
|
|
|
|
my $comp_xml_sep = yp::lib::find_comp_xml_sep($vendor,$library,$component,$version);
|
my $comp_xml_sep = yp::lib::find_comp_xml_sep($vendor,$library,$component,$version);
|
my $lib_comp_sep = yp::lib::find_lib_comp_sep($vendor,$library,$component);
|
my $lib_comp_sep = yp::lib::find_lib_comp_sep($vendor,$library,$component);
|
|
|
|
my $root_path;
|
|
if($dest_dir eq "elab")
|
|
{
|
|
$root_path = "${home}${prefix}/${vendor}__${library}${lib_comp_sep}${component}${comp_xml_sep}/../${dest_dir}";
|
|
}
|
|
else
|
|
{
|
|
$root_path = "${home}/${dest_dir}";
|
|
}
|
|
|
|
|
|
unless( -e $root_path )
|
|
{
|
|
print "$root_path does not exist... creating \n";
|
|
my $cmd = "mkdir $root_path \n";
|
|
if(system($cmd)){};
|
|
}
|
|
|
|
|
|
$root_path = "${root_path}/${destination}";
|
|
|
|
|
|
unless( -e $root_path )
|
|
{
|
|
print "$root_path does not exist... creating \n";
|
|
my $cmd = "mkdir $root_path \n";
|
|
if(system($cmd)){};
|
|
}
|
|
|
my $root_path = "${home}${prefix}/${vendor}__${library}${lib_comp_sep}${component}${comp_xml_sep}/../${dest_dir}/${destination}";
|
|
|
|
|
|
my $sw_dir = "${root_path}/sw";
|
my $sw_dir = "${root_path}/sw";
|
mkdir $sw_dir,0755 unless( -e $sw_dir );
|
mkdir $sw_dir,0755 unless( -e $sw_dir );
|
|
|
| Line 166... |
Line 201... |
$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 $data_db_file = "${root_path}/root.db";
|
my $data_db_file = "${home}/dbs/${vendor}_${library}_${component}_${version}.db";
|
|
|
|
|
unless(-e $data_db_file )
|
unless(-e $data_db_file )
|
{
|
{
|
print "$data_db_file root file does not exist \n";
|
print "$data_db_file root file does not exist \n";
|
| Line 193... |
Line 228... |
|
|
|
|
$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);
|
|
|
#print "XXXXX $path $vendor $library $component $version $bus_name \n";
|
|
|
|
my $instance_path = yp::lib::get_io_ports;
|
|
|
|
my $main_module_name = yp::lib::get_module_name($vendor,$library,$component,$version);
|
|
|
|
my $instance_db_file = "${instance_path}/${vendor}__${library}/${component}/${main_module_name}_BUSSES.dbm";
|
my $instance_db_file = yp::lib::get_io_busses_db_filename($vendor,$library,$component,$version);
|
|
|
|
|
|
|
unless(-e $instance_db_file )
|
unless(-e $instance_db_file )
|
{
|
{
|
| Line 314... |
Line 345... |
$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);
|
|
|
# print "QQQQQQ $path || $vendor $library $component $version == $bus_name \n";
|
# print "QQQQQQ $path || $vendor $library $component $version == $bus_name \n";
|
|
|
my $main_module_name = yp::lib::get_module_name($vendor,$library,$component,$version);
|
|
|
|
my $instance_path = yp::lib::get_io_ports;
|
|
my $instance_db_file = "${instance_path}/${vendor}__${library}/${component}/${main_module_name}_BUSSES.dbm";
|
|
|
my $instance_db_file = yp::lib::get_io_busses_db_filename($vendor,$library,$component,$version);
|
|
|
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";
|
}
|
}
|
