Subversion Repositories socgen

/soc_link_1

soc_link_1 Property changes : Added: svn:executable ## -0,0 +1 ## +* \ No newline at end of property Index: soc_link_2 =================================================================== --- soc_link_2 (nonexistent) +++ soc_link_2 (revision 85) @@ -0,0 +1,383 @@ +eval 'exec `which perl` -S $0 ${1+"$@"}' + if 0; + +#/**********************************************************************/ +#/* */ +#/* ------- */ +#/* / SOC \ */ +#/* / GEN \ */ +#/* / TOOL \ */ +#/* ============== */ +#/* | | */ +#/* |____________| */ +#/* */ +#/* Traverse a socgen project and link it */ +#/* */ +#/* */ +#/* Author(s): */ +#/* - John Eaton, jt_eaton@opencores.org */ +#/* */ +#/**********************************************************************/ +#/* */ +#/* Copyright (C) <2010> */ +#/* */ +#/* This source file may be used and distributed without */ +#/* restriction provided that this copyright statement is not */ +#/* removed from the file and that any derivative work contains */ +#/* the original copyright notice and the associated disclaimer. */ +#/* */ +#/* This source file is free software; you can redistribute it */ +#/* and/or modify it under the terms of the GNU Lesser General */ +#/* Public License as published by the Free Software Foundation; */ +#/* either version 2.1 of the License, or (at your option) any */ +#/* later version. */ +#/* */ +#/* This source is distributed in the hope that it will be */ +#/* useful, but WITHOUT ANY WARRANTY; without even the implied */ +#/* warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR */ +#/* PURPOSE. See the GNU Lesser General Public License for more */ +#/* details. */ +#/* */ +#/* You should have received a copy of the GNU Lesser General */ +#/* Public License along with this source; if not, download it */ +#/* from http://www.opencores.org/lgpl.shtml */ +#/* */ +#/**********************************************************************/ + + + + + + +use Cwd; +use XML::LibXML; + + + + + +my $root = "projects"; +$home = cwd(); + + +my $project = $ARGV[0]; +my $component = $ARGV[1]; +my $variant = $ARGV[2]; + + + + +#/*********************************************************************************************/ +#/ */ +#/ */ +#/ */ +#/ */ +#/ */ +#/ */ +#/*********************************************************************************************/ + + + +print "Processing children \n" ; + + +my @filelist_hier = ( ); +my @filelist = ( ); + + + my $prefix = "work/${project}"; + print "\nStart $variant \n"; + @filelist_hier = ( ); + @filelist = ( ); + @filelist = parse_hier("$project","$component","$variant"); + @filelist = trim_sort(@filelist); + + + + foreach $line (@filelist) + { + $_ = $line; + if(/::(\w+)::(\w+)::(\w+)::/) + { + $new_proj = $1; + $new_comp = $2; + $new_variant = $3; + } + + if($new_proj eq "cde" ) {} + elsif($new_proj eq $project ) {} + else { &link_child( $project,$new_comp, $new_proj ); } + } + + + + + + +#/*********************************************************************************************/ +#/ */ +#/ */ +#/ */ +#/ */ +#/ */ +#/ */ +#/*********************************************************************************************/ + + + +sub link_child { + my $project = shift; + my $child_parent = shift; + my $child_family = shift; + + + print "$project $child_parent $child_family \n"; + + my $path = "work/${project}/children"; + mkdir $path,0755 unless( -e $path ); + my $path = "work/${project}/children/${child_family}"; + mkdir $path,0755 unless( -e $path ); + my $path = "work/${project}/children/${child_family}/bin"; + mkdir $path,0755 unless( -e $path ); + $root = "${home}/projects/${child_family}/bin"; + $dest = "${home}/work/${project}/children/${child_family}/bin"; + &link_dir( "$root", "$dest" ); + symlink( "${home}/tools/bin/Makefile.root", "${home}/work/${project}/children/${child_family}/bin/Makefile.root"); + symlink( "${home}/tools/bin/Makefile", "${home}/work/${project}/children/${child_family}/bin/Makefile"); + my $path = "work/${project}/children/${child_family}/sw"; + mkdir $path,0755 unless( -e $path ); + $root = "${home}/projects/${child_family}/sw"; + $dest = "${home}/work/${project}/children/${child_family}/sw"; + &link_dir( "$root", "$dest" ); + my $path = "work/${project}/children/${child_family}/ip"; + mkdir $path,0755 unless( -e $path ); + my $path = "work/${project}/children/${child_family}/ip/${child_parent}"; + mkdir $path,0755 unless( -e $path ); + + my $path = "work/${project}/children/${child_family}/ip/${child_parent}/rtl"; + mkdir $path,0755 unless( -e $path ); + $root = "${home}/projects/${child_family}/ip/${child_parent}/rtl"; + $dest = "${home}/work/${project}/children/${child_family}/ip/${child_parent}/rtl"; + &link_dir( "$root", "$dest" ); + my $path = "work/${project}/children/${child_family}/ip/${child_parent}/doc"; + mkdir $path,0755 unless( -e $path ); + symlink( "${home}/projects/${child_family}/ip/${child_parent}/doc/copyright.v", "${home}/work/${project}/children/${child_family}/ip/${child_parent}/doc/copyright.v"); + + my $path = "${home}/work/${project}/children/${child_family}/ip/${child_parent}/rtl/gen"; + mkdir $path,0755 unless( -e $path ); + my $path = "${home}/work/${project}/children/${child_family}/ip/${child_parent}/rtl/gen/sim"; + mkdir $path,0755 unless( -e $path ); + my $path = "${home}/work/${project}/children/${child_family}/ip/${child_parent}/rtl/gen/syn"; + mkdir $path,0755 unless( -e $path ); + } + + + + + + + + + + + + + + + + + +#/*********************************************************************************************/ +#/ */ +#/ */ +#/ */ +#/ */ +#/ */ +#/ */ +#/*********************************************************************************************/ + + +# recursively map directory information + +sub link_sub { + my $root = shift; + my $path = shift; + my $dest = shift; + return unless( -e $path ); + + + + my $dest_path = $path; + $dest_path =~ s/$root/$dest/; + + + if( -d $path ) { + + mkdir $dest_path,0755; + + my @contents = ( ); + opendir( DIR, $path ); + while( my $item = readdir( DIR )) { + next if( $item eq '.' or $item eq '..' or $item eq '.svn' ); + push( @contents, $item ); + } + closedir( DIR ); + + # recurse on items in the directory + foreach my $item ( @contents ) { &link_sub($root, "$path/$item", $dest );} + + + } else { + + symlink( "${home}/${path}", $dest_path); + } +} + + + +#/*********************************************************************************************/ +#/ */ +#/ */ +#/ */ +#/ */ +#/ */ +#/ */ +#/*********************************************************************************************/ + +# recursively map directory information + +sub link_dir { + my $src = shift; + my $dest = shift; + return unless( -e $src ); + + if( -d $src ) + { + + mkdir $dest,0755; + my @contents = ( ); + opendir( DIR, $src ); + while( my $item = readdir( DIR )) + { + next if( $item eq '.' or $item eq '..' or $item eq '.svn' ); + push( @contents, $item ); + } + closedir( DIR ); + + # recurse on items in the directory + foreach my $item ( @contents ) { &link_dir("$src/$item", "$dest/$item" );} + + + } + else {symlink( "${src}", "${dest}") unless( -e "${dest}" ); } +} + + + + +#/*********************************************************************************************/ +#/ */ +#/ */ +#/ */ +#/ */ +#/ */ +#/ */ +#/*********************************************************************************************/ + +sub trim_sort { + my @output_files = @_; + my %trim = (); + foreach $descriptor (@output_files) { $trim{$descriptor} = 1; } + my @k = keys %trim; + @output_files = sort(sort @k); + return(@output_files); + } + +#eval 'exec `which perl` -S $0 ${1+"$@"}' +# if 0; + + + + + + + + + + + + + + +#/*********************************************************************************************/ +#/ */ +#/ */ +#/ */ +#/ */ +#/ */ +#/ */ +#/*********************************************************************************************/ + +sub parse_hier + { + my @params = @_; + my $variant = pop(@params); + my $component = pop(@params); + my $project = pop(@params); + + $home = cwd(); + $cde="cde"; + + + my $parser = XML::LibXML->new(); + my $doc = $parser->parse_file("${home}/projects/${project}/ip/${component}/rtl/xml/${variant}.xml"); + + foreach my $comp ($doc->findnodes('//spirit:component')) + { + + + + my($vendor) = $comp->findnodes('./spirit:vendor/text()')->to_literal ; + my($library) = $comp->findnodes('./spirit:library/text()')->to_literal ; + my($name) = $comp->findnodes('./spirit:name/text()')->to_literal ; + my($version) = $comp->findnodes('./spirit:version/text()')->to_literal ; + + my $variant = ""; + if($version) {$variant = "${name}_${version}"} + else {$variant = "${name}"} + + + #/*********************************************************************************************/ + #/ */ + #/ Create filelists for simulation, code coverage, linting and synthesis */ + #/ */ + #/ */ + #/*********************************************************************************************/ + + push(@filelist_hier,"::${library}::${name}::${variant}::"); + + foreach my $i_name ($doc->findnodes("//spirit:component/spirit:componentInstances/spirit:componentInstance/spirit:instanceName")) + { + my($library_name) = $i_name ->findnodes('../spirit:componentRef/spirit:library/text()')->to_literal ; + my($component_name) = $i_name ->findnodes('../spirit:componentRef/spirit:name/text()')->to_literal ; + my($version_name) = $i_name ->findnodes('../spirit:componentRef/spirit:version/text()')->to_literal ; + + my $variant_name = ""; + if($version_name) {$variant_name = "${component_name}_${version_name}";} + else {$variant_name = "${component_name}";} + + if($library_name ne "cde") + { + my @filelist_sub = parse_hier("$library_name","$component_name","$variant_name"); + foreach $line (@filelist_sub) { push(@filelist_hier,"$line"); } + } + else { push(@filelist_hier,"::${library_name}::${component_name}::${variant_name}::"); } + } + } + $ArraySize = @filelist_hier; + + + @filelist_hier = trim_sort(@filelist_hier); + + return(@filelist_hier); + }

