| Line 154... |
Line 154... |
if(/${home}(\S+)/) { $t_local = $1; }
|
if(/${home}(\S+)/) { $t_local = $1; }
|
|
|
my $xml_file = $parser->parse_file("${home}${t_local}/${t_name}.xml");
|
my $xml_file = $parser->parse_file("${home}${t_local}/${t_name}.xml");
|
eval {$xml_file-> findnodes('//socgen:componentConfiguration');}; #/ check for socgen namespace
|
eval {$xml_file-> findnodes('//socgen:componentConfiguration');}; #/ check for socgen namespace
|
|
|
|
# print ("Name ${t_local}/${t_name}.xml \n");
|
|
|
if($@) #/ Nope, must be spirit namespace
|
if($@) #/ Nope, must be spirit namespace
|
{
|
{
|
foreach my $comp ($xml_file->findnodes('//spirit:component'))
|
foreach my $comp ($xml_file->findnodes('//spirit:component'))
|
{
|
{
|
$vendor = $comp->findnodes('./spirit:vendor/text()')->to_literal ;
|
$vendor = $comp->findnodes('./spirit:vendor/text()')->to_literal ;
|
| Line 247... |
Line 249... |
$version = "";
|
$version = "";
|
$type = "socgen:libraryConfiguration";
|
$type = "socgen:libraryConfiguration";
|
$lib_ip_dir = $design->findnodes('./socgen:lib_ip_dir/text()')->to_literal ;
|
$lib_ip_dir = $design->findnodes('./socgen:lib_ip_dir/text()')->to_literal ;
|
$lib_sw_dir = $design->findnodes('./socgen:lib_sw_dir/text()')->to_literal ;
|
$lib_sw_dir = $design->findnodes('./socgen:lib_sw_dir/text()')->to_literal ;
|
}
|
}
|
|
|
|
foreach my $comp ($xml_file->findnodes('//spirit:component'))
|
|
{
|
|
$vendor = $comp->findnodes('./spirit:vendor/text()')->to_literal ;
|
|
$library = $comp->findnodes('./spirit:library/text()')->to_literal ;
|
|
$type = "spirit:component";
|
|
$name = $comp->findnodes('./spirit:name/text()')->to_literal ;
|
|
$version = $comp->findnodes('./spirit:version/text()')->to_literal ;
|
|
$lib_ip_dir = "";
|
|
$lib_sw_dir = "";
|
|
}
|
|
|
|
|
|
foreach my $design ($xml_file->findnodes('//spirit:design'))
|
|
{
|
|
$vendor = $design->findnodes('./spirit:vendor/text()')->to_literal ;
|
|
$library = $design->findnodes('./spirit:library/text()')->to_literal ;
|
|
$name = $design->findnodes('./spirit:name/text()')->to_literal ;
|
|
$version = $design->findnodes('./spirit:version/text()')->to_literal ;
|
|
$type = "spirit:design";
|
|
$lib_ip_dir = "";
|
|
$lib_sw_dir = "";
|
|
|
|
}
|
|
|
|
|
|
foreach my $design ($xml_file->findnodes('//spirit:designConfiguration'))
|
|
{
|
|
$vendor = $design->findnodes('./spirit:vendor/text()')->to_literal ;
|
|
$library = $design->findnodes('./spirit:library/text()')->to_literal ;
|
|
$name = $design->findnodes('./spirit:name/text()')->to_literal ;
|
|
$version = $design->findnodes('./spirit:version/text()')->to_literal ;
|
|
$type = "spirit:designConfiguration";
|
|
$lib_ip_dir = "";
|
|
$lib_sw_dir = "";
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
foreach my $design ($xml_file->findnodes('//spirit:abstractionDefinition'))
|
|
{
|
|
$vendor = $design->findnodes('./spirit:vendor/text()')->to_literal ;
|
|
$library = $design->findnodes('./spirit:library/text()')->to_literal ;
|
|
$name = $design->findnodes('./spirit:name/text()')->to_literal ;
|
|
$version = $design->findnodes('./spirit:version/text()')->to_literal ;
|
|
$type = "spirit:abstractionDefinition";
|
|
$lib_ip_dir = "";
|
|
$lib_sw_dir = "";
|
|
}
|
|
|
|
|
|
foreach my $design ($xml_file->findnodes('//spirit:busDefinition'))
|
|
{
|
|
$vendor = $design->findnodes('./spirit:vendor/text()')->to_literal ;
|
|
$library = $design->findnodes('./spirit:library/text()')->to_literal ;
|
|
$name = $design->findnodes('./spirit:name/text()')->to_literal ;
|
|
$version = $design->findnodes('./spirit:version/text()')->to_literal ;
|
|
$type = "spirit:busDefinition";
|
|
$lib_ip_dir = "";
|
|
$lib_sw_dir = "";
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
}
|
}
|
|
|
|
|
$vendor_match = "/${vendor}/";
|
$vendor_match = "/${vendor}/";
|
$library_match = "/${library}/";
|
$library_match = "/${library}/";
|
