Line 87... |
Line 87... |
$min=~ s/\D//g;
|
$min=~ s/\D//g;
|
$max=~ s/\D//g;
|
$max=~ s/\D//g;
|
$step=~ s/\D//g;
|
$step=~ s/\D//g;
|
$widget=gen_spin($min,$max,$step);
|
$widget=gen_spin($min,$max,$step);
|
$widget->set_value($value);
|
$widget->set_value($value);
|
$widget-> signal_connect("changed" => sub{
|
$widget-> signal_connect("value_changed" => sub{
|
my $new_param_value=$widget->get_value_as_int();
|
my $new_param_value=$widget->get_value_as_int();
|
$mpsoc->mpsoc_add_param($param,$new_param_value);
|
$mpsoc->mpsoc_add_param($param,$new_param_value);
|
set_state($state,"ref",1);
|
set_state($state,"ref",1);
|
|
|
});
|
});
|
Line 438... |
Line 438... |
$max=~ s/\D//g;
|
$max=~ s/\D//g;
|
$step=~ s/\D//g;
|
$step=~ s/\D//g;
|
my $spin=gen_spin($min,$max,$step);
|
my $spin=gen_spin($min,$max,$step);
|
$spin->set_value($param_value{$p});
|
$spin->set_value($param_value{$p});
|
$table->attach_defaults ($spin, 3, 4, $row, $row+1);
|
$table->attach_defaults ($spin, 3, 4, $row, $row+1);
|
$spin-> signal_connect("changed" => sub{$param_value{$p}=$spin->get_value_as_int();});
|
$spin-> signal_connect("value_changed" => sub{$param_value{$p}=$spin->get_value_as_int();});
|
|
|
# $box=def_label_spin_help_box ($param,$info, $value,$min,$max,$step, 2);
|
# $box=def_label_spin_help_box ($param,$info, $value,$min,$max,$step, 2);
|
}
|
}
|
my $label =gen_label_in_center($p);
|
my $label =gen_label_in_center($p);
|
$table->attach_defaults ($label, 0, 3, $row, $row+1);
|
$table->attach_defaults ($label, 0, 3, $row, $row+1);
|
Line 1129... |
Line 1129... |
my @soc_list=$mpsoc-> mpsoc_get_soc_list();
|
my @soc_list=$mpsoc-> mpsoc_get_soc_list();
|
my @used_socs;
|
my @used_socs;
|
foreach my $soc_name (@soc_list){
|
foreach my $soc_name (@soc_list){
|
my @n=$mpsoc->mpsoc_get_soc_tiles_num($soc_name);
|
my @n=$mpsoc->mpsoc_get_soc_tiles_num($soc_name);
|
if(scalar @n){
|
if(scalar @n){
|
#this soc has been used generate the verilog files of it
|
#generate the verilog files of it
|
push(@used_socs,$soc_name);
|
push(@used_socs,$soc_name);
|
}
|
}
|
}
|
}
|
|
|
for my $p (@files){
|
for my $p (@files){
|
Line 1220... |
Line 1220... |
move ("$dir/lib/verilog/$soc_name.v","$target_dir/src_verilog/tiles/");
|
move ("$dir/lib/verilog/$soc_name.v","$target_dir/src_verilog/tiles/");
|
copy_noc_files($project_dir,"$target_dir/src_verilog/lib");
|
copy_noc_files($project_dir,"$target_dir/src_verilog/lib");
|
|
|
|
|
# Write header file
|
# Write header file
|
my $file_h=generate_header_file($soc);
|
generate_header_file($soc,$project_dir,$target_dir,$dir);
|
open(FILE, ">lib/verilog/$soc_name.h") || die "Can not open: $!";
|
|
print FILE $file_h;
|
|
close(FILE) || die "Error closing file: $!";
|
|
|
|
|
|
|
|
move ("$dir/lib/verilog/$soc_name.h","$target_dir/sw/");
|
|
|
|
#use File::Copy::Recursive qw(dircopy);
|
#use File::Copy::Recursive qw(dircopy);
|
#dircopy("$dir/../src_processor/aeMB/compiler","$target_dir/sw/") or die("$!\n");
|
#dircopy("$dir/../src_processor/aeMB/compiler","$target_dir/sw/") or die("$!\n");
|
|
|
|
|