#! /usr/bin/perl -w
use constant::boolean;
use strict;
use warnings;
use FindBin;
use lib $FindBin::Bin;
use wb_addr;
use interface;
use intfc_gen;
use ip_gen;
use ip;
use rvp;
use Cwd 'abs_path';
use File::Basename;
use File::Path qw/make_path/;
require "widget.pl";
require "readme_gen.pl";
################
# check_input_file
################
sub check_input_file{
my ($file,$ipgen,$info)=@_;
my ($name,$path,$suffix) = fileparse("$file",qr"\..[^.]*$");
if($suffix eq '.IP'){
$ipgen->ipgen_add("file_name",$file);
set_gui_status($ipgen,"load_file",0);
}else{
read_all_module ($file,$ipgen,$info);
}
}
sub read_all_module{
my ($file,$ipgen,$info)=@_;
if (!defined $file) {
add_colored_info($info,"No input file is given. Please set an input Verilog fle first.\n", 'red');
return;
}
my $f=add_project_dir_to_addr($file);
if (-f $f) {
my $vdb = read_verilog_file($f);
my @modules=sort $vdb->get_modules($f);
#foreach my $p(@module_list) {print "$p\n"}
$ipgen->ipgen_add("file_name",$file);
$ipgen->ipgen_add("module_name",$modules[0]);
$ipgen->ipgen_set_module_list(@modules);
load_default_setting($ipgen,$modules[0]);
set_gui_status($ipgen,"file_selected",1);
add_info($info,"$f is loaded\n");
}
else {
add_colored_info($info,"File $file does not exist!\n", 'red');
}
}
sub save_ports_all{
my ($ipgen,$vdb,$top_module)=@_;
foreach my $sig (sort $vdb->get_modules_signals($top_module)) {
my ($line,$a_line,$i_line,$type,$file,$posedge,$negedge,
$type2,$s_file,$s_line,$range,$a_file,$i_file,$dims) =
$vdb->get_module_signal($top_module,$sig);
if($type eq "input" or $type eq "inout" or $type eq "output" ){
$ipgen->ipgen_add_port($sig,$range,$type,'IO','IO');
#print "$sig,$range,$type,'IO','IO'\n";
}
}
}
############
# file_info
#############
sub ip_file_box {
my ($ipgen,$info,$table,$row)=@_;
my $label = gen_label_in_left(" Select file:");
my $entry = gen_entry();
#my $open= def_image_button("icons/select.png","Open");
my $browse= def_image_button("icons/browse.png","Browse");
my $file= $ipgen->ipgen_get("file_name");
if(defined $file){$entry->set_text($file);}
else {show_info($info,"Please select the verilog file containing the top level IP core\n");}
my $entry2=gen_label_info(" IP name:",gen_entry_object($ipgen,'ip_name',undef,undef,undef,undef));
#show_info($info,"Please select the verilog file containing the ip module\n");
$browse->signal_connect("clicked"=> sub{
my $entry_ref=$_[1];
my $file;
my $dialog = gen_file_dialog (undef, 'v','IP');
if ( "ok" eq $dialog->run ) {
$file = $dialog->get_filename;
$$entry_ref->set_text($file);
check_input_file($file,$ipgen,$info);
}
$dialog->destroy;
} , \$entry);
$entry->signal_connect("activate"=>sub{
my $file_name=$entry->get_text();
check_input_file($file_name,$ipgen,$info);
});
$entry->signal_connect("changed"=>sub{
#my $file_name=$entry->get_text();
#check_input_file($file_name,$ipgen,$info);
});
$table->attach_defaults ($label, 0, 1 , $row, $row+1);
$table->attach_defaults ($entry, 1, 8 , $row, $row+1);
$table->attach ($browse, 8, 9, $row, $row+1,,'expand','shrink',2,2);
$table->attach_defaults ($entry2, 9, 11, $row, $row+1);
}
sub select_module{
my ($ipgen,$info,$table,$row)=@_;
my @modules= $ipgen->ipgen_get_module_list();
my $saved_module=$ipgen->ipgen_get("module_name");
my $pos=(defined $saved_module ) ? get_scolar_pos( $saved_module,@modules) : 0;
my $combo = gen_combo(\@modules, $pos);
my $top_module=gen_label_info(" Select\n module:",$combo);
my $param= def_image_button("icons/setting.png","Parameter\n setting");
my $def= def_image_button("icons/setting.png","Definition\n file setting");
#Category
my $ip = ip->lib_new ();
my @categories= $ip->ip_get_categories();
$ip =undef;
my $saved_category=$ipgen->ipgen_get("category");
if(defined $saved_category ){ push(@categories,$saved_category) if(!( grep /^$saved_category$/, @categories ));}
my $content=join( ',', @categories);
my $combentry=gen_comboentry_object ($ipgen,'category',undef,$content,$saved_category,undef,undef);
my $category=gen_label_info(" Select\n Category:",$combentry,"Select the IP category form the given list or you can add a new category.");
my $ipinfo= def_image_button("icons/add_info.png"," IP\n Description");
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\n files");
#$table->attach_defaults ($top_module, 0, 1 , $row, $row+1);
$table->attach ($top_module, 0, 4 , $row,$row+1,'fill','shrink',2,2);
$table->attach ($param, 4, 6 , $row, $row+1,'expand','shrink',2,2);
$table->attach ($category, 6, 8 , $row, $row+1,'expand','shrink',2,2);
$table->attach ($ipinfo, 8, 9 , $row, $row+1,'expand','shrink',2,2);
$table->attach ($header_h, 9, 10 , $row, $row+1,'expand','shrink',2,2);
$table->attach ($lib_hdl, 10, 11 , $row, $row+1,'expand','shrink',2,2);
$combo->signal_connect("changed"=> sub{
my $module= $combo->get_active_text();
load_default_setting($ipgen,$module);
set_gui_status($ipgen,'intfc_changed',0);
});
$param->signal_connect("clicked"=> sub{
get_parameter_setting($ipgen,$info);
});
$def->signal_connect("clicked"=> sub{
get_def_setting($ipgen,$info);
});
$ipinfo->signal_connect("clicked"=> sub{
get_Description($ipgen,$info);
});
$header_h->signal_connect("clicked"=> sub{
my %page_info;
my $help1="The files and folder that selected here will be copied in generated processing tile SW folder.";
my $help2="The file listed here can contain some variable with \${var_name} format. The file generator will replace them with their values during file generation. The variable can be selected from above listed global variables";
my $help3='Define the header file for this peripheral device. You can use global variables listed at the top. This file contains peripheral device functions\' deceleration, memory-mapped register address definition, definitions of data types, and C preprocessor commands. Do not put function definitions in the header file. Functions should be defined in add to tile.c section.
header file example
#define ${IP}_REG_0 (*((volatile unsigned int *) ($BASE)))
#define ${IP}_REG_1 (*((volatile unsigned int *) ($BASE+4)))
#define ${IP}_WRITE_REG1(value) ${IP}_REG_1=value
#define ${IP}_READ_REG1() ${IP}_REG_1
';
my $help4='Define peripheral device\'s functions in this file. You can use global variables listed at the top.
';
$page_info{0}{page_name} = "_Add existing file/folder";
$page_info{0}{filed_name}= "sw_files";
$page_info{0}{filed_type}= "existing_file/folder";
$page_info{0}{rename_file}=undef;
$page_info{0}{folder_en}=1;
$page_info{0}{help}=$help1;
$page_info{1}{page_name} = "_Add files contain variables";
$page_info{1}{filed_name}= "gen_sw_files";
$page_info{1}{filed_type}= "file_with_variables";
$page_info{1}{rename_file}=1;
$page_info{1}{folder_en}=0;
$page_info{1}{help}=$help2;
$page_info{2}{page_name} = "_Add to tile.h";
$page_info{2}{filed_name}= "system_h";
$page_info{2}{filed_type}= "file_content";
$page_info{2}{rename_file}=undef;
$page_info{2}{folder_en}=0;
$page_info{2}{help}=$help3;
$page_info{3}{page_name} = "_Add to tile.c";
$page_info{3}{filed_name}= "system_c";
$page_info{3}{filed_type}= "file_content";
$page_info{3}{rename_file}=undef;
$page_info{3}{folder_en}=0;
$page_info{3}{help}=$help4;
get_source_file($ipgen,$info,0,"Add software file(s)","SW",\%page_info);
#get_software_file($ipgen,$info,0);
});
$lib_hdl->signal_connect("clicked"=> sub{
my $help1="The files and folder that selected here will be copied in the generated processing tile src_verilog folder. If you tick simulation only option for each file/folder, they will be copied in src_sim folder instead and will only be used for simulation.";
my $help2="The files listed here can contain some variables with \${var_name} format. The file generator will replace them with their values during file generation. The variable can be selected from the above listed global variables.";
my $help3='The content here will be added to the generated tile.v file. You can define functions/tasks etc...';
my %page_info;
$page_info{0}{page_name} = "_Add existing HDL file/folder";
$page_info{0}{filed_name}= "hdl_files";
$page_info{0}{filed_type}= "existing_file/folder";
$page_info{0}{rename_file}=undef;
$page_info{0}{folder_en}=1;
$page_info{0}{help}=$help1;
$page_info{0}{tick}="Used only for Simulation";
$page_info{1}{page_name} = "_Add files contain variables";
$page_info{1}{filed_name}= "gen_hw_files";
$page_info{1}{filed_type}= "file_with_variables";
$page_info{1}{rename_file}=1;
$page_info{1}{folder_en}=0;
$page_info{1}{help}=$help2;
$page_info{2}{page_name} = "_Add to tile.v";
$page_info{2}{filed_name}= "system_v";
$page_info{2}{filed_type}= "file_content";
$page_info{2}{rename_file}=undef;
$page_info{2}{folder_en}=0;
$page_info{2}{help}=$help3;
get_source_file($ipgen,$info,0,"Add HDL file(s)", "hw",\%page_info);
#get_hdl_file($ipgen,$info);
});
}
sub load_default_setting{
my ($ipgen,$module)=@_;
my $file= $ipgen->ipgen_get("file_name");
$file=add_project_dir_to_addr($file);
$ipgen->ipgen_add("module_name",$module);
my $vdb =read_verilog_file($file);
my %parameters = $vdb->get_modules_parameters_not_local($module);
my @parameters_order= $vdb->get_modules_parameters_not_local_order($module);
my @ports_order=$vdb->get_module_ports_order($module);
#print "@port_order\n";
#add default parameter setting
$ipgen->ipgen_remove_all_parameters();
foreach my $p (keys %parameters){
#print "$p\n";
my $v = $parameters{$p};
$v =~s/[\n]//gs;
$ipgen->ipgen_add_parameter($p,$v,'Fixed','','Parameter',1);
}
#add parameter order.
$ipgen->ipgen_add("parameters_order",\@parameters_order);
#add port order.
$ipgen->ipgen_add_ports_order(@ports_order);
#add ports
$ipgen->ipgen_remove_all_ports();
save_ports_all($ipgen,$vdb,$module);
}
sub file_info_box {
my($ipgen,$info)=@_;
my $table=def_table(2,11,FALSE);
my $table1=def_table(1,11,FALSE);
my $table2=def_table(1,11,FALSE);
ip_file_box ($ipgen,$info,$table1,0);
select_module($ipgen,$info,$table2,0);
$table->attach($table1,0,11,0,1,'fill','shrink',2,2);
$table->attach($table2,0,11,1,2,'fill','shrink',2,2);
return add_widget_to_scrolled_win($table);
}
sub show_port_info{
my($intfc,$ipgen,$info,$refresh_ref)=@_;
my $table = port_info_box($intfc,$ipgen,$info,$info);
my $scrolled_win = add_widget_to_scrolled_win($table);
$$refresh_ref-> signal_connect("clicked" => sub{
$table->destroy;
$table = port_info_box($intfc,$ipgen,$info,$info);
add_widget_to_scrolled_win($table,$scrolled_win);
$table->show;
$scrolled_win->show_all;
});
return $scrolled_win;
}
############
# get_parameter_setting
##########
sub get_parameter_setting {
my ($ipgen,$info)=@_;
my $file= $ipgen->ipgen_get("file_name");
if (!defined $file) {
message_dialog("The input Verilog file is empty");
#return;
}
my $module = $ipgen->ipgen_get("module_name");
my $window = def_popwin_size(85,50,"Define parameters detail",'percent');
my @widget_type_list=("Fixed","Entry","Combo-box","Spin-button");
my @param_type_list=("Parameter","Localparam","Don't include");
my $type_info="Define the parameter type:
Fixed: The parameter is fixed and get the default value. Users can not see or change the parameter value.
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='
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 Spin button define it as "minimum, maximum, step" e.g 0,10,1.';
my $param_info='Define how parameter is included in the top module containig this IP core.';
my $redefine_info='
If checked, the defined parameter/localparam in SoC will be passed to the IP core';
#TABLE
my $table = def_table(12,8,FALSE);
my @positions=(0,1,2,3,4,5,6,7,8);
my $col=0;
#title
my @title;
$title[0]=gen_label_in_center("Parameter name");
$title[1]=gen_label_in_center("Default value");
$title[2]=gen_label_help($type_info,"Widget type");
$title[3]=gen_label_help($content_info,"Widget content");
$title[4]=gen_label_help($param_info,"Type");
$title[5]=gen_label_help($redefine_info,"");
$title[6]=gen_label_help("You can add additional information about this parameter.","info");
$title[7]=gen_label_in_center("add/remove");
foreach my $t (@title){
$table->attach ($title[$col], $positions[$col], $positions[$col+1], 0, 1,'expand','shrink',2,2); $col++;
}
my @parameters=$ipgen->ipgen_get_all_parameters_list();
my @params_order= $ipgen->ipgen_get_list("parameters_order");
if((@params_order)) {@parameters=@params_order;}
my $ok = def_image_button('icons/select.png','OK');
my ($b,$new_param)= def_h_labeled_entry("Add new parameter name:");
my $add = def_image_button('icons/plus.png','Add parameter');
my $addbox=def_hbox(FALSE,0);
$addbox->pack_start($b,FALSE, FALSE,0);
$addbox->pack_start($add, FALSE, FALSE,0);
my @allowed;
my $row=1;
my $error;
push(@parameters,"#new#");
foreach my $p (@parameters) {
my ($saved_default,$saved_widget_type,$saved_content,$saved_info,$vfile_param_type,$redefine_param)= $ipgen->ipgen_get_parameter_detail($p);
#print "($saved_default,$saved_type,$saved_content)\n";
my $parameter_box = def_hbox(TRUE,5);
my $param_name;
my $add_remove;
if($p ne "#new#"){
$param_name= def_label($p);
$add_remove=def_image_button("icons/cancel.png","remove");
} else {
$param_name= gen_entry();
$add_remove=def_image_button("icons/plus.png","add");
}
my $default_entry= gen_entry($saved_default);
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 $content_entry= gen_entry($saved_content);
$vfile_param_type= "Don't include" if (!defined $vfile_param_type );
$vfile_param_type= "Parameter" if ($vfile_param_type eq 1);
$vfile_param_type= "Localparam" if ($vfile_param_type eq 0);
$pos=get_scolar_pos($vfile_param_type,@param_type_list);
my $check_param= gen_combo(\@param_type_list, $pos);
#$check_param->set_active($vfile_param_type) if(defined $vfile_param_type );
my $check_redefine= gen_checkbutton('Redefine');
$check_redefine->set_active(1) ;
$check_redefine->set_active($redefine_param) if(defined $redefine_param );
my $info=def_image_button("icons/add_info.png");
#print "\$vfile_param_type =$vfile_param_type\n";
$col=0;
my @all_widget=($param_name,$default_entry,$widget_type_combo,$content_entry,$check_param,$check_redefine,$info,$add_remove);
foreach my $t (@all_widget){
$table->attach ($t, $positions[$col], $positions[$col+1], $row, $row+1,'expand','shrink',2,2);$col++;
}
$info->signal_connect (clicked => sub{
get_param_info($ipgen,\$saved_info);
});
$ok->signal_connect (clicked => sub{
if($p ne "#new#"){
my $default=$default_entry->get_text();
my $type= $widget_type_combo->get_active_text();
my $content=$content_entry->get_text();
my $vfile_param_type=$check_param->get_active_text();
my $check_result=$check_redefine->get_active();
my $redefine_param=($check_result eq 1)? 1:0;
$ipgen->ipgen_add_parameter($p,$default,$type,$content,$saved_info,$vfile_param_type,$redefine_param);
if ($type eq "Spin-button"){
my @d=split(/\s*,\s*/,$content);
if( scalar @d != 3){
$error=$error."wrong content setting for parameter $p\n" ;
print "$error";
}
}
}
});
$add_remove->signal_connect (clicked => sub{
if($p eq "#new#"){ #add new parameter
my $param= $param_name->get_text();
$param=remove_all_white_spaces($param);
if( length($param) ){
my $default=$default_entry->get_text();
my $type=$widget_type_combo->get_active_text();
my $content=$content_entry->get_text();
my $vfile_param_type=$check_param->get_active_text();
my $check_result=$check_redefine->get_active();
my $redefine_param=($check_result eq 1)? 1:0;
$ipgen->ipgen_add_parameter($param,$default,$type,$content,$saved_info,$vfile_param_type,$redefine_param);
$ipgen->ipgen_push_parameters_order($param);
set_gui_status($ipgen,"change_parameter",0);
$ok->clicked;
#$window->destroy();
}
} else { #remove the parameter
$ipgen->ipgen_remove_parameter($p);
$ipgen->ipgen_remove_parameters_order($p);
$p = "#new#";
set_gui_status($ipgen,"change_parameter",0);
$ok->clicked;
#$window->destroy();
}
#my $param_name=$new_param->get_text();
# if( length($param_name) ){
# print "$param_name\n";
# $ipgen->ipgen_add_parameter($param_name,undef);
# set_gui_status($ipgen,"change_parameter",0);
# $window->destroy();
});
$row++;
}
my $scrolled_win = add_widget_to_scrolled_win($table);
$add->signal_connect (clicked => sub{
my $param_name=$new_param->get_text();
if( length($param_name) ){
#print "$param_name\n";
$ipgen->ipgen_add_parameter($param_name,undef);
set_gui_status($ipgen,"change_parameter",0);
$window->destroy();
}
#/*******************************************************************************************************************************/
});
$ok->signal_connect (clicked => sub{
if (defined $error){
message_dialog("$error",'error');
$error=undef;
}else {
$window->destroy();
}
});
my $mtable = def_table(10, 1, FALSE);
$mtable->attach_defaults($scrolled_win,0,1,0,9);
$mtable->attach($ok,0,1,9,10,'expand','shrink',2,2);
$window->add ($mtable);
$window->show_all();
}
############
# get_def_setting
##########
sub get_def_setting {
my ($ipgen,$info)=@_;
my $table = def_table (15, 15, TRUE);
my $table2 = def_table (15, 15, TRUE);
my $window = def_popwin_size(70,70,"Add definition file",'percent');
my $ok=def_image_button("icons/select.png",' Ok ');
my $scrwin = add_widget_to_scrolled_win($table2);
my $label=gen_label_help("You ","Select the Verilog file containing the definitions.");
my $brows=def_image_button("icons/browse.png",' Browse');
$table->attach_defaults($label,0,10,0,1);
$table->attach($brows,10,12,1,2,'expand','shrink',2,2);
$table->attach_defaults($scrwin,0,15,2,14);
$table->attach($ok,6,9,14,15,'expand','shrink',2,2);
$window->add($table);
$window->show_all;
}
###########
# get description
#########
sub get_Description{
my ($ipgen,$info)=@_;
my $description = $ipgen->ipgen_get("description");
my $table = def_table (15, 15, FALSE);
my $window = def_popwin_size(40,40, "Add description",'percent');
my ($scrwin,$text_view)=create_txview();
#my $buffer = $textbox->get_buffer();
my $ok=def_image_button("icons/select.png",' Ok ');
$table->attach_defaults(gen_label_help("User can open the PDF file when opening IP parameter setting","IP Documentation file in PDF"),0,7,0,1);
$table->attach_defaults(gen_label_help("Description will be shown on IP generator text view when selecting this IP","Short Description"),5,10,1,2);
$table->attach_defaults(get_file_name_object ( $ipgen, 'description_pdf',undef,"pdf",undef),7,15,0,1);
$table->attach_defaults($scrwin,0,15,2,14);
$table->attach($ok,6,9,14,15,'expand','shrink',2,2);
my $text_buffer = $text_view->get_buffer;
if(defined $description) {$text_buffer->set_text($description)};
$ok->signal_connect("clicked"=> sub {
$window->destroy;
my $text = $text_buffer->get_text($text_buffer->get_bounds, TRUE);
$ipgen->ipgen_add("description",$text);
#print "$text\n";
});
$window->add($table);
$window->show_all();
}
##########
# gen_file_list
#########
sub gen_file_list{
my ($ipgen,$list_name,$window,$rename_file_en,$tick)=@_;
my $table=def_table(10,10,FALSE);# my ($row,$col,$homogeneous)=@_;
my $ok=def_image_button("icons/select.png",' Ok ');
my $scrolled_win = add_widget_to_scrolled_win($table);
$table->attach (gen_label_in_center("File path"), 0, 5 , 0, 1,'expand','shrink',2,2);
$table->attach (gen_label_help("The target name can contain any of Global variables e.g \$IP\$.h","Copy as"), 5, 9 , 0, 1,'expand','shrink',2,2) if(defined $rename_file_en);
$table->attach (gen_label_in_center("$tick"), 9, 10 , 0, 1,'expand','shrink',2,2) if (defined $tick);
my $col=0;
my $row=1;
my @files= $ipgen->ipgen_get_list($list_name); #@{$ref};
my $file_num= scalar @files;
foreach my $p(@files){
my ($path,$rename)=split('frename_sep_t',$p);
my $entry=gen_entry($path);
my $entry2=gen_entry($rename);
my $remove=def_image_button("icons/cancel.png");
$table->attach ($entry, 0, 5 , $row, $row+1,'fill','shrink',2,2);
$table->attach ($entry2, 5, 9 , $row, $row+1,'fill','shrink',2,2) if(defined $rename_file_en);
$table->attach ($remove, 10,11 , $row, $row+1,'expand','shrink',2,2);
my $check= gen_checkbutton();
if (defined $tick){
$table->attach ($check, 9,10 , $row, $row+1,'expand','shrink',2,2);
$check-> signal_connect("toggled" => sub{
my @ticked_files=$ipgen->ipgen_get_list($list_name."_ticked");
@ticked_files =() if (!@ticked_files);
if($check->get_active()){
push(@ticked_files,$p);
}else{
@ticked_files=remove_scolar_from_array(\@ticked_files,$p);
}
$ipgen->ipgen_add($list_name."_ticked",\@ticked_files);
});
}
$row++;
$remove->signal_connect("clicked"=> sub {
my @saved_files=$ipgen->ipgen_get_list($list_name);
@saved_files=remove_scolar_from_array(\@saved_files,$p);
$ipgen->ipgen_add($list_name,\@saved_files);
my @ticked_files=$ipgen->ipgen_get_list($list_name."_ticked");
@ticked_files=remove_scolar_from_array(\@ticked_files,$p);
$ipgen->ipgen_add($list_name."_ticked",\@ticked_files);
$entry->destroy;
$entry2->destroy if(defined $rename_file_en);
$remove->destroy;
});
$ok->signal_connect("clicked"=> sub {
if(defined $entry){
my $n= $entry->get_text();
if(defined $rename_file_en){
$n= $n.'frename_sep_t'.$entry2->get_text() ;
}
if($p ne $n){
my @saved_files=$ipgen->ipgen_get_list($list_name);
@saved_files=replace_in_array(\@saved_files,$p, $n);
$ipgen->ipgen_add($list_name,\@saved_files);
}
}
});
}
$ok->signal_connect("clicked"=> sub {
$window->destroy;
});
# while( $row<10){
# my $label=gen_label_in_left(' ');
# $table->attach_defaults ($label, 0, 1 , $row, $row+1);$row++;
#}
return ($scrolled_win,$ok);
}
sub get_param_info{
my ($ipgen,$saved_info)=@_;
my $table = def_table (15, 15, FALSE);
my $window = def_popwin_size(50,50,"Add description",'percent');
my ($scrwin,$text_view)=create_txview();
my $ok=def_image_button("icons/select.png",' Ok ');
$table->attach_defaults($scrwin,0,15,0,14);
$table->attach($ok,6,9,14,15,'expand','shrink',2,2);
my $text_buffer = $text_view->get_buffer;
if(defined $$saved_info) {$text_buffer->set_text($$saved_info)};
$ok->signal_connect("clicked"=> sub {
$window->destroy;
$$saved_info = $text_buffer->get_text($text_buffer->get_bounds, TRUE);
});
$window->add($table);
$window->show_all();
}
sub interface_info_box {
my($intfc,$ipgen,$info)=@_;
my $table=def_table(7,7,FALSE);
my @sokets=$ipgen->ipgen_list_sokets;
my @plugs=$ipgen->ipgen_list_plugs;
my @positions=(0,1,2,4,5,6,7);
my $row=0;
my $col=0;
$table->attach (gen_label_in_center(" Interface name"), $positions[0], $positions[1], $row, $row+1,'expand','shrink',2,2);
$table->attach (gen_label_in_center("Type"), $positions[1], $positions[2], $row, $row+1,'expand','shrink',2,2);
$table->attach (gen_label_in_left("Interface Num"), $positions[2], $positions[3], $row, $row+1,'expand','shrink',2,2);
$row++;
my @type_list=('plug','socket');
foreach my $p( @sokets){
#my ($range,$type,$intfc_name,$intfc_port)=$ipgen->ipgen_get_port($p);
my ($type,$value,$connection_num)= $ipgen->ipgen_get_socket($p);
my $label_name=gen_label_in_center($p);
my $combo_type=gen_combo(\@type_list,1);
my $remove= def_image_button('icons/cancel.png','Remove');
my $name_setting=def_image_button('icons/setting.png');
$remove->signal_connect ('clicked'=> sub{
$ipgen->ipgen_remove_socket($p);
set_gui_status($ipgen,'intfc_changed',0);
} );
$name_setting->signal_connect ('clicked'=> sub{
get_intfc_setting($ipgen,$p,'socket');
});
$combo_type ->signal_connect ('changed'=> sub{
$ipgen->ipgen_remove_socket($p);
add_intfc_to_ip($intfc,$ipgen,$p,'plug',$info);
} );
$table->attach ($remove, $positions[4], $positions[5], $row, $row+1,'expand','shrink',2,2);
if ($type eq 'num'){
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_spin->set_value($value);
my $advance_button=def_image_button('icons/advance.png','separate');
$table->attach ($type_box, $positions[2], $positions[3], $row, $row+1,'expand','shrink',2,2);
$table->attach ($advance_button, $positions[3], $positions[4], $row, $row+1,'expand','shrink',2,2);
$type_spin->signal_connect("value_changed"=>sub{
my $wiget=shift;
my $num=$wiget->get_value_as_int();
$ipgen->ipgen_add_soket($p,'num',$num);
set_gui_status($ipgen,'intfc_changed',0);
});
$advance_button->signal_connect("clicked"=>sub{
$ipgen->ipgen_add_soket($p,'param');
set_gui_status($ipgen,'intfc_changed',0);
});
}
else {
my @parameters=$ipgen->ipgen_get_all_parameters_list();
my $pos= get_scolar_pos( $value,@parameters);
if(!defined $pos){
$pos=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);
$type_box->pack_start($name_setting,FALSE,FALSE,0);
my $advance_button=def_image_button('icons/advance.png','concatenate');
$table->attach ($type_box, $positions[2], $positions[3], $row, $row+1,'expand','shrink',2,2);
$table->attach ($advance_button, $positions[3], $positions[4], $row, $row+1,'expand','shrink',2,2);
$type_combo->signal_connect("changed"=>sub{
my $wiget=shift;
my $value=$wiget->get_active_text();
$ipgen->ipgen_add_soket($p,'param',$value);
set_gui_status($ipgen,'intfc_changed',0);
});
$advance_button->signal_connect("clicked"=>sub{
$ipgen->ipgen_add_soket($p,'num',0);
set_gui_status($ipgen,'intfc_changed',0);
});
}
$table->attach ($label_name, $positions[0], $positions[1], $row, $row+1,'expand','shrink',2,2);
$table->attach ($combo_type, $positions[1], $positions[2], $row, $row+1,'expand','shrink',2,2);
$row++;
}
foreach my $q( @plugs){
#my ($range,$type,$intfc_name,$intfc_port)=$ipgen->ipgen_get_port($p);
my ($type,$value)= $ipgen->ipgen_get_plug($q);
my $label_name=gen_label_in_center($q);
my $combo_type=gen_combo(\@type_list,0);
my $remove= def_image_button('icons/cancel.png','Remove');
my $name_setting=def_image_button('icons/setting.png');
$table->attach ($remove, $positions[4], $positions[5], $row, $row+1,'expand','shrink',2,2);
$remove->signal_connect ('clicked'=> sub{
$ipgen->ipgen_remove_plug($q);
set_gui_status($ipgen,'intfc_changed',0);
} );
$name_setting->signal_connect ('clicked'=> sub{
get_intfc_setting($ipgen,$q,'plug');
} );
$combo_type ->signal_connect ('changed'=> sub{
$ipgen->ipgen_remove_plug($q);
add_intfc_to_ip($intfc,$ipgen,$q,'socket',$info);
} );
#my $range_entry=gen_entry($range);
if ($type eq 'num'){
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_spin->set_value($value);
$table->attach ($type_box, $positions[2], $positions[3], $row, $row+1,'expand','shrink',2,2);
$type_spin->signal_connect("value_changed"=>sub{
my $wiget=shift;
my $num=$wiget->get_value_as_int();
$ipgen->ipgen_add_plug($q,'num',$num);
set_gui_status($ipgen,'intfc_changed',0);
});
}
$table->attach ($label_name, $positions[0], $positions[1], $row, $row+1,'expand','shrink',2,2);
$table->attach ($combo_type, $positions[1], $positions[2], $row, $row+1,'expand','shrink',2,2);
#$table->attach_defaults ($range_entry, 2, 4, $row, $row+1);
#wishbone address seting
#print "$q eq 'wb_slave'\n";
if($q eq 'wb_slave'){
my ($saved_addr,$saved_width)=$ipgen->ipgen_get_wb_addr($q,0);
my $addr;
if(!defined $saved_addr){
$addr= def_image_button('icons/warning.png');
$addr->signal_connect ('clicked'=> sub{
message_dialog("Wishbone slave address range has not been set yet! ");
} );
}else{
$addr= def_image_button('icons/select.png');
}
$table->attach ($addr, $positions[5], $positions[6], $row, $row+1,'expand','shrink',2,2);
}
$row++;
}
return add_widget_to_scrolled_win($table);
}
########
# get_intfc_setting
########
sub get_intfc_setting{
my ($ipgen,$intfc_name, $intfc_type)=@_;
my $window = def_popwin_size(70,70,"Interface parameter setting",'percent');
my $table=def_table(7,6,FALSE);
my $ok = def_image_button('icons/select.png','OK');
my $scrolled_win = add_widget_to_scrolled_win($table);
#title
my $label1=gen_label_in_left("interface name");
$table->attach ( $label1,0,2,0,1,'expand','shrink',2,2);
my ($type,$value);
if($intfc_type eq 'plug'){
($type,$value)= $ipgen->ipgen_get_plug($intfc_name);
}else {
($type,$value)= $ipgen->ipgen_get_socket($intfc_name);
}
if ($type ne 'num'){ $value=1;}
my $i=0;
for ( $i=0; $i < $value; $i++) {
#intfc name
my $saved_name;
my $number=$i;
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);}
my $entry_name=gen_entry($saved_name);
$table->attach($entry_name,0,2,$i+1,$i+2,'expand','shrink',2,2);
$ok->signal_connect('clicked'=>sub{
my $new_name=$entry_name->get_text();
#print "my new name is: $new_name\n";
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);}
});
}
#wishbone addr
if($intfc_name eq 'wb_slave' && $intfc_type eq 'plug'){
my $label2=gen_label_in_center("address range: (start end name)");
my $label3=gen_label_help("This field defines the total memory_map address which is required by this module in byte. ( =2 ^ block_address_width).
You can define a fixed value or assign it to any of module parameter","block address width");
$table->attach ( $label2,2,5,0,1,'expand','shrink',2,2);
$table->attach ( $label3,5,6,0,1,'expand','shrink',2,2);
my $plug=$intfc_name;
my $wb= wb_addr->wb_addr_new();
my @ip_names=$wb->wb_list_names();
my @list;
foreach my $p(@ip_names){
my($start,$end,$cashed,$size)=$wb->wb_get_addr_info($p);
push (@list,"$start\t$end\t\t$p");
}
my ($type,$value,$connection_num)=$ipgen->ipgen_get_plug($plug);
$i=0;
for ( $i=0; $i < $value; $i++) {
my ($saved_addr,$saved_width)=$ipgen->ipgen_get_wb_addr($plug,$i);
my $num=$i;
my $pos;
if(!defined $saved_addr){
$pos=0;
$saved_width=1;
$ipgen->ipgen_save_wb_addr($plug,$num,$list[0],1);
}
else{
$pos= get_scolar_pos($saved_addr,@list);
}
my $name_combo=gen_combo(\@list,$pos);
my $sbox=def_hbox(FALSE,0);
my $widget;
my $size_lab;
my @l=("Fixed","Parameterizable");
if(!defined $saved_width){
$pos=0;
$saved_width=1;
}
else{
if(is_integer($saved_width)){
$pos= 0;
$widget=gen_spin(1,31,1);
$widget->set_value($saved_width);
my $d=2**$saved_width;
$size_lab=gen_label_in_left(metric_conversion($d). " Bytes");
} else{
$pos= 1;
my @parameters=$ipgen->ipgen_get_all_parameters_list();
my $p=get_scolar_pos($saved_width,@parameters);
$widget=gen_combo(\@parameters, $p);
$size_lab=gen_label_in_left(" ");
}
}
my $comb=gen_combo(\@l, $pos);
#$widget->set_value($saved_width);
$sbox->pack_start($comb,FALSE,FALSE,3);
$sbox->pack_end($widget,FALSE,FALSE,3);
$sbox->pack_end($size_lab,FALSE,FALSE,3);
$comb->signal_connect('changed'=>sub{
my $condition=$comb->get_active_text();
$widget->destroy;
$size_lab->destroy;
my @parameters=$ipgen->ipgen_get_all_parameters_list();
$widget=($condition eq "Fixed" )? gen_spin(1,31,1):gen_combo(\@parameters, 0);
$size_lab=($condition eq "Fixed" )? gen_label_in_left("2 Bytes"): gen_label_in_left(" ");
$sbox->pack_end($widget,FALSE,FALSE,3);
$sbox->pack_end($size_lab,FALSE,FALSE,3);
$sbox->show_all();
$widget->signal_connect('changed'=>sub{
$size_lab->destroy;
my $in=$comb->get_active_text();
my $width=($in eq "Fixed" )? $widget->get_value_as_int(): $widget->get_active_text() ;
my $d=($in eq "Fixed" )? 2**$width:0;
$size_lab=($in eq "Fixed" )? gen_label_in_left( metric_conversion($d). " Bytes"):gen_label_in_left(" ");
$sbox->pack_end($size_lab,FALSE,FALSE,3);
$sbox->show_all();
});
});
$widget->signal_connect('changed'=>sub{
$size_lab->destroy;
my $in=$comb->get_active_text();
my $width=($in eq "Fixed" )? $widget->get_value_as_int(): $widget->get_active_text() ;
my $d=($in eq "Fixed" )? 2**$width:0;
$size_lab=($in eq "Fixed" )? gen_label_in_left(metric_conversion($d). " Bytes"):gen_label_in_left(" ");
$sbox->pack_end($size_lab,FALSE,FALSE,3);
$sbox->show_all();
});
$table->attach ($name_combo,2,5,$i+1,$i+2 ,'expand','shrink',2,2);
$table->attach ($sbox,5,6,$i+1,$i+2,'expand','shrink',2,2);
$ok->signal_connect('clicked'=>sub{
my $addr=$name_combo->get_active_text();
my $in=$comb->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);
});
}
}
my $mtable = def_table(10, 1, FALSE);
$mtable->attach_defaults($scrolled_win,0,1,0,9);
$mtable->attach($ok,0,1,9,10,'expand','shrink',2,2);
$window->add ($mtable);
$window->show_all();
$ok->signal_connect('clicked'=>sub{
$window->destroy;
set_gui_status($ipgen,"interface_selected",1);
} );
}
#############
# add_intfc_to_ip
##############
sub add_intfc_to_ip{
my ($intfc,$ipgen,$infc_name,$infc_type,$info)=@_;
if($infc_type eq 'socket'){
my ($connection_num,$connect_to)=$intfc->get_socket($infc_name);
$ipgen->ipgen_add_soket($infc_name,'num',1,$connection_num);
}
else { $ipgen->ipgen_add_plug($infc_name,'num',1);}
set_gui_status($ipgen,"interface_selected",1);
}
sub add_plug_interface_from_tree{
my ($ipgen,$category,$infc_name,$info)=@_;
$ipgen->ipgen_add_plug($infc_name,'num',1);
set_gui_status($ipgen,"interface_selected",1);
}
sub show_interface_description {
my ($soc,$category,$infc_name,$info)=@_;
my $intfc=interface->interface_new();
my $describ=$intfc->get_description($category,$infc_name);
if($describ){
show_info($info,$describ);
}
undef $intfc;
}
#################
# get_list_of_all_interfaces
################
sub get_list_of_all_interfaces{
my ($ipgen)=@_;
my @sockets =$ipgen->ipgen_list_sokets();
my @plugs =$ipgen->ipgen_list_plugs();
my @interfaces=('IO');
my @interfaces_name=('IO');
foreach my $p( @sockets){
my ($type,$value)= $ipgen->ipgen_get_socket($p);
if($type eq 'num'){
for(my $i=0; $i<$value; $i++){
push(@interfaces,"socket:$p\[$i\]");
my $socket_name=$ipgen->ipgen_get_socket_name($p,$i);
push(@interfaces_name,"socket:$socket_name");
}#for
}#if
else {
push(@interfaces,"socket:$p\[array\]");
my $socket_name=$ipgen->ipgen_get_socket_name($p,0);
push(@interfaces_name,"socket:$socket_name");
}#else
}#foreach
foreach my $p( @plugs){
my ($type,$value)= $ipgen->ipgen_get_plug($p);
if($type eq 'num'){
for(my $i=0; $i<$value; $i++){
push(@interfaces,"plug:$p\[$i\]");
my $plug_name=$ipgen->ipgen_get_plug_name($p,$i);
push(@interfaces_name,"plug:$plug_name");
}#for
}#if
else {
my $plug_name=$ipgen->ipgen_get_plug_name($p,0);
push(@interfaces,"plug:$p\[array\]");
push(@interfaces_name,"plug:$plug_name");
}#else
}#foreach
return (\@interfaces_name,\@interfaces);
}
sub gen_intfc_port_combo{
my ($intfc,$ipgen,$intfc_name,$porttype,$portname)=@_;
my($type,$name,$num)= split("[:\[ \\]]", $intfc_name);
my @all_ports;
my @ports;
if($type eq 'socket'){
@all_ports= $intfc->get_socket_port_list($name);
foreach my $p(@all_ports){
my ($r,$t,$c)=$intfc->get_port_info_of_socket($name,$p);
if ($t eq $porttype){ push (@ports,$p);}
}
}elsif($type eq 'plug'){
@all_ports= $intfc->get_plug_port_list($name);
foreach my $p(@all_ports){
my ($r,$t,$c)=$intfc->get_port_info_of_plug($name,$p);
#print "($t eq $porttype)\n";
if ($t eq $porttype){ push (@ports,$p);}
}
}
else {
@ports=('IO','NC');
}
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;
if (!defined $pos){
$pos=find_the_most_similar_position( $portname ,@ports);
$ipgen->ipgen_set_port_intfc_port($portname,$ports[$pos]);
#print "$ports[$pos]\n;"
}
my $intfc_port_combo=gen_combo(\@ports,$pos);
$intfc_port_combo->signal_connect('changed'=> sub {
my $intfc_port=$intfc_port_combo->get_active_text();
$ipgen->ipgen_set_port_intfc_port($portname,$intfc_port);
});
return $intfc_port_combo;
}
sub port_info_box {
my($intfc,$ipgen,$info)=@_;
my $table=def_table(8,10,FALSE);
my @ports=$ipgen->ipgen_list_ports;
my $row=0;
my ($name_ref,$ref)=get_list_of_all_interfaces($ipgen);
my @interfaces_name=@{$name_ref};
my @interfaces=@{$ref};
#print "@interfaces_name\n";
$table->attach (gen_label_in_left(" Type "), 0, 1, $row, $row+1,'expand','shrink',2,2);
$table->attach (gen_label_in_left(" Port name "), 1, 3, $row, $row+1,'expand','shrink',2,2);
$table->attach (gen_label_in_left(" Interface name "), 3, 5, $row, $row+1,'expand','shrink',2,2);
$table->attach (gen_label_in_center(" Interface port "), 5, 7, $row, $row+1,'fill','shrink',2,2);
$table->attach (gen_label_in_left(" Port Range "), 7, 9, $row, $row+1,'expand','shrink',2,2);
$row++;
#print @interfaces;
my @ports_order=$ipgen->ipgen_get_ports_order();
if(scalar(@ports_order) >1 ){ @ports= @ports_order}
foreach my $p( @ports){
my ($range,$type,$intfc_name,$intfc_port)=$ipgen->ipgen_get_port($p);
#my $label_name=gen_label_in_left(" $p ");
my $name_entry=gen_label_in_left($p);
my $label_type=gen_label_in_left(" $type ");
my $range_entry=gen_entry($range);
my $pos=(defined $intfc_name ) ? get_scolar_pos( $intfc_name,@interfaces) : 0;
if (!defined $pos){
$pos=0;
$ipgen->ipgen_set_port_intfc_name($p,'IO');
};
my $intfc_name_combo=gen_combo(\@interfaces_name,$pos);
my $intfc_port_combo=gen_intfc_port_combo($intfc,$ipgen,$intfc_name,$type,$p);
$table->attach ($label_type, 0, 1, $row, $row+1,'expand','shrink',2,2);
$table->attach ($name_entry, 1, 3, $row, $row+1,'expand','shrink',2,2);
$table->attach ($intfc_name_combo,3, 5, $row, $row+1,'expand','shrink',2,2);
$table->attach ($intfc_port_combo, 5, 7, $row, $row+1,'fill','shrink',2,2);
$table->attach ($range_entry ,7, 9, $row, $row+1,'fill','shrink',2,2);
$intfc_name_combo->signal_connect('changed'=>sub{
my $intfc_name=$intfc_name_combo->get_active_text();
my $pos= get_scolar_pos( $intfc_name,@interfaces_name);
#my($type,$name,$num)= split("[:\[ \\]]", $intfc_name);
#print "$type,$name,$num\n";
$ipgen->ipgen_set_port_intfc_name($p,$interfaces[$pos]);
set_gui_status($ipgen,"interface_selected",1);
});
$range_entry->signal_connect('changed'=>sub{
my $new_range=$range_entry->get_text();
$ipgen->ipgen_add_port($p,$new_range,$type,$intfc_name,$intfc_port);
});
$row++;
}
return add_widget_to_scrolled_win($table);
}
sub write_ip{
my $ipgen=shift;
my $name=$ipgen->ipgen_get("module_name");
my $category=$ipgen->ipgen_get("category");
my $ip_name= $ipgen->ipgen_get("ip_name");
my $dir = Cwd::getcwd();
#Increase IP version
my $v=$ipgen->object_get_attribute("version",undef);
$v = 0 if(!defined $v);
$v++;
$ipgen->object_add_attribute("version",undef,$v);
#print "$v\n";
# Write
mkpath("$dir/lib/ip/$category/",1,01777);
open(FILE, ">lib/ip/$category/$ip_name.IP") || die "Can not open: $!";
print FILE perl_file_header("$ip_name.IP");
print FILE Data::Dumper->Dump([\%$ipgen],["ipgen"]);
close(FILE) || die "Error closing file: $!";
my $message="IP $ip_name has been generated successfully. In order to see the generated IP in processing tile generator you need to reset the ProNoC. Do you want to reset the ProNoC now?" ;
my $response = yes_no_dialog($message);
if ($response eq 'yes') {
exec($^X, $0, @ARGV);# reset ProNoC to apply changes
}
}
sub generate_ip{
my $ipgen=shift;
my $name=$ipgen->ipgen_get("module_name");
my $category=$ipgen->ipgen_get("category");
my $ip_name= $ipgen->ipgen_get("ip_name");
my $dir = Cwd::getcwd();
#check if name has been set
if(defined ($name) && defined ($category)){
if (!defined $ip_name) {$ip_name= $name}
my $error = check_verilog_identifier_syntax($ip_name);
if ( defined $error ){
message_dialog("The IP name \"$ip_name\" is given with an unacceptable formatting. This name will be used as a verilog module name so it must follow Verilog identifier declaration formatting:\n $error");
return ;
}
#check if any source file has been added for this ip
my @l=$ipgen->ipgen_get_list("hdl_files");
if( scalar @l ==0){
my $mwindow;
my $response = yes_no_dialog("No HDL library file has been set for this IP. Do you want to generate this IP?");
if ($response eq 'yes') {
write_ip($ipgen);
}
}else{
write_ip($ipgen);
}
}else{
my $message;
if(!defined ($name)){ $message="Input file has not been selected yet.\nNothing has been generated!";}
elsif(!defined ($category)){ $message="Category must be defined!" ;}
message_dialog($message);
}
#$hashref = retrieve('file');
return 1;
}
#########
# load_ip
########
sub load_ip{
my ($ipgen)=@_;
my $file;
my $dialog = gen_file_dialog (undef, 'IP');
my $dir = Cwd::getcwd();
$dialog->set_current_folder ("$dir/lib/ip");
if ( "ok" eq $dialog->run ) {
$file = $dialog->get_filename;
my ($name,$path,$suffix) = fileparse("$file",qr"\..[^.]*$");
if($suffix eq '.IP'){
$ipgen->ipgen_add("file_name",$file);
set_gui_status($ipgen,"load_file",0);
}
}
$dialog->destroy;
}
############
# get_source_file
###########
sub get_source_file{
my($ipgen,$info,$page,$title,$dest,$page_info_ref)=@_;
my $var_list='${parameter_name}: Verilog module parameter values.
${CORE_ID} Each wishbone bus based SoC will have a unique CORE_ID that represents its location in NoC topology. CORE_ID=((y * number_of_nodes_in_x_ dimension) + x) where (x,y) are the node location in x and y axes. If the generated tile is used as top level module CORE_ID will take the default value of zero.
${IP}: is the peripheral device instance name.
${CORE}: is the peripheral device module name.
${BASE}: is the wishbone base address(s) and will be added during soc generation to system.h. If more than one slave wishbone bus are used define them as ${BASE0}, ${BASE1}... .
'
;
my $var_help=gen_button_message($var_list,"icons/info.png","Global variables");
my $window = def_popwin_size(75,75,$title,'percent');
my $notebook=source_notebook($ipgen,$info,$window,$page,$dest,$page_info_ref);
my $table=def_table (15, 15, FALSE);
$table->attach ($var_help, 5, 7, 0, 1,'expand','shrink',2,2);
$table->attach_defaults ($notebook , 0, 15, 1, 15);
$window->add($table);
$window->show_all;
return $window;
}
##########
# source_notebook
##########
sub source_notebook{
my($ipgen,$info,$window,$page,$dest,$page_info_ref)=@_;
my $notebook = gen_notebook();
my %page_info=%{$page_info_ref};
foreach my $p (sort keys %page_info){
my $page_ref;
$page_ref=get_file_folder($ipgen,$info,$window,$p,$page_info_ref) if($page_info{$p}{filed_type} eq "existing_file/folder");
$page_ref=get_file_folder($ipgen,$info,$window,$p,$page_info_ref) if($page_info{$p}{filed_type} eq "file_with_variables");
$page_ref=get_file_content($ipgen,$info,$window,$page_info{$p},$page_info_ref) if($page_info{$p}{filed_type} eq "file_content");
$notebook->append_page ($page_ref,gen_label_with_mnemonic ($page_info{$p}{page_name}));
}
$notebook->show_all;
$notebook->set_current_page($page) if(defined $page);
return $notebook;
}
##########
# get_file_folder
#########
sub get_file_folder{
my ($ipgen,$info,$window,$page,$page_info_ref)=@_;
my %page_info=%{$page_info_ref};
my @sw_dir = $ipgen->ipgen_get_list($page_info{$page}{filed_name});
my $table = def_table (15, 15, FALSE);
my $help=gen_label_help($page_info{$page}{help});
$table->attach ($help,0,2,0,1,'expand','shrink',2,2);
my $tick = $page_info{$page}{'tick'};
my ($scrwin,$ok)=gen_file_list($ipgen,$page_info{$page}{filed_name},$window,$page_info{$page}{rename_file},$tick);
my $label=gen_label_in_left("Select file(s):");
my $brows=def_image_button("icons/browse.png",' Browse');
$table->attach ($label,2,4,0,1,'expand','shrink',2,2);
$table->attach($brows,4,6,0,1,'expand','shrink',2,2);
my $dir = Cwd::getcwd();
my $project_dir = abs_path("$dir/../../"); #mpsoc directory address
$brows->signal_connect("clicked"=> sub {
my @files;
my $dialog = gen_file_dialog (undef);
my $dir = Cwd::getcwd();
$dialog->set_current_folder ("$dir/..") ;
$dialog->set_select_multiple(TRUE);
if ( "ok" eq $dialog->run ) {
@files = get_filenames_from_dialog($dialog);
@sw_dir=$ipgen->ipgen_get_list($page_info{$page}{filed_name});
foreach my $p (@files){
#remove $project_dir form beginning of each file
$p =~ s/$project_dir//;
my ($name,$path,$suffix) = fileparse("$p",qr"\..[^.]*$");
$p=$p.'frename_sep_t'.$name.$suffix if (defined $page_info{$page}{rename_file});
if(! grep (/^$p$/,@sw_dir)){push(@sw_dir,$p)};
}
$ipgen->ipgen_add($page_info{$page}{filed_name},\@sw_dir);
get_source_file($ipgen,$info,$page,"Add software file(s)","SW",$page_info_ref);
$window->destroy;
}
$dialog->destroy;
} );# # ,\$entry);
if($page_info{$page}{folder_en} eq 1){
my $label2=gen_label_in_left("Select folder(s):");
my $brows2=def_image_button("icons/browse.png",' Browse');
$table->attach($label2,7,9,0,1,'expand','shrink',2,2);
$table->attach($brows2,9,11,0,1,'expand','shrink',2,2);
$brows2->signal_connect("clicked"=> sub {
my @files;
my $dialog = gen_folder_dialog ('Select Folder(s)');
my $dir = Cwd::getcwd();
$dialog->set_current_folder ("$dir/..") ;
$dialog->set_select_multiple(TRUE);
if ( "ok" eq $dialog->run ) {
@files = get_filenames_from_dialog($dialog);
@sw_dir=$ipgen->ipgen_get_list($page_info{$page}{filed_name});
foreach my $p (@files){
#remove $project_dir form beginning of each file
$p =~ s/$project_dir//;
if(! grep (/^$p$/,@sw_dir)){push(@sw_dir,$p)};
}
$ipgen->ipgen_add($page_info{$page}{filed_name},\@sw_dir);
get_source_file($ipgen,$info,$page,"Add software file(s)","SW",$page_info_ref);
$window->destroy;
#$$entry_ref->set_text($file);
#print "file = $file\n";
}
$dialog->destroy;
} );# # ,\$entry);
}
$table->attach_defaults($scrwin,0,15,1,14);
$table->attach($ok,6,9,14,15,'expand','shrink',2,2);
return ($table)
}
###########
# get_file_content
#########
sub get_file_content{
my ($ipgen,$info,$window,$page_info_ref)=@_;
my %page_info=%{$page_info_ref};
#my $hdr = $ipgen->ipgen_get_hdr();
my $hdr = $ipgen-> ipgen_get($page_info{filed_name});
my $table = def_table (14, 15, FALSE);
my ($scrwin,$text_view)=create_txview();
my $help=gen_label_help($page_info{help});
$table->attach ($help,0,8,0,1,'expand','shrink',2,2);
$table->attach_defaults($scrwin,0,15,1,14);
my $text_buffer = $text_view->get_buffer;
if(defined $hdr) {$text_buffer->set_text($hdr)};
my $ok=def_image_button("icons/select.png",' Save ');
$ok->signal_connect("clicked"=> sub {#
my $text = $text_buffer->get_text($text_buffer->get_bounds, TRUE);
$ipgen->ipgen_add($page_info{filed_name},$text);
$window->destroy;
});
$table->attach($ok,6,7,14,15,'expand','shrink',2,2);
return ($table);
}
############
# get_unused_intfc_ports_list
###########
sub get_unused_intfc_ports_list {
my($intfc,$ipgen,$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");
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,$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,$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
############
sub ipgen_main{
my $ipgen=shift;
my $intfc=interface->interface_new();
if(!defined $ipgen) { $ipgen=ip_gen->ip_gen_new();}
set_gui_status($ipgen,"ideal",0);
# The main table containing the lib tree, selected modules and info section
my $main_table = def_table (15, 12, FALSE);
# The box which holds the info, warning, error ... mesages
my ($infobox,$info)= create_txview();
my $generate = def_image_button('icons/gen.png','Generate');
# A tree view for holding a library
my %tree_text;
my @categories= $intfc->get_categories();
foreach my $p (@categories)
{
my @intfc_names= $intfc->get_intfcs_of_category($p);
$tree_text{$p}=\@intfc_names;
}
my $tree_box = create_tree ($ipgen,'Interfaces list',$info,\%tree_text,\&show_interface_description ,\&add_plug_interface_from_tree);
my $file_info=file_info_box($ipgen,$info);
my $port_info=port_info_box($intfc,$ipgen,$info);
my $intfc_info=interface_info_box($intfc,$ipgen,$info);
my $open = def_image_button('icons/browse.png','Load IP');
$main_table->set_row_spacings (4);
$main_table->set_col_spacings (1);
#$table->attach_defaults ($event_box, $col, $col+1, $row, $row+1);
my $v1=gen_vpaned($file_info,.2,$intfc_info);
my $v2=gen_vpaned($v1,.4,$port_info);
my $h1=gen_hpaned($tree_box,.15,$v2);
my $v3=gen_vpaned($h1,.6,$infobox);
$main_table->attach_defaults ($v3, 0, 12, 0,14);
$main_table->attach ($generate, 6, 8, 14,15,'expand','shrink',2,2);
$main_table->attach ($open,0, 1, 14,15,'expand','shrink',2,2);
#check soc status every 0.5 second. refresh device table if there is any changes
Glib::Timeout->add (100, sub{
my ($state,$timeout)= get_gui_status($ipgen);
if($state eq "load_file"){
my $file=$ipgen->ipgen_get("file_name");
my ($pp,$r,$err) = regen_object($file);
if ($r){
add_colored_info($info,"**Error reading $file file: $err\n",'red');
return;
}
clone_obj($ipgen,$pp);
show_info($info,"$file is loaded!\n ");
set_gui_status($ipgen,"ref",1);
}elsif ($timeout>0){
$timeout--;
set_gui_status($ipgen,$state,$timeout);
}
elsif( $state eq "change_parameter" ){
get_parameter_setting($ipgen,$info);
set_gui_status($ipgen,"ideal",0);
}
elsif( $state ne "ideal" ){
$file_info->destroy;
$port_info->destroy;
$intfc_info->destroy;
$file_info=file_info_box($ipgen,$info);
$port_info=port_info_box($intfc,$ipgen,$info);
$intfc_info=interface_info_box($intfc,$ipgen,$info);
$v1 -> pack1($file_info, TRUE, TRUE);
$v1 -> pack2($intfc_info, TRUE, TRUE);
$v2 -> pack2($port_info, TRUE, TRUE);
$v1->show_all;
$v2->show_all;
set_gui_status($ipgen,"ideal",0);
}
return TRUE;
} );
$open-> signal_connect("clicked" => sub{
load_ip($ipgen);
});
$generate-> signal_connect("clicked" => sub{
get_unused_intfc_ports_list ($intfc,$ipgen,$info);
generate_ip($ipgen);
set_gui_status($ipgen,"ref",1);
});
return add_widget_to_scrolled_win($main_table);
}
Error running this command: diff -w -U 5 "/tmp/wTLwY1" ""
diff: : No such file or directory