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

#!/usr/bin/perl 

package ProNOC;

#add home dir in perl 5.6

use FindBin;

use lib $FindBin::Bin;

use constant::boolean;

use strict;

use warnings;

use lib 'lib/perl';

use Consts;

use Getopt::Long;

use base 'Class::Accessor::Fast';

our %glob_setting;

$glob_setting{'FONT_SIZE'}='default';

$glob_setting{'ICON_SIZE'}='default';

$glob_setting{'DSPLY_X'}  ='default';

$glob_setting{'DSPLY_Y'}  ='default';

BEGIN {

    my $module = (Consts::GTK_VERSION==2) ? 'Gtk2' : 'Gtk3';

    my $file = $module;

    $file =~ s[::][/]g;

    $file .= '.pm';

    require $file;

    $module->import;

}

require "widget.pl";

require "readme_gen.pl";

require "interface_gen.pl";

require "ip_gen.pl";

require "soc_gen.pl";

require "mpsoc_gen.pl";

require "emulator.pl";

require "simulator.pl";

require "trace_gen.pl";

require "network_maker.pl";

require "uart.pl";

require "run_time_jtag_debug.pl";

require "gdown.pl"; # google drive downlouder

use File::Basename;

use POSIX qw(locale_h);

use locale;

setlocale(LC_CTYPE, "en_US.UTF-8");#set numeric format to dot english

select(STDERR);

$| = 1;

select(STDOUT); # default

$| = 1;

sub main{

        # check if environment variables are defined

        #STDERR->autoflush ;

        my $project_dir   = get_project_dir(); #mpsoc dir addr

        my $paths_file= "$project_dir/mpsoc/perl_gui/lib/Paths";

        if (-f  $paths_file){#} && defined $ENV{PRONOC_WORK} ) {

                my $paths= do $paths_file;

                set_gui_setting($paths);

                main_window();

        }

        else{

                show_setting(1);

        }

}

sub main_window{

        set_path_env();

        my($width,$hight)=max_win_size();

        #print "($width,$hight)\n";

        set_defualt_font_size();

        if ( !defined $ENV{PRONOC_WORK} ) {

        my $message;

        if ( !defined $ENV{PRONOC_WORK}) {

                my $dir = Cwd::getcwd();

                my $project_dir   = abs_path("$dir/../../mpsoc_work");

                $ENV{'PRONOC_WORK'}= $project_dir;

                $message= "\n\nWarning: PRONOC_WORK envirement varibale has not been set. The PRONOC_WORK is autumatically set to $ENV{'PRONOC_WORK'}.\n";

        }

        #$message= $message."Warning: QUARTUS_BIN environment variable has not been set. It is required only for working with NoC emulator." if(!defined $ENV{QUARTUS_BIN});

        #$message= $message."\n\nPlease add aformentioned variables to ~\.bashrc file e.g: export PRONOC_WORK=[path_to]/mpsoc_work.";

        message_dialog("$message");

}

        my $table = def_table(1,3,FALSE);

        #________

        #radio btn "Generator"  

        my ($notebook,$noteref) = generate_main_notebook('Generator');

        my $window = def_win_size($width-100,$hight-100,"ProNoC");

        set_pronoc_icon($window);

 my @menu_items = (

  [ "/_File",            undef,        undef,          0, "<Branch>" ],

  [ "/File/_Setting",       "<control>O", sub { show_setting(0); },  0,  undef ],

  [ "/File/_Restart",  "<control>R", sub { restart_Pronoc(); },  0,  undef ],

  [ "/File/_Quit",       "<control>Q", sub { gui_quite(); },  0, "<StockItem>", 'gtk-quit' ],

  [ "/Tools",            undef,        undef,          0, "<Branch>" ],

  [ "/Tools/_UART Terminal", "<control>U", sub { uart(0); },  0,  undef ],

  [ "/Tools/Run time JTAG debuger", "<control>P", sub { source_probe(0); },  0,  undef ],

  [ "/Tools/Add New Altera FPGA Board", undef, sub { add_altera_board(); },  0,  undef ],

  [ "/Tools/Add New XILINX FPGA Board", undef, sub { add_xilinx_board(); },  0,  undef ],

  [ "/_View",                  undef, undef,         0, "<Branch>" ],

  [ "/View/_ProNoC System Generator",  "<control>1",    sub{ ($notebook,$noteref)=open_page($notebook,$noteref,$table,'Generator'); } , 0,       undef ],

  [ "/View/_ProNoC Simulator",  "<control>2",   sub{ ($notebook,$noteref)=open_page($notebook,$noteref,$table,'Simulator'); } , 0,       undef ],

  [ "/View/_ProNoC Network maker",  "<control>3",       sub{ ($notebook,$noteref)=open_page($notebook,$noteref,$table,'Networkgen'); } ,        0,       undef ],

  [ "/_Help",           undef,          undef,          0,       "<Branch>" ],

  [ "/Help/_About",     "F1",           sub{about(Consts::VERSION,$window)} ,   0,       undef ],

  [ "/Help/_ProNoC System Overview",    "F2",           \&overview ,    0,       undef ],

  [ "/Help/_ProNoC User Manual",  "F3",         \&user_help,    0,       undef ],

);

        my $menubar=gen_MenuBar($window,@menu_items);

        $table->attach ($menubar,0, 1, 0,1,,'fill','fill',0,0); #,'expand','shrink',2,2);

        my $rbtn_generator = gen_radiobutton (undef,'Generator','icons/hardware.png','ProNoC System Generator');

        my $rbtn_simulator = gen_radiobutton ($rbtn_generator,'Simulator','icons/simulator.png', "ProNoC Simulator");

        my $rbtn_networkgen= gen_radiobutton ($rbtn_generator,'Network maker','icons/diagram.png', "ProNoC Topology Maker");

        my $dt=creating_detachable_toolbar($rbtn_generator,$rbtn_simulator,$rbtn_networkgen);

        $rbtn_generator->signal_connect('toggled', sub{

                ($notebook,$noteref)=open_page($notebook,$noteref,$table,'Generator');

        });

        $rbtn_simulator->signal_connect('toggled', sub{

                ($notebook,$noteref)=open_page($notebook,$noteref,$table,'Simulator');

        });

        $rbtn_networkgen->signal_connect('toggled', sub{

                ($notebook,$noteref)=open_page($notebook,$noteref,$table,'Networkgen');

        });

   $table->attach ($dt,1, 2, 0,1,'shrink','fill',0,0);

   $table->attach_defaults( $notebook, 0, 2, 1,2);

        $window->add($table);

        $window->set_resizable (1);

        $window->show_all();

}