soc_link_2 Property changes : Added: svn:executable ## -0,0 +1 ## +* \ No newline at end of property Index: build_leaf =================================================================== --- build_leaf (revision 84) +++ build_leaf (revision 85) @@ -44,7 +44,6 @@ #/* */ #/**********************************************************************/ -# ToDO: add handling unaligned words ############################################################################ @@ -70,10 +69,11 @@ ## Help option ############################################################################## if ( ($opt_h eq "1") ) - { print "\n type test filename ( no extension)"; - print "\n"; - exit 1; - } + { + print "\n type build_leaf work/project component variant"; + print "\n"; + exit 1; + } ############################################################################## @@ -83,13 +83,12 @@ use Cwd; use XML::LibXML; -$home = cwd(); +$cde_home = cwd(); $cde="cde"; +$lib_comp_sep = "/ip/"; +$comp_xml_sep = "/rtl/xml/"; - - - ############################################################################# ## ## open intel hex file and read into array @@ -96,128 +95,113 @@ ## ############################################################################# - my $prefix = $ARGV[0]; - my $component = $ARGV[1]; - my $variant = $ARGV[2]; +my $prefix = $ARGV[0]; +my $component = $ARGV[1]; +my $variant = $ARGV[2]; -my $kid = "${home}/${prefix}/ip/${component}/rtl/xml/${variant}.xml" ; - print " Building RTL for $prefix $component $variant \n" ; - my $parser = XML::LibXML->new(); - my $doc = $parser->parse_file($kid); - foreach my $comp ($doc->findnodes('//spirit:component')) - { - my($name) = $comp->findnodes('./spirit:name/text()')->to_literal ; - my($version) = $comp->findnodes('./spirit:version/text()')->to_literal ; - my($vendor) = $comp->findnodes('./spirit:vendor/text()')->to_literal ; - my($library) = $comp->findnodes('./spirit:library/text()')->to_literal ; +my $parser = XML::LibXML->new(); +my $doc = $parser->parse_file("${cde_home}/${prefix}${lib_comp_sep}${component}${comp_xml_sep}${variant}.xml"); +foreach my $comp ($doc->findnodes('//spirit:component')) + { + my($name) = $comp->findnodes('./spirit:name/text()')->to_literal ; + my($version) = $comp->findnodes('./spirit:version/text()')->to_literal ; + my($vendor) = $comp->findnodes('./spirit:vendor/text()')->to_literal ; + my($library) = $comp->findnodes('./spirit:library/text()')->to_literal ; + #/**********************************************************************/ + #/* */ + #/* build a `define file for module names */ + #/* */ + #/* */ + #/* */ + #/* */ + #/**********************************************************************/ - -#/**********************************************************************/ -#/* */ -#/* build a `define file for module names */ -#/* */ -#/* */ -#/* */ -#/* */ -#/**********************************************************************/ - - my $outfile ="${home}/${prefix}/ip/${component}/rtl/gen/deflist"; - open DEFLIST,">$outfile" or die "unable to open $outfile"; - print DEFLIST " \n"; - foreach my $i_name ($doc->findnodes("//spirit:fileSets/spirit:fileSet/spirit:file/spirit:logicalName")) - { - my($def_logic) = $i_name ->findnodes('./text()')->to_literal ; - my($def_type) = $i_name ->findnodes('../spirit:fileType/text()')->to_literal ; - if($def_logic ) {print DEFLIST sprintf( "\`define %s _%s\n", uc($def_logic) , $def_logic );} - } + my $outfile ="${cde_home}/${prefix}${lib_comp_sep}${component}/rtl/gen/deflist"; + open DEFLIST,">$outfile" or die "unable to open $outfile"; + print DEFLIST " \n"; + foreach my $i_name ($doc->findnodes("//spirit:fileSets/spirit:fileSet/spirit:file/spirit:logicalName")) + { + my($def_logic) = $i_name ->findnodes('./text()')->to_literal ; + my($def_type) = $i_name ->findnodes('../spirit:fileType/text()')->to_literal ; + if($def_logic ) {print DEFLIST sprintf( "\`define %s _%s\n", uc($def_logic) , $def_logic );} + } + #/**********************************************************************/ + #/* */ + #/* build a fileset in the following order */ + #/* */ + #/* deflist for module names */ + #/* all include files */ + #/* verilogSourceTop file */ + #/* all the remaining verilogSource files */ + #/* */ + #/* */ + #/**********************************************************************/ + my $outfile ="${cde_home}/${prefix}${lib_comp_sep}${component}/rtl/gen/filelist"; + open FILELIST,">$outfile" or die "unable to open $outfile"; + print FILELIST "${cde_home}/${prefix}${lib_comp_sep}${component}/rtl/gen/deflist"; -#/**********************************************************************/ -#/* */ -#/* build a fileset */ -#/* */ -#/* include files first, then top and then all the rest */ -#/* */ -#/* */ -#/**********************************************************************/ + foreach my $i_name ($doc->findnodes("//spirit:fileSets/spirit:fileSet/spirit:file/spirit:name")) + { + my($file_name) = $i_name ->findnodes('./text()')->to_literal ; + my($file_type) = $i_name ->findnodes('../spirit:fileType/text()')->to_literal ; + if($file_type eq "verilogInclude"){ print FILELIST " ${cde_home}/${prefix}${lib_comp_sep}${component}${comp_xml_sep}${file_name}\n"}; + } - my $outfile ="${home}/${prefix}/ip/${component}/rtl/gen/filelist"; - open FILELIST,">$outfile" or die "unable to open $outfile"; - print FILELIST "${home}/${prefix}/ip/${component}/rtl/gen/deflist"; + foreach my $i_name ($doc->findnodes("//spirit:fileSets/spirit:fileSet/spirit:file/spirit:name")) + { + my($file_name) = $i_name ->findnodes('./text()')->to_literal ; + my($file_type) = $i_name ->findnodes('../spirit:fileType/text()')->to_literal ; + if($file_type eq "verilogSourceTop"){ print FILELIST " ${cde_home}/${prefix}${lib_comp_sep}${component}${comp_xml_sep}${file_name}\n"}; + } + foreach my $i_name ($doc->findnodes("//spirit:fileSets/spirit:fileSet/spirit:file/spirit:name")) + { + my($file_name) = $i_name ->findnodes('./text()')->to_literal ; + my($file_type) = $i_name ->findnodes('../spirit:fileType/text()')->to_literal ; + if($file_type eq "verilogSource") { print FILELIST " ${cde_home}/${prefix}${lib_comp_sep}${component}${comp_xml_sep}${file_name}\n"}; + } - foreach my $i_name ($doc->findnodes("//spirit:fileSets/spirit:fileSet/spirit:file/spirit:name")) - { - my($file_name) = $i_name ->findnodes('./text()')->to_literal ; - my($file_type) = $i_name ->findnodes('../spirit:fileType/text()')->to_literal ; - if($file_type eq "verilogInclude"){ print FILELIST " ${home}/${prefix}/ip/${component}/rtl/xml/${file_name}\n"}; - } - - foreach my $i_name ($doc->findnodes("//spirit:fileSets/spirit:fileSet/spirit:file/spirit:name")) - { - my($file_name) = $i_name ->findnodes('./text()')->to_literal ; - my($file_type) = $i_name ->findnodes('../spirit:fileType/text()')->to_literal ; - if($file_type eq "verilogSourceTop"){ print FILELIST " ${home}/${prefix}/ip/${component}/rtl/xml/${file_name}\n"}; - } - - - foreach my $i_name ($doc->findnodes("//spirit:fileSets/spirit:fileSet/spirit:file/spirit:name")) - { - my($file_name) = $i_name ->findnodes('./text()')->to_literal ; - my($file_type) = $i_name ->findnodes('../spirit:fileType/text()')->to_literal ; - if($file_type eq "verilogSource") { print FILELIST " ${home}/${prefix}/ip/${component}/rtl/xml/${file_name}\n"}; - } - -#/**********************************************************************/ -#/* */ -#/* Every leaf cell is processed through a the verilog preprocessor */ -#/* to remove all verilog tic(`) statements and to create seperate */ -#/* versions for simulation and synthesys */ -#/* */ -#/* */ -#/**********************************************************************/ + #/**********************************************************************/ + #/* */ + #/* Every leaf cell is processed through a the verilog preprocessor */ + #/* to customize the module names,remove all verilog tic(`) statements */ + #/* and to create seperate versions for simulation and synthesys */ + #/* */ + #/* */ + #/**********************************************************************/ - print "BUILD HW $prefix $component $variant\n"; + print "BUILD HW $prefix $component $variant\n"; - $cmd ="cp ${home}/${prefix}/ip/${component}/doc/copyright.v ${home}/${prefix}/ip/${component}/rtl/gen/sim/${variant}.v"; - if (system($cmd)) {} + $cmd ="cp ${cde_home}/${prefix}${lib_comp_sep}${component}/doc/copyright.v ${cde_home}/${prefix}${lib_comp_sep}${component}/rtl/gen/sim/${variant}.v"; + if (system($cmd)) {} - $cmd ="vppreproc --noline --noblank -DVARIANT=${variant} -DCDE=${cde} -y ${home}/${prefix}/ip/${component}/rtl/verilog -f ${home}/${prefix}/ip/${component}/rtl/gen/filelist >> ${home}/${prefix}/ip/${component}/rtl/gen/sim/${variant}.v"; - if (system($cmd)) {} + $cmd ="vppreproc --noline --noblank -DVARIANT=${variant} -DCDE=${cde} -y ${cde_home}/${prefix}${lib_comp_sep}${component}/rtl/verilog -f ${cde_home}/${prefix}${lib_comp_sep}${component}/rtl/gen/filelist >> ${cde_home}/${prefix}${lib_comp_sep}${component}/rtl/gen/sim/${variant}.v"; + if (system($cmd)) {} - $cmd ="cp ${home}/${prefix}/ip/${component}/doc/copyright.v ${home}/${prefix}/ip/${component}/rtl/gen/syn/${variant}.v"; - if (system($cmd)) {} + $cmd ="cp ${cde_home}/${prefix}${lib_comp_sep}${component}/doc/copyright.v ${cde_home}/${prefix}${lib_comp_sep}${component}/rtl/gen/syn/${variant}.v"; + if (system($cmd)) {} - $cmd ="vppreproc --noline --noblank -DSYNTHESIS -DVARIANT=${variant} -DCDE=${cde} -y ${home}/${prefix}/ip/${component}/rtl/verilog -f ${home}/${prefix}/ip/${component}/rtl/gen/filelist >> ${home}/${prefix}/ip/${component}/rtl/gen/syn/${variant}.v"; - if (system($cmd)) {} + $cmd ="vppreproc --noline --noblank -DSYNTHESIS -DVARIANT=${variant} -DCDE=${cde} -y ${cde_home}/${prefix}${lib_comp_sep}${component}/rtl/verilog -f ${cde_home}/${prefix}${lib_comp_sep}${component}/rtl/gen/filelist >> ${cde_home}/${prefix}${lib_comp_sep}${component}/rtl/gen/syn/${variant}.v"; + if (system($cmd)) {} + } +1 - } - - - - - - -1 - - - -

/build_verilog

/soc_builder

/soc_generate

/Makefile.root

/soc_link

/build_filelists