Line 138... |
Line 138... |
|
|
# print " $outfile Does not Exist, creating \n";
|
# print " $outfile Does not Exist, creating \n";
|
open DEST_FILE,">$outfile" or die "unable to open $outfile";
|
open DEST_FILE,">$outfile" or die "unable to open $outfile";
|
|
|
|
|
$outfile = yp::lib::get_io_busses_db_filename($vendor,$library,$component,$version);
|
$outfile = yp::lib::get_io_busses_db_filename($vendor,$library,$component,$version,"default");
|
$busses_db = new BerkeleyDB::Hash( -Filename => $outfile, -Flags => DB_CREATE ) or die "Cannot open ${outfile}: $!";
|
$busses_db = new BerkeleyDB::Hash( -Filename => $outfile, -Flags => DB_CREATE ) or die "Cannot open ${outfile}: $!";
|
|
|
|
|
|
|
# print "XXXXXXXX $outfile GEN_PORTS CREATE \n";
|
# print "XXXXXXXX $outfile GEN_PORTS CREATE \n";
|
Line 589... |
Line 589... |
my($component_name) = $i_name ->findnodes('../spirit:componentRef/@spirit:name')->to_literal ;
|
my($component_name) = $i_name ->findnodes('../spirit:componentRef/@spirit:name')->to_literal ;
|
my($version_name) = $i_name ->findnodes('../spirit:componentRef/@spirit:version')->to_literal ;
|
my($version_name) = $i_name ->findnodes('../spirit:componentRef/@spirit:version')->to_literal ;
|
|
|
# print "XCCXX HIER_CONN inst ${hierConn_comref_name} name ${hierConn_name} busref $hierConn_busref_name child ${vendor_name}_${library_name}_${component_name}_${version_name}\n";
|
# print "XCCXX HIER_CONN inst ${hierConn_comref_name} name ${hierConn_name} busref $hierConn_busref_name child ${vendor_name}_${library_name}_${component_name}_${version_name}\n";
|
|
|
my $child_file = yp::lib::get_io_busses_db_filename($vendor_name,$library_name,$component_name,$version_name);
|
my $child_file = yp::lib::get_io_busses_db_filename($vendor_name,$library_name,$component_name,$version_name,"default");
|
$child_ports_db = new BerkeleyDB::Hash( -Filename => $child_file, -Flags => DB_CREATE ) or die "Cannot open ${child_file}: $!";
|
$child_ports_db = new BerkeleyDB::Hash( -Filename => $child_file, -Flags => DB_CREATE ) or die "Cannot open ${child_file}: $!";
|
|
|
# print "XXXXXXXX GEN_PORTS OPENNED $child_file \n";
|
# print "XXXXXXXX GEN_PORTS OPENNED $child_file \n";
|
|
|
my $child_cursor = $child_ports_db->db_cursor() ;
|
my $child_cursor = $child_ports_db->db_cursor() ;
|
Line 751... |
Line 751... |
|
|
|
|
|
|
|
|
# print "XCCXX INTERCONN inst ${hierConn_comref_name} name ${hierConn_name} busref $hierConn_busref_name child ${vendor_name}_${library_name}_${component_name}_${version_name}\n";
|
# print "XCCXX INTERCONN inst ${hierConn_comref_name} name ${hierConn_name} busref $hierConn_busref_name child ${vendor_name}_${library_name}_${component_name}_${version_name}\n";
|
my $child_file = yp::lib::get_io_busses_db_filename($vendor_name,$library_name,$component_name,$version_name);
|
my $child_file = yp::lib::get_io_busses_db_filename($vendor_name,$library_name,$component_name,$version_name,"default");
|
$child_ports_db = new BerkeleyDB::Hash( -Filename => $child_file, -Flags => DB_CREATE ) or die "Cannot open ${child_file}: $!";
|
$child_ports_db = new BerkeleyDB::Hash( -Filename => $child_file, -Flags => DB_CREATE ) or die "Cannot open ${child_file}: $!";
|
# print "XXXXXXXX GEN_PORTS OPENNED $child_file \n";
|
# print "XXXXXXXX GEN_PORTS OPENNED $child_file \n";
|
|
|
my $child_cursor = $child_ports_db->db_cursor() ;
|
my $child_cursor = $child_ports_db->db_cursor() ;
|
while ($child_cursor->c_get($key, $value, DB_NEXT) == 0)
|
while ($child_cursor->c_get($key, $value, DB_NEXT) == 0)
|