Line 1... |
Line 1... |
#! /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 FindBin;
|
|
use lib $FindBin::Bin;
|
|
|
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;
|
Line 398... |
Line 402... |
|
|
});
|
});
|
$lib_hdl->signal_connect("clicked"=> sub{
|
$lib_hdl->signal_connect("clicked"=> sub{
|
my $help1="The files and folder that selected here will be copied in genertated processing tile RTL folder.";
|
my $help1="The files and folder that selected here will be copied in genertated processing tile RTL folder.";
|
my $help2="The file listed here can contain some variable with \${var_name} format. The file genertor will replace them with their values during file generation. The variable can be selected from above listed global vairables";
|
my $help2="The file listed here can contain some variable with \${var_name} format. The file genertor will replace them with their values during file generation. The variable can be selected from above listed global vairables";
|
|
my $help3='The content here will be added to the generated tile.v file. You can define functions/ tasks etc...';
|
|
|
my %page_info;
|
my %page_info;
|
$page_info{0}{page_name} = "_Add exsiting HDL file/folder";
|
$page_info{0}{page_name} = "_Add exsiting HDL file/folder";
|
$page_info{0}{filed_name}= "hdl_files";
|
$page_info{0}{filed_name}= "hdl_files";
|
$page_info{0}{filed_type}= "exsiting_file/folder";
|
$page_info{0}{filed_type}= "exsiting_file/folder";
|
$page_info{0}{rename_file}=undef;
|
$page_info{0}{rename_file}=undef;
|
Line 413... |
Line 419... |
$page_info{1}{filed_type}= "file_with_variables";
|
$page_info{1}{filed_type}= "file_with_variables";
|
$page_info{1}{rename_file}=1;
|
$page_info{1}{rename_file}=1;
|
$page_info{1}{folder_en}=0;
|
$page_info{1}{folder_en}=0;
|
$page_info{1}{help}=$help2;
|
$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_source_file($ipgen,$info,0,"Add HDL file(s)", "hw",\%page_info);
|
|
|
#get_hdl_file($ipgen,$info);
|
#get_hdl_file($ipgen,$info);
|
|
|
|
|
Line 1150... |
Line 1164... |
#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/warning.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{
|
Line 2091... |
Line 2105... |
Glib::Timeout->add (100, sub{
|
Glib::Timeout->add (100, sub{
|
|
|
my ($state,$timeout)= get_gui_status($ipgen);
|
my ($state,$timeout)= get_gui_status($ipgen);
|
if($state eq "load_file"){
|
if($state eq "load_file"){
|
my $file=$ipgen->ipgen_get("file_name");
|
my $file=$ipgen->ipgen_get("file_name");
|
my $pp= eval { do $file };
|
my ($pp,$r,$err) = regen_object($file);
|
clone_obj($ipgen,$pp);
|
if ($r){
|
|
add_info(\$info,"**Error reading $file file: $err\n");
|
|
|
|
return;
|
|
}
|
|
clone_obj($ipgen,$pp);
|
set_gui_status($ipgen,"ref",1);
|
set_gui_status($ipgen,"ref",1);
|
|
|
|
|
}elsif ($timeout>0){
|
}elsif ($timeout>0){
|
$timeout--;
|
$timeout--;
|