Line 70... |
Line 70... |
GetOptions("h","help",
|
GetOptions("h","help",
|
"prefix=s" => \$prefix,
|
"prefix=s" => \$prefix,
|
"vendor=s" => \$vendor,
|
"vendor=s" => \$vendor,
|
"project=s" => \$project,
|
"project=s" => \$project,
|
"component=s" => \$component,
|
"component=s" => \$component,
|
"comp_xml_sep=s" => \$comp_xml_sep,
|
|
"version=s" => \$version
|
"version=s" => \$version
|
) || die "(use '$program_name -h' for help)";
|
) || die "(use '$program_name -h' for help)";
|
|
|
|
|
##############################################################################
|
##############################################################################
|
## Help option
|
## Help option
|
##############################################################################
|
##############################################################################
|
if ( $opt_h or $opt_help ) { print "\n build_generate -prefix /work/ -project project_name -component component_name -comp_xml_sep /rtl/xml/ ";
|
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 130... |
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 -version $version -project $project -lib_comp_sep $lib_comp_sep -component $component -comp_xml_sep $comp_xml_sep ";
|
"${tool_path}${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 ;
|
Line 143... |
Line 142... |
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}${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";
|
my $cpu_load = 180;
|
|
while ( $cpu_load > 175) { $cpu_load = load();}
|
|
|
|
if($gen_group)
|
if($gen_group)
|
{
|
{
|
if($gen_group eq $view_name )
|
if($gen_group eq $view_name )
|
{
|
{
|
if (system($cmd)) {}
|
if (system($cmd)) {}
|
}
|
}
|
}
|
}
|
else
|
else
|
{
|
{
|
# print "ZZZZZZH $cmd ";
|
|
if (system($cmd)) {}
|
if (system($cmd)) {}
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
Line 167... |
Line 163... |
|
|
|
|
|
|
|
|
|
|
sub load
|
|
{
|
|
|
|
open(INFIL,"< /proc/stat") or die("Unable To Open /proc/stat: $!\n");
|
|
|
|
my @loads;
|
|
my $cpuload = 0;
|
|
for (0,1)
|
|
{
|
|
my $in = ;
|
|
(warn "something wrong!\n"), next unless $in =~ /^cpu\b/;
|
|
push @loads, ($in =~ /\d+/g)[0..2];
|
|
seek INFIL, 0, 0;
|
|
select (undef, undef, undef, 1) unless $_;
|
|
}
|
|
redo unless defined $loads[0];
|
|
for (0..2) { $cpuload += ($loads[$_+3] - $loads[$_]); }
|
|
|
|
close(INFIL);
|
|
return( ${cpuload});
|
|
}
|
|
|
|
|
|
1
|
1
|
|
|
|
|
|
|
|
|