| Line 87... |
Line 87... |
|
|
|
|
my $parser = XML::LibXML->new();
|
my $parser = XML::LibXML->new();
|
|
|
$home = cwd();
|
$home = cwd();
|
my $projects = "/projects";
|
|
|
|
#############################################################################
|
#############################################################################
|
##
|
##
|
##
|
##
|
#############################################################################
|
#############################################################################
|
|
|
my $vendor = $ARGV[0];
|
my $vendor = $ARGV[0];
|
my $library = $ARGV[1];
|
my $library = $ARGV[1];
|
my $work_dir = $ARGV[2];
|
my $work_dir = $ARGV[2];
|
|
my $repo = yp::lib::find_library_repo($vendor,$library);
|
|
|
|
|
|
my $doc_dir = yp::lib::get_doc_dir();
|
|
|
|
|
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}${repo}/${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($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"; }
|
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 $socgen_filename = yp::lib::find_componentConfiguration($vendor,$library,$component);
|
|
|
|
if($socgen_filename)
|
|
|
|
{
|
|
|
|
|
|
|
|
|
|
my $socgen_file = $parser->parse_file($socgen_filename);
|
|
|
|
|
|
|
my $doc_library_path = $socgen_file->findnodes("//socgen:componentConfiguration/socgen:doc/socgen:library_path/text()")->to_literal;
|
my $doc_library_path = $socgen_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}${repo}/${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}${repo}/${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}${repo}/${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}${repo}/${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}${repo}/${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}${repo}/${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_component_versions($vendor,$library,$component);
|
|
|
foreach my $version (@versions)
|
foreach my $version (@versions)
|
| Line 170... |
Line 188... |
foreach $line (@filelist)
|
foreach $line (@filelist)
|
{
|
{
|
$_ = $line;
|
$_ = $line;
|
if(/::(\S+)::(\S+)::(\S+)::(\S+)::/)
|
if(/::(\S+)::(\S+)::(\S+)::(\S+)::/)
|
{
|
{
|
$new_project = $2;
|
$new_library = $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_library $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_component($new_vendor,$new_library,$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 ;
|
| Line 187... |
Line 205... |
{
|
{
|
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 -library $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}${repo}/${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}${repo}/${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}${repo}/${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}${repo}/${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}${repo}/${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}${repo}/${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}${repo}/${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)) {}
|
}
|
}
|
|
|
|
|
| Line 219... |
Line 237... |
|
|
}
|
}
|
|
|
}
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
#/*********************************************************************************************/
|
#/*********************************************************************************************/
|
#/ find filename */
|
#/ find filename */
|
| Line 235... |
Line 255... |
sub find_filename
|
sub find_filename
|
{
|
{
|
my @params = @_;
|
my @params = @_;
|
my $version = pop(@params);
|
my $version = pop(@params);
|
my $component = pop(@params);
|
my $component = pop(@params);
|
my $project = pop(@params);
|
my $library = pop(@params);
|
my $vendor = pop(@params);
|
my $vendor = pop(@params);
|
my $filesetref_name = pop(@params);
|
my $filesetref_name = pop(@params);
|
|
|
|
|
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","$library","$component","$version");
|
my $comp_xml_sep = yp::lib::find_comp_xml_sep($vendor,$project,$component,$version);
|
my $comp_xml_sep = yp::lib::find_comp_xml_sep($vendor,$library,$component,$version);
|
my $lib_comp_sep = yp::lib::find_lib_comp_sep($vendor,$project,$component);
|
my $lib_comp_sep = yp::lib::find_lib_comp_sep($vendor,$library,$component);
|
my $library_path = "${lib_comp_sep}${component}${comp_xml_sep}";
|
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_vendor = $1;
|
$new_project = $2;
|
$new_library = $2;
|
$new_component = $3;
|
$new_component = $3;
|
$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_component($new_vendor,$new_library,$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 ) { return ("${vendor}__${project}${library_path}/${file_name}${variant}"); };
|
if( $view_file eq $filesetref_name ) { return ("${vendor}__${library}${library_path}/${file_name}${variant}"); };
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
}
|
