Subversion Repositories an-fpga-implementation-of-low-latency-noc-based-mpsoc

#! /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);

                });