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

Subversion Repositories socgen

[/] [socgen/] [trunk/] [tools/] [regtool/] [gen_registers] - Diff between revs 128 and 130

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

Rev 128 Rev 130
Line 97... Line 97...
 
 
 
 
$home = cwd();
$home = cwd();
 
 
 
 
my $sogen_file               = $parser->parse_file(yp::lib::find_socgen("socgen:componentConfiguration",$vendor,$project,$component));
my $socgen_file               = $parser->parse_file(yp::lib::find_componentConfiguration($vendor,$project,$component));
my $ip_name_base_macro       = $sogen_file->findnodes("//socgen:componentConfiguration/socgen:ip_name_base_macro/text()")->to_literal;
my $ip_name_base_macro       = $socgen_file->findnodes("//socgen:componentConfiguration/socgen:ip_name_base_macro/text()")->to_literal;
 
 
 
 
 
 
 
 
 
 
Line 112... Line 112...
my $variant;
my $variant;
 if($version)       {$variant   = "${component}_${version}";}
 if($version)       {$variant   = "${component}_${version}";}
 else               {$variant   = "${component}";}
 else               {$variant   = "${component}";}
 
 
my $lib_comp_sep    = yp::lib::find_lib_comp_sep($vendor,$project,$component);
my $lib_comp_sep    = yp::lib::find_lib_comp_sep($vendor,$project,$component);
my $comp_xml_sep    = yp::lib::find_ipxact_component_path("spirit:component",$vendor,$project,$component,$version);
my $comp_xml_sep    = yp::lib::find_comp_xml_sep($vendor,$project,$component,$version);
 
 
#############################################################################
#############################################################################
##
##
##
##
#############################################################################
#############################################################################
 
 
print "  Building  RTL Registers  for  $prefix $vendor $project  $component  $variant in $dest_dir\n" ;
print "  Building  RTL Registers  for  $prefix $vendor $project  $component  $variant in $dest_dir\n" ;
 
 
 
 
 
 
my $path  = "${home}${prefix}/${vendor}__${project}${lib_comp_sep}/${component}${comp_xml_sep}/${dest_dir}";
my $path  = "${home}${prefix}/${vendor}__${project}${lib_comp_sep}${component}${comp_xml_sep}/${dest_dir}";
mkdir $path,0755             unless( -e $path );
mkdir $path,0755             unless( -e $path );
 
 
 
 
 
 
my $name;
my $name;
Line 180... Line 180...
#/**********************************************************************/
#/**********************************************************************/
 
 
 
 
 
 
 
 
my $spirit_component_file    = $parser->parse_file(yp::lib::find_ipxact("spirit:component",$vendor,$project,$component,$version));
my $spirit_component_file    = $parser->parse_file(yp::lib::find_ipxact_component($vendor,$project,$component,$version));
 
 
   $name     = $spirit_component_file->findnodes('//spirit:component/spirit:name/text()')->to_literal ;
   $name     = $spirit_component_file->findnodes('//spirit:component/spirit:name/text()')->to_literal ;
   $version  = $spirit_component_file->findnodes('//spirit:component/spirit:version/text()')->to_literal ;
   $version  = $spirit_component_file->findnodes('//spirit:component/spirit:version/text()')->to_literal ;
   $vendor   = $spirit_component_file->findnodes('//spirit:component/spirit:vendor/text()')->to_literal ;
   $vendor   = $spirit_component_file->findnodes('//spirit:component/spirit:vendor/text()')->to_literal ;
   $library  = $spirit_component_file->findnodes('//spirit:component/spirit:library/text()')->to_literal ;
   $library  = $spirit_component_file->findnodes('//spirit:component/spirit:library/text()')->to_literal ;
Line 224... Line 224...
   #/* Print header, module name and start parameters                     */
   #/* Print header, module name and start parameters                     */
   #/*                                                                    */
   #/*                                                                    */
   #/*                                                                    */
   #/*                                                                    */
   #/**********************************************************************/
   #/**********************************************************************/
 
 
   my $outfile ="${home}${prefix}/${vendor}__${project}${lib_comp_sep}/${component}${comp_xml_sep}/${dest_dir}/${name}_${version}_${memmap_name}";
   my $outfile ="${home}${prefix}/${vendor}__${project}${lib_comp_sep}${component}${comp_xml_sep}/${dest_dir}/${name}_${version}_${memmap_name}";
   open   OUTFILE,">$outfile" or die "unable to open $outfile";
   open   OUTFILE,">$outfile" or die "unable to open $outfile";
 
 
   print  OUTFILE " /*********************************************/  \n";
   print  OUTFILE " /*********************************************/  \n";
   print  OUTFILE sprintf(" /* Vendor:       %24s    */  \n",$vendor);
   print  OUTFILE sprintf(" /* Vendor:       %24s    */  \n",$vendor);
   print  OUTFILE sprintf(" /* Library:      %24s    */  \n",$library);
   print  OUTFILE sprintf(" /* Library:      %24s    */  \n",$library);

powered by: WebSVN 2.1.0

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