sub open_page{

        my ( $notebook,$noteref,$table,$page_name)=@_;

        $notebook->destroy;

        ($notebook,$noteref) = generate_main_notebook($page_name);

        $table->attach_defaults( $notebook, 0, 2, 1,2);

        $table->show_all;

        return ($notebook,$noteref);

}

sub user_help{

    my $dir = Cwd::getcwd();

    my $help="$dir/../../doc/ProNoC_User_manual.pdf";

    system qq (xdg-open $help);

    return;

}

sub overview{

    my $dir = Cwd::getcwd();

    my $help="$dir/../../doc/ProNoC_System_Overview.pdf";

    system qq (xdg-open $help);

    return;

}

sub show_setting{

        my $reset=shift;

        my $project_dir   = get_project_dir(); #mpsoc dir addr

        my $paths_file= "$project_dir/mpsoc/perl_gui/lib/Paths";

        __PACKAGE__->mk_accessors(qw{

        PRONOC_WORK

        });

        my $self;

        if (-f  $paths_file ){

                $self= do $paths_file;

        }else{

                $self = __PACKAGE__->new();

        }

        my $old_pronoc_work = $self->object_get_attribute("PATH","PRONOC_WORK");

        my $old_quartus = $self->object_get_attribute("PATH","QUARTUS_BIN");

        my $old_modelsim = $self->object_get_attribute("PATH","MODELSIM_BIN");

        make_undef_as_string(\$old_pronoc_work,\$old_quartus,\$old_modelsim);

        my $table=def_table(10,10,FALSE);

        my $set_win=def_popwin_size(50,80,"Configuration setting",'percent');

        my $scrolled_win = add_widget_to_scrolled_win($table);

        my $row=0; my $col=0;

        #title1         

        my $title1=gen_label_in_center("Path setting");

        $table->attach ($title1 , 0, 10,  $row, $row+1,'expand','shrink',2,2); $row++;

        add_Hsep_to_table($table, 0, 10 , $row); $row++;

    $table->attach_defaults (get_path_envirement_gui($self,$set_win,$reset) , 0, 10 , $row, $row+1);     $row++;

        #title2         

        my $title2=gen_label_in_center("Toolchain");

        $table->attach ($title2 , 0, 5,  $row, $row+1,'expand','shrink',2,2);

        $table->attach (gen_label_in_center("ORCC EDK"), 5, 10,  $row, $row+1,'expand','shrink',2,2); $row++;

        add_Hsep_to_table($table, 0, 10 , $row); $row++;

        #check which toolchain is available in the system

        my @f1=("/bin/mb-g++","/bin/mb-objcopy");

        my @f2=("/bin/lm32-elf-gcc","/bin/lm32-elf-ld","/bin/lm32-elf-objcopy","/bin/lm32-elf-objdump","/lm32-elf/lib","/lib/gcc/lm32-elf/4.5.3");

        my @f3=("/bin/or1k-elf-gcc","/bin/or1k-elf-ld","/bin/or1k-elf-objcopy","/bin/or1k-elf-objdump","/lib/gcc/or1k-elf/5.2.0");

        my @tool = (

        { label=>"aeMB", tooldir=>"aemb", files=>\@f1, size=>'21 MB', path=>'https://drive.google.com/file/d/1PT7lliPzhqsVl2Xq2bJsFuKu83Vk1ee4/view?usp=sharing' },

        { label=>"lm32", tooldir=>"lm32", files=>\@f2, size=>'57 MB', path=>'https://drive.google.com/file/d/1ly32nItfQwBNxhTjDd5xoi7kXPPQjZz7/view?usp=sharing' },

        { label=>"or1k-elf", tooldir=>"or1k-elf", files=>\@f3, size=>'219 MB', path=>'https://drive.google.com/file/d/1AeV3oeSltZ_aEqHcd419kfeI8EtHmUwr/view?usp=sharing' },

        );

        my @f4=("/dropins","/plugins");

    my @f5=("/AddArray", "/Communication", "/HelloWorld", "/README.md","/StreamBlocks");

        my @tool2 = (

        { label=>"eclipse-orcc", tooldir=>"eclipse-orcc", files=>\@f4, size=>'208 MB', path=>'https://drive.google.com/file/d/1YAOAyAk8PA6LXwIPz3aIy-Mongh__WBW/view?usp=sharing' },

        { label=>"orcc-apps", tooldir=>"orc-apps", files=>\@f5, size=>'28 MB', path=>'https://drive.google.com/file/d/1Qs4rxcSr-E5H4lYaxawqczTHfCPPCo4V/view?usp=sharing' },

        #{ label=>"or1k-elf", tooldir=>"or1k-elf", files=>\@f3, size=>'219 MB', path=>'https://drive.google.com/file/d/1AeV3oeSltZ_aEqHcd419kfeI8EtHmUwr/view?usp=sharing' },

        );

        $table->attach_defaults (check_toolchains($self,$set_win,$reset,"toolchain",@tool) , 0, 5 , $row, $row+1);

        add_Vsep_to_table($table, 5, $row,$row+1);

        $table->attach_defaults (check_toolchains($self,$set_win,$reset,"orcc",@tool2) , 5, 10 , $row, $row+1);

        $row++;

        #title3

        $table->attach (gen_label_in_center("Tools") , 0, 10,  $row, $row+1,'expand','shrink',2,2); $row++;

        add_Hsep_to_table($table, 0, 10 , $row); $row++;

        #check which toolchain is available in the system

        $table->attach_defaults (check_tools($self,$set_win,$reset) , 0, 10 , $row, $row+1);$row++;

        #title4

        $table->attach (gen_label_in_center("GUI setting") , 0, 10,  $row, $row+1,'expand','shrink',2,2); $row++;

        add_Hsep_to_table($table, 0, 10 , $row); $row++;

        $table->attach_defaults (get_gui_setting($self,$set_win,$reset) , 0, 10 , $row, $row+1);$row++;

        my $ok = def_image_button('icons/select.png','OK');

        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);

        $set_win->add ($mtable);

        $set_win->show_all();

        $ok->signal_connect("clicked"=> sub{

                #save setting

                open(FILE,  ">$paths_file") || die "Can not open: $!";

                print FILE perl_file_header("Paths");

                print FILE Data::Dumper->Dump([\%$self],['setting']);

                close(FILE) || die "Error closing file: $!";

                my $pronoc_work = $self->object_get_attribute("PATH","PRONOC_WORK");

                my $quartus = $self->object_get_attribute("PATH","QUARTUS_BIN");

                my $modelsim = $self->object_get_attribute("PATH","MODELSIM_BIN");

                make_undef_as_string(\$pronoc_work,\$quartus,\$modelsim);

                if(($old_pronoc_work ne $pronoc_work) || !defined $ENV{PRONOC_WORK}){

                        mkpath("$pronoc_work/emulate",1,01777) unless -d "$pronoc_work/emulate";

                        mkpath("$pronoc_work/simulate",1,01777) unless -d "$pronoc_work/simulate";

                        mkpath("$pronoc_work/tmp",1,01777) unless -d "$pronoc_work/tmp";

                        mkpath("$pronoc_work/toolchain",1,01777) unless -d "$pronoc_work/toolchain";

                }

                set_path_env();

                if($old_pronoc_work ne $pronoc_work ){

                        update_bashrc_file($self,$old_pronoc_work,$old_quartus,$old_modelsim);

                }

                my  ($file_path,$text)=@_;

                $set_win->destroy;

                my %new_setting = %{$self->object_get_attribute('GUI_SETTING')};

                my $eq=1;

                foreach my $k (sort keys %new_setting){

                        $eq= 0 if        $new_setting{$k} ne $glob_setting{$k};

                }

                if($eq ==0){

                        restart_Pronoc ();

                }

                main_window() if($reset);

        });

}

