#!/usr/bin/perl -w
|
#!/usr/bin/perl -w
|
|
|
package ProNOC;
|
package ProNOC;
|
|
|
|
|
|
|
use Glib qw/TRUE FALSE/;
|
use Glib qw/TRUE FALSE/;
|
|
|
|
|
use Gtk2;
|
use Gtk2;
|
use strict;
|
use strict;
|
use warnings;
|
use warnings;
|
|
|
|
|
|
|
use lib 'lib/perl';
|
use lib 'lib/perl';
|
require "widget.pl";
|
require "widget.pl";
|
require "interface_gen.pl";
|
require "interface_gen.pl";
|
require "ip_gen.pl";
|
require "ip_gen.pl";
|
require "soc_gen.pl";
|
require "soc_gen.pl";
|
require "mpsoc_gen.pl";
|
require "mpsoc_gen.pl";
|
require "emulator.pl";
|
require "emulator.pl";
|
|
|
|
|
|
|
|
|
our $VERSION = '1.5.0';
|
our $VERSION = '1.5.0';
|
|
|
sub main{
|
sub main{
|
|
|
|
|
|
|
|
|
my($width,$hight)=max_win_size();
|
my($width,$hight)=max_win_size();
|
set_defualt_font_size();
|
set_defualt_font_size();
|
|
|
|
|
# check if envirement variables are defined
|
# check if envirement variables are defined
|
if ( !defined $ENV{PRONOC_WORK} || !defined $ENV{QUARTUS_BIN}) {
|
if ( !defined $ENV{PRONOC_WORK} || !defined $ENV{QUARTUS_BIN}) {
|
my $message;
|
my $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});
|
if ( !defined $ENV{PRONOC_WORK}) {
|
$message= $message."\n\nWarning: PRONOC_WORK envirement varibale has not been set." 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= $message."\n\nPlease add aformentioned variables to ~\.bashrc file e.g: export PRONOC_WORK=[path_to]/mpsoc_work.";
|
message_dialog("$message");
|
message_dialog("$message");
|
|
|
}
|
}
|
|
|
|
|
my $notebook = Gtk2::Notebook->new;
|
my $notebook = Gtk2::Notebook->new;
|
|
|
my $intfc_gen= intfc_main();
|
my $intfc_gen= intfc_main();
|
$notebook->append_page ($intfc_gen,Gtk2::Label->new_with_mnemonic (" _Interface generator "));
|
$notebook->append_page ($intfc_gen,Gtk2::Label->new_with_mnemonic (" _Interface generator "));
|
|
|
my $ipgen=ipgen_main();
|
my $ipgen=ipgen_main();
|
$notebook->append_page ($ipgen,Gtk2::Label->new_with_mnemonic (" _IP generator "));
|
$notebook->append_page ($ipgen,Gtk2::Label->new_with_mnemonic (" _IP generator "));
|
|
|
my $socgen=socgen_main();
|
my $socgen=socgen_main();
|
$notebook->append_page ($socgen,Gtk2::Label->new_with_mnemonic (" _Processing tile generator "));
|
$notebook->append_page ($socgen,Gtk2::Label->new_with_mnemonic (" _Processing tile generator "));
|
|
|
my $mpsocgen =mpsocgen_main();
|
my $mpsocgen =mpsocgen_main();
|
$notebook->append_page ($mpsocgen,Gtk2::Label->new_with_mnemonic (" _NoC based MPSoC generator "));
|
$notebook->append_page ($mpsocgen,Gtk2::Label->new_with_mnemonic (" _NoC based MPSoC generator "));
|
|
|
my $emulator =emulator_main();
|
my $emulator =emulator_main();
|
$notebook->append_page ($emulator,Gtk2::Label->new_with_mnemonic (" _NoC emulator "));
|
$notebook->append_page ($emulator,Gtk2::Label->new_with_mnemonic (" _NoC emulator "));
|
|
|
|
|
|
|
my $scrolled_win = new Gtk2::ScrolledWindow (undef, undef);
|
my $scrolled_win = new Gtk2::ScrolledWindow (undef, undef);
|
$scrolled_win->set_policy( "automatic", "automatic" );
|
$scrolled_win->set_policy( "automatic", "automatic" );
|
$scrolled_win->add_with_viewport($notebook);
|
$scrolled_win->add_with_viewport($notebook);
|
|
|
my $window = def_win_size($width-100,$hight-100,"ProNoC");
|
my $window = def_win_size($width-100,$hight-100,"ProNoC");
|
#$window->add($scrolled_win);
|
#$window->add($scrolled_win);
|
|
|
|
|
my $navIco = Gtk2::Gdk::Pixbuf->new_from_file("./icons/ProNoC.png"); # advance1.png");
|
my $navIco = Gtk2::Gdk::Pixbuf->new_from_file("./icons/ProNoC.png"); # advance1.png");
|
$window->set_default_icon($navIco);
|
$window->set_default_icon($navIco);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
my @menu_items = (
|
my @menu_items = (
|
|
|
|
|
[ "/_File", undef, undef, 0, "<Branch>" ],
|
[ "/_File", undef, undef, 0, "<Branch>" ],
|
# [ "/File/_New", "<control>N", \&menuitem_cb, 0, "<StockItem>", 'gtk-new' ],
|
# [ "/File/_New", "<control>N", \&menuitem_cb, 0, "<StockItem>", 'gtk-new' ],
|
# [ "/File/_Open", "<control>O", \&menuitem_cb, 0, "<StockItem>", 'gtk-open' ],
|
# [ "/File/_Open", "<control>O", \&menuitem_cb, 0, "<StockItem>", 'gtk-open' ],
|
# [ "/File/_Save", "<control>S", \&menuitem_cb, 0, "<StockItem>", 'gtk-save' ],
|
# [ "/File/_Save", "<control>S", \&menuitem_cb, 0, "<StockItem>", 'gtk-save' ],
|
# [ "/File/Save _As...", undef, \&menuitem_cb, 0, "<StockItem>", 'gtk-save' ],
|
# [ "/File/Save _As...", undef, \&menuitem_cb, 0, "<StockItem>", 'gtk-save' ],
|
# [ "/File/sep1", undef, \&menuitem_cb, 0, "<Separator>" ],
|
# [ "/File/sep1", undef, \&menuitem_cb, 0, "<Separator>" ],
|
[ "/File/_Quit", "<control>Q", sub { Gtk2->main_quit }, 0, "<StockItem>", 'gtk-quit' ],
|
[ "/File/_Quit", "<control>Q", sub { Gtk2->main_quit }, 0, "<StockItem>", 'gtk-quit' ],
|
|
|
[ "/_View", undef, undef, 0, "<Branch>" ],
|
[ "/_View", undef, undef, 0, "<Branch>" ],
|
|
|
|
|
["/_Help", undef, undef, 0, "<Branch>" ],
|
["/_Help", undef, undef, 0, "<Branch>" ],
|
["/_Help/_About", "F1", \&about , 0, undef ],
|
["/_Help/_About", "F1", \&about , 0, undef ],
|
["/_Help/_intf_gen", "F2", \&intfc_help, 0, undef ],
|
["/_Help/_intf_gen", "F2", \&intfc_help, 0, undef ],
|
["/_Help/_ip_gen", "F3", \&ip_help , 0, undef ],
|
["/_Help/_ip_gen", "F3", \&ip_help , 0, undef ],
|
["/_Help/_pt_gen", "F4", \>_help , 0, undef ],
|
["/_Help/_pt_gen", "F4", \>_help , 0, undef ],
|
["/_Help/_Tutorial_1", undef, \&Tutorial_1 , 0, undef ],
|
["/_Help/_Tutorial_1", undef, \&Tutorial_1 , 0, undef ],
|
["/_Help/_Tutorial_2", undef, \&Tutorial_2 , 0, undef ],
|
["/_Help/_Tutorial_2", undef, \&Tutorial_2 , 0, undef ],
|
|
|
|
|
|
|
|
|
#["/_View/_Font12", undef, sub{ setfont(12,,$window)} , 0, "<RadioItem>" ],
|
#["/_View/_Font12", undef, sub{ setfont(12,,$window)} , 0, "<RadioItem>" ],
|
|
|
|
|
#[ "/_Preferences", undef, undef, 0, "<Branch>" ],
|
#[ "/_Preferences", undef, undef, 0, "<Branch>" ],
|
#[ "/_Preferences/_Color", undef, undef, 0, "<Branch>" ],
|
#[ "/_Preferences/_Color", undef, undef, 0, "<Branch>" ],
|
#[ "/_Preferences/Color/_Red", undef, \&menuitem_cb, 0, "<RadioItem>" ],
|
#[ "/_Preferences/Color/_Red", undef, \&menuitem_cb, 0, "<RadioItem>" ],
|
#[ "/_Preferences/Color/_Green", undef, \&menuitem_cb, 0, "/Preferences/Color/Red" ],
|
#[ "/_Preferences/Color/_Green", undef, \&menuitem_cb, 0, "/Preferences/Color/Red" ],
|
#[ "/_Preferences/Color/_Blue", undef, \&menuitem_cb, 0, "/Preferences/Color/Red" ],
|
#[ "/_Preferences/Color/_Blue", undef, \&menuitem_cb, 0, "/Preferences/Color/Red" ],
|
#[ "/_Preferences/_Shape", undef, undef, 0, "<Branch>" ],
|
#[ "/_Preferences/_Shape", undef, undef, 0, "<Branch>" ],
|
#[ "/_Preferences/Shape/_Square", undef, \&menuitem_cb, 0, "<RadioItem>" ],
|
#[ "/_Preferences/Shape/_Square", undef, \&menuitem_cb, 0, "<RadioItem>" ],
|
#[ "/_Preferences/Shape/_Rectangle", undef, \&menuitem_cb, 0, "/Preferences/Shape/Square" ],
|
#[ "/_Preferences/Shape/_Rectangle", undef, \&menuitem_cb, 0, "/Preferences/Shape/Square" ],
|
#[ "/_Preferences/Shape/_Oval", undef, \&menuitem_cb, 0, "/Preferences/Shape/Rectangle" ],
|
#[ "/_Preferences/Shape/_Oval", undef, \&menuitem_cb, 0, "/Preferences/Shape/Rectangle" ],
|
|
|
);
|
);
|
|
|
|
|
|
|
|
|
|
|
|
|
#my $table = Gtk2::Table->new (1, 4, FALSE);
|
#my $table = Gtk2::Table->new (1, 4, FALSE);
|
my $vbox = Gtk2::VBox->new( FALSE, 0 );
|
my $vbox = Gtk2::VBox->new( FALSE, 0 );
|
|
|
my $accel_group = Gtk2::AccelGroup->new;
|
my $accel_group = Gtk2::AccelGroup->new;
|
$window->add_accel_group ($accel_group);
|
$window->add_accel_group ($accel_group);
|
|
|
my $item_factory = Gtk2::ItemFactory->new ("Gtk2::MenuBar", "<main>",
|
my $item_factory = Gtk2::ItemFactory->new ("Gtk2::MenuBar", "<main>",
|
$accel_group);
|
$accel_group);
|
|
|
# Set up item factory to go away with the window
|
# Set up item factory to go away with the window
|
$window->{'<main>'} = $item_factory;
|
$window->{'<main>'} = $item_factory;
|
|
|
# create menu items
|
# create menu items
|
$item_factory->create_items ($window, @menu_items);
|
$item_factory->create_items ($window, @menu_items);
|
|
|
|
|
|
|
|
|
$vbox->pack_start( $item_factory->get_widget ("<main>"), FALSE, FALSE, 0 );
|
$vbox->pack_start( $item_factory->get_widget ("<main>"), FALSE, FALSE, 0 );
|
|
|
|
|
|
|
|
|
# my $ui = Gtk2::UIManager->new;
|
# my $ui = Gtk2::UIManager->new;
|
# $ui->insert_action_group( $actions, 0 );
|
# $ui->insert_action_group( $actions, 0 );
|
# Add the actiongroup to the uimanager
|
# Add the actiongroup to the uimanager
|
# $ui->insert_action_group($radio_actions,0);
|
# $ui->insert_action_group($radio_actions,0);
|
|
|
# $window->add_accel_group( $ui->get_accel_group );
|
# $window->add_accel_group( $ui->get_accel_group );
|
# $ui->add_ui_from_string($ui_info);
|
# $ui->add_ui_from_string($ui_info);
|
|
|
#my $actions_media = Gtk2::ActionGroup->new ("media_dvd");
|
#my $actions_media = Gtk2::ActionGroup->new ("media_dvd");
|
|
|
|
|
|
|
# $vbox->pack_start( $ui->get_widget('/MenuBar'), FALSE, FALSE, 0 );
|
# $vbox->pack_start( $ui->get_widget('/MenuBar'), FALSE, FALSE, 0 );
|
$vbox->pack_end( $scrolled_win, TRUE, TRUE,10 );
|
$vbox->pack_end( $scrolled_win, TRUE, TRUE,10 );
|
|
|
$window->add($vbox);
|
$window->add($vbox);
|
|
|
|
|
|
|
|
|
$window->set_resizable (1);
|
$window->set_resizable (1);
|
$window->show_all();
|
$window->show_all();
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
}
|
}
|
|
|
|
|
|
|
sub about {
|
sub about {
|
my $about = Gtk2::AboutDialog->new;
|
my $about = Gtk2::AboutDialog->new;
|
$about->set_authors("Alireza Monemi\n Email: alirezamonemi\@opencores.org");
|
$about->set_authors("Alireza Monemi\n Email: alirezamonemi\@opencores.org");
|
$about->set_version( $VERSION );
|
$about->set_version( $VERSION );
|
$about->set_website('http://opencores.org/project,an-fpga-implementation-of-low-latency-noc-based-mpsoc');
|
$about->set_website('http://opencores.org/project,an-fpga-implementation-of-low-latency-noc-based-mpsoc');
|
$about->set_comments('NoC based MPSoC generator.');
|
$about->set_comments('NoC based MPSoC generator.');
|
$about->set_program_name('ProNoC');
|
$about->set_program_name('ProNoC');
|
|
|
$about->set_license(
|
$about->set_license(
|
"This program is free software; you can redistribute it\n"
|
"This program is free software; you can redistribute it\n"
|
. "and/or modify it under the terms of the GNU General \n"
|
. "and/or modify it under the terms of the GNU General \n"
|
. "Public License as published by the Free Software \n"
|
. "Public License as published by the Free Software \n"
|
. "Foundation; either version 1, or (at your option)\n"
|
. "Foundation; either version 1, or (at your option)\n"
|
. "any later version.\n\n"
|
. "any later version.\n\n"
|
|
|
);
|
);
|
# Add the Hide action to the 'Close' button in the AboutDialog():
|
# Add the Hide action to the 'Close' button in the AboutDialog():
|
$about->signal_connect('response' => sub { $about->hide; });
|
$about->signal_connect('response' => sub { $about->hide; });
|
|
|
|
|
$about->run;
|
$about->run;
|
$about->destroy;
|
$about->destroy;
|
return;
|
return;
|
}
|
}
|
|
|
sub intfc_help{
|
sub intfc_help{
|
my $dir = Cwd::getcwd();
|
my $dir = Cwd::getcwd();
|
my $help="$dir/doc/ProNoC_intfc_gen.pdf";
|
my $help="$dir/doc/ProNoC_intfc_gen.pdf";
|
system qq (xdg-open $help);
|
system qq (xdg-open $help);
|
return;
|
return;
|
|
|
}
|
}
|
|
|
sub ip_help{
|
sub ip_help{
|
my $dir = Cwd::getcwd();
|
my $dir = Cwd::getcwd();
|
my $help="$dir/doc/ProNoC_ip_gen.pdf";
|
my $help="$dir/doc/ProNoC_ip_gen.pdf";
|
system qq (xdg-open $help);
|
system qq (xdg-open $help);
|
return;
|
return;
|
}
|
}
|
|
|
|
|
|
|
sub pt_help{
|
sub pt_help{
|
my $dir = Cwd::getcwd();
|
my $dir = Cwd::getcwd();
|
my $help="$dir/doc/ProNoC_pt_gen.pdf";
|
my $help="$dir/doc/ProNoC_pt_gen.pdf";
|
system qq (xdg-open $help);
|
system qq (xdg-open $help);
|
return;
|
return;
|
}
|
}
|
|
|
sub Tutorial_1{
|
sub Tutorial_1{
|
my $dir = Cwd::getcwd();
|
my $dir = Cwd::getcwd();
|
my $help="$dir/doc/ProNoC_Tutorial1.pdf";
|
my $help="$dir/doc/ProNoC_Tutorial1.pdf";
|
system qq (xdg-open $help);
|
system qq (xdg-open $help);
|
return;
|
return;
|
|
|
}
|
}
|
|
|
sub Tutorial_2{
|
sub Tutorial_2{
|
my $dir = Cwd::getcwd();
|
my $dir = Cwd::getcwd();
|
my $help="$dir/doc/ProNoC_Tutorial2.pdf";
|
my $help="$dir/doc/ProNoC_Tutorial2.pdf";
|
system qq (xdg-open $help);
|
system qq (xdg-open $help);
|
return;
|
return;
|
|
|
}
|
}
|
|
|
|
|
|
|
Gtk2->init;
|
Gtk2->init;
|
main;
|
main;
|
Gtk2->main();
|
Gtk2->main();
|
|
|
