Line 90... |
Line 90... |
##############################################################################
|
##############################################################################
|
|
|
|
|
my $home = cwd();
|
my $home = cwd();
|
|
|
|
my @cmd_list = ();
|
|
|
|
|
#############################################################################
|
#############################################################################
|
##
|
##
|
##
|
##
|
#############################################################################
|
#############################################################################
|
|
|
|
|
|
|
|
|
#print "\n FFFFFFFFFFFF GENERATE $prefix $vendor $library $component $version \n" ;
|
|
|
|
|
|
my $parser = XML::LibXML->new();
|
my $parser = XML::LibXML->new();
|
|
|
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);
|
|
|
Line 132... |
Line 132... |
{
|
{
|
$new_library = $2;
|
$new_library = $2;
|
$new_component = $3;
|
$new_component = $3;
|
$new_vendor = $1;
|
$new_vendor = $1;
|
$new_version = $4;
|
$new_version = $4;
|
# print " FFFFFFFFFFFFFFFF Brother $new_vendor $new_library $new_component $new_version \n" ;
|
|
|
|
my $spirit_component_file = $parser->parse_file(yp::lib::find_ipxact_component($new_vendor,$new_library,$new_component,$new_version));
|
my $spirit_component_file = $parser->parse_file(yp::lib::find_ipxact_component($new_vendor,$new_library,$new_component,$new_version));
|
|
|
foreach my $i_name ($spirit_component_file->findnodes("//spirit:componentGenerator/spirit:name"))
|
foreach my $i_name ($spirit_component_file->findnodes("//spirit:componentGenerator/spirit:name"))
|
{
|
{
|
my($gen_name) = $i_name ->findnodes('../spirit:name/text()')->to_literal ;
|
my($gen_name) = $i_name ->findnodes('../spirit:name/text()')->to_literal ;
|
my($gen_generatorExe) = $i_name ->findnodes('../spirit:generatorExe/text()')->to_literal ;
|
my($gen_generatorExe) = $i_name ->findnodes('../spirit:generatorExe/text()')->to_literal ;
|
# print " FFFFFFFFFFFFFFFF $gen_name $gen_generatorExe \n" ;
|
my($gen_phase) = $i_name ->findnodes('../spirit:phase/text()')->to_literal ;
|
|
|
my $cmd;
|
my $cmd;
|
$cmd = " -prefix $prefix -vendor $vendor -library $library -component $component -version $version ";
|
$cmd = " -prefix $prefix -vendor $vendor -library $library -component $component -version $version ";
|
|
|
foreach my $i_name ($spirit_component_file->findnodes("//spirit:componentGenerator[spirit:name/text() = '$gen_name']/spirit:parameters/spirit:parameter"))
|
foreach my $i_name ($spirit_component_file->findnodes("//spirit:componentGenerator[spirit:name/text() = '$gen_name']/spirit:parameters/spirit:parameter"))
|
Line 163... |
Line 163... |
my($gen_envidentifier) = $i_name ->findnodes('./text()')->to_literal ;
|
my($gen_envidentifier) = $i_name ->findnodes('./text()')->to_literal ;
|
|
|
my $New_cmd = " ${gen_generatorExe} -envidentifier $gen_envidentifier ${cmd}\n";
|
my $New_cmd = " ${gen_generatorExe} -envidentifier $gen_envidentifier ${cmd}\n";
|
if(${gen_generatorExe} )
|
if(${gen_generatorExe} )
|
{
|
{
|
if (system($New_cmd)) {}
|
push @cmd_list, "${gen_phase}::$New_cmd";
|
|
# if (system($New_cmd)) {}
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
|
@cmd_list = sys::lib::trim_sort(@cmd_list);
|
|
my $cmd;
|
|
my $phase;
|
|
|
|
foreach my $Cmd_line (@cmd_list)
|
|
{
|
|
|
|
( $phase,$cmd) = split( /\::/ , $Cmd_line);
|
|
|
|
if (system($cmd)) {}
|
|
}
|
|
|
|
|
|
|
|
|
1
|
1
|