#! /usr/bin/perl -w
|
#! /usr/bin/perl -w
|
use Glib qw/TRUE FALSE/;
|
use Glib qw/TRUE FALSE/;
|
use strict;
|
use strict;
|
use warnings;
|
use warnings;
|
use wb_addr;
|
use wb_addr;
|
use interface;
|
use interface;
|
use intfc_gen;
|
use intfc_gen;
|
use ip_gen;
|
use ip_gen;
|
use rvp;
|
use rvp;
|
use Cwd 'abs_path';
|
use Cwd 'abs_path';
|
|
|
use File::Basename;
|
use File::Basename;
|
|
|
use Gtk2;
|
use Gtk2;
|
|
|
|
|
require "widget.pl";
|
require "widget.pl";
|
|
|
|
|
use String::Similarity;
|
use String::Similarity;
|
|
|
|
|
sub find_the_most_similar_position{
|
sub find_the_most_similar_position{
|
my ($item ,@list)=@_;
|
my ($item ,@list)=@_;
|
my $most_similar_pos=0;
|
my $most_similar_pos=0;
|
my $lastsim=0;
|
my $lastsim=0;
|
my $i=0;
|
my $i=0;
|
|
# convert item to lowercase
|
|
$item = lc $item;
|
foreach my $p(@list){
|
foreach my $p(@list){
|
my $similarity= similarity $item, $p;
|
my $similarity= similarity $item, $p;
|
if ($similarity > $lastsim){
|
if ($similarity > $lastsim){
|
$lastsim=$similarity;
|
$lastsim=$similarity;
|
$most_similar_pos=$i;
|
$most_similar_pos=$i;
|
}
|
}
|
$i++;
|
$i++;
|
}
|
}
|
return $most_similar_pos;
|
return $most_similar_pos;
|
}
|
}
|
|
|
|
|
use constant DISPLY_COLUMN => 0;
|
use constant DISPLY_COLUMN => 0;
|
use constant CATGR_COLUMN => 1;
|
use constant CATGR_COLUMN => 1;
|
use constant INTFC_COLUMN => 2;
|
use constant INTFC_COLUMN => 2;
|
use constant ITAL_COLUMN => 3;
|
use constant ITAL_COLUMN => 3;
|
use constant NUM_COLUMN => 4;
|
use constant NUM_COLUMN => 4;
|
|
|
################
|
################
|
# check_input_file
|
# check_input_file
|
################
|
################
|
|
|
sub check_input_file{
|
sub check_input_file{
|
my ($file,$ipgen,$soc_state,$info)=@_;
|
my ($file,$ipgen,$soc_state,$info)=@_;
|
my ($name,$path,$suffix) = fileparse("$file",qr"\..[^.]*$");
|
my ($name,$path,$suffix) = fileparse("$file",qr"\..[^.]*$");
|
if($suffix eq '.IP'){
|
if($suffix eq '.IP'){
|
$ipgen->ipgen_set_file($file);
|
$ipgen->ipgen_set_file($file);
|
set_state($soc_state,"load_file",0);
|
set_state($soc_state,"load_file",0);
|
|
|
|
|
}else{
|
}else{
|
read_all_module ($file,$ipgen,$soc_state,$info);
|
read_all_module ($file,$ipgen,$soc_state,$info);
|
|
|
}
|
}
|
|
|
|
|
}
|
}
|
|
|
|
|
sub read_all_module{
|
sub read_all_module{
|
my ($file,$ipgen,$soc_state,$info)=@_;
|
my ($file,$ipgen,$soc_state,$info)=@_;
|
|
|
if (!defined $file) {return; }
|
if (!defined $file) {return; }
|
if (-e $file) {
|
if (-e $file) {
|
my $vdb = read_file($file);
|
my $vdb = read_file($file);
|
my @modules=sort $vdb->get_modules($file);
|
my @modules=sort $vdb->get_modules($file);
|
#foreach my $p(@module_list) {print "$p\n"}
|
#foreach my $p(@module_list) {print "$p\n"}
|
$ipgen->ipgen_set_file($file);
|
$ipgen->ipgen_set_file($file);
|
$ipgen->ipgen_set_module_name($modules[0]);
|
$ipgen->ipgen_set_module_name($modules[0]);
|
$ipgen->ipgen_set_module_list(@modules);
|
$ipgen->ipgen_set_module_list(@modules);
|
load_deafult_setting($ipgen,$modules[0]);
|
load_deafult_setting($ipgen,$modules[0]);
|
|
|
|
|
set_state($soc_state,"file_selected",1);
|
set_state($soc_state,"file_selected",1);
|
show_info(\$info,"Select the module which contain the interface ports\n ");
|
show_info(\$info,"Select the module which contain the interface ports\n ");
|
|
|
}
|
}
|
else {
|
else {
|
show_info(\$info,"File $file doese not exsit!\n ");
|
show_info(\$info,"File $file doese not exsit!\n ");
|
|
|
}
|
}
|
}
|
}
|
|
|
|
|
##############
|
##############
|
# create_interface_tree
|
# create_interface_tree
|
##############
|
##############
|
sub create_interface_tree {
|
sub create_interface_tree {
|
my ($info,$intfc,$ipgen,$soc_state)=@_;
|
my ($info,$intfc,$ipgen,$soc_state)=@_;
|
my $model = Gtk2::TreeStore->new ('Glib::String', 'Glib::String', 'Glib::Scalar', 'Glib::Boolean');
|
my $model = Gtk2::TreeStore->new ('Glib::String', 'Glib::String', 'Glib::Scalar', 'Glib::Boolean');
|
my $tree_view = Gtk2::TreeView->new;
|
my $tree_view = Gtk2::TreeView->new;
|
$tree_view->set_model ($model);
|
$tree_view->set_model ($model);
|
my $selection = $tree_view->get_selection;
|
my $selection = $tree_view->get_selection;
|
|
|
$selection->set_mode ('browse');
|
$selection->set_mode ('browse');
|
$tree_view->set_size_request (200, -1);
|
$tree_view->set_size_request (200, -1);
|
|
|
|
|
# my @interface= $intfc->get_interfaces();
|
# my @interface= $intfc->get_interfaces();
|
my @categories= $intfc->get_categories();
|
my @categories= $intfc->get_categories();
|
|
|
|
|
|
|
foreach my $p (@categories)
|
foreach my $p (@categories)
|
{
|
{
|
my @intfc_names= $intfc->get_intfcs_of_category($p);
|
my @intfc_names= $intfc->get_intfcs_of_category($p);
|
#my @dev_entry= @{$tree_entry{$p}};
|
#my @dev_entry= @{$tree_entry{$p}};
|
my $iter = $model->append (undef);
|
my $iter = $model->append (undef);
|
$model->set ($iter,
|
$model->set ($iter,
|
DISPLY_COLUMN, $p,
|
DISPLY_COLUMN, $p,
|
CATGR_COLUMN, $p || '',
|
CATGR_COLUMN, $p || '',
|
INTFC_COLUMN, 0 || '',
|
INTFC_COLUMN, 0 || '',
|
ITAL_COLUMN, FALSE);
|
ITAL_COLUMN, FALSE);
|
|
|
next unless @intfc_names;
|
next unless @intfc_names;
|
|
|
foreach my $v ( @intfc_names){
|
foreach my $v ( @intfc_names){
|
my $child_iter = $model->append ($iter);
|
my $child_iter = $model->append ($iter);
|
my $entry= '';
|
my $entry= '';
|
|
|
$model->set ($child_iter,
|
$model->set ($child_iter,
|
DISPLY_COLUMN, $v,
|
DISPLY_COLUMN, $v,
|
CATGR_COLUMN, $p|| '',
|
CATGR_COLUMN, $p|| '',
|
INTFC_COLUMN, $v || '',
|
INTFC_COLUMN, $v || '',
|
ITAL_COLUMN, FALSE);
|
ITAL_COLUMN, FALSE);
|
}
|
}
|
|
|
|
|
|
|
}
|
}
|
|
|
my $cell = Gtk2::CellRendererText->new;
|
my $cell = Gtk2::CellRendererText->new;
|
$cell->set ('style' => 'italic');
|
$cell->set ('style' => 'italic');
|
my $column = Gtk2::TreeViewColumn->new_with_attributes
|
my $column = Gtk2::TreeViewColumn->new_with_attributes
|
("Double click to add the interface",
|
("Double click to add the interface",
|
$cell,
|
$cell,
|
'text' => DISPLY_COLUMN,
|
'text' => DISPLY_COLUMN,
|
'style_set' => ITAL_COLUMN);
|
'style_set' => ITAL_COLUMN);
|
|
|
$tree_view->append_column ($column);
|
$tree_view->append_column ($column);
|
my @ll=($model,\$info);
|
my @ll=($model,\$info);
|
#row selected
|
#row selected
|
|
|
$selection->signal_connect (changed =>sub {
|
$selection->signal_connect (changed =>sub {
|
my ($selection, $ref) = @_;
|
my ($selection, $ref) = @_;
|
my ($model,$info)=@{$ref};
|
my ($model,$info)=@{$ref};
|
my $iter = $selection->get_selected;
|
my $iter = $selection->get_selected;
|
return unless defined $iter;
|
return unless defined $iter;
|
|
|
my ($category) = $model->get ($iter, CATGR_COLUMN);
|
my ($category) = $model->get ($iter, CATGR_COLUMN);
|
my ($name) = $model->get ($iter,INTFC_COLUMN );
|
my ($name) = $model->get ($iter,INTFC_COLUMN );
|
my $describ=$intfc->get_description($category,$name);
|
my $describ=$intfc->get_description($category,$name);
|
|
|
if($describ){
|
if($describ){
|
#print "$entry description is: $describ \n";
|
#print "$entry description is: $describ \n";
|
show_info($info,$describ);
|
show_info($info,$describ);
|
|
|
}
|
}
|
|
|
|
|
}, \@ll);
|
}, \@ll);
|
|
|
# row_activated
|
# row_activated
|
$tree_view->signal_connect (row_activated => sub{
|
$tree_view->signal_connect (row_activated => sub{
|
|
|
my ($tree_view, $path, $column) = @_;
|
my ($tree_view, $path, $column) = @_;
|
my $model = $tree_view->get_model;
|
my $model = $tree_view->get_model;
|
my $iter = $model->get_iter ($path);
|
my $iter = $model->get_iter ($path);
|
my ($category) = $model->get ($iter, CATGR_COLUMN);
|
my ($category) = $model->get ($iter, CATGR_COLUMN);
|
my ($name) = $model->get ($iter,INTFC_COLUMN );
|
my ($name) = $model->get ($iter,INTFC_COLUMN );
|
|
|
|
|
|
|
if($name){
|
if($name){
|
#print "$infc_name-$infc_type is selected via row activaton!\n";
|
#print "$infc_name-$infc_type is selected via row activaton!\n";
|
add_intfc_to_ip($intfc,$ipgen,$name,'plug',\$info,$soc_state);
|
add_intfc_to_ip($intfc,$ipgen,$name,'plug',\$info,$soc_state);
|
|
|
}
|
}
|
|
|
}, \@ll);
|
}, \@ll);
|
|
|
#$tree_view->expand_all;
|
#$tree_view->expand_all;
|
|
|
my $scrolled_window = Gtk2::ScrolledWindow->new;
|
my $scrolled_window = Gtk2::ScrolledWindow->new;
|
$scrolled_window->set_policy ('automatic', 'automatic');
|
$scrolled_window->set_policy ('automatic', 'automatic');
|
$scrolled_window->set_shadow_type ('in');
|
$scrolled_window->set_shadow_type ('in');
|
$scrolled_window->add($tree_view);
|
$scrolled_window->add($tree_view);
|
|
|
my $hbox = Gtk2::HBox->new (TRUE, 0);
|
my $hbox = Gtk2::HBox->new (TRUE, 0);
|
$hbox->pack_start ( $scrolled_window, TRUE, TRUE, 0);
|
$hbox->pack_start ( $scrolled_window, TRUE, TRUE, 0);
|
|
|
|
|
|
|
return $hbox;
|
return $hbox;
|
}
|
}
|
|
|
|
|
|
|
sub save_ports_all{
|
sub save_ports_all{
|
my ($ipgen,$vdb,$top_module)=@_;
|
my ($ipgen,$vdb,$top_module)=@_;
|
|
|
foreach my $sig (sort $vdb->get_modules_signals($top_module)) {
|
foreach my $sig (sort $vdb->get_modules_signals($top_module)) {
|
my ($line,$a_line,$i_line,$type,$file,$posedge,$negedge,
|
my ($line,$a_line,$i_line,$type,$file,$posedge,$negedge,
|
$type2,$s_file,$s_line,$range,$a_file,$i_file,$dims) =
|
$type2,$s_file,$s_line,$range,$a_file,$i_file,$dims) =
|
$vdb->get_module_signal($top_module,$sig);
|
$vdb->get_module_signal($top_module,$sig);
|
|
|
if($type eq "input" or $type eq "inout" or $type eq "output" ){
|
if($type eq "input" or $type eq "inout" or $type eq "output" ){
|
$ipgen->ipgen_add_port($sig,$range,$type,'IO','IO');
|
$ipgen->ipgen_add_port($sig,$range,$type,'IO','IO');
|
#print "$sig,$range,$type,'IO','IO'\n";
|
#print "$sig,$range,$type,'IO','IO'\n";
|
|
|
}
|
}
|
|
|
|
|
}
|
}
|
|
|
}
|
}
|
|
|
|
|
############
|
############
|
# file_info
|
# file_info
|
#############
|
#############
|
|
|
sub ip_file_box {
|
sub ip_file_box {
|
my ($ipgen,$soc_state,$info,$table,$row)=@_;
|
my ($ipgen,$soc_state,$info,$table,$row)=@_;
|
my $label = gen_label_in_left(" Select file:");
|
my $label = gen_label_in_left(" Select file:");
|
my $entry = Gtk2::Entry->new;
|
my $entry = Gtk2::Entry->new;
|
#my $open= def_image_button("icons/select.png","Open");
|
#my $open= def_image_button("icons/select.png","Open");
|
my $browse= def_image_button("icons/browse.png","Browse");
|
my $browse= def_image_button("icons/browse.png","Browse");
|
my $label2= gen_label_in_left(" IP name:");
|
my $label2= gen_label_in_left(" IP name:");
|
my $entry2= gen_entry();
|
my $entry2= gen_entry();
|
my $file= $ipgen->ipgen_get_file();
|
my $file= $ipgen->ipgen_get_file();
|
if(defined $file){$entry->set_text($file);}
|
if(defined $file){$entry->set_text($file);}
|
my $ip_name= $ipgen->ipgen_get_ip_name();
|
my $ip_name= $ipgen->ipgen_get_ip_name();
|
if(defined $ip_name){$entry2->set_text($ip_name);}
|
if(defined $ip_name){$entry2->set_text($ip_name);}
|
show_info(\$info,"Please select the verilog file containig the ip module\n");
|
show_info(\$info,"Please select the verilog file containig the ip module\n");
|
$browse->signal_connect("clicked"=> sub{
|
$browse->signal_connect("clicked"=> sub{
|
my $entry_ref=$_[1];
|
my $entry_ref=$_[1];
|
my $file;
|
my $file;
|
my $dialog = Gtk2::FileChooserDialog->new(
|
my $dialog = Gtk2::FileChooserDialog->new(
|
'Select a File', undef,
|
'Select a File', undef,
|
'open',
|
'open',
|
'gtk-cancel' => 'cancel',
|
'gtk-cancel' => 'cancel',
|
'gtk-ok' => 'ok',
|
'gtk-ok' => 'ok',
|
);
|
);
|
|
|
my $filter = Gtk2::FileFilter->new();
|
my $filter = Gtk2::FileFilter->new();
|
$filter->set_name("Verilog");
|
$filter->set_name("Verilog");
|
$filter->add_pattern("*.v");
|
$filter->add_pattern("*.v");
|
my $filter2 = Gtk2::FileFilter->new();
|
my $filter2 = Gtk2::FileFilter->new();
|
$filter2->set_name("IP");
|
$filter2->set_name("IP");
|
$filter2->add_pattern("*.IP");
|
$filter2->add_pattern("*.IP");
|
$dialog->add_filter ($filter);
|
$dialog->add_filter ($filter);
|
$dialog->add_filter ($filter2);
|
$dialog->add_filter ($filter2);
|
|
|
if ( "ok" eq $dialog->run ) {
|
if ( "ok" eq $dialog->run ) {
|
$file = $dialog->get_filename;
|
$file = $dialog->get_filename;
|
$$entry_ref->set_text($file);
|
$$entry_ref->set_text($file);
|
check_input_file($file,$ipgen,$soc_state,$info);
|
check_input_file($file,$ipgen,$soc_state,$info);
|
#print "file = $file\n";
|
#print "file = $file\n";
|
}
|
}
|
$dialog->destroy;
|
$dialog->destroy;
|
|
|
|
|
|
|
} , \$entry);
|
} , \$entry);
|
|
|
|
|
|
|
#$open->signal_connect("clicked"=> sub{
|
#$open->signal_connect("clicked"=> sub{
|
#my $file_name=$entry->get_text();
|
#my $file_name=$entry->get_text();
|
#check_input_file($file_name,$ipgen,$soc_state,$info);
|
#check_input_file($file_name,$ipgen,$soc_state,$info);
|
|
|
#});
|
#});
|
$entry->signal_connect("activate"=>sub{
|
$entry->signal_connect("activate"=>sub{
|
my $file_name=$entry->get_text();
|
my $file_name=$entry->get_text();
|
check_input_file($file_name,$ipgen,$soc_state,$info);
|
check_input_file($file_name,$ipgen,$soc_state,$info);
|
});
|
});
|
|
|
$entry->signal_connect("changed"=>sub{
|
$entry->signal_connect("changed"=>sub{
|
show_info(\$info,"Please select the verilog file containig the interface\n");
|
show_info(\$info,"Please select the verilog file containig the interface\n");
|
});
|
});
|
$entry2->signal_connect("changed"=>sub{
|
$entry2->signal_connect("changed"=>sub{
|
my $name=$entry2->get_text();
|
my $name=$entry2->get_text();
|
$ipgen->ipgen_set_ip_name($name);
|
$ipgen->ipgen_set_ip_name($name);
|
|
|
});
|
});
|
$table->attach_defaults ($label, 0, 1 , $row, $row+1);
|
$table->attach_defaults ($label, 0, 1 , $row, $row+1);
|
$table->attach_defaults ($entry, 1, 8 , $row, $row+1);
|
$table->attach_defaults ($entry, 1, 8 , $row, $row+1);
|
$table->attach_defaults ($browse, 8, 9, $row, $row+1);
|
$table->attach_defaults ($browse, 8, 9, $row, $row+1);
|
$table->attach_defaults ($label2, 9, 10, $row, $row+1);
|
$table->attach_defaults ($label2, 9, 10, $row, $row+1);
|
$table->attach_defaults ($entry2, 10, 11, $row, $row+1);
|
$table->attach_defaults ($entry2, 10, 11, $row, $row+1);
|
#$table->attach_defaults ($open, 7, 8, $row, $row+1);
|
#$table->attach_defaults ($open, 7, 8, $row, $row+1);
|
#$table->attach_defaults ($entry, $col, $col+1, $row, $row+1);
|
#$table->attach_defaults ($entry, $col, $col+1, $row, $row+1);
|
#return $table;
|
#return $table;
|
|
|
|
|
}
|
}
|
|
|
|
|
|
|
|
|
sub select_module{
|
sub select_module{
|
my ($ipgen,$soc_state,$info,$table,$row)=@_;
|
my ($ipgen,$soc_state,$info,$table,$row)=@_;
|
my $label= gen_label_in_left(" Select module:");
|
my $label= gen_label_in_left(" Select\n module:");
|
my @modules= $ipgen->ipgen_get_module_list();
|
my @modules= $ipgen->ipgen_get_module_list();
|
my $saved_module=$ipgen->ipgen_get_module_name();
|
my $saved_module=$ipgen->ipgen_get_module_name();
|
my $pos=(defined $saved_module ) ? get_scolar_pos( $saved_module,@modules) : 0;
|
my $pos=(defined $saved_module ) ? get_scolar_pos( $saved_module,@modules) : 0;
|
my $combo = gen_combo(\@modules, $pos);
|
my $combo = gen_combo(\@modules, $pos);
|
my $param= def_image_button("icons/setting.png","Parameter\n setting");
|
my $param= def_image_button("icons/setting.png","Parameter\n setting");
|
my $label2= gen_label_in_left(" Select Category:");
|
my $def= def_image_button("icons/setting.png","Definition\n file setting");
|
|
my $label2= gen_label_in_left(" Select\n Category:");
|
my ($category,$category_entry)=gen_entry_help('Define the IP category:e.g RAM, GPIO,...');
|
my ($category,$category_entry)=gen_entry_help('Define the IP category:e.g RAM, GPIO,...');
|
my $saved_category=$ipgen->ipgen_get_category();
|
my $saved_category=$ipgen->ipgen_get_category();
|
if(defined $saved_category){$category_entry->set_text($saved_category);}
|
if(defined $saved_category){$category_entry->set_text($saved_category);}
|
my $ipinfo= def_image_button("icons/info.png","IP Description");
|
my $ipinfo= def_image_button("icons/info.png"," IP\n Description");
|
my $header_h= def_image_button("icons/h_file.png","Add Headerfile");
|
my $header_h= def_image_button("icons/h_file.png","Add Software\n files");
|
my $lib_hdl= def_image_button("icons/add-notes.png","Add HDL files");
|
my $lib_hdl= def_image_button("icons/add-notes.png","Add HDL\n files");
|
|
|
$table->attach_defaults ($label, 0, 1 , $row, $row+1);
|
$table->attach_defaults ($label, 0, 1 , $row, $row+1);
|
$table->attach_defaults ($combo, 1, 5 , $row,$row+1);
|
$table->attach_defaults ($combo, 1, 4 , $row,$row+1);
|
$table->attach_defaults ($param, 5, 6 , $row, $row+1);
|
$table->attach_defaults ($param, 4, 6 , $row, $row+1);
|
|
#$table->attach_defaults ($def, 5, 6 , $row, $row+1);
|
$table->attach_defaults ($label2, 6, 7 , $row, $row+1);
|
$table->attach_defaults ($label2, 6, 7 , $row, $row+1);
|
$table->attach_defaults ($category, 7, 8 , $row, $row+1);
|
$table->attach_defaults ($category, 7, 8 , $row, $row+1);
|
$table->attach_defaults ($ipinfo, 8, 9 , $row, $row+1);
|
$table->attach_defaults ($ipinfo, 8, 9 , $row, $row+1);
|
$table->attach_defaults ($header_h, 9, 10 , $row, $row+1);
|
$table->attach_defaults ($header_h, 9, 10 , $row, $row+1);
|
$table->attach_defaults ($lib_hdl, 10, 11 , $row, $row+1);
|
$table->attach_defaults ($lib_hdl, 10, 11 , $row, $row+1);
|
|
|
|
|
$combo->signal_connect("changed"=> sub{
|
$combo->signal_connect("changed"=> sub{
|
|
|
my $module= $combo->get_active_text();
|
my $module= $combo->get_active_text();
|
load_deafult_setting($ipgen,$module);
|
load_deafult_setting($ipgen,$module);
|
set_state($soc_state,'intfc_changed',0);
|
set_state($soc_state,'intfc_changed',0);
|
|
|
|
|
});
|
});
|
|
|
$param->signal_connect("clicked"=> sub{
|
$param->signal_connect("clicked"=> sub{
|
get_parameter_setting($ipgen,$soc_state,$info);
|
get_parameter_setting($ipgen,$soc_state,$info);
|
|
|
|
|
});
|
});
|
|
|
|
$def->signal_connect("clicked"=> sub{
|
|
get_def_setting($ipgen,$soc_state,$info);
|
|
|
|
|
|
});
|
$category_entry->signal_connect("changed"=> sub{
|
$category_entry->signal_connect("changed"=> sub{
|
my $name=$category_entry->get_text();
|
my $name=$category_entry->get_text();
|
$ipgen->ipgen_set_category($name);
|
$ipgen->ipgen_set_category($name);
|
|
|
});
|
});
|
$ipinfo->signal_connect("clicked"=> sub{
|
$ipinfo->signal_connect("clicked"=> sub{
|
get_Description($ipgen,$soc_state,$info);
|
get_Description($ipgen,$soc_state,$info);
|
|
|
});
|
});
|
$header_h->signal_connect("clicked"=> sub{
|
$header_h->signal_connect("clicked"=> sub{
|
get_header_file($ipgen,$soc_state,$info);
|
get_software_file($ipgen,$soc_state,$info);
|
|
|
});
|
});
|
$lib_hdl->signal_connect("clicked"=> sub{
|
$lib_hdl->signal_connect("clicked"=> sub{
|
get_hdl_file($ipgen,$soc_state,$info);
|
get_hdl_file($ipgen,$soc_state,$info);
|
|
|
});
|
});
|
}
|
}
|
|
|
sub load_deafult_setting{
|
sub load_deafult_setting{
|
my ($ipgen,$module)=@_;
|
my ($ipgen,$module)=@_;
|
my $file= $ipgen->ipgen_get_file();
|
my $file= $ipgen->ipgen_get_file();
|
$ipgen->ipgen_set_module_name($module);
|
$ipgen->ipgen_set_module_name($module);
|
my $vdb =read_file($file);
|
my $vdb =read_file($file);
|
my %parameters = $vdb->get_modules_parameters_not_local($module);
|
my %parameters = $vdb->get_modules_parameters_not_local($module);
|
my @parameters_order= $vdb->get_modules_parameters_not_local_order($module);
|
my @parameters_order= $vdb->get_modules_parameters_not_local_order($module);
|
my @ports_order=$vdb->get_module_ports_order($module);
|
my @ports_order=$vdb->get_module_ports_order($module);
|
#print "@port_order\n";
|
#print "@port_order\n";
|
|
|
#add deafult parameter setting
|
#add deafult parameter setting
|
$ipgen->ipgen_remove_all_parameters();
|
$ipgen->ipgen_remove_all_parameters();
|
foreach my $p (keys %parameters){
|
foreach my $p (keys %parameters){
|
#print "$p\n";
|
#print "$p\n";
|
my $v = $parameters{$p};
|
my $v = $parameters{$p};
|
$v =~s/[\n]//gs;
|
$v =~s/[\n]//gs;
|
$ipgen->ipgen_add_parameter($p,$v,'Fixed','');
|
$ipgen->ipgen_add_parameter($p,$v,'Fixed','');
|
|
|
}
|
}
|
#add parameter order.
|
#add parameter order.
|
$ipgen->ipgen_add_parameters_order(@parameters_order);
|
$ipgen->ipgen_add_parameters_order(@parameters_order);
|
#add port order.
|
#add port order.
|
$ipgen->ipgen_add_ports_order(@ports_order);
|
$ipgen->ipgen_add_ports_order(@ports_order);
|
#add ports
|
#add ports
|
$ipgen->ipgen_remove_all_ports();
|
$ipgen->ipgen_remove_all_ports();
|
save_ports_all($ipgen,$vdb,$module);
|
save_ports_all($ipgen,$vdb,$module);
|
|
|
|
|
|
|
}
|
}
|
|
|
sub file_info_box {
|
sub file_info_box {
|
my($ipgen,$soc_state,$info)=@_;
|
my($ipgen,$soc_state,$info)=@_;
|
my $table=def_table(2,11,FALSE);
|
my $table=def_table(2,11,FALSE);
|
ip_file_box ($ipgen,$soc_state,$info,$table,0);
|
my $table1=def_table(1,11,FALSE);
|
select_module($ipgen,$soc_state,$info,$table,1);
|
my $table2=def_table(1,11,FALSE);
|
|
ip_file_box ($ipgen,$soc_state,$info,$table1,0);
|
|
select_module($ipgen,$soc_state,$info,$table2,0);
|
|
$table->attach_defaults($table1,0,11,0,1);
|
|
$table->attach_defaults($table2,0,11,1,2);
|
return $table;
|
return $table;
|
|
|
|
|
}
|
}
|
|
|
|
|
|
|
|
|
sub show_file_info{
|
sub show_file_info{
|
my($ipgen,$soc_state,$info,$refresh_ref)=@_;
|
my($ipgen,$soc_state,$info,$refresh_ref)=@_;
|
my $table = file_info_box($ipgen,$soc_state,$info,$info);
|
my $table = file_info_box($ipgen,$soc_state,$info,$info);
|
my $scrolled_win = new Gtk2::ScrolledWindow (undef, undef);
|
my $scrolled_win = new Gtk2::ScrolledWindow (undef, undef);
|
$scrolled_win->set_policy( "automatic", "never" );
|
$scrolled_win->set_policy( "automatic", "never" );
|
$scrolled_win->add_with_viewport($table);
|
$scrolled_win->add_with_viewport($table);
|
|
|
|
|
|
|
$$refresh_ref-> signal_connect("clicked" => sub{
|
$$refresh_ref-> signal_connect("clicked" => sub{
|
$table->destroy;
|
$table->destroy;
|
$table = file_info_box($ipgen,$soc_state,$info,$info);
|
$table = file_info_box($ipgen,$soc_state,$info,$info);
|
|
|
$scrolled_win->add_with_viewport($table);
|
$scrolled_win->add_with_viewport($table);
|
$table->show;
|
$table->show;
|
$scrolled_win->show_all;
|
$scrolled_win->show_all;
|
|
|
#print "llllllllllllllllllllllllllllllllllllll\n";
|
#print "llllllllllllllllllllllllllllllllllllll\n";
|
|
|
|
|
});
|
});
|
|
|
return $scrolled_win;
|
return $scrolled_win;
|
|
|
|
|
|
|
}
|
}
|
|
|
|
|
sub show_port_info{
|
sub show_port_info{
|
my($intfc,$ipgen,$soc_state,$info,$refresh_ref)=@_;
|
my($intfc,$ipgen,$soc_state,$info,$refresh_ref)=@_;
|
my $table = port_info_box($intfc,$ipgen,$soc_state,$info,$info);
|
my $table = port_info_box($intfc,$ipgen,$soc_state,$info,$info);
|
my $scrolled_win = new Gtk2::ScrolledWindow (undef, undef);
|
my $scrolled_win = new Gtk2::ScrolledWindow (undef, undef);
|
$scrolled_win->set_policy( "automatic", "automatic" );
|
$scrolled_win->set_policy( "automatic", "automatic" );
|
$scrolled_win->add_with_viewport($table);
|
$scrolled_win->add_with_viewport($table);
|
|
|
|
|
|
|
$$refresh_ref-> signal_connect("clicked" => sub{
|
$$refresh_ref-> signal_connect("clicked" => sub{
|
$table->destroy;
|
$table->destroy;
|
$table = port_info_box($intfc,$ipgen,$soc_state,$info,$info);
|
$table = port_info_box($intfc,$ipgen,$soc_state,$info,$info);
|
|
|
$scrolled_win->add_with_viewport($table);
|
$scrolled_win->add_with_viewport($table);
|
$table->show;
|
$table->show;
|
$scrolled_win->show_all;
|
$scrolled_win->show_all;
|
|
|
|
|
|
|
|
|
});
|
});
|
|
|
return $scrolled_win;
|
return $scrolled_win;
|
|
|
}
|
}
|
|
|
|
|
sub show_interface_info{
|
sub show_interface_info{
|
my($intfc,$ipgen,$soc_state,$info,$refresh_ref)=@_;
|
my($intfc,$ipgen,$soc_state,$info,$refresh_ref)=@_;
|
my $table = interface_info_box($intfc,$ipgen,$soc_state,$info,$info);
|
my $table = interface_info_box($intfc,$ipgen,$soc_state,$info,$info);
|
my $scrolled_win = new Gtk2::ScrolledWindow (undef, undef);
|
my $scrolled_win = new Gtk2::ScrolledWindow (undef, undef);
|
$scrolled_win->set_policy( "automatic", "automatic" );
|
$scrolled_win->set_policy( "automatic", "automatic" );
|
$scrolled_win->add_with_viewport($table);
|
$scrolled_win->add_with_viewport($table);
|
|
|
|
|
|
|
$$refresh_ref-> signal_connect("clicked" => sub{
|
$$refresh_ref-> signal_connect("clicked" => sub{
|
$table->destroy;
|
$table->destroy;
|
$table = interface_info_box($intfc,$ipgen,$soc_state,$info,$info);
|
$table = interface_info_box($intfc,$ipgen,$soc_state,$info,$info);
|
|
|
$scrolled_win->add_with_viewport($table);
|
$scrolled_win->add_with_viewport($table);
|
$table->show;
|
$table->show;
|
$scrolled_win->show_all;
|
$scrolled_win->show_all;
|
|
|
|
|
});
|
});
|
|
|
return $scrolled_win;
|
return $scrolled_win;
|
|
|
|
|
|
|
}
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
############
|
############
|
# get_parameter_setting
|
# get_parameter_setting
|
##########
|
##########
|
sub get_parameter_setting {
|
sub get_parameter_setting {
|
my ($ipgen,$soc_state,$info)=@_;
|
my ($ipgen,$soc_state,$info)=@_;
|
|
|
my $module = $ipgen->ipgen_get_module_name();
|
my $module = $ipgen->ipgen_get_module_name();
|
my $file= $ipgen->ipgen_get_file();
|
my $file= $ipgen->ipgen_get_file();
|
if (!defined $file) {
|
if (!defined $file) {
|
message_dialog("The input verilog file is empty");
|
message_dialog("The input verilog file is empty");
|
return;
|
return;
|
|
|
}
|
}
|
|
|
#my $titelbox=def_title_box(TRUE,5,("Parameter name","Deafult value","Widget type","Widget content","Global param Optional info",));
|
#my $titelbox=def_title_box(TRUE,5,("Parameter name","Deafult value","Widget type","Widget content","Global param Optional info",));
|
|
|
|
|
|
|
|
|
|
|
my @widget_type_list=("Fixed","Entry","Combo-box","Spin-button");
|
my @widget_type_list=("Fixed","Entry","Combo-box","Spin-button");
|
my @param_type_list=("localparam-pass", "parameter-pass", "localparam-notpass","parameter-notpass");
|
my @param_type_list=("localparam-pass", "parameter-pass", "localparam-notpass","parameter-notpass");
|
my $type_info="Define the parameter type:
|
my $type_info="Define the parameter type:
|
\tFixed: The parameter is fixed and get the deafult value. the user can not see or change it.
|
|
\tEntry: The parameter value is recived via entry. The user can type anything.
|
Fixed: The parameter is fixed and get the default value. Users can not see or change the parameter value.
|
\tCombo-box: The parameter value can be selected from a list of predefined value.
|
|
\tSpin-button: The parameter is numeric and will be adjast using spin button.";
|
Entry: The parameter value is received via entry. The user can type anything.
|
|
|
|
Combo-box: The parameter value can be selected from a list of predefined value.
|
|
|
|
Spin-button: The parameter is numeric and will be obtained using spin button.";
|
my $content_info='
|
my $content_info='
|
For Fixed and Entry leave it empty.
|
For Fixed and Entry leave it empty.
|
For Combo box define the parameters which must be shown in combo box as: "PAEAMETER1","PARAMETER2"...,"PARAMETERn".
|
For Combo box define the parameters which must be shown in combo box as: "PAEAMETER1","PARAMETER2"...,"PARAMETERn".
|
For Spin button define it as "minimum, maximum, step" e.g 0,10,1.';
|
For Spin button define it as "minimum, maximum, step" e.g 0,10,1.';
|
my $param_info='
|
my $param_info='
|
If checked, the parameter will be defined as parameter in SoC file too, otherwise it will be defined as localparam.';
|
If checked, the parameter will be defined as parameter in SoC file too, otherwise it will be defined as localparam.';
|
|
|
my $redefine_info='
|
my $redefine_info='
|
If checked, the defined parameter/localparam in SoC will be passed to the IP core';
|
If checked, the defined parameter/localparam in SoC will be passed to the IP core';
|
|
|
#TABLE
|
#TABLE
|
my $table = Gtk2::Table->new (12, 8, FALSE);
|
my $table = Gtk2::Table->new (12, 8, FALSE);
|
my @positions=(0,1,2,3,4,5,6,7,8);
|
my @positions=(0,1,2,3,4,5,6,7,8);
|
my $col=0;
|
my $col=0;
|
#title
|
#title
|
my @title;
|
my @title;
|
$title[0]=gen_label_in_center("Parameter name");
|
$title[0]=gen_label_in_center("Parameter name");
|
$title[1]=gen_label_in_center("Deafult value");
|
$title[1]=gen_label_in_center("Deafult value");
|
$title[2]=gen_label_help($type_info,"Widget type");
|
$title[2]=gen_label_help($type_info,"Widget type");
|
$title[3]=gen_label_help($content_info,"Widget content");
|
$title[3]=gen_label_help($content_info,"Widget content");
|
$title[4]=gen_label_help($param_info);
|
$title[4]=gen_label_help($param_info);
|
$title[5]=gen_label_help($redefine_info);
|
$title[5]=gen_label_help($redefine_info);
|
$title[6]=gen_label_help("You can add aditional information about this parameter.","info");
|
$title[6]=gen_label_help("You can add aditional information about this parameter.","info");
|
$title[7]=gen_label_in_center("add/remove");
|
$title[7]=gen_label_in_center("add/remove");
|
|
|
|
|
foreach my $t (@title){
|
foreach my $t (@title){
|
$table->attach_defaults ($title[$col], $positions[$col], $positions[$col+1], 0, 1);$col++;
|
$table->attach_defaults ($title[$col], $positions[$col], $positions[$col+1], 0, 1);$col++;
|
|
|
}
|
}
|
|
|
|
|
|
|
my ($box,$window)=def_scrolled_window_box(1200,500,"Define parameters detail");
|
my ($box,$window)=def_scrolled_window_box(1200,500,"Define parameters detail");
|
|
|
|
|
|
|
|
|
my @parameters=$ipgen->ipgen_get_all_parameters_list();
|
my @parameters=$ipgen->ipgen_get_all_parameters_list();
|
my @params_order= $ipgen->ipgen_get_parameters_order();
|
my @params_order= $ipgen->ipgen_get_parameters_order();
|
if((@params_order)) {@parameters=@params_order;}
|
if((@params_order)) {@parameters=@params_order;}
|
|
|
my $ok = def_image_button('icons/select.png','OK');
|
my $ok = def_image_button('icons/select.png','OK');
|
my $okbox=def_hbox(TRUE,0);
|
my $okbox=def_hbox(TRUE,0);
|
$okbox->pack_start($ok, FALSE, FALSE,0);
|
$okbox->pack_start($ok, FALSE, FALSE,0);
|
|
|
my ($b,$new_param)= def_h_labeled_entry("Add new parameter name:");
|
my ($b,$new_param)= def_h_labeled_entry("Add new parameter name:");
|
my $add = def_image_button('icons/plus.png','Add parameter');
|
my $add = def_image_button('icons/plus.png','Add parameter');
|
my $addbox=def_hbox(FALSE,0);
|
my $addbox=def_hbox(FALSE,0);
|
$addbox->pack_start($b,FALSE, FALSE,0);
|
$addbox->pack_start($b,FALSE, FALSE,0);
|
$addbox->pack_start($add, FALSE, FALSE,0);
|
$addbox->pack_start($add, FALSE, FALSE,0);
|
|
|
my @allowed;
|
my @allowed;
|
|
|
my $row=1;
|
my $row=1;
|
|
|
push(@parameters,"#new#");
|
push(@parameters,"#new#");
|
foreach my $p (@parameters) {
|
foreach my $p (@parameters) {
|
my ($saved_deafult,$saved_widget_type,$saved_content,$saved_info,$global_param,$redefine_param)= $ipgen->ipgen_get_parameter_detail($p);
|
my ($saved_deafult,$saved_widget_type,$saved_content,$saved_info,$global_param,$redefine_param)= $ipgen->ipgen_get_parameter_detail($p);
|
#print "($saved_deafult,$saved_type,$saved_content)\n";
|
#print "($saved_deafult,$saved_type,$saved_content)\n";
|
my $parameter_box = def_hbox(TRUE,5);
|
my $parameter_box = def_hbox(TRUE,5);
|
my $param_name;
|
my $param_name;
|
my $add_remove;
|
my $add_remove;
|
if($p ne "#new#"){
|
if($p ne "#new#"){
|
$param_name= def_label($p);
|
$param_name= def_label($p);
|
$add_remove=def_image_button("icons/cancel.png","remove");
|
$add_remove=def_image_button("icons/cancel.png","remove");
|
} else {
|
} else {
|
$param_name= gen_entry();
|
$param_name= gen_entry();
|
$add_remove=def_image_button("icons/plus.png","add");
|
$add_remove=def_image_button("icons/plus.png","add");
|
}
|
}
|
|
|
my $deafult_entry= gen_entry($saved_deafult);
|
my $deafult_entry= gen_entry($saved_deafult);
|
my $pos=(defined $saved_widget_type ) ? get_scolar_pos( $saved_widget_type,@widget_type_list) : 0;
|
my $pos=(defined $saved_widget_type ) ? get_scolar_pos( $saved_widget_type,@widget_type_list) : 0;
|
my $widget_type_combo=gen_combo(\@widget_type_list, $pos);
|
my $widget_type_combo=gen_combo(\@widget_type_list, $pos);
|
my $content_entry= gen_entry($saved_content);
|
my $content_entry= gen_entry($saved_content);
|
my $check_param= Gtk2::CheckButton->new('Parameter');
|
my $check_param= Gtk2::CheckButton->new('Parameter');
|
$check_param->set_active($global_param) if(defined $global_param );
|
$check_param->set_active($global_param) if(defined $global_param );
|
my $check_redefine= Gtk2::CheckButton->new('Redefine');
|
my $check_redefine= Gtk2::CheckButton->new('Redefine');
|
$check_redefine->set_active(1) ;
|
$check_redefine->set_active(1) ;
|
$check_redefine->set_active($redefine_param) if(defined $redefine_param );
|
$check_redefine->set_active($redefine_param) if(defined $redefine_param );
|
|
|
|
|
|
|
|
|
|
|
#my $check= Gtk2::CheckButton->new;
|
#my $check= Gtk2::CheckButton->new;
|
#$check->set_active($global_param) if(defined $global_param );
|
#$check->set_active($global_param) if(defined $global_param );
|
|
|
|
|
my $info=def_image_button("icons/addinfo.png");
|
my $info=def_image_button("icons/addinfo.png");
|
#print "\$global_param =$global_param\n";
|
#print "\$global_param =$global_param\n";
|
|
|
$col=0;
|
$col=0;
|
my @all_widget=($param_name,$deafult_entry,$widget_type_combo,$content_entry,$check_param,$check_redefine,$info,$add_remove);
|
my @all_widget=($param_name,$deafult_entry,$widget_type_combo,$content_entry,$check_param,$check_redefine,$info,$add_remove);
|
foreach my $t (@all_widget){
|
foreach my $t (@all_widget){
|
$table->attach_defaults ($t, $positions[$col], $positions[$col+1], $row, $row+1);$col++;
|
$table->attach_defaults ($t, $positions[$col], $positions[$col+1], $row, $row+1);$col++;
|
|
|
}
|
}
|
|
|
|
|
$info->signal_connect (clicked => sub{
|
$info->signal_connect (clicked => sub{
|
|
|
get_param_info($ipgen,\$saved_info);
|
get_param_info($ipgen,\$saved_info);
|
});
|
});
|
|
|
|
|
$ok->signal_connect (clicked => sub{
|
$ok->signal_connect (clicked => sub{
|
if($p ne "#new#"){
|
if($p ne "#new#"){
|
my $deafult=$deafult_entry->get_text();
|
my $deafult=$deafult_entry->get_text();
|
my $type= $widget_type_combo->get_active_text();
|
my $type= $widget_type_combo->get_active_text();
|
my $content=$content_entry->get_text();
|
my $content=$content_entry->get_text();
|
my $check_result=$check_param->get_active();
|
my $check_result=$check_param->get_active();
|
my $global_param=($check_result eq 1)? 1:0;
|
my $global_param=($check_result eq 1)? 1:0;
|
$check_result=$check_redefine->get_active();
|
$check_result=$check_redefine->get_active();
|
my $redefine_param=($check_result eq 1)? 1:0;
|
my $redefine_param=($check_result eq 1)? 1:0;
|
$ipgen->ipgen_add_parameter($p,$deafult,$type,$content,$saved_info,$global_param,$redefine_param);
|
$ipgen->ipgen_add_parameter($p,$deafult,$type,$content,$saved_info,$global_param,$redefine_param);
|
}
|
}
|
});
|
});
|
$add_remove->signal_connect (clicked => sub{
|
$add_remove->signal_connect (clicked => sub{
|
if($p eq "#new#"){ #add new parameter
|
if($p eq "#new#"){ #add new parameter
|
my $param= $param_name->get_text();
|
my $param= $param_name->get_text();
|
|
|
if( length($param) ){
|
if( length($param) ){
|
my $deafult=$deafult_entry->get_text();
|
my $deafult=$deafult_entry->get_text();
|
my $type=$widget_type_combo->get_active_text();
|
my $type=$widget_type_combo->get_active_text();
|
my $content=$content_entry->get_text();
|
my $content=$content_entry->get_text();
|
my $check_result=$check_param->get_active();
|
my $check_result=$check_param->get_active();
|
my $global_param=($check_result eq 1)? 1:0;
|
my $global_param=($check_result eq 1)? 1:0;
|
$check_result=$check_redefine->get_active();
|
$check_result=$check_redefine->get_active();
|
my $redefine_param=($check_result eq 1)? 1:0;
|
my $redefine_param=($check_result eq 1)? 1:0;
|
$ipgen->ipgen_add_parameter($param,$deafult,$type,$content,$saved_info,$global_param,$redefine_param);
|
$ipgen->ipgen_add_parameter($param,$deafult,$type,$content,$saved_info,$global_param,$redefine_param);
|
$ipgen->ipgen_push_parameters_order($param);
|
$ipgen->ipgen_push_parameters_order($param);
|
set_state($soc_state,"change_parameter",0);
|
set_state($soc_state,"change_parameter",0);
|
$ok->clicked;
|
$ok->clicked;
|
#$window->destroy();
|
#$window->destroy();
|
}
|
}
|
|
|
} else { #remove the parameter
|
} else { #remove the parameter
|
$ipgen->ipgen_remove_parameter($p);
|
$ipgen->ipgen_remove_parameter($p);
|
$ipgen->ipgen_remove_parameters_order($p);
|
$ipgen->ipgen_remove_parameters_order($p);
|
set_state($soc_state,"change_parameter",0);
|
set_state($soc_state,"change_parameter",0);
|
$ok->clicked;
|
$ok->clicked;
|
#$window->destroy();
|
#$window->destroy();
|
|
|
}
|
}
|
#my $param_name=$new_param->get_text();
|
#my $param_name=$new_param->get_text();
|
# if( length($param_name) ){
|
# if( length($param_name) ){
|
# print "$param_name\n";
|
# print "$param_name\n";
|
# $ipgen->ipgen_add_parameter($param_name,undef);
|
# $ipgen->ipgen_add_parameter($param_name,undef);
|
# set_state($soc_state,"change_parameter",0);
|
# set_state($soc_state,"change_parameter",0);
|
# $window->destroy();
|
# $window->destroy();
|
|
|
});
|
});
|
|
|
|
|
|
|
$row++;
|
$row++;
|
}
|
}
|
$box->pack_start( $table, FALSE, FALSE, 3);
|
$box->pack_start( $table, FALSE, FALSE, 3);
|
|
|
for (my $i=$row; $i<7;$i++){
|
for (my $i=$row; $i<7;$i++){
|
my $temp=gen_label_in_center(' ');
|
my $temp=gen_label_in_center(' ');
|
$box->pack_start($temp, TRUE, FALSE,3);
|
$box->pack_start($temp, TRUE, FALSE,3);
|
}
|
}
|
|
|
$box->pack_start($okbox, TRUE, FALSE,3);
|
$box->pack_start($okbox, TRUE, FALSE,3);
|
|
|
$add->signal_connect (clicked => sub{
|
$add->signal_connect (clicked => sub{
|
my $param_name=$new_param->get_text();
|
my $param_name=$new_param->get_text();
|
if( length($param_name) ){
|
if( length($param_name) ){
|
#print "$param_name\n";
|
#print "$param_name\n";
|
$ipgen->ipgen_add_parameter($param_name,undef);
|
$ipgen->ipgen_add_parameter($param_name,undef);
|
set_state($soc_state,"change_parameter",0);
|
set_state($soc_state,"change_parameter",0);
|
$window->destroy();
|
$window->destroy();
|
}
|
}
|
|
|
#/*******************************************************************************************************************************/
|
#/*******************************************************************************************************************************/
|
|
|
});
|
});
|
|
|
$ok->signal_connect (clicked => sub{
|
$ok->signal_connect (clicked => sub{
|
|
|
$window->destroy();
|
$window->destroy();
|
|
|
});
|
});
|
|
|
|
|
|
|
|
|
|
|
$window->show_all;
|
$window->show_all;
|
}
|
}
|
|
|
|
|
|
|
|
|
|
############
|
|
# get_def_setting
|
|
##########
|
|
sub get_def_setting {
|
|
my ($ipgen,$soc_state,$info)=@_;
|
|
my $table = Gtk2::Table->new (15, 15, TRUE);
|
|
my $table2 = Gtk2::Table->new (15, 15, TRUE);
|
|
my $window=def_popwin_size(600,600,"Add definition file");
|
|
my $ok=def_image_button("icons/select.png",' Ok ');
|
|
my $scrwin= new Gtk2::ScrolledWindow (undef, undef);
|
|
$scrwin->set_policy( "automatic", "automatic" );
|
|
$scrwin->add_with_viewport($table2);
|
|
|
|
my $label=gen_label_help("You ","Selecet the Verilog file containig the definitions.");
|
|
my $brows=def_image_button("icons/browse.png",' Browse');
|
|
$table->attach_defaults($label,0,10,0,1);
|
|
$table->attach_defaults($brows,10,12,1,2);
|
|
$table->attach_defaults($scrwin,0,15,2,14);
|
|
$table->attach_defaults($ok,6,9,14,15);
|
|
|
|
$window->add($table);
|
|
$window->show_all;
|
|
|
|
|
|
}
|
|
|
|
|
###########
|
###########
|
# get description
|
# get description
|
#########
|
#########
|
|
|
sub get_Description{
|
sub get_Description{
|
my ($ipgen,$soc_state,$info)=@_;
|
my ($ipgen,$soc_state,$info)=@_;
|
my $description = $ipgen->ipgen_get_description();
|
my $description = $ipgen->ipgen_get_description();
|
my $table = Gtk2::Table->new (15, 15, TRUE);
|
my $table = Gtk2::Table->new (15, 15, TRUE);
|
my $window=def_popwin_size(500,500,"Add description");
|
my $window=def_popwin_size(500,500,"Add description");
|
my ($scrwin,$text_view)=create_text();
|
my ($scrwin,$text_view)=create_text();
|
#my $buffer = $textbox->get_buffer();
|
#my $buffer = $textbox->get_buffer();
|
my $ok=def_image_button("icons/select.png",' Ok ');
|
my $ok=def_image_button("icons/select.png",' Ok ');
|
|
|
$table->attach_defaults($scrwin,0,15,0,14);
|
$table->attach_defaults($scrwin,0,15,0,14);
|
$table->attach_defaults($ok,6,9,14,15);
|
$table->attach_defaults($ok,6,9,14,15);
|
my $text_buffer = $text_view->get_buffer;
|
my $text_buffer = $text_view->get_buffer;
|
if(defined $description) {$text_buffer->set_text($description)};
|
if(defined $description) {$text_buffer->set_text($description)};
|
|
|
$ok->signal_connect("clicked"=> sub {
|
$ok->signal_connect("clicked"=> sub {
|
$window->destroy;
|
$window->destroy;
|
|
|
my $text = $text_buffer->get_text($text_buffer->get_bounds, TRUE);
|
my $text = $text_buffer->get_text($text_buffer->get_bounds, TRUE);
|
$ipgen->ipgen_set_description($text);
|
$ipgen->ipgen_set_description($text);
|
#print "$text\n";
|
#print "$text\n";
|
|
|
});
|
});
|
|
|
$window->add($table);
|
$window->add($table);
|
$window->show_all();
|
$window->show_all();
|
|
|
}
|
}
|
|
|
|
|
###########
|
###########
|
# get header file
|
# get header file
|
#########
|
#########
|
|
|
sub get_header_file{
|
sub get_header_file{
|
my ($ipgen,$soc_state,$info)=@_;
|
my ($ipgen,$soc_state,$info)=@_;
|
my $hdr = $ipgen->ipgen_get_hdr();
|
my $hdr = $ipgen->ipgen_get_hdr();
|
my $table = Gtk2::Table->new (15, 15, TRUE);
|
my $table = Gtk2::Table->new (15, 15, TRUE);
|
my $window=def_popwin_size(600,600,"Add header file");
|
#my $window=def_popwin_size(600,600,"Add header file");
|
my ($scrwin,$text_view)=create_text();
|
my ($scrwin,$text_view)=create_text();
|
my $ok=def_image_button("icons/select.png",' Ok ');
|
|
my $help_text=
|
my $help_text=
|
'Define the header file for this peripheral device.
|
'Define the header file for this peripheral device.
|
You can use two variable $BASEn and $IP.
|
You can use two variable $BASEn and $IP.
|
$BASE is the wishbone base addresse(s) and will be added
|
$BASE is the wishbone base addresse(s) and will be added
|
during soc generation to system.h. If more than one slave
|
during soc generation to system.h. If more than one slave
|
wishbone bus are used define them as $BASE0, $BASE1 ...
|
wishbone bus are used define them as $BASE0, $BASE1 ...
|
|
|
$IP: is the peripheral device name. It is recommended to
|
$IP: is the peripheral device name. When more than one
|
add it to the global variables, definitions and functions.
|
peripheral device is allowed to be called in the SoC, it is
|
when more than one peripheral device is allowed to be
|
recommended to add $IP to the global variables, definitions
|
called in the SoC.
|
and functions.
|
|
|
header file example
|
header file example
|
|
|
#define $IP_REG_0 (*((volatile unsigned int *) ($BASE)))
|
#define $IP_REG_0 (*((volatile unsigned int *) ($BASE)))
|
#define $IP_REG_1 (*((volatile unsigned int *) ($BASE+4)))
|
#define $IP_REG_1 (*((volatile unsigned int *) ($BASE+4)))
|
|
|
|
|
#define $IP_WRITE_REG1(value) $IP_REG_1=value
|
#define $IP_WRITE_REG1(value) $IP_REG_1=value
|
#define $IP_READ_REG1() $IP_REG_1
|
#define $IP_READ_REG1() $IP_REG_1
|
';
|
';
|
|
|
my $help=gen_label_help($help_text,"Define the header file for this peripheral devive");
|
my $help=gen_label_help($help_text,"Define the header file for this peripheral device. ");
|
$table->attach_defaults($help,0,15,0,1);
|
$table->attach_defaults($help,0,15,0,1);
|
$table->attach_defaults($scrwin,0,15,1,14);
|
$table->attach_defaults($scrwin,0,15,1,14);
|
$table->attach_defaults($ok,6,9,14,15);
|
|
my $text_buffer = $text_view->get_buffer;
|
my $text_buffer = $text_view->get_buffer;
|
if(defined $hdr) {$text_buffer->set_text($hdr)};
|
if(defined $hdr) {$text_buffer->set_text($hdr)};
|
|
|
$ok->signal_connect("clicked"=> sub {
|
|
$window->destroy;
|
|
|
|
my $text = $text_buffer->get_text($text_buffer->get_bounds, TRUE);
|
|
$ipgen->ipgen_set_hdr($text);
|
|
#print "$text\n";
|
|
|
|
});
|
my $scrolled_win = new Gtk2::ScrolledWindow (undef, undef);
|
|
$scrolled_win->set_policy( "automatic", "automatic" );
|
|
$scrolled_win->add_with_viewport($table);
|
|
|
$window->add($table);
|
#$window->add($table);
|
$window->show_all();
|
#$window->show_all();
|
|
return ($scrolled_win,$text_buffer);
|
|
|
}
|
}
|
|
|
#############
|
#############
|
# get hdl files
|
# get hdl files
|
############
|
############
|
sub get_hdl_file{
|
sub get_hdl_file{
|
my ($ipgen,$soc_state,$info)=@_;
|
my ($ipgen,$soc_state,$info)=@_;
|
my $hdr = $ipgen->ipgen_get_hdr();
|
|
my $table = Gtk2::Table->new (15, 15, TRUE);
|
my $table = Gtk2::Table->new (15, 15, TRUE);
|
my $window=def_popwin_size(600,600,"Add header file");
|
my $window=def_popwin_size(600,600,"Add HDL file()s");
|
my @saved_files=$ipgen->ipgen_get_hdl_files_list();
|
my @saved_files=$ipgen->ipgen_get_files_list("hdl_files");
|
my $ok=def_image_button("icons/select.png",' Ok ');
|
my $ok=def_image_button("icons/select.png",' Ok ');
|
my $scrwin=gen_file_list($ipgen,\@saved_files,$ok);
|
my $scrwin=gen_file_list($ipgen,"hdl_files",\@saved_files,$ok);
|
|
|
my $label=gen_label_in_left("Selecet the design files you want to include for the IP core");
|
my $label=gen_label_in_left("Selecet the design files you want to include for the IP core");
|
my $brows=def_image_button("icons/browse.png",' Browse');
|
my $brows=def_image_button("icons/browse.png",' Browse');
|
$table->attach_defaults($label,0,10,0,1);
|
$table->attach_defaults($label,0,10,0,1);
|
$table->attach_defaults($brows,10,12,0,1);
|
$table->attach_defaults($brows,10,12,0,1);
|
$table->attach_defaults($scrwin,0,15,1,14);
|
$table->attach_defaults($scrwin,0,15,1,14);
|
$table->attach_defaults($ok,6,9,14,15);
|
$table->attach_defaults($ok,6,9,14,15);
|
|
|
my $dir = Cwd::getcwd();
|
my $dir = Cwd::getcwd();
|
my $project_dir = abs_path("$dir/../../"); #mpsoc directory address
|
my $project_dir = abs_path("$dir/../../"); #mpsoc directory address
|
|
|
|
|
$brows->signal_connect("clicked"=> sub {
|
$brows->signal_connect("clicked"=> sub {
|
my @files;
|
my @files;
|
my $dialog = Gtk2::FileChooserDialog->new(
|
my $dialog = Gtk2::FileChooserDialog->new(
|
'Select a File',
|
'Select a File',
|
undef,
|
undef,
|
'open',
|
'open',
|
'gtk-cancel' => 'cancel',
|
'gtk-cancel' => 'cancel',
|
'gtk-ok' => 'ok',
|
'gtk-ok' => 'ok',
|
);
|
);
|
|
|
my $filter = Gtk2::FileFilter->new();
|
my $filter = Gtk2::FileFilter->new();
|
my $dir = Cwd::getcwd();
|
my $dir = Cwd::getcwd();
|
$dialog->set_current_folder ("$dir/..") ;
|
$dialog->set_current_folder ("$dir/..") ;
|
$dialog->set_select_multiple(TRUE);
|
$dialog->set_select_multiple(TRUE);
|
|
|
if ( "ok" eq $dialog->run ) {
|
if ( "ok" eq $dialog->run ) {
|
@files = $dialog->get_filenames;
|
@files = $dialog->get_filenames;
|
|
|
@saved_files=$ipgen->ipgen_get_hdl_files_list();
|
@saved_files=$ipgen->ipgen_get_files_list("hdl_files");
|
foreach my $p (@files){
|
foreach my $p (@files){
|
#remove $project_dir form beginig of each file
|
#remove $project_dir form beginig of each file
|
$p =~ s/$project_dir//;
|
$p =~ s/$project_dir//;
|
if(! grep (/^$p$/,@saved_files)){push(@saved_files,$p)};
|
if(! grep (/^$p$/,@saved_files)){push(@saved_files,$p)};
|
|
|
}
|
}
|
$ipgen->ipgen_set_hdl_files_list(\@saved_files);
|
$ipgen->ipgen_set_files_list("hdl_files",\@saved_files);
|
$window->destroy;
|
$window->destroy;
|
get_hdl_file($ipgen,$soc_state,$info);
|
get_hdl_file($ipgen,$soc_state,$info);
|
|
|
#$$entry_ref->set_text($file);
|
#$$entry_ref->set_text($file);
|
|
|
#print "file = $file\n";
|
#print "file = $file\n";
|
}
|
}
|
$dialog->destroy;
|
$dialog->destroy;
|
|
|
|
|
|
|
} );# # ,\$entry);
|
} );# # ,\$entry);
|
|
|
|
|
|
|
|
|
|
|
$ok->signal_connect("clicked"=> sub {
|
$ok->signal_connect("clicked"=> sub {
|
|
|
|
|
|
|
$window->destroy;
|
$window->destroy;
|
|
|
#my $text = $text_buffer->get_text($text_buffer->get_bounds, TRUE);
|
#my $text = $text_buffer->get_text($text_buffer->get_bounds, TRUE);
|
#$ipgen->ipgen_set_hdr($text);
|
#$ipgen->ipgen_set_hdr($text);
|
#print "$text\n";
|
#print "$text\n";
|
|
|
});
|
});
|
|
|
$window->add($table);
|
$window->add($table);
|
$window->show_all();
|
$window->show_all();
|
|
|
}
|
}
|
|
|
|
|
|
|
|
|
##########
|
##########
|
#
|
#
|
#########
|
#########
|
|
|
sub gen_file_list{
|
sub gen_file_list{
|
my ($ipgen,$ref,$ok)=@_;
|
my ($ipgen,$list_name,$ref,$ok)=@_;
|
my @files=@{$ref};
|
my @files=@{$ref};
|
my $file_num= scalar @files;
|
my $file_num= scalar @files;
|
|
|
|
|
my $table=def_table(10,10,TRUE);# my ($row,$col,$homogeneous)=@_;
|
my $table=def_table(10,10,TRUE);# my ($row,$col,$homogeneous)=@_;
|
my $scrolled_win = new Gtk2::ScrolledWindow (undef, undef);
|
my $scrolled_win = new Gtk2::ScrolledWindow (undef, undef);
|
$scrolled_win->set_policy( "automatic", "automatic" );
|
$scrolled_win->set_policy( "automatic", "automatic" );
|
$scrolled_win->add_with_viewport($table);
|
$scrolled_win->add_with_viewport($table);
|
|
|
|
|
my $col=0;
|
my $col=0;
|
my $row=0;
|
my $row=0;
|
foreach my $p(@files){
|
foreach my $p(@files){
|
my $entry=gen_entry($p);
|
my $entry=gen_entry($p);
|
my $remove=def_image_button("icons/cancel.png");
|
my $remove=def_image_button("icons/cancel.png");
|
$table->attach_defaults ($entry, 0, 9 , $row, $row+1);
|
$table->attach_defaults ($entry, 0, 9 , $row, $row+1);
|
$table->attach_defaults ($remove, 9,10 , $row, $row+1);
|
$table->attach_defaults ($remove, 9,10 , $row, $row+1);
|
$row++;
|
$row++;
|
$remove->signal_connect("clicked"=> sub {
|
$remove->signal_connect("clicked"=> sub {
|
my @saved_files=$ipgen->ipgen_get_hdl_files_list();
|
my @saved_files=$ipgen->ipgen_get_files_list($list_name);
|
@saved_files=remove_scolar_from_array(\@saved_files,$p);
|
@saved_files=remove_scolar_from_array(\@saved_files,$p);
|
$ipgen->ipgen_set_hdl_files_list(\@saved_files);
|
$ipgen->ipgen_set_files_list($list_name,\@saved_files);
|
$entry->destroy;
|
$entry->destroy;
|
$remove->destroy;
|
$remove->destroy;
|
|
|
});
|
});
|
$ok->signal_connect("clicked"=> sub {
|
$ok->signal_connect("clicked"=> sub {
|
if(defined $entry){
|
if(defined $entry){
|
my $n= $entry->get_text();
|
my $n= $entry->get_text();
|
if($p ne $n){
|
if($p ne $n){
|
my @saved_files=$ipgen->ipgen_get_hdl_files_list();
|
my @saved_files=$ipgen->ipgen_get_files_list($list_name);
|
@saved_files=replace_in_array(\@saved_files,$p, $n);
|
@saved_files=replace_in_array(\@saved_files,$p, $n);
|
$ipgen->ipgen_set_hdl_files_list(\@saved_files);
|
$ipgen->ipgen_set_files_list($list_name,\@saved_files);
|
}
|
}
|
|
|
}
|
}
|
|
|
|
|
|
|
});
|
});
|
|
|
#my $seph = Gtk2::HSeparator->new;
|
#my $seph = Gtk2::HSeparator->new;
|
#$table->attach_defaults ($seph, 0, 10 , $row, $row+1);
|
#$table->attach_defaults ($seph, 0, 10 , $row, $row+1);
|
#$row++;
|
#$row++;
|
}
|
}
|
|
|
|
|
|
|
|
|
# while( $row<10){
|
# while( $row<10){
|
# my $label=gen_label_in_left(' ');
|
# my $label=gen_label_in_left(' ');
|
# $table->attach_defaults ($label, 0, 1 , $row, $row+1);$row++;
|
# $table->attach_defaults ($label, 0, 1 , $row, $row+1);$row++;
|
#}
|
#}
|
|
|
|
|
return $scrolled_win;
|
return $scrolled_win;
|
}
|
}
|
|
|
|
|
|
|
sub get_param_info{
|
sub get_param_info{
|
my ($ipgen,$saved_info)=@_;
|
my ($ipgen,$saved_info)=@_;
|
my $table = Gtk2::Table->new (15, 15, TRUE);
|
my $table = Gtk2::Table->new (15, 15, TRUE);
|
my $window=def_popwin_size(500,500,"Add description");
|
my $window=def_popwin_size(500,500,"Add description");
|
my ($scrwin,$text_view)=create_text();
|
my ($scrwin,$text_view)=create_text();
|
my $ok=def_image_button("icons/select.png",' Ok ');
|
my $ok=def_image_button("icons/select.png",' Ok ');
|
|
|
$table->attach_defaults($scrwin,0,15,0,14);
|
$table->attach_defaults($scrwin,0,15,0,14);
|
$table->attach_defaults($ok,6,9,14,15);
|
$table->attach_defaults($ok,6,9,14,15);
|
my $text_buffer = $text_view->get_buffer;
|
my $text_buffer = $text_view->get_buffer;
|
if(defined $$saved_info) {$text_buffer->set_text($$saved_info)};
|
if(defined $$saved_info) {$text_buffer->set_text($$saved_info)};
|
|
|
$ok->signal_connect("clicked"=> sub {
|
$ok->signal_connect("clicked"=> sub {
|
$window->destroy;
|
$window->destroy;
|
|
|
$$saved_info = $text_buffer->get_text($text_buffer->get_bounds, TRUE);
|
$$saved_info = $text_buffer->get_text($text_buffer->get_bounds, TRUE);
|
|
|
|
|
});
|
});
|
|
|
$window->add($table);
|
$window->add($table);
|
$window->show_all();
|
$window->show_all();
|
|
|
|
|
}
|
}
|
|
|
|
|
|
|
sub interface_info_box {
|
sub interface_info_box {
|
my($intfc,$ipgen,$soc_state,$info)=@_;
|
my($intfc,$ipgen,$soc_state,$info)=@_;
|
my $table=def_table(7,7,TRUE);
|
my $table=def_table(7,7,TRUE);
|
my @sokets=$ipgen->ipgen_list_sokets;
|
my @sokets=$ipgen->ipgen_list_sokets;
|
my @plugs=$ipgen->ipgen_list_plugs;
|
my @plugs=$ipgen->ipgen_list_plugs;
|
|
|
my @positions=(0,1,2,4,5,6,7);
|
my @positions=(0,1,2,4,5,6,7);
|
|
|
|
|
my $row=0;
|
my $row=0;
|
my $col=0;
|
my $col=0;
|
$table->attach_defaults (gen_label_in_center(" Interface name"), $positions[0], $positions[1], $row, $row+1);
|
$table->attach_defaults (gen_label_in_center(" Interface name"), $positions[0], $positions[1], $row, $row+1);
|
$table->attach_defaults (gen_label_in_center("Type"), $positions[1], $positions[2], $row, $row+1);
|
$table->attach_defaults (gen_label_in_center("Type"), $positions[1], $positions[2], $row, $row+1);
|
$table->attach_defaults (gen_label_in_left("Interface Num"), $positions[2], $positions[3], $row, $row+1);
|
$table->attach_defaults (gen_label_in_left("Interface Num"), $positions[2], $positions[3], $row, $row+1);
|
|
|
$row++;
|
$row++;
|
my @type_list=('plug','socket');
|
my @type_list=('plug','socket');
|
|
|
foreach my $p( @sokets){
|
foreach my $p( @sokets){
|
#my ($range,$type,$intfc_name,$intfc_port)=$ipgen->ipgen_get_port($p);
|
#my ($range,$type,$intfc_name,$intfc_port)=$ipgen->ipgen_get_port($p);
|
my ($type,$value,$connection_num)= $ipgen->ipgen_get_socket($p);
|
my ($type,$value,$connection_num)= $ipgen->ipgen_get_socket($p);
|
my $label_name=gen_label_in_center($p);
|
my $label_name=gen_label_in_center($p);
|
my $combo_type=gen_combo(\@type_list,1);
|
my $combo_type=gen_combo(\@type_list,1);
|
my $remove= def_image_button('icons/cancel.png','Remove');
|
my $remove= def_image_button('icons/cancel.png','Remove');
|
my $name_setting=def_image_button('icons/setting.png');
|
my $name_setting=def_image_button('icons/setting.png');
|
$remove->signal_connect ('clicked'=> sub{
|
$remove->signal_connect ('clicked'=> sub{
|
$ipgen->ipgen_remove_socket($p);
|
$ipgen->ipgen_remove_socket($p);
|
set_state($soc_state,'intfc_changed',0);
|
set_state($soc_state,'intfc_changed',0);
|
|
|
} );
|
} );
|
$name_setting->signal_connect ('clicked'=> sub{
|
$name_setting->signal_connect ('clicked'=> sub{
|
get_intfc_setting($ipgen,$soc_state,$p,'socket');
|
get_intfc_setting($ipgen,$soc_state,$p,'socket');
|
|
|
|
|
});
|
});
|
$combo_type ->signal_connect ('changed'=> sub{
|
$combo_type ->signal_connect ('changed'=> sub{
|
$ipgen->ipgen_remove_socket($p);
|
$ipgen->ipgen_remove_socket($p);
|
add_intfc_to_ip($intfc,$ipgen,$p,'plug',$info,$soc_state);
|
add_intfc_to_ip($intfc,$ipgen,$p,'plug',$info,$soc_state);
|
|
|
} );
|
} );
|
$table->attach_defaults ($remove, $positions[4], $positions[5], $row, $row+1);
|
$table->attach_defaults ($remove, $positions[4], $positions[5], $row, $row+1);
|
if ($type eq 'num'){
|
if ($type eq 'num'){
|
my ($type_box,$type_spin)=gen_spin_help ('Define the number of this interface in module', 1,1024,1);
|
my ($type_box,$type_spin)=gen_spin_help ('Define the number of this interface in module', 1,1024,1);
|
$type_box->pack_start($name_setting,FALSE,FALSE,0);
|
$type_box->pack_start($name_setting,FALSE,FALSE,0);
|
$type_spin->set_value($value);
|
$type_spin->set_value($value);
|
my $advance_button=def_image_button('icons/advance.png','separate');
|
my $advance_button=def_image_button('icons/advance.png','separate');
|
$table->attach_defaults ($type_box, $positions[2], $positions[3], $row, $row+1);
|
$table->attach_defaults ($type_box, $positions[2], $positions[3], $row, $row+1);
|
$table->attach_defaults ($advance_button, $positions[3], $positions[4], $row, $row+1);
|
$table->attach_defaults ($advance_button, $positions[3], $positions[4], $row, $row+1);
|
$type_spin->signal_connect("changed"=>sub{
|
$type_spin->signal_connect("changed"=>sub{
|
my $wiget=shift;
|
my $wiget=shift;
|
my $num=$wiget->get_value_as_int();
|
my $num=$wiget->get_value_as_int();
|
$ipgen->ipgen_add_soket($p,'num',$num);
|
$ipgen->ipgen_add_soket($p,'num',$num);
|
set_state($soc_state,'intfc_changed',0);
|
set_state($soc_state,'intfc_changed',0);
|
|
|
});
|
});
|
$advance_button->signal_connect("clicked"=>sub{
|
$advance_button->signal_connect("clicked"=>sub{
|
$ipgen->ipgen_add_soket($p,'param');
|
$ipgen->ipgen_add_soket($p,'param');
|
set_state($soc_state,'intfc_changed',0);
|
set_state($soc_state,'intfc_changed',0);
|
|
|
});
|
});
|
|
|
}
|
}
|
else {
|
else {
|
my @parameters=$ipgen->ipgen_get_all_parameters_list();
|
my @parameters=$ipgen->ipgen_get_all_parameters_list();
|
my $pos= get_scolar_pos( $value,@parameters);
|
my $pos= get_scolar_pos( $value,@parameters);
|
if(!defined $pos){
|
if(!defined $pos){
|
$pos=0;
|
$pos=0;
|
$ipgen->ipgen_add_soket($p,'param',$parameters[0]);
|
$ipgen->ipgen_add_soket($p,'param',$parameters[0]);
|
}
|
}
|
my ($type_box,$type_combo)=gen_combo_help ('Define the parameter which determine the number of this interface in module',\@parameters,$pos);
|
my ($type_box,$type_combo)=gen_combo_help ('Define the parameter which determine the number of this interface in module',\@parameters,$pos);
|
$type_box->pack_start($name_setting,FALSE,FALSE,0);
|
$type_box->pack_start($name_setting,FALSE,FALSE,0);
|
my $advance_button=def_image_button('icons/advance.png','concatenate');
|
my $advance_button=def_image_button('icons/advance.png','concatenate');
|
$table->attach_defaults ($type_box, $positions[2], $positions[3], $row, $row+1);
|
$table->attach_defaults ($type_box, $positions[2], $positions[3], $row, $row+1);
|
$table->attach_defaults ($advance_button, $positions[3], $positions[4], $row, $row+1);
|
$table->attach_defaults ($advance_button, $positions[3], $positions[4], $row, $row+1);
|
$type_combo->signal_connect("changed"=>sub{
|
$type_combo->signal_connect("changed"=>sub{
|
my $wiget=shift;
|
my $wiget=shift;
|
my $value=$wiget->get_active_text();
|
my $value=$wiget->get_active_text();
|
$ipgen->ipgen_add_soket($p,'param',$value);
|
$ipgen->ipgen_add_soket($p,'param',$value);
|
set_state($soc_state,'intfc_changed',0);
|
set_state($soc_state,'intfc_changed',0);
|
|
|
});
|
});
|
$advance_button->signal_connect("clicked"=>sub{
|
$advance_button->signal_connect("clicked"=>sub{
|
$ipgen->ipgen_add_soket($p,'num',0);
|
$ipgen->ipgen_add_soket($p,'num',0);
|
set_state($soc_state,'intfc_changed',0);
|
set_state($soc_state,'intfc_changed',0);
|
|
|
});
|
});
|
|
|
}
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
$table->attach_defaults ($label_name, $positions[0], $positions[1], $row, $row+1);
|
$table->attach_defaults ($label_name, $positions[0], $positions[1], $row, $row+1);
|
$table->attach_defaults ($combo_type, $positions[1], $positions[2], $row, $row+1);
|
$table->attach_defaults ($combo_type, $positions[1], $positions[2], $row, $row+1);
|
|
|
|
|
|
|
|
|
$row++;
|
$row++;
|
}
|
}
|
foreach my $q( @plugs){
|
foreach my $q( @plugs){
|
#my ($range,$type,$intfc_name,$intfc_port)=$ipgen->ipgen_get_port($p);
|
#my ($range,$type,$intfc_name,$intfc_port)=$ipgen->ipgen_get_port($p);
|
my ($type,$value)= $ipgen->ipgen_get_plug($q);
|
my ($type,$value)= $ipgen->ipgen_get_plug($q);
|
my $label_name=gen_label_in_center($q);
|
my $label_name=gen_label_in_center($q);
|
my $combo_type=gen_combo(\@type_list,0);
|
my $combo_type=gen_combo(\@type_list,0);
|
my $remove= def_image_button('icons/cancel.png','Remove');
|
my $remove= def_image_button('icons/cancel.png','Remove');
|
my $name_setting=def_image_button('icons/setting.png');
|
my $name_setting=def_image_button('icons/setting.png');
|
|
|
$table->attach_defaults ($remove, $positions[4], $positions[5], $row, $row+1);
|
$table->attach_defaults ($remove, $positions[4], $positions[5], $row, $row+1);
|
$remove->signal_connect ('clicked'=> sub{
|
$remove->signal_connect ('clicked'=> sub{
|
$ipgen->ipgen_remove_plug($q);
|
$ipgen->ipgen_remove_plug($q);
|
set_state($soc_state,'intfc_changed',0);
|
set_state($soc_state,'intfc_changed',0);
|
|
|
} );
|
} );
|
$name_setting->signal_connect ('clicked'=> sub{
|
$name_setting->signal_connect ('clicked'=> sub{
|
get_intfc_setting($ipgen,$soc_state,$q,'plug');
|
get_intfc_setting($ipgen,$soc_state,$q,'plug');
|
|
|
|
|
} );
|
} );
|
$combo_type ->signal_connect ('changed'=> sub{
|
$combo_type ->signal_connect ('changed'=> sub{
|
$ipgen->ipgen_remove_plug($q);
|
$ipgen->ipgen_remove_plug($q);
|
add_intfc_to_ip($intfc,$ipgen,$q,'socket',$info,$soc_state);
|
add_intfc_to_ip($intfc,$ipgen,$q,'socket',$info,$soc_state);
|
|
|
} );
|
} );
|
#my $range_entry=gen_entry($range);
|
#my $range_entry=gen_entry($range);
|
if ($type eq 'num'){
|
if ($type eq 'num'){
|
my ($type_box,$type_spin)=gen_spin_help ('Define the number of this interface in module', 1,1024,1);
|
my ($type_box,$type_spin)=gen_spin_help ('Define the number of this interface in module', 1,1024,1);
|
$type_box->pack_start($name_setting,FALSE,FALSE,0);
|
$type_box->pack_start($name_setting,FALSE,FALSE,0);
|
$type_spin->set_value($value);
|
$type_spin->set_value($value);
|
$table->attach_defaults ($type_box, $positions[2], $positions[3], $row, $row+1);
|
$table->attach_defaults ($type_box, $positions[2], $positions[3], $row, $row+1);
|
$type_spin->signal_connect("changed"=>sub{
|
$type_spin->signal_connect("changed"=>sub{
|
my $wiget=shift;
|
my $wiget=shift;
|
my $num=$wiget->get_value_as_int();
|
my $num=$wiget->get_value_as_int();
|
$ipgen->ipgen_add_plug($q,'num',$num);
|
$ipgen->ipgen_add_plug($q,'num',$num);
|
set_state($soc_state,'intfc_changed',0);
|
set_state($soc_state,'intfc_changed',0);
|
|
|
});
|
});
|
|
|
}
|
}
|
$table->attach_defaults ($label_name, $positions[0], $positions[1], $row, $row+1);
|
$table->attach_defaults ($label_name, $positions[0], $positions[1], $row, $row+1);
|
$table->attach_defaults ($combo_type, $positions[1], $positions[2], $row, $row+1);
|
$table->attach_defaults ($combo_type, $positions[1], $positions[2], $row, $row+1);
|
#$table->attach_defaults ($range_entry, 2, 4, $row, $row+1);
|
#$table->attach_defaults ($range_entry, 2, 4, $row, $row+1);
|
|
|
#wishbone address seting
|
#wishbone address seting
|
#print "$q eq 'wb_slave'\n";
|
#print "$q eq 'wb_slave'\n";
|
if($q eq 'wb_slave'){
|
if($q eq 'wb_slave'){
|
my ($saved_addr,$saved_width)=$ipgen->ipgen_get_wb_addr($q,0);
|
my ($saved_addr,$saved_width)=$ipgen->ipgen_get_wb_addr($q,0);
|
my $addr;
|
my $addr;
|
if(!defined $saved_addr){
|
if(!defined $saved_addr){
|
$addr= def_image_button('icons/warnning.png');
|
$addr= def_image_button('icons/warnning.png');
|
$addr->signal_connect ('clicked'=> sub{
|
$addr->signal_connect ('clicked'=> sub{
|
message_dialog("Wishbone slave address range has not been set yet! ");
|
message_dialog("Wishbone slave address range has not been set yet! ");
|
|
|
} );
|
} );
|
}else{
|
}else{
|
$addr= def_image_button('icons/select.png');
|
$addr= def_image_button('icons/select.png');
|
|
|
}
|
}
|
$table->attach_defaults ($addr, $positions[5], $positions[6], $row, $row+1);
|
$table->attach_defaults ($addr, $positions[5], $positions[6], $row, $row+1);
|
|
|
|
|
}
|
}
|
|
|
|
|
$row++;
|
$row++;
|
}
|
}
|
|
|
|
|
|
|
|
|
|
|
return $table;
|
return $table;
|
|
|
}
|
}
|
|
|
|
|
sub get_intfc_setting{
|
sub get_intfc_setting{
|
|
|
my ($ipgen,$soc_state,$intfc_name, $intfc_type)=@_;
|
my ($ipgen,$soc_state,$intfc_name, $intfc_type)=@_;
|
|
|
|
|
my $window = def_popwin_size(1000,500);
|
my $window = def_popwin_size(1000,500);
|
my $table=def_table(7,6,FALSE);
|
my $table=def_table(7,6,FALSE);
|
my $ok = def_image_button('icons/select.png','OK');
|
my $ok = def_image_button('icons/select.png','OK');
|
my $okbox=def_hbox(TRUE,0);
|
my $okbox=def_hbox(TRUE,0);
|
$okbox->pack_start($ok, FALSE, FALSE,0);
|
$okbox->pack_start($ok, FALSE, FALSE,0);
|
|
|
|
|
my $scrolled_win = new Gtk2::ScrolledWindow (undef, undef);
|
my $scrolled_win = new Gtk2::ScrolledWindow (undef, undef);
|
$scrolled_win->set_policy( "automatic", "automatic" );
|
$scrolled_win->set_policy( "automatic", "automatic" );
|
$scrolled_win->add_with_viewport($table);
|
$scrolled_win->add_with_viewport($table);
|
|
|
#title
|
#title
|
my $lable1=gen_label_in_left("interface name");
|
my $lable1=gen_label_in_left("interface name");
|
$table->attach_defaults( $lable1,0,2,0,1);
|
$table->attach_defaults( $lable1,0,2,0,1);
|
|
|
|
|
|
|
|
|
my ($type,$value);
|
my ($type,$value);
|
if($intfc_type eq 'plug'){
|
if($intfc_type eq 'plug'){
|
($type,$value)= $ipgen->ipgen_get_plug($intfc_name);
|
($type,$value)= $ipgen->ipgen_get_plug($intfc_name);
|
}else {
|
}else {
|
($type,$value)= $ipgen->ipgen_get_socket($intfc_name);
|
($type,$value)= $ipgen->ipgen_get_socket($intfc_name);
|
|
|
}
|
}
|
if ($type ne 'num'){ $value=1;}
|
if ($type ne 'num'){ $value=1;}
|
my $i=0;
|
my $i=0;
|
for ( $i=0; $i < $value; $i++) {
|
for ( $i=0; $i < $value; $i++) {
|
#intfc name
|
#intfc name
|
my $saved_name;
|
my $saved_name;
|
my $number=$i;
|
my $number=$i;
|
if($intfc_type eq 'plug') {$saved_name= $ipgen->ipgen_get_plug_name($intfc_name,$number);}
|
if($intfc_type eq 'plug') {$saved_name= $ipgen->ipgen_get_plug_name($intfc_name,$number);}
|
else {$saved_name= $ipgen->ipgen_get_socket_name($intfc_name,$number);}
|
else {$saved_name= $ipgen->ipgen_get_socket_name($intfc_name,$number);}
|
my $entry_name=gen_entry($saved_name);
|
my $entry_name=gen_entry($saved_name);
|
|
|
$table->attach_defaults($entry_name,0,2,$i+1,$i+2);
|
$table->attach_defaults($entry_name,0,2,$i+1,$i+2);
|
$ok->signal_connect('clicked'=>sub{
|
$ok->signal_connect('clicked'=>sub{
|
my $new_name=$entry_name->get_text();
|
my $new_name=$entry_name->get_text();
|
#print "my new name is: $new_name\n";
|
#print "my new name is: $new_name\n";
|
if($intfc_type eq 'plug'){ $ipgen->ipgen_set_plug_name($intfc_name,$number,$new_name); }
|
if($intfc_type eq 'plug'){ $ipgen->ipgen_set_plug_name($intfc_name,$number,$new_name); }
|
else { $ipgen->ipgen_set_socket_name($intfc_name,$number,$new_name);}
|
else { $ipgen->ipgen_set_socket_name($intfc_name,$number,$new_name);}
|
|
|
});
|
});
|
|
|
|
|
}
|
}
|
|
|
|
|
#wishbone addr
|
#wishbone addr
|
if($intfc_name eq 'wb_slave' && $intfc_type eq 'plug'){
|
if($intfc_name eq 'wb_slave' && $intfc_type eq 'plug'){
|
my $lable2=gen_label_in_center("address range: (start end name)");
|
my $lable2=gen_label_in_center("address range: (start end name)");
|
my $lable3=gen_label_in_center("block address width");
|
my $lable3=gen_label_in_center("block address width");
|
|
|
$table->attach_defaults( $lable2,2,5,0,1);
|
$table->attach_defaults( $lable2,2,5,0,1);
|
$table->attach_defaults( $lable3,5,6,0,1);
|
$table->attach_defaults( $lable3,5,6,0,1);
|
|
|
my $plug=$intfc_name;
|
my $plug=$intfc_name;
|
my $wb= wb_addr->wb_addr_new();
|
my $wb= wb_addr->wb_addr_new();
|
my @ip_names=$wb->wb_list_names();
|
my @ip_names=$wb->wb_list_names();
|
my @list;
|
my @list;
|
foreach my $p(@ip_names){
|
foreach my $p(@ip_names){
|
my($start,$end,$cashed,$size)=$wb->wb_get_addr_info($p);
|
my($start,$end,$cashed,$size)=$wb->wb_get_addr_info($p);
|
push (@list,"$start\t$end\t\t$p");
|
push (@list,"$start\t$end\t\t$p");
|
|
|
}
|
}
|
|
|
my ($type,$value,$connection_num)=$ipgen->ipgen_get_plug($plug);
|
my ($type,$value,$connection_num)=$ipgen->ipgen_get_plug($plug);
|
$i=0;
|
$i=0;
|
|
|
for ( $i=0; $i < $value; $i++) {
|
for ( $i=0; $i < $value; $i++) {
|
my ($saved_addr,$saved_width)=$ipgen->ipgen_get_wb_addr($plug,$i);
|
my ($saved_addr,$saved_width)=$ipgen->ipgen_get_wb_addr($plug,$i);
|
my $num=$i;
|
my $num=$i;
|
my $pos;
|
my $pos;
|
if(!defined $saved_addr){
|
if(!defined $saved_addr){
|
$pos=0;
|
$pos=0;
|
$saved_width=1;
|
$saved_width=1;
|
$ipgen->ipgen_save_wb_addr($plug,$num,$list[0],1);
|
$ipgen->ipgen_save_wb_addr($plug,$num,$list[0],1);
|
}
|
}
|
else{
|
else{
|
$pos= get_scolar_pos($saved_addr,@list);
|
$pos= get_scolar_pos($saved_addr,@list);
|
}
|
}
|
|
|
my $name_combo=gen_combo(\@list,$pos);
|
my $name_combo=gen_combo(\@list,$pos);
|
my $sbox=def_hbox(FALSE,0);
|
my $sbox=def_hbox(FALSE,0);
|
my $widget=gen_spin(1,31,1);
|
my $widget;
|
my @l=("Fixed","Parameterizable");
|
my @l=("Fixed","Parameterizable");
|
|
|
|
if(!defined $saved_width){
|
$pos=0;
|
$pos=0;
|
my $comb=gen_combo(\@l, $pos);
|
$saved_width=1;
|
|
|
|
}
|
|
else{
|
|
if(is_integer($saved_width)){
|
|
$pos= 0;
|
|
$widget=gen_spin(1,31,1);
|
$widget->set_value($saved_width);
|
$widget->set_value($saved_width);
|
|
} else{
|
|
$pos= 1;
|
|
my @parameters=$ipgen->ipgen_get_all_parameters_list();
|
|
my $p=get_scolar_pos($saved_width,@parameters);
|
|
|
|
$widget=gen_combo(\@parameters, $p);
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
my $comb=gen_combo(\@l, $pos);
|
|
#$widget->set_value($saved_width);
|
$sbox->pack_start($comb,FALSE,FALSE,3);
|
$sbox->pack_start($comb,FALSE,FALSE,3);
|
$sbox->pack_end($widget,FALSE,FALSE,3);
|
$sbox->pack_end($widget,FALSE,FALSE,3);
|
|
|
$comb->signal_connect('changed'=>sub{
|
$comb->signal_connect('changed'=>sub{
|
my $condition=$comb->get_active_text();
|
my $condition=$comb->get_active_text();
|
$widget->destroy;
|
$widget->destroy;
|
my @parameters=$ipgen->ipgen_get_all_parameters_list();
|
my @parameters=$ipgen->ipgen_get_all_parameters_list();
|
$widget=($condition eq "Fixed" )? gen_spin(1,31,1):gen_combo(\@parameters, 0);
|
$widget=($condition eq "Fixed" )? gen_spin(1,31,1):gen_combo(\@parameters, 0);
|
$sbox->pack_end($widget,FALSE,FALSE,3);
|
$sbox->pack_end($widget,FALSE,FALSE,3);
|
$sbox->show_all();
|
$sbox->show_all();
|
});
|
});
|
|
|
|
|
$table->attach_defaults($name_combo,2,5,$i+1,$i+2);
|
$table->attach_defaults($name_combo,2,5,$i+1,$i+2);
|
$table->attach_defaults($sbox,5,6,$i+1,$i+2);
|
$table->attach_defaults($sbox,5,6,$i+1,$i+2);
|
$ok->signal_connect('clicked'=>sub{
|
$ok->signal_connect('clicked'=>sub{
|
my $addr=$name_combo->get_active_text();
|
my $addr=$name_combo->get_active_text();
|
my $in=$comb->get_active_text();
|
my $in=$comb->get_active_text();
|
my $width=($in eq "Fixed" )? $widget->get_value_as_int(): $widget->get_active_text() ;
|
my $width=($in eq "Fixed" )? $widget->get_value_as_int(): $widget->get_active_text() ;
|
$ipgen->ipgen_save_wb_addr($plug,$num,$addr,$width);
|
$ipgen->ipgen_save_wb_addr($plug,$num,$addr,$width);
|
|
|
});
|
});
|
|
|
|
|
}
|
}
|
|
|
|
|
|
|
}
|
}
|
|
|
while($i<7){
|
while($i<7){
|
$i++;
|
$i++;
|
my $tmp=gen_label_in_left(' ');
|
my $tmp=gen_label_in_left(' ');
|
$table->attach_defaults($tmp,5,6,$i,$i+1);
|
$table->attach_defaults($tmp,5,6,$i,$i+1);
|
|
|
}
|
}
|
|
|
$i=($i<7)? 7:$i;
|
$i=($i<7)? 7:$i;
|
|
|
|
|
my $mtable = def_table(10, 1, TRUE);
|
my $mtable = def_table(10, 1, TRUE);
|
$mtable->attach_defaults($scrolled_win,0,1,0,9);
|
$mtable->attach_defaults($scrolled_win,0,1,0,9);
|
$mtable->attach_defaults($okbox,0,1,9,10);
|
$mtable->attach_defaults($okbox,0,1,9,10);
|
|
|
$window->add ($mtable);
|
$window->add ($mtable);
|
$window->show_all();
|
$window->show_all();
|
|
|
|
|
|
|
|
|
$ok->signal_connect('clicked'=>sub{
|
$ok->signal_connect('clicked'=>sub{
|
$window->destroy;
|
$window->destroy;
|
set_state($soc_state,"interface_selected",1);
|
set_state($soc_state,"interface_selected",1);
|
|
|
} );
|
} );
|
|
|
|
|
|
|
|
|
}
|
}
|
|
|
|
|
|
|
|
sub is_integer {
|
|
defined $_[0] && $_[0] =~ /^[+-]?\d+$/;
|
|
}
|
|
|
|
|
#############
|
#############
|
# add_intfc_to_ip
|
# add_intfc_to_ip
|
##############
|
##############
|
|
|
|
|
sub add_intfc_to_ip{
|
sub add_intfc_to_ip{
|
my ($intfc,$ipgen,$infc_name,$infc_type,$info,$soc_state)=@_;
|
my ($intfc,$ipgen,$infc_name,$infc_type,$info,$soc_state)=@_;
|
if($infc_type eq 'socket'){
|
if($infc_type eq 'socket'){
|
my ($connection_num,$connect_to)=$intfc->get_socket($infc_name);
|
my ($connection_num,$connect_to)=$intfc->get_socket($infc_name);
|
$ipgen->ipgen_add_soket($infc_name,'num',1,$connection_num);
|
$ipgen->ipgen_add_soket($infc_name,'num',1,$connection_num);
|
}
|
}
|
else { $ipgen->ipgen_add_plug($infc_name,'num',1);}
|
else { $ipgen->ipgen_add_plug($infc_name,'num',1);}
|
set_state($soc_state,"interface_selected",1);
|
set_state($soc_state,"interface_selected",1);
|
|
|
}
|
}
|
|
|
|
|
#################
|
#################
|
# get_list_of_all_interfaces
|
# get_list_of_all_interfaces
|
################
|
################
|
|
|
sub get_list_of_all_interfaces{
|
sub get_list_of_all_interfaces{
|
my ($ipgen)=@_;
|
my ($ipgen)=@_;
|
my @sockets =$ipgen->ipgen_list_sokets();
|
my @sockets =$ipgen->ipgen_list_sokets();
|
my @plugs =$ipgen->ipgen_list_plugs();
|
my @plugs =$ipgen->ipgen_list_plugs();
|
my @interfaces=('IO');
|
my @interfaces=('IO');
|
my @interfaces_name=('IO');
|
my @interfaces_name=('IO');
|
foreach my $p( @sockets){
|
foreach my $p( @sockets){
|
my ($type,$value)= $ipgen->ipgen_get_socket($p);
|
my ($type,$value)= $ipgen->ipgen_get_socket($p);
|
if($type eq 'num'){
|
if($type eq 'num'){
|
for(my $i=0; $i<$value; $i++){
|
for(my $i=0; $i<$value; $i++){
|
push(@interfaces,"socket:$p\[$i\]");
|
push(@interfaces,"socket:$p\[$i\]");
|
my $socket_name=$ipgen->ipgen_get_socket_name($p,$i);
|
my $socket_name=$ipgen->ipgen_get_socket_name($p,$i);
|
push(@interfaces_name,"socket:$socket_name");
|
push(@interfaces_name,"socket:$socket_name");
|
}#for
|
}#for
|
|
|
}#if
|
}#if
|
else {
|
else {
|
push(@interfaces,"socket:$p\[array\]");
|
push(@interfaces,"socket:$p\[array\]");
|
my $socket_name=$ipgen->ipgen_get_socket_name($p,0);
|
my $socket_name=$ipgen->ipgen_get_socket_name($p,0);
|
push(@interfaces_name,"socket:$socket_name");
|
push(@interfaces_name,"socket:$socket_name");
|
|
|
|
|
}#else
|
}#else
|
|
|
}#foreach
|
}#foreach
|
foreach my $p( @plugs){
|
foreach my $p( @plugs){
|
my ($type,$value)= $ipgen->ipgen_get_plug($p);
|
my ($type,$value)= $ipgen->ipgen_get_plug($p);
|
if($type eq 'num'){
|
if($type eq 'num'){
|
for(my $i=0; $i<$value; $i++){
|
for(my $i=0; $i<$value; $i++){
|
push(@interfaces,"plug:$p\[$i\]");
|
push(@interfaces,"plug:$p\[$i\]");
|
my $plug_name=$ipgen->ipgen_get_plug_name($p,$i);
|
my $plug_name=$ipgen->ipgen_get_plug_name($p,$i);
|
push(@interfaces_name,"plug:$plug_name");
|
push(@interfaces_name,"plug:$plug_name");
|
|
|
}#for
|
}#for
|
|
|
}#if
|
}#if
|
else {
|
else {
|
my $plug_name=$ipgen->ipgen_get_plug_name($p,0);
|
my $plug_name=$ipgen->ipgen_get_plug_name($p,0);
|
push(@interfaces,"plug:$p\[array\]");
|
push(@interfaces,"plug:$p\[array\]");
|
push(@interfaces_name,"plug:$plug_name");
|
push(@interfaces_name,"plug:$plug_name");
|
|
|
|
|
}#else
|
}#else
|
|
|
}#foreach
|
}#foreach
|
return (\@interfaces_name,\@interfaces);
|
return (\@interfaces_name,\@interfaces);
|
|
|
}
|
}
|
|
|
sub gen_intfc_port_combo{
|
sub gen_intfc_port_combo{
|
my ($intfc,$ipgen,$intfc_name,$porttype,$portname)=@_;
|
my ($intfc,$ipgen,$intfc_name,$porttype,$portname)=@_;
|
|
|
my($type,$name,$num)= split("[:\[ \\]]", $intfc_name);
|
my($type,$name,$num)= split("[:\[ \\]]", $intfc_name);
|
my @all_ports;
|
my @all_ports;
|
my @ports;
|
my @ports;
|
|
|
if($type eq 'socket'){
|
if($type eq 'socket'){
|
@all_ports= $intfc->get_socket_port_list($name);
|
@all_ports= $intfc->get_socket_port_list($name);
|
foreach my $p(@all_ports){
|
foreach my $p(@all_ports){
|
my ($r,$t,$c)=$intfc->get_port_info_of_socket($name,$p);
|
my ($r,$t,$c)=$intfc->get_port_info_of_socket($name,$p);
|
if ($t eq $porttype){ push (@ports,$p);}
|
if ($t eq $porttype){ push (@ports,$p);}
|
}
|
}
|
|
|
}elsif($type eq 'plug'){
|
}elsif($type eq 'plug'){
|
@all_ports= $intfc->get_plug_port_list($name);
|
@all_ports= $intfc->get_plug_port_list($name);
|
|
|
foreach my $p(@all_ports){
|
foreach my $p(@all_ports){
|
my ($r,$t,$c)=$intfc->get_port_info_of_plug($name,$p);
|
my ($r,$t,$c)=$intfc->get_port_info_of_plug($name,$p);
|
#print "($t eq $porttype)\n";
|
#print "($t eq $porttype)\n";
|
if ($t eq $porttype){ push (@ports,$p);}
|
if ($t eq $porttype){ push (@ports,$p);}
|
}
|
}
|
|
|
}
|
}
|
else {
|
else {
|
@ports=('IO');
|
@ports=('IO');
|
}
|
}
|
my $saved_intfc_port=$ipgen->ipgen_get_port_intfc_port($portname);
|
my $saved_intfc_port=$ipgen->ipgen_get_port_intfc_port($portname);
|
my $pos=(defined $saved_intfc_port ) ? get_scolar_pos( $saved_intfc_port,@ports) : undef;
|
my $pos=(defined $saved_intfc_port ) ? get_scolar_pos( $saved_intfc_port,@ports) : undef;
|
if (!defined $pos){
|
if (!defined $pos){
|
$pos=find_the_most_similar_position( $portname ,@ports);
|
$pos=find_the_most_similar_position( $portname ,@ports);
|
$ipgen->ipgen_set_port_intfc_port($portname,$ports[$pos]);
|
$ipgen->ipgen_set_port_intfc_port($portname,$ports[$pos]);
|
#print "$ports[$pos]\n;"
|
#print "$ports[$pos]\n;"
|
}
|
}
|
my $intfc_port_combo=gen_combo(\@ports,$pos);
|
my $intfc_port_combo=gen_combo(\@ports,$pos);
|
$intfc_port_combo->signal_connect('changed'=> sub {
|
$intfc_port_combo->signal_connect('changed'=> sub {
|
my $intfc_port=$intfc_port_combo->get_active_text();
|
my $intfc_port=$intfc_port_combo->get_active_text();
|
$ipgen->ipgen_set_port_intfc_port($portname,$intfc_port);
|
$ipgen->ipgen_set_port_intfc_port($portname,$intfc_port);
|
|
|
});
|
});
|
|
|
|
|
return $intfc_port_combo;
|
return $intfc_port_combo;
|
}
|
}
|
|
|
|
|
|
|
sub port_info_box {
|
sub port_info_box {
|
my($intfc,$ipgen,$soc_state,$info)=@_;
|
my($intfc,$ipgen,$soc_state,$info)=@_;
|
my $table=def_table(8,10,TRUE);
|
my $table=def_table(8,10,TRUE);
|
my @ports=$ipgen->ipgen_list_ports;
|
my @ports=$ipgen->ipgen_list_ports;
|
my $row=0;
|
my $row=0;
|
my ($name_ref,$ref)=get_list_of_all_interfaces($ipgen);
|
my ($name_ref,$ref)=get_list_of_all_interfaces($ipgen);
|
my @interfaces_name=@{$name_ref};
|
my @interfaces_name=@{$name_ref};
|
my @interfaces=@{$ref};
|
my @interfaces=@{$ref};
|
#print "@interfaces_name\n";
|
#print "@interfaces_name\n";
|
|
|
$table->attach_defaults (gen_label_in_left(" Type "), 0, 1, $row, $row+1);
|
$table->attach_defaults (gen_label_in_left(" Type "), 0, 1, $row, $row+1);
|
$table->attach_defaults (gen_label_in_left(" Port name "), 1, 3, $row, $row+1);
|
$table->attach_defaults (gen_label_in_left(" Port name "), 1, 3, $row, $row+1);
|
$table->attach_defaults (gen_label_in_left(" Interface name "), 3, 5, $row, $row+1);
|
$table->attach_defaults (gen_label_in_left(" Interface name "), 3, 5, $row, $row+1);
|
$table->attach_defaults (gen_label_in_center(" Range "), 5, 7, $row, $row+1);
|
$table->attach_defaults (gen_label_in_center(" Range "), 5, 7, $row, $row+1);
|
$table->attach_defaults (gen_label_in_left(" Interface port "), 7, 9, $row, $row+1);
|
$table->attach_defaults (gen_label_in_left(" Interface port "), 7, 9, $row, $row+1);
|
$row++;
|
$row++;
|
#print @interfaces;
|
#print @interfaces;
|
my @ports_order=$ipgen->ipgen_get_ports_order();
|
my @ports_order=$ipgen->ipgen_get_ports_order();
|
if(scalar(@ports_order) >1 ){ @ports= @ports_order}
|
if(scalar(@ports_order) >1 ){ @ports= @ports_order}
|
|
|
|
|
|
|
|
|
foreach my $p( @ports){
|
foreach my $p( @ports){
|
my ($range,$type,$intfc_name,$intfc_port)=$ipgen->ipgen_get_port($p);
|
my ($range,$type,$intfc_name,$intfc_port)=$ipgen->ipgen_get_port($p);
|
#my $label_name=gen_label_in_left(" $p ");
|
#my $label_name=gen_label_in_left(" $p ");
|
my $name_entry=gen_entry($p);
|
my $name_entry=gen_entry($p);
|
my $label_type=gen_label_in_left(" $type ");
|
my $label_type=gen_label_in_left(" $type ");
|
my $range_entry=gen_entry($range);
|
my $range_entry=gen_entry($range);
|
my $pos=(defined $intfc_name ) ? get_scolar_pos( $intfc_name,@interfaces) : 0;
|
my $pos=(defined $intfc_name ) ? get_scolar_pos( $intfc_name,@interfaces) : 0;
|
if (!defined $pos){
|
if (!defined $pos){
|
$pos=0;
|
$pos=0;
|
$ipgen->ipgen_set_port_intfc_name($p,'IO');
|
$ipgen->ipgen_set_port_intfc_name($p,'IO');
|
};
|
};
|
my $intfc_name_combo=gen_combo(\@interfaces_name,$pos);
|
my $intfc_name_combo=gen_combo(\@interfaces_name,$pos);
|
my $intfc_port_combo=gen_intfc_port_combo($intfc,$ipgen,$intfc_name,$type,$p);
|
my $intfc_port_combo=gen_intfc_port_combo($intfc,$ipgen,$intfc_name,$type,$p);
|
|
|
|
|
$table->attach_defaults ($label_type, 0, 1, $row, $row+1);
|
$table->attach_defaults ($label_type, 0, 1, $row, $row+1);
|
$table->attach_defaults ($name_entry, 1, 3, $row, $row+1);
|
$table->attach_defaults ($name_entry, 1, 3, $row, $row+1);
|
$table->attach_defaults ($intfc_name_combo,3, 5, $row, $row+1);
|
$table->attach_defaults ($intfc_name_combo,3, 5, $row, $row+1);
|
$table->attach_defaults ($range_entry, 5, 7, $row, $row+1);
|
$table->attach_defaults ($range_entry, 5, 7, $row, $row+1);
|
$table->attach_defaults ($intfc_port_combo,7, 9, $row, $row+1);
|
$table->attach_defaults ($intfc_port_combo,7, 9, $row, $row+1);
|
$intfc_name_combo->signal_connect('changed'=>sub{
|
$intfc_name_combo->signal_connect('changed'=>sub{
|
my $intfc_name=$intfc_name_combo->get_active_text();
|
my $intfc_name=$intfc_name_combo->get_active_text();
|
my $pos= get_scolar_pos( $intfc_name,@interfaces_name);
|
my $pos= get_scolar_pos( $intfc_name,@interfaces_name);
|
#my($type,$name,$num)= split("[:\[ \\]]", $intfc_name);
|
#my($type,$name,$num)= split("[:\[ \\]]", $intfc_name);
|
#print "$type,$name,$num\n";
|
#print "$type,$name,$num\n";
|
$ipgen->ipgen_set_port_intfc_name($p,$interfaces[$pos]);
|
$ipgen->ipgen_set_port_intfc_name($p,$interfaces[$pos]);
|
set_state($soc_state,"interface_selected",1);
|
set_state($soc_state,"interface_selected",1);
|
});
|
});
|
$range_entry->signal_connect('changed'=>sub{
|
$range_entry->signal_connect('changed'=>sub{
|
my $new_range=$range_entry->get_text();
|
my $new_range=$range_entry->get_text();
|
$ipgen->ipgen_add_port($p,$new_range,$type,$intfc_name,$intfc_port);
|
$ipgen->ipgen_add_port($p,$new_range,$type,$intfc_name,$intfc_port);
|
});
|
});
|
|
|
$row++;
|
$row++;
|
}
|
}
|
|
|
|
|
|
|
|
|
return $table;
|
return $table;
|
|
|
|
|
}
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
sub generate_ip{
|
sub generate_ip{
|
my $ipgen=shift;
|
my $ipgen=shift;
|
my $name=$ipgen->ipgen_get_module_name();
|
my $name=$ipgen->ipgen_get_module_name();
|
my $category=$ipgen->ipgen_get_category();
|
my $category=$ipgen->ipgen_get_category();
|
my $ip_name= $ipgen->ipgen_get_ip_name();
|
my $ip_name= $ipgen->ipgen_get_ip_name();
|
#check if name has been set
|
#check if name has been set
|
if(defined ($name) && defined ($category)){
|
if(defined ($name) && defined ($category)){
|
if (!defined $ip_name) {$ip_name= $name}
|
if (!defined $ip_name) {$ip_name= $name}
|
#check if any source file has been added for this ip
|
#check if any source file has been added for this ip
|
my @l=$ipgen->ipgen_get_hdl_files_list();
|
my @l=$ipgen->ipgen_get_files_list("hdl_files");
|
if( scalar @l ==0){
|
if( scalar @l ==0){
|
my $mwindow;
|
my $mwindow;
|
my $dialog = Gtk2::MessageDialog->new ($mwindow,
|
my $dialog = Gtk2::MessageDialog->new ($mwindow,
|
'destroy-with-parent',
|
'destroy-with-parent',
|
'question', # message type
|
'question', # message type
|
'yes-no', # which set of buttons?
|
'yes-no', # which set of buttons?
|
"No hdl library file has been set for this IP. Do you want to generate this IP?");
|
"No hdl library file has been set for this IP. Do you want to generate this IP?");
|
my $response = $dialog->run;
|
my $response = $dialog->run;
|
if ($response eq 'yes') {
|
if ($response eq 'yes') {
|
# Write
|
# Write
|
open(FILE, ">lib/ip/$ip_name.IP") || die "Can not open: $!";
|
open(FILE, ">lib/ip/$ip_name.IP") || die "Can not open: $!";
|
print FILE Data::Dumper->Dump([\%$ipgen],[$name]);
|
print FILE Data::Dumper->Dump([\%$ipgen],[$name]);
|
close(FILE) || die "Error closing file: $!";
|
close(FILE) || die "Error closing file: $!";
|
my $message="IP $ip_name has been generated successfully" ;
|
my $message="IP $ip_name has been generated successfully" ;
|
message_dialog($message);
|
message_dialog($message);
|
|
exec($^X, $0, @ARGV);# reset ProNoC to apply changes
|
}
|
}
|
$dialog->destroy;
|
$dialog->destroy;
|
|
|
|
|
#$dialog->show_all;
|
#$dialog->show_all;
|
|
|
}else{
|
}else{
|
# Write
|
# Write
|
open(FILE, ">lib/ip/$ip_name.IP") || die "Can not open: $!";
|
open(FILE, ">lib/ip/$ip_name.IP") || die "Can not open: $!";
|
print FILE Data::Dumper->Dump([\%$ipgen],[$name]);
|
print FILE Data::Dumper->Dump([\%$ipgen],[$name]);
|
close(FILE) || die "Error closing file: $!";
|
close(FILE) || die "Error closing file: $!";
|
my $message="IP $ip_name has been generated successfully" ;
|
my $message="IP $ip_name has been generated successfully" ;
|
message_dialog($message);
|
message_dialog($message);
|
|
exec($^X, $0, @ARGV);# reset ProNoC to apply changes
|
}
|
}
|
}else{
|
}else{
|
my $message;
|
my $message;
|
if(!defined ($name)){ $message="Input file has not been selected yet.\nNothing has been generated!" ;}
|
if(!defined ($name)){ $message="Input file has not been selected yet.\nNothing has been generated!" ;}
|
elsif(!defined ($category)){ $message="Category must be defined!" ;}
|
elsif(!defined ($category)){ $message="Category must be defined!" ;}
|
message_dialog($message);
|
message_dialog($message);
|
|
|
}
|
}
|
#$hashref = retrieve('file');
|
#$hashref = retrieve('file');
|
|
|
|
|
|
|
return 1;
|
return 1;
|
}
|
}
|
|
|
|
|
|
|
|
|
#########
|
#########
|
#
|
# load_ip
|
########
|
########
|
|
|
sub load_ip{
|
sub load_ip{
|
my ($ipgen,$soc_state)=@_;
|
my ($ipgen,$soc_state)=@_;
|
my $file;
|
my $file;
|
my $dialog = Gtk2::FileChooserDialog->new(
|
my $dialog = Gtk2::FileChooserDialog->new(
|
'Select a File', undef,
|
'Select a File', undef,
|
'open',
|
'open',
|
'gtk-cancel' => 'cancel',
|
'gtk-cancel' => 'cancel',
|
'gtk-ok' => 'ok',
|
'gtk-ok' => 'ok',
|
);
|
);
|
|
|
my $filter = Gtk2::FileFilter->new();
|
my $filter = Gtk2::FileFilter->new();
|
$filter->set_name("IP");
|
$filter->set_name("IP");
|
$filter->add_pattern("*.IP");
|
$filter->add_pattern("*.IP");
|
$dialog->add_filter ($filter);
|
$dialog->add_filter ($filter);
|
my $dir = Cwd::getcwd();
|
my $dir = Cwd::getcwd();
|
$dialog->set_current_folder ("$dir/lib/ip") ;
|
$dialog->set_current_folder ("$dir/lib/ip") ;
|
|
|
|
|
if ( "ok" eq $dialog->run ) {
|
if ( "ok" eq $dialog->run ) {
|
$file = $dialog->get_filename;
|
$file = $dialog->get_filename;
|
my ($name,$path,$suffix) = fileparse("$file",qr"\..[^.]*$");
|
my ($name,$path,$suffix) = fileparse("$file",qr"\..[^.]*$");
|
if($suffix eq '.IP'){
|
if($suffix eq '.IP'){
|
$ipgen->ipgen_set_file($file);
|
$ipgen->ipgen_set_file($file);
|
set_state($soc_state,"load_file",0);
|
set_state($soc_state,"load_file",0);
|
}
|
}
|
}
|
}
|
$dialog->destroy;
|
$dialog->destroy;
|
|
|
|
|
|
|
}
|
}
|
|
|
|
|
|
|
|
###########
|
|
# get header file
|
|
#########
|
|
|
|
sub get_sw_file_folder{
|
|
my ($ipgen,$soc_state,$info,$window)=@_;
|
|
my @sw_dir = $ipgen->ipgen_get_files_list("sw_files");
|
|
my $table = Gtk2::Table->new (15, 15, TRUE);
|
|
|
|
|
|
my $help=gen_label_help("The files and folder that selected here will be copied in genertated processing tile SW folder.");
|
|
|
|
|
|
$table->attach_defaults($help,0,15,0,1);
|
|
my $ok=def_image_button("icons/select.png",' Ok ');
|
|
my $scrwin=gen_file_list($ipgen,"sw_files",\@sw_dir,$ok);
|
|
|
|
my $label=gen_label_in_left("Selecet file(s):");
|
|
my $brows=def_image_button("icons/browse.png",' Browse');
|
|
$table->attach_defaults($label,1,3,1,2);
|
|
$table->attach_defaults($brows,3,5,1,2);
|
|
my $label2=gen_label_in_left("Selecet folder(s):");
|
|
my $brows2=def_image_button("icons/browse.png",' Browse');
|
|
$table->attach_defaults($label2,7,9,1,2);
|
|
$table->attach_defaults($brows2,9,11,1,2);
|
|
|
|
my $dir = Cwd::getcwd();
|
|
my $project_dir = abs_path("$dir/../../"); #mpsoc directory address
|
|
|
|
|
|
$brows->signal_connect("clicked"=> sub {
|
|
my @files;
|
|
my $dialog = Gtk2::FileChooserDialog->new(
|
|
'Select a File',
|
|
undef,
|
|
'open',
|
|
'gtk-cancel' => 'cancel',
|
|
'gtk-ok' => 'ok',
|
|
);
|
|
|
|
my $filter = Gtk2::FileFilter->new();
|
|
my $dir = Cwd::getcwd();
|
|
$dialog->set_current_folder ("$dir/..") ;
|
|
$dialog->set_select_multiple(TRUE);
|
|
|
|
if ( "ok" eq $dialog->run ) {
|
|
@files = $dialog->get_filenames;
|
|
|
|
@sw_dir=$ipgen->ipgen_get_files_list("sw_files");
|
|
foreach my $p (@files){
|
|
#remove $project_dir form beginig of each file
|
|
$p =~ s/$project_dir//;
|
|
if(! grep (/^$p$/,@sw_dir)){push(@sw_dir,$p)};
|
|
|
|
}
|
|
|
|
$ipgen->ipgen_set_files_list("sw_files",\@sw_dir);
|
|
get_software_file($ipgen,$soc_state,$info);
|
|
$window->destroy;
|
|
|
|
|
|
#$$entry_ref->set_text($file);
|
|
|
|
#print "file = $file\n";
|
|
}
|
|
$dialog->destroy;
|
|
|
|
|
|
|
|
} );# # ,\$entry);
|
|
|
|
|
|
|
|
|
|
$brows2->signal_connect("clicked"=> sub {
|
|
my @files;
|
|
|
|
my $dialog = Gtk2::FileChooserDialog->new(
|
|
'Select Folder(s)',
|
|
undef,
|
|
'select-folder',
|
|
'gtk-cancel' => 'cancel',
|
|
'gtk-ok' => 'ok',
|
|
);
|
|
|
|
|
|
|
|
|
|
my $filter = Gtk2::FileFilter->new();
|
|
my $dir = Cwd::getcwd();
|
|
$dialog->set_current_folder ("$dir/..") ;
|
|
$dialog->set_select_multiple(TRUE);
|
|
|
|
if ( "ok" eq $dialog->run ) {
|
|
@files = $dialog->get_filenames;
|
|
|
|
@sw_dir=$ipgen->ipgen_get_files_list("sw_files");
|
|
foreach my $p (@files){
|
|
#remove $project_dir form beginig of each file
|
|
$p =~ s/$project_dir//;
|
|
if(! grep (/^$p$/,@sw_dir)){push(@sw_dir,$p)};
|
|
|
|
}
|
|
|
|
$ipgen->ipgen_set_files_list("sw_files",\@sw_dir);
|
|
get_software_file($ipgen,$soc_state,$info);
|
|
$window->destroy;
|
|
|
|
|
|
#$$entry_ref->set_text($file);
|
|
|
|
#print "file = $file\n";
|
|
}
|
|
$dialog->destroy;
|
|
|
|
|
|
|
|
} );# # ,\$entry);
|
|
|
|
|
|
|
|
|
|
|
|
$table->attach_defaults($scrwin,0,15,2,15);
|
|
#$table->attach_defaults($ok,6,9,14,15);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
my $scrolled_win = new Gtk2::ScrolledWindow (undef, undef);
|
|
$scrolled_win->set_policy( "automatic", "automatic" );
|
|
$scrolled_win->add_with_viewport($table);
|
|
|
|
#$window->add($table);
|
|
#$window->show_all();
|
|
return ($scrolled_win);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
sub get_software_file{
|
|
my($ipgen,$soc_state,$info)=@_;
|
|
|
|
|
|
my $notebook = Gtk2::Notebook->new;
|
|
#$hbox->pack_start ($notebook, TRUE, TRUE, 0);
|
|
|
|
my($width,$hight)=max_win_size();
|
|
my $window = def_popwin_size($width*2/3,$hight*2/3,"Add Software file(s)");
|
|
|
|
|
|
my ($sw_dir)=get_sw_file_folder($ipgen,$soc_state,$info,$window);
|
|
$notebook->append_page ($sw_dir,Gtk2::Label->new_with_mnemonic ("_Add file/folder"));
|
|
|
|
my ($hdr_file,$text_buffer)= get_header_file($ipgen,$soc_state,$info);
|
|
$notebook->append_page ($hdr_file,Gtk2::Label->new_with_mnemonic ("_Add hedaer file"));
|
|
|
|
|
|
|
|
#my $socgen=socgen_main();
|
|
#$notebook->append_page ($socgen,Gtk2::Label->new_with_mnemonic ("_Processing tile generator"));
|
|
|
|
#my $mpsocgen =mpsocgen_main();
|
|
#$notebook->append_page ($mpsocgen,Gtk2::Label->new_with_mnemonic ("_NoC based MPSoC generator"));
|
|
|
|
|
|
my $table=def_table (15, 15, TRUE);
|
|
|
|
|
|
my $scrolled_win = new Gtk2::ScrolledWindow (undef, undef);
|
|
$scrolled_win->set_policy( "automatic", "automatic" );
|
|
$scrolled_win->add_with_viewport($table);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
my $ok=def_image_button("icons/select.png",' Ok ');
|
|
$ok->signal_connect("clicked"=> sub {
|
|
$window->destroy;
|
|
|
|
my $text = $text_buffer->get_text($text_buffer->get_bounds, TRUE);
|
|
$ipgen->ipgen_set_hdr($text);
|
|
#print "$text\n";
|
|
|
|
});
|
|
|
|
#$table->attach_defaults ($event_box, $col, $col+1, $row, $row+1);
|
|
$table->attach_defaults ($ok , 7, 9, 14, 15);
|
|
|
|
$table->attach_defaults ($notebook , 0, 15, 0, 14);
|
|
#
|
|
$window->add($scrolled_win);
|
|
$window->show_all;
|
|
return $window;
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
############
|
|
# get_unused_intfc_ports_list
|
|
###########
|
|
|
|
sub get_unused_intfc_ports_list {
|
|
my($intfc,$ipgen,$soc_state,$info)=@_;
|
|
my @ports=$ipgen->ipgen_list_ports;
|
|
my ($name_ref,$ref)=get_list_of_all_interfaces($ipgen);
|
|
my @interfaces_name=@{$name_ref};
|
|
my @interfaces=@{$ref};
|
|
$ipgen->ipgen_remove_unused_intfc_port( );
|
|
foreach my $intfc_name (@interfaces)
|
|
{
|
|
#print "$intfc_name\n";
|
|
my($type,$name,$num)= split("[:\[ \\]]", $intfc_name);
|
|
my @all_ports;
|
|
if($type eq 'socket'){
|
|
@all_ports= $intfc->get_socket_port_list($name);
|
|
|
|
}elsif($type eq 'plug'){
|
|
@all_ports= $intfc->get_plug_port_list($name);
|
|
}
|
|
foreach my $p(@all_ports){
|
|
my $r= check_intfc_port_exits($intfc,$ipgen,$soc_state,$info,$intfc_name,$p);
|
|
if ($r eq "0"){
|
|
$ipgen->ipgen_add_unused_intfc_port( $intfc_name,$p );
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
}
|
|
|
|
sub check_intfc_port_exits{
|
|
my($intfc,$ipgen,$soc_state,$info,$intfc_name,$intfc_port)=@_;
|
|
my @ports=$ipgen->ipgen_list_ports;
|
|
|
|
|
|
my $result="0";
|
|
foreach my $p( @ports){
|
|
my ($range,$type,$assigned_intfc_name,$assigned_intfc_port)=$ipgen->ipgen_get_port($p);
|
|
#print "if($intfc_name eq $assigned_intfc_name && $intfc_port eq $assigned_intfc_port);\n";
|
|
|
|
if($intfc_name eq $assigned_intfc_name && $intfc_port eq $assigned_intfc_port){
|
|
if($result eq "1"){# one interface port has been connected to multiple IP port
|
|
|
|
}
|
|
$result = "1";
|
|
|
|
}
|
|
}
|
|
return $result;
|
|
|
|
}
|
|
|
|
|
############
|
############
|
# main
|
# main
|
############
|
############
|
sub ipgen_main{
|
sub ipgen_main{
|
my $ipgen=shift;
|
my $ipgen=shift;
|
my $intfc=interface->interface_new();
|
my $intfc=interface->interface_new();
|
if(!defined $ipgen) { $ipgen=ip_gen->ip_gen_new();}
|
if(!defined $ipgen) { $ipgen=ip_gen->ip_gen_new();}
|
#my $ipgen = eval { do 'lib/ip/wishbone_bus.IP' };
|
#my $ipgen = eval { do 'lib/ip/wishbone_bus.IP' };
|
my $soc_state= def_state("ideal");
|
my $soc_state= def_state("ideal");
|
# main window
|
# main window
|
#my $window = def_win_size(1000,800,"Top");
|
#my $window = def_win_size(1000,800,"Top");
|
# The main table containg the lib tree, selected modules and info section
|
# The main table containg the lib tree, selected modules and info section
|
my $main_table = def_table (15, 12, TRUE);
|
my $main_table = def_table (15, 12, FALSE);
|
|
|
# The box which holds the info, warning, error ... mesages
|
# The box which holds the info, warning, error ... mesages
|
my ($infobox,$info)= create_text();
|
my ($infobox,$info)= create_text();
|
|
|
|
|
my $refresh_dev_win = Gtk2::Button->new_from_stock('ref');
|
my $refresh_dev_win = Gtk2::Button->new_from_stock('ref');
|
my $generate = def_image_button('icons/gen.png','Generate');
|
my $generate = def_image_button('icons/gen.png','Generate');
|
my $genbox=def_hbox(TRUE,5);
|
my $genbox=def_hbox(TRUE,5);
|
$genbox->pack_start($generate, FALSE, FALSE,3);
|
$genbox->pack_start($generate, FALSE, FALSE,3);
|
|
|
# A tree view for holding a library
|
# A tree view for holding a library
|
my $tree_box = create_interface_tree ($info,$intfc,$ipgen,$soc_state);
|
my $tree_box = create_interface_tree ($info,$intfc,$ipgen,$soc_state);
|
|
|
|
|
my $file_info=show_file_info($ipgen,$soc_state,$info,\$refresh_dev_win);
|
my $file_info=show_file_info($ipgen,$soc_state,$info,\$refresh_dev_win);
|
my $port_info=show_port_info($intfc,$ipgen,$soc_state,$info,\$refresh_dev_win);
|
my $port_info=show_port_info($intfc,$ipgen,$soc_state,$info,\$refresh_dev_win);
|
my $intfc_info=show_interface_info($intfc,$ipgen,$soc_state,$info,\$refresh_dev_win);
|
my $intfc_info=show_interface_info($intfc,$ipgen,$soc_state,$info,\$refresh_dev_win);
|
|
|
|
|
my $open = def_image_button('icons/browse.png','Load IP');
|
my $open = def_image_button('icons/browse.png','Load IP');
|
my $openbox=def_hbox(TRUE,0);
|
my $openbox=def_hbox(TRUE,0);
|
$openbox->pack_start($open, FALSE, FALSE,0);
|
$openbox->pack_start($open, FALSE, FALSE,0);
|
|
|
$main_table->set_row_spacings (4);
|
$main_table->set_row_spacings (4);
|
$main_table->set_col_spacings (1);
|
$main_table->set_col_spacings (1);
|
|
|
#my $device_win=show_active_dev($soc,$lib,$infc,$soc_state,\$refresh_dev_win,$info);
|
#my $device_win=show_active_dev($soc,$lib,$infc,$soc_state,\$refresh_dev_win,$info);
|
|
|
|
|
#$table->attach_defaults ($event_box, $col, $col+1, $row, $row+1);
|
#$table->attach_defaults ($event_box, $col, $col+1, $row, $row+1);
|
$main_table->attach_defaults ($tree_box , 0, 2, 0, 13);
|
$main_table->attach_defaults ($tree_box , 0, 2, 0, 13);
|
$main_table->attach_defaults ($file_info , 2, 12, 0, 2);
|
$main_table->attach_defaults ($file_info , 2, 12, 0, 2);
|
$main_table->attach_defaults ($intfc_info , 2, 12, 2, 7);
|
$main_table->attach_defaults ($intfc_info , 2, 12, 2, 7);
|
|
|
$main_table->attach_defaults ($port_info , 2, 12, 7,13);
|
$main_table->attach_defaults ($port_info , 2, 12, 7,13);
|
$main_table->attach_defaults ($infobox , 0, 12, 13,14);
|
$main_table->attach_defaults ($infobox , 0, 12, 13,14);
|
$main_table->attach_defaults ($genbox, 6, 8, 14,15);
|
$main_table->attach_defaults ($genbox, 6, 8, 14,15);
|
$main_table->attach_defaults ($openbox,0, 1, 14,15);
|
$main_table->attach_defaults ($openbox,0, 1, 14,15);
|
|
|
#check soc status every 0.5 second. referesh device table if there is any changes
|
#check soc status every 0.5 second. referesh device table if there is any changes
|
Glib::Timeout->add (100, sub{
|
Glib::Timeout->add (100, sub{
|
|
|
my ($state,$timeout)= get_state($soc_state);
|
my ($state,$timeout)= get_state($soc_state);
|
if($state eq "load_file"){
|
if($state eq "load_file"){
|
my $file=$ipgen->ipgen_get_file();
|
my $file=$ipgen->ipgen_get_file();
|
my $pp= eval { do $file };
|
my $pp= eval { do $file };
|
clone_obj($ipgen,$pp);
|
clone_obj($ipgen,$pp);
|
|
|
|
|
set_state($soc_state,"ref",1);
|
set_state($soc_state,"ref",1);
|
|
|
|
|
}elsif ($timeout>0){
|
}elsif ($timeout>0){
|
$timeout--;
|
$timeout--;
|
set_state($soc_state,$state,$timeout);
|
set_state($soc_state,$state,$timeout);
|
}
|
}
|
elsif( $state eq "change_parameter" ){
|
elsif( $state eq "change_parameter" ){
|
get_parameter_setting($ipgen,$soc_state,$info);
|
get_parameter_setting($ipgen,$soc_state,$info);
|
set_state($soc_state,"ideal",0);
|
set_state($soc_state,"ideal",0);
|
|
|
|
|
|
|
}
|
}
|
elsif( $state ne "ideal" ){
|
elsif( $state ne "ideal" ){
|
$refresh_dev_win->clicked;
|
$refresh_dev_win->clicked;
|
set_state($soc_state,"ideal",0);
|
set_state($soc_state,"ideal",0);
|
|
|
|
|
}
|
}
|
return TRUE;
|
return TRUE;
|
|
|
} );
|
} );
|
$open-> signal_connect("clicked" => sub{
|
$open-> signal_connect("clicked" => sub{
|
load_ip($ipgen,$soc_state);
|
load_ip($ipgen,$soc_state);
|
|
|
});
|
});
|
|
|
$generate-> signal_connect("clicked" => sub{
|
$generate-> signal_connect("clicked" => sub{
|
|
get_unused_intfc_ports_list ($intfc,$ipgen,$soc_state,$info);
|
generate_ip($ipgen);
|
generate_ip($ipgen);
|
|
|
$refresh_dev_win->clicked;
|
$refresh_dev_win->clicked;
|
|
|
});
|
});
|
|
|
#show_selected_dev($info,\@active_dev,\$dev_list_refresh,\$dev_table);
|
#show_selected_dev($info,\@active_dev,\$dev_list_refresh,\$dev_table);
|
|
|
|
|
|
|
#$box->show;
|
#$box->show;
|
#$window->add ($main_table);
|
#$window->add ($main_table);
|
#$window->show_all;
|
#$window->show_all;
|
#return $main_table;
|
#return $main_table;
|
my $sc_win = new Gtk2::ScrolledWindow (undef, undef);
|
my $sc_win = new Gtk2::ScrolledWindow (undef, undef);
|
$sc_win->set_policy( "automatic", "automatic" );
|
$sc_win->set_policy( "automatic", "automatic" );
|
$sc_win->add_with_viewport($main_table);
|
$sc_win->add_with_viewport($main_table);
|
|
|
return $sc_win;
|
return $sc_win;
|
|
|
|
|
}
|
}
|
|
|
|
|
|
|
|
|
No newline at end of file
|
No newline at end of file
|
