| Line 117... |
Line 117... |
|
|
|
|
my $io_ports = yp::lib::get_io_ports() ;
|
my $io_ports = yp::lib::get_io_ports() ;
|
|
|
my $gen_port_outfile = yp::lib::get_io_ports_db_filename($vendor,$library,$component,$version);
|
my $gen_port_outfile = yp::lib::get_io_ports_db_filename($vendor,$library,$component,$version);
|
|
print "$gen_port_outfile \n";
|
$ports_db = new BerkeleyDB::Hash( -Filename => $gen_port_outfile, -Flags => DB_CREATE ) or die "Cannot open ${gen_port_outfile}: $!";
|
$ports_db = new BerkeleyDB::Hash( -Filename => $gen_port_outfile, -Flags => DB_CREATE ) or die "Cannot open ${gen_port_outfile}: $!";
|
|
|
my $key;
|
my $key;
|
my $value;
|
my $value;
|
|
|
| Line 213... |
Line 214... |
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));
|
|
|
unless ($socgen_file) { print "No socgen ip file \n";};
|
unless ($socgen_file) { print "No socgen ip file \n";};
|
|
|
|
|
my $comp_xml_sep = yp::lib::find_comp_xml_sep($vendor,$library,$component,"${version}_${tb}");
|
|
my $lib_comp_sep = yp::lib::find_lib_comp_sep($vendor,$library,$component);
|
|
|
|
|
|
|
|
|
|
|
|
my $path = "${home}${prefix}/${vendor}__${library}${lib_comp_sep}${component}${comp_xml_sep}/../${dest_dir}";
|
|
|
|
unless( -e $path )
|
|
{
|
|
print "$path does not exist... creating \n";
|
|
my $cmd = "mkdir $path \n";
|
|
if(system($cmd)){};
|
|
}
|
|
|
|
|
|
|
|
$data_db_dir = "${path}/${destination}";
|
|
|
|
|
|
unless(-e $data_db_dir )
|
my $elab_db_file = yp::lib::get_elab_db_filename($vendor,$library,$component,$version,"default");
|
{
|
|
my $cmd = "mkdir $data_db_dir \n";
|
|
if(system($cmd)){};
|
|
}
|
|
|
|
|
|
$data_db_file = "${path}/${destination}/${root}.db";
|
|
|
|
|
|
if(-e $data_db_file )
|
if(-e $elab_db_file )
|
{
|
{
|
print "$data_db_file does exist \n";
|
print "$elab_db_file does exist \n";
|
}
|
}
|
|
|
|
|
|
|
|
|
|
|
my $elab_db = new BerkeleyDB::Hash( -Filename => "$data_db_file", -Flags => DB_CREATE ) or die "Cannot open $data_db_file: $!";
|
my $elab_db = new BerkeleyDB::Hash( -Filename => "$elab_db_file", -Flags => DB_CREATE ) or die "Cannot open $elab_db_file: $!";
|
|
|
|
|
$cursor = $elab_db ->db_cursor() ;
|
$cursor = $elab_db ->db_cursor() ;
|
while ($cursor->c_get($key, $value, DB_NEXT) == 0)
|
while ($cursor->c_get($key, $value, DB_NEXT) == 0)
|
{
|
{
|
my $index;
|
my $index;
|
my $param;
|
my $param;
|
|
|
( $index,$param) = split( /\__/ , $key);
|
( $index,$param) = split( /\__/ , $key);
|
|
|
if($index eq "parameter_root.dut")
|
if($index eq "parameter_root")
|
{
|
{
|
print "$key $param \n";
|
print "$key $param \n";
|
push (@parameter_list,"${param}");
|
push (@parameter_list,"${param}");
|
}
|
}
|
}
|
}
|
| Line 338... |
Line 317... |
|
|
if($version) {$variant = "${component}_${version}";}
|
if($version) {$variant = "${component}_${version}";}
|
else {$variant = "${component}";}
|
else {$variant = "${component}";}
|
|
|
unless($destination) { $destination = $variant;}
|
unless($destination) { $destination = $variant;}
|
unless($autodoc) { $autodoc = "/Geda";}
|
|
|
|
print "\n GENERATE $prefix $vendor $library $component $version $configuration $dest_dir $destination \n";
|
print "\n GENERATE $prefix $vendor $library $component $version $configuration $dest_dir $destination \n";
|
|
|
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 $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);
|
