OpenCores
URL https://opencores.org/ocsvn/socgen/socgen/trunk

Subversion Repositories socgen

[/] [socgen/] [trunk/] [tools/] [sys/] [soc_link_child] - Diff between revs 131 and 134

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 131 Rev 134
Line 194... Line 194...
                 my $lib_comp_sep    = yp::lib::find_lib_comp_sep($child_vendor,$child_library,$child_component);
                 my $lib_comp_sep    = yp::lib::find_lib_comp_sep($child_vendor,$child_library,$child_component);
                 my $repo            = yp::lib::find_component_repo($child_vendor,$child_library,$child_component);
                 my $repo            = yp::lib::find_component_repo($child_vendor,$child_library,$child_component);
 
 
 
 
 
 
                 my $path  = ".${prefix}/${parent_vendor}__${parent_library}/children";
                 my $path  = ".${prefix}/children";
                 mkdir $path,0755             unless( -e $path );
                 mkdir $path,0755             unless( -e $path );
                 my $path  = ".${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}";
                 my $path  = ".${prefix}/children/${child_vendor}__${child_library}";
                 mkdir $path,0755             unless( -e $path );
                 mkdir $path,0755             unless( -e $path );
                 my $path  = ".${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}/bin";
                 my $path  = ".${prefix}/children/${child_vendor}__${child_library}/bin";
 
 
                 unless( -e $path )
                 unless( -e $path )
                   {
                   {
                   mkdir $path,0755;
                   mkdir $path,0755;
                   $root = "${home}/${repo}/${child_vendor}/${child_library}/bin";
                   $root = "${home}/${repo}/${child_vendor}/${child_library}/bin";
                   $dest = "${home}${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}/bin";
                   $dest = "${home}${prefix}/children/${child_vendor}__${child_library}/bin";
                   &sys::lib::link_dir( "$root", "$dest"  );
                   &sys::lib::link_dir( "$root", "$dest"  );
                   symlink( "${home}/tools/bin/Makefile.root", "${home}${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}/bin/Makefile.root");
                   symlink( "${home}/tools/bin/Makefile.root", "${home}${prefix}/children/${child_vendor}__${child_library}/bin/Makefile.root");
                   symlink( "${home}/tools/bin/Makefile",      "${home}${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}/bin/Makefile");
                   symlink( "${home}/tools/bin/Makefile",      "${home}${prefix}/children/${child_vendor}__${child_library}/bin/Makefile");
                   }
                   }
 
 
 
 
 
 
                   my $path  = ".${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}${lib_comp_sep}";
                   my $path  = ".${prefix}/children/${child_vendor}__${child_library}${lib_comp_sep}";
                   mkdir $path,0755             unless( -e $path );
                   mkdir $path,0755             unless( -e $path );
 
 
                   my $path  = ".${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}${lib_comp_sep}${child_component}";
                   my $path  = ".${prefix}/children/${child_vendor}__${child_library}${lib_comp_sep}${child_component}";
 
 
 
 
                   unless( -e $path )
                   unless( -e $path )
                   {
                   {
                   mkdir $path,0755;
                   mkdir $path,0755;
 
 
                   $root = "${home}/${repo}/${child_vendor}/${child_library}${lib_comp_sep}${child_component}";
                   $root = "${home}/${repo}/${child_vendor}/${child_library}${lib_comp_sep}${child_component}";
                   $dest = ".${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}${lib_comp_sep}${child_component}";
                   $dest = ".${prefix}/children/${child_vendor}__${child_library}${lib_comp_sep}${child_component}";
                   &sys::lib::link_dir( "$root", "$dest"  );
                   &sys::lib::link_dir( "$root", "$dest"  );
 
 
 
 
                   my $socgen_file               = $parser->parse_file(yp::lib::find_componentConfiguration($child_vendor,$child_library,$child_component));
                   my $socgen_file               = $parser->parse_file(yp::lib::find_componentConfiguration($child_vendor,$child_library,$child_component));
                   my $sim_library_path ;
                   my $sim_library_path ;
Line 241... Line 241...
                   else
                   else
                      {
                      {
                      $sim_library_path            = $socgen_file->findnodes("//socgen:componentConfiguration/socgen:sim/socgen:library_path/text()")->to_literal;
                      $sim_library_path            = $socgen_file->findnodes("//socgen:componentConfiguration/socgen:sim/socgen:library_path/text()")->to_literal;
                      }
                      }
 
 
                   my $sim_full_path            = ".${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}${sim_library_path}";
                   my $sim_full_path            = ".${prefix}/children/${child_vendor}__${child_library}${sim_library_path}";
 
 
 
 
                   if(  $sim_library_path)
                   if(  $sim_library_path)
                     {
                     {
                      if(-e $sim_full_path)
                      if(-e $sim_full_path)
                      {
                      {
                      my $cmd = "rm -r    .${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}${sim_library_path}  \n";
                      my $cmd = "rm -r    .${prefix}/children/${child_vendor}__${child_library}${sim_library_path}  \n";
                      if (system($cmd)) {}
                      if (system($cmd)) {}
                      }
                      }
                     }
                     }
 
 
 
 
Line 268... Line 268...
                      {
                      {
                      $syn_library_path           = $socgen_file->findnodes("//socgen:componentConfiguration/socgen:syn/socgen:library_path/text()")->to_literal;
                      $syn_library_path           = $socgen_file->findnodes("//socgen:componentConfiguration/socgen:syn/socgen:library_path/text()")->to_literal;
                      }
                      }
 
 
 
 
                   my $syn_full_path            = ".${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}${syn_library_path}";
                   my $syn_full_path            = ".${prefix}/children/${child_vendor}__${child_library}${syn_library_path}";
 
 
                   if(  $syn_library_path)
                   if(  $syn_library_path)
                     {
                     {
                   if(-e $syn_full_path)
                   if(-e $syn_full_path)
                    {
                    {
 
 
                    my $cmd = "rm -r    .${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}${syn_library_path}  \n";
                    my $cmd = "rm -r    .${prefix}/children/${child_vendor}__${child_library}${syn_library_path}  \n";
                    if (system($cmd)) {}
                    if (system($cmd)) {}
                    }
                    }
                    }
                    }
 
 
 
 
Line 289... Line 289...
 
 
                 my $lib_sw_dir     = yp::lib::find_lib_sw_dir($child_vendor,$child_library);
                 my $lib_sw_dir     = yp::lib::find_lib_sw_dir($child_vendor,$child_library);
 
 
                 if($lib_sw_dir)
                 if($lib_sw_dir)
                   {
                   {
                   my $path  = ".${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}${lib_sw_dir}";
                   my $path  = ".${prefix}/children/${child_vendor}__${child_library}${lib_sw_dir}";
                   unless( -e $path )
                   unless( -e $path )
                     {
                     {
                     mkdir $path,0755;
                     mkdir $path,0755;
                     $root = "${home}/${repo}/${child_vendor}/${child_library}${lib_sw_dir}";
                     $root = "${home}/${repo}/${child_vendor}/${child_library}${lib_sw_dir}";
                     $dest = "${home}${prefix}/${parent_vendor}__${parent_library}/children/${child_vendor}__${child_library}${lib_sw_dir}";
                     $dest = "${home}${prefix}/children/${child_vendor}__${child_library}${lib_sw_dir}";
                     &sys::lib::link_dir( "$root", "$dest"  );
                     &sys::lib::link_dir( "$root", "$dest"  );
                     }
                     }
                   }
                   }
 
 
 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.