URL
                    https://opencores.org/ocsvn/socgen/socgen/trunk
                
             
            
            
[/] [socgen/] [trunk/] [tools/] [sys/] [workspace] - Diff between revs 95 and 96
Go to most recent revision |
Show entire file |
Details |
Blame |
View Log
   
    
      
         | Rev 95 | 
         Rev 96 | 
      
    
    
      
        | Line 96... | 
        Line 96... | 
      
      
           symlink( "${home}/tools/bin/Makefile",      "${home}/work/${project}/bin/Makefile");
  | 
           symlink( "${home}/tools/bin/Makefile",      "${home}/work/${project}/bin/Makefile");
  | 
      
      
         
  | 
         
  | 
      
      
           $cmd ="chmod 755    ${home}/projects/${project}/bin/* \n";
  | 
           $cmd ="chmod 755    ${home}/projects/${project}/bin/* \n";
  | 
      
      
           if (system($cmd)) {}
  | 
           if (system($cmd)) {}
  | 
      
      
         
  | 
         
  | 
      
      
           | 
         
  | 
      
      
           | 
         
  | 
      
      
           | 
         
  | 
      
      
           | 
         
  | 
      
      
           | 
         
  | 
      
      
           | 
         
  | 
      
      
           | 
           my $path  = "${home}${prefix}${project}/children";
  | 
      
      
           | 
           mkdir $path,0755          unless( -e $path );
  | 
      
      
           | 
         
  | 
      
      
           | 
           my $path  = "${home}${prefix}${project}/children/Busdefs";
  | 
      
      
           | 
           mkdir $path,0755          unless( -e $path );
  | 
      
      
           | 
         
  | 
      
      
           | 
         
  | 
      
      
           | 
         
  | 
      
      
           | 
           &link_dir( "${home}/projects/Busdefs",     "${home}${prefix}${project}/children/Busdefs"  );
  | 
      
      
           | 
         
  | 
      
      
           | 
         
  | 
      
      
           my @components = qx(ls  ${home}/work/${project}/ip    );
  | 
           my @components = qx(ls  ${home}/work/${project}/ip    );
  | 
      
      
           foreach my $component (@components)
  | 
           foreach my $component (@components)
  | 
      
      
              {
  | 
              {
  | 
      
      
              chomp($component);
  | 
              chomp($component);
  | 
      
      
         
  | 
         
  | 
      
      
        | Line 119... | 
        Line 136... | 
      
      
         
  | 
         
  | 
      
      
         
  | 
         
  | 
      
      
         
  | 
         
  | 
      
      
         
  | 
         
  | 
      
      
         
  | 
         
  | 
      
      
        #         foreach  my   $i_name ($doc->findnodes("//components/component/name"))
  | 
           | 
      
      
        #            {
  | 
           | 
      
      
        #            my($comp_name)  = $i_name ->findnodes('./text()')->to_literal ;
  | 
           | 
      
      
        #            my($comp_version)  = $i_name ->findnodes('../version/text()')->to_literal ;
  | 
           | 
      
      
        #            my($variant)  = $i_name ->findnodes('../variant/text()')->to_literal ;
  | 
           | 
      
      
        #            $cmd ="./tools/sys/build_geda   $project  $component  /n";
  | 
           | 
      
      
        #            if (system($cmd)) {}
  | 
           | 
      
      
        #            }
  | 
           | 
      
      
         
  | 
           | 
      
      
         
  | 
           | 
      
      
         
  | 
           | 
      
      
         
  | 
           | 
      
      
         
  | 
           | 
      
      
         
  | 
           | 
      
      
         
  | 
         
  | 
      
      
                 foreach  my   $i_name ($doc->findnodes("//components/component/name"))
  | 
                 foreach  my   $i_name ($doc->findnodes("//components/component/name"))
  | 
      
      
                    {
  | 
                    {
  | 
      
      
                    my($comp_name)  = $i_name ->findnodes('./text()')->to_literal ;
  | 
                    my($comp_name)  = $i_name ->findnodes('./text()')->to_literal ;
  | 
      
      
                    my($comp_version)  = $i_name ->findnodes('../version/text()')->to_literal ;
  | 
                    my($comp_version)  = $i_name ->findnodes('../version/text()')->to_literal ;
  | 
      
    
   
 
 
         
                
        
            
            
        
        
             
    
        © copyright 1999-2025
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.