| Line 387... |
Line 387... |
#/*********************************************************************************************/
|
#/*********************************************************************************************/
|
#/ find_lib_comp_sep */
|
#/ find_lib_comp_sep */
|
#/ */
|
#/ */
|
#/ returns path to the component from library level */
|
#/ returns path to the component from library level */
|
#/ The file MUST be stored under a subdirectory that matches the component name */
|
#/ The file MUST be stored under a subdirectory that matches the component name */
|
#/ my $lib_comp_sep = yp::lib::find_lib_comp_sep($vendor,$library); */
|
#/ my $lib_comp_sep = yp::lib::find_lib_comp_sep($vendor,$library,$component); */
|
#/ */
|
#/ */
|
#/*********************************************************************************************/
|
#/*********************************************************************************************/
|
|
|
sub find_lib_comp_sep
|
sub find_lib_comp_sep
|
{
|
{
|
my @params = @_;
|
my @params = @_;
|
|
my $component = pop(@params);
|
my $project = pop(@params);
|
my $project = pop(@params);
|
my $vendor = pop(@params);
|
my $vendor = pop(@params);
|
|
|
|
|
|
|
| Line 406... |
Line 407... |
my $card_dir_name;
|
my $card_dir_name;
|
my $card_vendor_path;
|
my $card_vendor_path;
|
my $card_library_path;
|
my $card_library_path;
|
my $card_component_path;
|
my $card_component_path;
|
my $card_lib_comp_sep;
|
my $card_lib_comp_sep;
|
my $card_lib_ip_dir;
|
|
my $card_vendor;
|
my $card_vendor;
|
my $card_library;
|
my $card_library;
|
my $card_component;
|
my $card_component;
|
my $card_version;
|
my $card_version;
|
|
|
| Line 424... |
Line 424... |
$card_dir_name = $index_card->findnodes('../dir_name/text()')->to_literal ;
|
$card_dir_name = $index_card->findnodes('../dir_name/text()')->to_literal ;
|
$card_vendor_path = $index_card->findnodes('../vendor_path/text()')->to_literal ;
|
$card_vendor_path = $index_card->findnodes('../vendor_path/text()')->to_literal ;
|
$card_component_path= $index_card->findnodes('../component_path/text()')->to_literal ;
|
$card_component_path= $index_card->findnodes('../component_path/text()')->to_literal ;
|
$card_library_path = $index_card->findnodes('../library_path/text()')->to_literal ;
|
$card_library_path = $index_card->findnodes('../library_path/text()')->to_literal ;
|
$card_lib_comp_sep = $index_card->findnodes('../lib_comp_sep/text()')->to_literal ;
|
$card_lib_comp_sep = $index_card->findnodes('../lib_comp_sep/text()')->to_literal ;
|
$card_lib_ip_dir = $index_card->findnodes('../lib_ip_dir/text()')->to_literal ;
|
|
$card_vendor = $index_card->findnodes('../vendor/text()')->to_literal ;
|
$card_vendor = $index_card->findnodes('../vendor/text()')->to_literal ;
|
$card_library = $index_card->findnodes('../library/text()')->to_literal ;
|
$card_library = $index_card->findnodes('../library/text()')->to_literal ;
|
$card_component = $index_card->findnodes('../name/text()')->to_literal ;
|
$card_component = $index_card->findnodes('../name/text()')->to_literal ;
|
$card_version = $index_card->findnodes('../version/text()')->to_literal ;
|
$card_version = $index_card->findnodes('../version/text()')->to_literal ;
|
if(( $card_vendor eq "${vendor}" ) &
|
if(( $card_vendor eq "${vendor}" ) &
|
( $card_library eq "${project}" ) &
|
( $card_library eq "${project}" ) &
|
( $card_type eq "socgen:libraryConfiguration" )
|
( $card_component eq "${component}" )
|
)
|
)
|
{
|
{
|
if($card_lib_ip_dir) {return("/${card_lib_ip_dir}");}
|
if($card_lib_comp_sep) {return("/${card_lib_comp_sep}");}
|
else {return("");}
|
else {return("");}
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
| Line 509... |
Line 508... |
}
|
}
|
|
|
|
|
|
|
|
|
#/*********************************************************************************************/
|
|
#/ find_lib_ip_dir */
|
|
#/ */
|
|
#/ returns library ip directory */
|
|
#/ */
|
|
#/ my $file_lib_ip_dir = yp::lib::find_file_lib_ip_dir($vendor,$library); */
|
|
#/ */
|
|
#/*********************************************************************************************/
|
|
|
|
sub find_lib_ip_dir
|
|
{
|
|
my @params = @_;
|
|
my $project = pop(@params);
|
|
my $vendor = pop(@params);
|
|
|
|
my $card_type;
|
|
my $card_file_name;
|
|
my $card_dir_name;
|
|
my $card_vendor_path;
|
|
my $card_library_path;
|
|
my $card_component_path;
|
|
my $card_lib_comp_sep;
|
|
my $card_vendor;
|
|
my $card_library;
|
|
my $card_component;
|
|
my $card_version;
|
|
my $card_lib_ip_dir;
|
|
my $card_lib_sw_dir;
|
|
|
|
my $parser = XML::LibXML->new();
|
|
my $yp_index_file = $parser->parse_file("./tools/yp/index.xml");
|
|
|
|
foreach my $index_card ($yp_index_file->findnodes('//socgen:index_file/index_card/type'))
|
|
{
|
|
$card_type = $index_card->findnodes('./text()')->to_literal ;
|
|
$card_file_name = $index_card->findnodes('../file_name/text()')->to_literal ;
|
|
$card_dir_name = $index_card->findnodes('../dir_name/text()')->to_literal ;
|
|
$card_vendor_path = $index_card->findnodes('../vendor_path/text()')->to_literal ;
|
|
$card_component_path= $index_card->findnodes('../component_path/text()')->to_literal ;
|
|
$card_library_path = $index_card->findnodes('../library_path/text()')->to_literal ;
|
|
$card_lib_comp_sep = $index_card->findnodes('../lib_comp_sep/text()')->to_literal ;
|
|
$card_vendor = $index_card->findnodes('../vendor/text()')->to_literal ;
|
|
$card_library = $index_card->findnodes('../library/text()')->to_literal ;
|
|
$card_component = $index_card->findnodes('../name/text()')->to_literal ;
|
|
$card_version = $index_card->findnodes('../version/text()')->to_literal ;
|
|
$card_lib_ip_dir = $index_card->findnodes('../lib_ip_dir/text()')->to_literal ;
|
|
$card_lib_sw_dir = $index_card->findnodes('../lib_sw_dir/text()')->to_literal ;
|
|
if(( $card_vendor eq "${vendor}" ) &
|
|
( $card_library eq "${project}" )
|
|
)
|
|
{
|
|
return("${card_lib_ip_dir}");
|
|
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
|
|
#/*********************************************************************************************/
|
#/*********************************************************************************************/
|
#/ find_lib_sw_dir */
|
#/ find_lib_sw_dir */
|
#/ */
|
#/ */
|
| Line 594... |
Line 536... |
my $card_lib_comp_sep;
|
my $card_lib_comp_sep;
|
my $card_vendor;
|
my $card_vendor;
|
my $card_library;
|
my $card_library;
|
my $card_component;
|
my $card_component;
|
my $card_version;
|
my $card_version;
|
my $card_lib_ip_dir;
|
|
my $card_lib_sw_dir;
|
my $card_lib_sw_dir;
|
|
|
my $parser = XML::LibXML->new();
|
my $parser = XML::LibXML->new();
|
my $yp_index_file = $parser->parse_file("./tools/yp/index.xml");
|
my $yp_index_file = $parser->parse_file("./tools/yp/index.xml");
|
|
|
| Line 613... |
Line 554... |
$card_lib_comp_sep = $index_card->findnodes('../lib_comp_sep/text()')->to_literal ;
|
$card_lib_comp_sep = $index_card->findnodes('../lib_comp_sep/text()')->to_literal ;
|
$card_vendor = $index_card->findnodes('../vendor/text()')->to_literal ;
|
$card_vendor = $index_card->findnodes('../vendor/text()')->to_literal ;
|
$card_library = $index_card->findnodes('../library/text()')->to_literal ;
|
$card_library = $index_card->findnodes('../library/text()')->to_literal ;
|
$card_component = $index_card->findnodes('../name/text()')->to_literal ;
|
$card_component = $index_card->findnodes('../name/text()')->to_literal ;
|
$card_version = $index_card->findnodes('../version/text()')->to_literal ;
|
$card_version = $index_card->findnodes('../version/text()')->to_literal ;
|
$card_lib_ip_dir = $index_card->findnodes('../lib_ip_dir/text()')->to_literal ;
|
|
$card_lib_sw_dir = $index_card->findnodes('../lib_sw_dir/text()')->to_literal ;
|
$card_lib_sw_dir = $index_card->findnodes('../lib_sw_dir/text()')->to_literal ;
|
if(( $card_vendor eq "${vendor}" ) &
|
if(( $card_vendor eq "${vendor}" ) &
|
( $card_library eq "${project}" ) &
|
( $card_library eq "${project}" ) &
|
( $card_type eq "socgen:libraryConfiguration" )
|
( $card_type eq "socgen:libraryConfiguration" )
|
)
|
)
|
| Line 935... |
Line 875... |
{
|
{
|
|
|
$name_depth = $new_comp->findnodes('./socgen:ip_name_depth/text()')->to_literal ;
|
$name_depth = $new_comp->findnodes('./socgen:ip_name_depth/text()')->to_literal ;
|
|
|
}
|
}
|
|
if($name_depth eq "0"){ return("${library}");}
|
if($name_depth eq "1"){ return("${component}");}
|
if($name_depth eq "1"){ return("${component}");}
|
if($name_depth eq "2"){ return("${component}_${version}");}
|
if($name_depth eq "2"){ return("${component}_${version}");}
|
if($name_depth eq "3"){ return("${library}_${component}_${version}");}
|
if($name_depth eq "3"){ return("${library}_${component}_${version}");}
|
if($name_depth eq "4"){ return("${vendor}_${library}_${component}_${version}");}
|
if($name_depth eq "4"){ return("${vendor}_${library}_${component}_${version}");}
|
|
|
