Line 87... |
Line 87... |
|
|
|
|
my $parser = XML::LibXML->new();
|
my $parser = XML::LibXML->new();
|
|
|
$home = cwd();
|
$home = cwd();
|
|
my $projects = "/projects";
|
|
|
#############################################################################
|
#############################################################################
|
##
|
##
|
##
|
##
|
#############################################################################
|
#############################################################################
|
Line 100... |
Line 100... |
my $library = $ARGV[1];
|
my $library = $ARGV[1];
|
my $work_dir = $ARGV[2];
|
my $work_dir = $ARGV[2];
|
|
|
|
|
if(defined $work_dir)
|
if(defined $work_dir)
|
|
{chomp($work_dir);}
|
{
|
|
chomp($work_dir);
|
|
}
|
|
else
|
else
|
|
{$work_dir ="/doc_dir";}
|
{
|
|
$work_dir ="/doc_dir";
|
|
}
|
|
|
|
|
|
|
|
|
|
my $path = "${home}${work_dir}";
|
my $path = "${home}${work_dir}";
|
mkdir $path,0755 unless( -e $path );
|
mkdir $path,0755 unless( -e $path );
|
my $path = "${home}${work_dir}/${vendor}__${library}";
|
my $path = "${home}${work_dir}/${vendor}__${library}";
|
mkdir $path,0755 unless( -e $path );
|
mkdir $path,0755 unless( -e $path );
|
|
|
|
|
|
|
$root = "${home}/projects/${vendor}/${library}";
|
$root = "${home}${projects}/${vendor}/${library}";
|
$dest = "${home}${work_dir}/${vendor}__${library}";
|
$dest = "${home}${work_dir}/${vendor}__${library}";
|
&sys::lib::link_dir( "$root", "$dest" );
|
&sys::lib::link_dir( "$root", "$dest" );
|
|
|
|
my @components = yp::lib::find_components($vendor,$library);
|
my @components = yp::lib::find_components("socgen:componentConfiguration",$vendor,$library);
|
|
|
|
|
|
|
|
|
|
foreach my $component (@components)
|
foreach my $component (@components)
|
|
|
{
|
{
|
|
unless (yp::lib::find_componentConfiguration($vendor,$library,$component)) {print "Missing ComponentCfg $vendor, $library, $component \n"; }
|
|
my $socgen_file = $parser->parse_file(yp::lib::find_componentConfiguration($vendor,$library,$component));
|
my $sogen_file = $parser->parse_file(yp::lib::find_socgen("socgen:componentConfiguration",$vendor,$library,$component));
|
my $doc_library_path = $socgen_file->findnodes("//socgen:componentConfiguration/socgen:doc/socgen:library_path/text()")->to_literal;
|
my $doc_library_path = $sogen_file->findnodes("//socgen:componentConfiguration/socgen:doc/socgen:library_path/text()")->to_literal;
|
|
my $lib_comp_sep = yp::lib::find_lib_comp_sep($vendor,$library,$component);
|
my $lib_comp_sep = yp::lib::find_lib_comp_sep($vendor,$library,$component);
|
|
|
|
my $path = "${home}${projects}/${vendor}/${library}${doc_library_path}";
|
|
|
|
|
my $path = "${home}/projects/${vendor}/${library}${doc_library_path}";
|
|
mkdir $path,0755 unless( -e $path );
|
mkdir $path,0755 unless( -e $path );
|
|
|
|
|
$doc_library_path = "${doc_library_path}/Geda";
|
$doc_library_path = "${doc_library_path}/Geda";
|
|
|
my $path = "${home}/projects/${vendor}/${library}${doc_library_path}";
|
my $path = "${home}${projects}/${vendor}/${library}${doc_library_path}";
|
mkdir $path,0755 unless( -e $path );
|
mkdir $path,0755 unless( -e $path );
|
|
|
|
my $path = "${home}${projects}/${vendor}/${library}${doc_library_path}/sym";
|
my $path = "${home}/projects/${vendor}/${library}${doc_library_path}/sym";
|
|
mkdir $path,0755 unless( -e $path );
|
mkdir $path,0755 unless( -e $path );
|
|
|
|
my $path = "${home}${projects}/${vendor}/${library}${doc_library_path}/sch";
|
my $path = "${home}/projects/${vendor}/${library}${doc_library_path}/sch";
|
|
mkdir $path,0755 unless( -e $path );
|
mkdir $path,0755 unless( -e $path );
|
|
|
|
my $path = "${home}${projects}/${vendor}/${library}${doc_library_path}/png";
|
my $path = "${home}/projects/${vendor}/${library}${doc_library_path}/png";
|
|
mkdir $path,0755 unless( -e $path );
|
mkdir $path,0755 unless( -e $path );
|
|
|
|
my $path = "${home}${projects}/${vendor}/${library}${doc_library_path}/src";
|
my $path = "${home}/projects/${vendor}/${library}${doc_library_path}/src";
|
|
mkdir $path,0755 unless( -e $path );
|
mkdir $path,0755 unless( -e $path );
|
|
|
|
my @versions = yp::lib::find_component_versions($vendor,$library,$component);
|
|
|
|
|
|
|
my @versions = yp::lib::find_versions("spirit:component",$vendor,$library,$component);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
foreach my $version (@versions)
|
foreach my $version (@versions)
|
{
|
{
|
|
|
|
|
my $variant;
|
my $variant;
|
if($version) {$variant = "${component}_${version}"}
|
if($version) {$variant = "${component}_${version}"}
|
else {$variant = "${component}"}
|
else {$variant = "${component}"}
|
|
|
|
|
|
|
my $module_name = yp::lib::get_module_name($vendor,$library,$component, $version);
|
my $module_name = yp::lib::get_module_name($vendor,$library,$component, $version);
|
|
|
print "gEDA directories for $vendor $library - $component $version $variant == $module_name \n";
|
print "gEDA directories for $vendor $library - $component $version $variant == $module_name \n";
|
|
|
#/*********************************************************************************************/
|
|
#/ */
|
|
#/ */
|
|
#/ */
|
|
#/ */
|
|
#/ */
|
|
#/ */
|
|
#/*********************************************************************************************/
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#/*********************************************************************************************/
|
#/*********************************************************************************************/
|
#/ */
|
#/ */
|
#/ Create filelists for simulation, synthesis and linting */
|
#/ Create filelists for simulation, synthesis and linting */
|
#/ */
|
#/ */
|
Line 229... |
Line 174... |
{
|
{
|
$new_project = $2;
|
$new_project = $2;
|
$new_component = $3;
|
$new_component = $3;
|
$new_vendor = $1;
|
$new_vendor = $1;
|
$new_version = $4;
|
$new_version = $4;
|
|
|
|
|
|
|
print "Seeking $new_vendor $new_project $new_component $new_version \n";
|
print "Seeking $new_vendor $new_project $new_component $new_version \n";
|
|
my $spirit_component_file = $parser->parse_file(yp::lib::find_ipxact_component($new_vendor,$new_project,$new_component,$new_version));
|
my $spirit_component_file = $parser->parse_file(yp::lib::find_ipxact("spirit:component",$new_vendor,$new_project,$new_component,$new_version));
|
|
|
|
|
|
|
|
|
|
|
|
foreach my $i_name ($spirit_component_file->findnodes("//spirit:componentGenerator/spirit:name"))
|
foreach my $i_name ($spirit_component_file->findnodes("//spirit:componentGenerator/spirit:name"))
|
{
|
{
|
my($gen_name) = $i_name ->findnodes('../spirit:name/text()')->to_literal ;
|
my($gen_name) = $i_name ->findnodes('../spirit:name/text()')->to_literal ;
|
my($gen_generatorExe) = $i_name ->findnodes('../spirit:generatorExe/text()')->to_literal ;
|
my($gen_generatorExe) = $i_name ->findnodes('../spirit:generatorExe/text()')->to_literal ;
|
|
|
|
|
|
|
foreach my $i_name ($spirit_component_file->findnodes("//spirit:componentGenerator[spirit:name/text() = '$gen_name']/spirit:vendorExtensions/socgen:envIdentifier"))
|
foreach my $i_name ($spirit_component_file->findnodes("//spirit:componentGenerator[spirit:name/text() = '$gen_name']/spirit:vendorExtensions/socgen:envIdentifier"))
|
{
|
{
|
my($gen_envidentifier) = $i_name ->findnodes('./text()')->to_literal ;
|
my($gen_envidentifier) = $i_name ->findnodes('./text()')->to_literal ;
|
|
|
if($gen_envidentifier eq ":*Documentation:*" )
|
if($gen_envidentifier eq ":*Documentation:*" )
|
{
|
{
|
my $cmd = "./tools/sys/build_generate -prefix /doc_dir -vendor $vendor -project $library -component $component -version $version \n";
|
my $cmd = "./tools/sys/build_generate -prefix /doc_dir -vendor $vendor -project $library -component $component -version $version \n";
|
|
|
if (system($cmd)) {}
|
if (system($cmd)) {}
|
|
|
my $filename = find_filename("fs-sim", ${vendor}, ${library} , ${component} , ${version} );
|
my $filename = find_filename("fs-sim", ${vendor}, ${library} , ${component} , ${version} );
|
|
my $cmd = "cp ${home}${work_dir}/${filename}.v ${home}${projects}/${vendor}/${library}${doc_library_path}/src/${module_name}.v \n";
|
my $cmd = "cp ${home}${work_dir}/${filename}.v ${home}/projects/${vendor}/${library}${doc_library_path}/src/${module_name}.v \n";
|
|
|
|
if (system($cmd)) {}
|
if (system($cmd)) {}
|
|
|
|
|
my $filename = find_filename("fs-doc", ${vendor}, ${library} , ${component} , ${version} );
|
my $filename = find_filename("fs-doc", ${vendor}, ${library} , ${component} , ${version} );
|
|
my $outfile ="${home}${projects}/${vendor}/${library}${doc_library_path}/sym/";
|
|
|
|
|
my $outfile ="${home}/projects/${vendor}/${library}${doc_library_path}/sym/";
|
|
my $cmd = "./tools/documentation/ver2gedasym ${home}${work_dir}/${filename} $outfile \n";
|
my $cmd = "./tools/documentation/ver2gedasym ${home}${work_dir}/${filename} $outfile \n";
|
if (system($cmd)) {}
|
if (system($cmd)) {}
|
|
my $outfile ="${home}${projects}/${vendor}/${library}${doc_library_path}/sch/";
|
|
|
my $outfile ="${home}/projects/${vendor}/${library}${doc_library_path}/sch/";
|
|
my $cmd = "./tools/documentation/ver2gedasch ${home}${work_dir}/${filename} $outfile \n";
|
my $cmd = "./tools/documentation/ver2gedasch ${home}${work_dir}/${filename} $outfile \n";
|
if (system($cmd)) {}
|
if (system($cmd)) {}
|
|
my $symfile ="${home}${projects}/${vendor}/${library}${doc_library_path}/sym/${module_name}.sym";
|
my $symfile ="${home}/projects/${vendor}/${library}${doc_library_path}/sym/${module_name}.sym";
|
my $pngfile ="${home}${projects}/${vendor}/${library}${doc_library_path}/png/${module_name}_sym.png";
|
my $pngfile ="${home}/projects/${vendor}/${library}${doc_library_path}/png/${module_name}_sym.png";
|
|
my $cmd ="gaf export -c -s auto -m 5px --dpi 600 --no-color -o $pngfile $symfile \n";
|
my $cmd ="gaf export -c -s auto -m 5px --dpi 600 --no-color -o $pngfile $symfile \n";
|
if (system($cmd)) {}
|
if (system($cmd)) {}
|
|
my $schfile ="${home}${projects}/${vendor}/${library}${doc_library_path}/sch/${module_name}.sch";
|
my $schfile ="${home}/projects/${vendor}/${library}${doc_library_path}/sch/${module_name}.sch";
|
my $pngfile ="${home}${projects}/${vendor}/${library}${doc_library_path}/png/${module_name}_sch.png";
|
my $pngfile ="${home}/projects/${vendor}/${library}${doc_library_path}/png/${module_name}_sch.png";
|
|
my $cmd ="gaf export -c -s auto -m 5px --dpi 600 --no-color -o $pngfile $schfile \n";
|
my $cmd ="gaf export -c -s auto -m 5px --dpi 600 --no-color -o $pngfile $schfile \n";
|
if (system($cmd)) {}
|
if (system($cmd)) {}
|
|
|
|
|
|
|
}
|
}
|
|
|
|
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
}
|
}
|
|
|
}
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#/*********************************************************************************************/
|
#/*********************************************************************************************/
|
#/ find filename */
|
#/ find filename */
|
#/ */
|
#/ */
|
#/ returns gloabal name of the file */
|
#/ returns gloabal name of the file */
|
#/ */
|
#/ */
|
Line 348... |
Line 244... |
|
|
my $variant;
|
my $variant;
|
if($version) {$variant = "${component}_${version}";}
|
if($version) {$variant = "${component}_${version}";}
|
else {$variant = "${component}";}
|
else {$variant = "${component}";}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
my @filelist = yp::lib::parse_component_brothers("$vendor","$project","$component","$version");
|
my @filelist = yp::lib::parse_component_brothers("$vendor","$project","$component","$version");
|
my $library_path = yp::lib::find_ipxact_library_path("spirit:component",$vendor,$project,$component,$version);
|
my $comp_xml_sep = yp::lib::find_comp_xml_sep($vendor,$project,$component,$version);
|
|
my $lib_comp_sep = yp::lib::find_lib_comp_sep($vendor,$project,$component);
|
|
my $library_path = "${lib_comp_sep}${component}${comp_xml_sep}";
|
|
|
|
|
foreach $line (@filelist)
|
foreach $line (@filelist)
|
{
|
{
|
$_ = $line;
|
$_ = $line;
|
if(/::(\S+)::(\S+)::(\S+)::(\S+)::/)
|
if(/::(\S+)::(\S+)::(\S+)::(\S+)::/)
|
{
|
{
|
|
$new_vendor = $1;
|
$new_project = $2;
|
$new_project = $2;
|
$new_component = $3;
|
$new_component = $3;
|
$new_vendor = $1;
|
|
$new_version = $4;
|
$new_version = $4;
|
|
my $spirit_component_file = $parser->parse_file(yp::lib::find_ipxact_component($new_vendor,$new_project,$new_component,$new_version));
|
my $spirit_component_file = $parser->parse_file(yp::lib::find_ipxact("spirit:component",$new_vendor,$new_project,$new_component,$new_version));
|
|
|
|
|
|
foreach my $i_name ($spirit_component_file->findnodes("//spirit:fileSets/spirit:fileSet/spirit:file/spirit:name"))
|
foreach my $i_name ($spirit_component_file->findnodes("//spirit:fileSets/spirit:fileSet/spirit:file/spirit:name"))
|
{
|
{
|
my($file_name) = $i_name ->findnodes('./text()')->to_literal ;
|
my($file_name) = $i_name ->findnodes('./text()')->to_literal ;
|
my($file_type) = $i_name ->findnodes('../spirit:userFileType/text()')->to_literal ;
|
my($file_type) = $i_name ->findnodes('../spirit:userFileType/text()')->to_literal ;
|
my($logical_name) = $i_name ->findnodes('../spirit:logicalName/text()')->to_literal ;
|
my($logical_name) = $i_name ->findnodes('../spirit:logicalName/text()')->to_literal ;
|
my($view_file) = $i_name ->findnodes('../../spirit:name/text()')->to_literal ;
|
my($view_file) = $i_name ->findnodes('../../spirit:name/text()')->to_literal ;
|
|
|
|
|
|
|
if(($file_type eq "libraryDir") && ($logical_name eq "dest_dir") )
|
if(($file_type eq "libraryDir") && ($logical_name eq "dest_dir") )
|
{
|
{
|
if( $view_file eq $filesetref_name )
|
if( $view_file eq $filesetref_name ) { return ("${vendor}__${project}${library_path}/${file_name}${variant}"); };
|
{
|
|
return ("${vendor}__${project}${library_path}/${file_name}${variant}");
|
|
};
|
|
|
|
}
|
}
|
|
|
}
|
}
|
|
|
}
|
}
|
|
|
}
|
}
|
}
|
}
|
|
|