Subversion Repositories socgen

sub parse_component_fileX

   {

   my @params     = @_;

   my $version    = pop(@params);

   my $component  = pop(@params);

   my $library    = pop(@params);

   my $vendor     = pop(@params);

   my $parser     = XML::LibXML->new();

   my $spirit_cmp_filename =yp::lib::find_ipxact("spirit:component",$vendor,$library,$component,$version );

   unless($spirit_cmp_filename)

      {

      print("spirit:component MISSING   $vendor,$library,$component,$version \n");

      }

   my $spirit_component_file  = $parser->parse_file(yp::lib::find_ipxact("spirit:component",$vendor,$library,$component,$version ));

   my $line;

   my      @filelist_acc = (  );

#   push(@filelist_acc,"::${vendor}::${library}::${component}::${version}::");

   foreach my $new_comp ($spirit_component_file->findnodes("//spirit:component/spirit:model/spirit:views/spirit:view/spirit:vendorExtensions/spirit:componentRef"))

     {

     my($new_vendor)        = $new_comp->findnodes('./@spirit:vendor')->to_literal ;

     my($new_library)       = $new_comp->findnodes('./@spirit:library')->to_literal ;

     my($new_name)          = $new_comp->findnodes('./@spirit:name')->to_literal ;

     my($new_version)       = $new_comp->findnodes('./@spirit:version')->to_literal ;

     my $hier_ref_type      = yp::lib::find_file_type($new_vendor,$new_library,$new_name,$new_version) ;

     my @filelist_sub       = parse_component_fileX($new_vendor,$new_library,$new_name,$new_version);

                              foreach $line (@filelist_sub) { push(@filelist_acc,"$line"); }

     }

   foreach my $new_comp ($spirit_component_file->findnodes("//spirit:component/spirit:model/spirit:views/spirit:view/spirit:hierarchyRef"))

     {

     my($new_vendor)        = $new_comp->findnodes('./@spirit:vendor')->to_literal ;

     my($new_library)       = $new_comp->findnodes('./@spirit:library')->to_literal ;

     my($new_name)          = $new_comp->findnodes('./@spirit:name')->to_literal ;

     my($new_version)       = $new_comp->findnodes('./@spirit:version')->to_literal ;

     my $hier_ref_type      = yp::lib::find_file_type($new_vendor,$new_library,$new_name,$new_version) ;

     if($hier_ref_type eq "spirit:designConfiguration")

        {

        my $spirit_designCfg_file

        = $parser->parse_file(yp::lib::find_ipxact("spirit:designConfiguration",$new_vendor,$new_library,$new_name,$new_version ));

        foreach my $design_ref_view ($spirit_designCfg_file->findnodes('//spirit:designConfiguration'))

            {

            $new_vendor         = $design_ref_view->findnodes('./spirit:designRef/@spirit:vendor')->to_literal ;

            $new_library        = $design_ref_view->findnodes('./spirit:designRef/@spirit:library')->to_literal ;

            $new_name           = $design_ref_view->findnodes('./spirit:designRef/@spirit:name')->to_literal ;

            $new_version        = $design_ref_view->findnodes('./spirit:designRef/@spirit:version')->to_literal ;

            $hier_ref_type                ="spirit:design";

            }

        }

        if($hier_ref_type eq "spirit:design")

           {

           my $spirit_design_file = $parser->parse_file(yp::lib::find_ipxact("spirit:design",$new_vendor,$new_library,$new_name,$new_version ));

           if($spirit_design_file)

             {

             foreach  my   $i_name ($spirit_design_file->findnodes("//spirit:design/spirit:componentInstances/spirit:componentInstance/spirit:componentRef/\@spirit:vendor"))

                {

                my($vendor_name)         = $i_name  ->to_literal ;

                my($library_name)        = $i_name  ->findnodes('../@spirit:library')->to_literal ;

                my($component_name)      = $i_name  ->findnodes('../@spirit:name')->to_literal ;

                my($version_name)        = $i_name  ->findnodes('../@spirit:version')->to_literal ;

                push(@filelist_acc,"::${vendor_name}::${library_name}::${component_name}::${version_name}::");

                my  @filelist_sub = parse_component_fileX($vendor_name,$library_name,$component_name,$version_name);

                  foreach $line (@filelist_sub) { push(@filelist_acc,"$line"); }

                }

           }

        }

     }

   @filelist_acc     =       sys::lib::trim_sort(@filelist_acc);

   return(@filelist_acc);

}

#/*********************************************************************************************/

#/  parse_component_brothers                                                                  */

#/                                                                                            */

#/  returns names for component brothers                                                      */

#/                                                                                            */

#/   my @filelist = yp::lib::parse_component_brother($vendor,$library,$component,$version);   */

#/                                                                                            */

#/*********************************************************************************************/

sub parse_component_brothers

   {

   my @params     = @_;

   my $version    = pop(@params);

   my $component  = pop(@params);

   my $library    = pop(@params);

   my $vendor     = pop(@params);

   my $parser     = XML::LibXML->new();

   my $spirit_cmp_filename =yp::lib::find_ipxact("spirit:component",$vendor,$library,$component,$version );

   unless($spirit_cmp_filename)

      {

      print("spirit:component MISSING   $vendor,$library,$component,$version \n");

      }

   my $spirit_component_file  = $parser->parse_file(yp::lib::find_ipxact("spirit:component",$vendor,$library,$component,$version ));

   my $line;

   my      @filelist_acc = (  );

   push(@filelist_acc,"::${vendor}::${library}::${component}::${version}::");

   foreach my $new_comp ($spirit_component_file->findnodes("//spirit:component/spirit:model/spirit:views/spirit:view/spirit:vendorExtensions/spirit:componentRef"))

     {

     my($new_vendor)        = $new_comp->findnodes('./@spirit:vendor')->to_literal ;

     my($new_library)       = $new_comp->findnodes('./@spirit:library')->to_literal ;

     my($new_component)     = $new_comp->findnodes('./@spirit:name')->to_literal ;

     my($new_version)       = $new_comp->findnodes('./@spirit:version')->to_literal ;

     push(@filelist_acc,"::${new_vendor}::${new_library}::${new_component}::${new_version}::");

     }

   return(@filelist_acc);

}