sub restart_Pronoc {

        exec($^X, $0, @ARGV);# reset ProNoC to apply changes    

}

sub get_path_envirement_gui {

        my($self,$set_win,$reset)=@_;

        my $table = def_table(10, 1, FALSE);

        my $row=0;

        my $col=0;

        my $project_dir   = get_project_dir(); #mpsoc dir addr

        my $paths_file= "$project_dir/mpsoc/perl_gui/lib/Paths";

        my $old_pronoc_work = $self->object_get_attribute("PATH","PRONOC_WORK");

        my $old_quartus = $self->object_get_attribute("PATH","QUARTUS_BIN");

        my $old_modelsim = $self->object_get_attribute("PATH","MODELSIM_BIN");

        make_undef_as_string(\$old_pronoc_work,\$old_quartus,\$old_modelsim);

        my $pronoc_w_row=0;

        my @paths = (

        { label=>"PRONOC_WORK", param_name=>"PRONOC_WORK", type=>"DIR_path", default_val=>"$project_dir/mpsoc_work", content=>undef, info=>"Define the working directory where the projects' files will be created", param_parent=>'PATH',ref_delay=>undef },

        { label=>"QUARTUS_BIN", param_name=>"QUARTUS_BIN", type=>"DIR_path", default_val=>undef, content=>undef, info=>"Define the path to QuartusII compiler bin directory.  Setting of this variable is optional and is needed if you are going to use Altera FPGAs for implementation or emulation", param_parent=>'PATH',ref_delay=>undef },

        { label=>"VIVADO_BIN",  param_name=>"VIVADO_BIN", type=>"DIR_path", default_val=>undef, content=>undef, info=>"Define the path to Xilinx/Vivado compiler bin directory.  Setting of this variable is optional and is needed if you are going to use Xilinx FPGAs for implementation or emulation", param_parent=>'PATH',ref_delay=>undef },

        { label=>"SDK_BIN"      ,       param_name=>"SDK_BIN", type=>"DIR_path", default_val=>undef, content=>undef, info=>"Define the path to Xilinx/SDK/bin directory. Setting of this variable is optional and is needed if you are going to use Xilinx FPGAs for implementation or emulation", param_parent=>'PATH',ref_delay=>undef },

        { label=>"MODELSIM_BIN",param_name=>"MODELSIM_BIN", type=>"DIR_path", default_val=>undef, content=>undef, info=>"Define the path to Modelsim simulator bin directory.  Setting of this variable is optional and is needed if you have installed Modelsim simulator and you want ProNoC to auto-generate the

simulation models using Modelsim software", param_parent=>'PATH',ref_delay=>undef },

                );

        foreach my $d (@paths) {

                #$mpsoc,$name,$param, $default,$type,$content,$info, $table,$row,$column,$show,$attribut1,$ref_delay,$new_status,$loc

                my $widget;

                ($row,$col)=add_param_widget ($self, $d->{label}, $d->{param_name}, $d->{default_val}, $d->{type}, $d->{content}, $d->{info}, $table,$row,$col,1, $d->{param_parent}, $d->{ref_delay},undef,"vertical");

        }

        #add apply buton for work dir

        my $apply=def_image_button("icons/enter.png",'Apply');

        $table->attach ($apply , 4, 5,  $pronoc_w_row, $pronoc_w_row+1,'fill','shrink',2,2); $row++;

        $apply->signal_connect("clicked"=> sub{

                        my $pronoc_work = $self->object_get_attribute("PATH","PRONOC_WORK");

                        make_undef_as_string(\$pronoc_work);

                        if(($old_pronoc_work ne $pronoc_work)){

                                open(FILE,  ">$paths_file") || die "Can not open: $!";

                                print FILE perl_file_header("Paths");

                                print FILE Data::Dumper->Dump([\%$self],['setting']);

                                close(FILE) || die "Error closing file: $!";

                                mkpath("$pronoc_work/emulate",1,01777) unless -d "$pronoc_work/emulate";

                                mkpath("$pronoc_work/simulate",1,01777) unless -d "$pronoc_work/simulate";

                                mkpath("$pronoc_work/tmp",1,01777) unless -d "$pronoc_work/tmp";

                                mkpath("$pronoc_work/toolchain",1,01777) unless -d "$pronoc_work/toolchain";

                                update_bashrc_file($self,$old_pronoc_work,$old_quartus,$old_modelsim);

                        }

                        set_path_env();

                    $set_win->destroy;

                        show_setting($reset);

        });

        return $table;

}

sub update_bashrc_file {

        my ($self,$old_pronoc_work,$old_quartus,$old_modelsim)=@_;

        my $pronoc_work = $self->object_get_attribute("PATH","PRONOC_WORK");

        my $quartus = $self->object_get_attribute("PATH","QUARTUS_BIN");

        my $modelsim = $self->object_get_attribute("PATH","MODELSIM_BIN");

        my $response =  yes_no_dialog("ProNoC variable has been changed. Do you want to update ~/.bashrc file with new ones?");

        if ($response eq 'yes') {

                        make_undef_as_string(\$pronoc_work,\$quartus,\$modelsim);

                                append_text_to_file ("$ENV{HOME}/.bashrc", "\nexport PRONOC_WORK=$pronoc_work\n") if(($old_pronoc_work ne $pronoc_work) || !defined $ENV{PRONOC_WORK});

                                #append_text_to_file ("$ENV{HOME}/.bashrc", "export QUARTUS_BIN=$quartus\n") if($old_quartus ne $quartus) ;

                                #append_text_to_file ("$ENV{HOME}/.bashrc", "export MODELSIM_BIN=$modelsim\n") if($old_modelsim ne $modelsim) ;

        }

}

sub check_toolchains{

        my ($self,$set_win,$reset,$root,@tool)=@_;

        my $table = def_table(10, 1, FALSE);

    my $pronoc_work = $self->object_get_attribute("PATH","PRONOC_WORK");

        mkpath("$pronoc_work/$root",1,01777) unless -d "$pronoc_work/$root";

        my $row =0;

        my $download_st=0;

        my $i=0;

        foreach my $d (@tool) {

                my $index=$i;

                $i++;

                my $exist=1;

                my $miss="";

                my $pronoc_work = $self->object_get_attribute("PATH","PRONOC_WORK");

                my $tooldir=$d->{tooldir};

                my @files=@{$d->{files}};

                my $tool_path="$pronoc_work/$root/$tooldir";

                unless (-d $tool_path){

                        $exist=0;

                        $miss=$miss." $tool_path is missing\n";

                }else{

                        foreach my $f (@files){

                                my $file_path= "$tool_path/$f";

                                unless ( -f $file_path || -d $file_path){

                                        $exist=0;

                                        $miss=$miss." $file_path file is missing\n";

                                }

                        }

                }

                if ($exist==0){

                        my $col=0;

                        my $w=def_image_button("icons/warning.png",$d->{label});

                        $w->signal_connect("clicked" => sub {message_dialog($miss);});

                        $table->attach ($w , $col, $col+1,  $row, $row+1,'shrink','shrink',2,2);  $col++;

                        $table->attach (gen_label_in_center("Size: $d->{size}") , $col, $col+1,  $row, $row+1,'shrink','shrink',2,2);  $col++;

                        my $dowload=def_image_button("icons/download.png",'Download Now');

                        $table->attach ($dowload , $col, $col+1,  $row, $row+1,'shrink','shrink',2,2);  $col++;

                        my $srow=       $row;

                        $dowload ->signal_connect("clicked" => sub {

                                $dowload ->set_sensitive (FALSE);

                                $download_st = $download_st | (1 << $index);