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

Subversion Repositories socgen

[/] [socgen/] [trunk/] [tools/] [sys/] [build_generate] - Diff between revs 118 and 119

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

Rev 118 Rev 119
Line 77... Line 77...
 
 
 
 
##############################################################################
##############################################################################
## Help option
## Help option
##############################################################################
##############################################################################
if ( $opt_h or $opt_help )   { print "\n build_generate -prefix /work/ -vendor vendor_name -project project_name -component component_name -version version_name ";
if ( $opt_h or $opt_help )   { print "\n build_generate -prefix /work -vendor vendor_name -project project_name -component component_name -version version_name ";
    print "\n";
    print "\n";
    exit 1;
    exit 1;
  }
  }
 
 
 
 
Line 89... Line 89...
##
##
##############################################################################
##############################################################################
 
 
 
 
my $home = cwd();
my $home = cwd();
my $tool_path ="./tools/generators/";
 
 
 
#############################################################################
#############################################################################
##
##
##
##
#############################################################################
#############################################################################
 
 
 
 
 
 
 
 
print "  GENERATE    $prefix $vendor  $project  $component $version \n" ;
print "\nGENERATE  $prefix  $vendor  $project  $component $version \n" ;
 
 
 
 
my $parser = XML::LibXML->new();
my $parser = XML::LibXML->new();
 
 
my $lib_comp_sep    = yp::lib::find_lib_comp_sep($vendor,$project);
my $lib_comp_sep    = yp::lib::find_lib_comp_sep($vendor,$project);
Line 129... Line 129...
          my($gen_generatorExe)    = $i_name ->findnodes('../spirit:generatorExe/text()')->to_literal ;
          my($gen_generatorExe)    = $i_name ->findnodes('../spirit:generatorExe/text()')->to_literal ;
          my($gen_group)           = $i_name ->findnodes('../spirit:group/text()')->to_literal ;
          my($gen_group)           = $i_name ->findnodes('../spirit:group/text()')->to_literal ;
 
 
          my $cmd;
          my $cmd;
          $cmd =
          $cmd =
          "${tool_path}${gen_generatorExe} -view $view_name -prefix $prefix -vendor $vendor -project $project -component $component -version $version  ";
          "${gen_generatorExe} -view $view_name -prefix $prefix -vendor $vendor -project $project -component $component -version $version  ";
 
 
          foreach  my   $i_name ($spirit_component_file->findnodes("//spirit:componentGenerator[spirit:name/text() = '$gen_name']/spirit:parameters/spirit:parameter"))
          foreach  my   $i_name ($spirit_component_file->findnodes("//spirit:componentGenerator[spirit:name/text() = '$gen_name']/spirit:parameters/spirit:parameter"))
             {
             {
             my($gen_param)             = $i_name ->findnodes('./spirit:value/text()')->to_literal ;
             my($gen_param)             = $i_name ->findnodes('./spirit:value/text()')->to_literal ;
             my($gen_param_name)        = $i_name ->findnodes('./spirit:name/text()')->to_literal ;
             my($gen_param_name)        = $i_name ->findnodes('./spirit:name/text()')->to_literal ;
 
 
             if   ($gen_param_name eq "in_pipe")     {$cmd =  "$cmd <${home}${prefix}${project}${lib_comp_sep}/${component}/${gen_param}";}
             if   ($gen_param_name eq "in_pipe")     {$cmd =  "$cmd <${home}${prefix}/${vendor}__${project}${lib_comp_sep}/${component}/${gen_param}";}
             elsif($gen_param_name eq "out_pipe")    {$cmd =  "$cmd >${home}${prefix}${project}${lib_comp_sep}/${component}/${gen_param}";}
             elsif($gen_param_name eq "out_pipe")    {$cmd =  "$cmd >${home}${prefix}/${vendor}__${project}${lib_comp_sep}/${component}/${gen_param}";}
             elsif($gen_param_name)                  {$cmd =  "$cmd -${gen_param_name} $gen_param ";}
             elsif($gen_param_name)                  {$cmd =  "$cmd -${gen_param_name} $gen_param ";}
             else                                    {$cmd =  "$cmd $gen_param";}
             else                                    {$cmd =  "$cmd $gen_param";}
             }
             }
             $cmd =  "${cmd}\n";
             $cmd =  "${cmd}\n";
 
 

powered by: WebSVN 2.1.0

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