| Line 63... |
Line 63... |
#/ */
|
#/ */
|
#/ */
|
#/ */
|
#/*********************************************************************************************/
|
#/*********************************************************************************************/
|
|
|
my $home = cwd();
|
my $home = cwd();
|
my $projects = "/projects";
|
|
|
|
my $vendor_check = $ARGV[0];
|
my $vendor_check = $ARGV[0];
|
|
|
|
|
chomp($vendor_check);
|
chomp($vendor_check);
|
| Line 88... |
Line 88... |
|
|
|
|
my @libraries = yp::lib::find_libraries($vendor);
|
my @libraries = yp::lib::find_libraries($vendor);
|
foreach my $library (@libraries)
|
foreach my $library (@libraries)
|
{
|
{
|
|
my $repo = yp::lib::find_library_repo($vendor,$library);
|
|
|
|
|
|
|
my @components = yp::lib::find_components($vendor,$library);
|
my @components = yp::lib::find_components($vendor,$library);
|
foreach my $component (@components)
|
foreach my $component (@components)
|
{
|
{
|
print "V $vendor $library $component \n";
|
print "V $vendor $library $component \n";
|
| Line 99... |
Line 102... |
|
|
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));
|
my $doc_library_path = $socgen_file->findnodes("//socgen:componentConfiguration/socgen:doc/socgen:library_path/text()")->to_literal;
|
my $doc_library_path = $socgen_file->findnodes("//socgen:componentConfiguration/socgen:doc/socgen:library_path/text()")->to_literal;
|
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 $path = "${home}${projects}/${vendor}/${library}${doc_library_path}";
|
my $path = "${home}${repo}/${vendor}/${library}${doc_library_path}";
|
mkdir $path,0755 unless( -e $path );
|
mkdir $path,0755 unless( -e $path );
|
|
|
|
|
$doc_library_path = "${doc_library_path}/Heda";
|
$doc_library_path = "${doc_library_path}/Heda";
|
|
|
my $path = "${home}${projects}/${vendor}/${library}${doc_library_path}";
|
my $path = "${home}${repo}/${vendor}/${library}${doc_library_path}";
|
mkdir $path,0755 unless( -e $path );
|
mkdir $path,0755 unless( -e $path );
|
|
|
|
|
my $path = "${home}${projects}/${vendor}/${library}${doc_library_path}/busDef";
|
my $path = "${home}${repo}/${vendor}/${library}${doc_library_path}/busDef";
|
mkdir $path,0755 unless( -e $path );
|
mkdir $path,0755 unless( -e $path );
|
|
|
|
|
|
|
|
|
| Line 125... |
Line 128... |
|
|
|
|
|
|
foreach my $version (@versions)
|
foreach my $version (@versions)
|
{
|
{
|
my $path = "${home}${projects}/${vendor}/${library}${doc_library_path}/busDef/${component}_${version}";
|
my $path = "${home}${repo}/${vendor}/${library}${doc_library_path}/busDef/${component}_${version}";
|
open(FILE,">${path}.txt") or die "No busDef directory";
|
open(FILE,">${path}.txt") or die "No busDef directory";
|
|
|
|
|
print FILE "${vendor}:${library}:${component}:${version}\n";
|
print FILE "${vendor}:${library}:${component}:${version}\n";
|
print FILE "\t--------------------------------------------------------------------------------------------------------\n";
|
print FILE "\t--------------------------------------------------------------------------------------------------------\n";
|
| Line 198... |
Line 201... |
{
|
{
|
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));
|
my $doc_library_path = $socgen_file->findnodes("//socgen:componentConfiguration/socgen:doc/socgen:library_path/text()")->to_literal;
|
my $doc_library_path = $socgen_file->findnodes("//socgen:componentConfiguration/socgen:doc/socgen:library_path/text()")->to_literal;
|
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 $path = "${home}${projects}/${vendor}/${library}${doc_library_path}";
|
my $path = "${home}${repo}/${vendor}/${library}${doc_library_path}";
|
mkdir $path,0755 unless( -e $path );
|
mkdir $path,0755 unless( -e $path );
|
|
|
|
|
$doc_library_path = "${doc_library_path}/Heda";
|
$doc_library_path = "${doc_library_path}/Heda";
|
|
|
my $path = "${home}${projects}/${vendor}/${library}${doc_library_path}";
|
my $path = "${home}${repo}/${vendor}/${library}${doc_library_path}";
|
mkdir $path,0755 unless( -e $path );
|
mkdir $path,0755 unless( -e $path );
|
|
|
|
|
my $path = "${home}${projects}/${vendor}/${library}${doc_library_path}/absDef";
|
my $path = "${home}${repo}/${vendor}/${library}${doc_library_path}/absDef";
|
mkdir $path,0755 unless( -e $path );
|
mkdir $path,0755 unless( -e $path );
|
|
|
|
|
my @versions = yp::lib::find_abstractionDefinition_versions($vendor,$library,$component);
|
my @versions = yp::lib::find_abstractionDefinition_versions($vendor,$library,$component);
|
|
|
foreach my $version (@versions)
|
foreach my $version (@versions)
|
{
|
{
|
|
|
my $path = "${home}${projects}/${vendor}/${library}${doc_library_path}/absDef/${component}_${version}";
|
my $path = "${home}${repo}/${vendor}/${library}${doc_library_path}/absDef/${component}_${version}";
|
open(FILE,">${path}.txt") or die "No sch directory";
|
open(FILE,">${path}.txt") or die "No sch directory";
|
|
|
|
|
print FILE "${vendor}:${library}:${component}:${version}\n";
|
print FILE "${vendor}:${library}:${component}:${version}\n";
|
print FILE "\t--------------------------------------------------------------------------------------------------------\n";
|
print FILE "\t--------------------------------------------------------------------------------------------------------\n";
|
