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

#!/usr/bin/perl -w
 
use Glib qw/TRUE FALSE/;
 
 
use Gtk2;
use strict;
use warnings;
#use Image::Base::Gtk2::Gdk::Pixbuf;
 
use lib 'lib/perl';
require "widget.pl"; 
require "interface_gen.pl";
require "ip_gen.pl";
require "soc_gen.pl";
require "mpsoc_gen.pl";
require "noc_sim.pl";
 
#use PDF::API2;
 
 
 
sub set_deafualt_font{
	my($width,$hight)=@_;
	#print "($width,$hight)\n";
	my $font_size;
	if($width>1600){
	    $font_size=10;
		Gtk2::Rc->parse_string(<<__);
			style "normal" { 
				font_name ="Verdana 10" 
			}
			widget "*" style "normal"
__
 
	}
	elsif ($width>1400){
		$font_size=9;
		Gtk2::Rc->parse_string(<<__);
		style "normal" { 
				font_name ="Verdana 9" 
			}
			widget "*" style "normal"
__
 
	}
	elsif ($width>1200){
		$font_size=8;
		Gtk2::Rc->parse_string(<<__);
		style "normal" { 
				font_name ="Verdana 8" 
			}
			widget "*" style "normal"
__
 
	}
	elsif ($width>1000){
	    $font_size=7;
		Gtk2::Rc->parse_string(<<__);
		style "normal" { 
				font_name ="Verdana 7" 
			}
			widget "*" style "normal"
__
 
	}
	else{
	    $font_size=6;
		Gtk2::Rc->parse_string(<<__);
		style "normal" { 
				font_name ="Verdana 6" 
			}
			widget "*" style "normal"
__
 
	}
	#print "	    \$font_size=	    $font_size\n";
	return 	    $font_size;
 
 
}
 
sub get_mpsoc{
	my ($ipgen,$soc_state,$info)=@_;
	my $description = "Will be available soon!";
	my $table = Gtk2::Table->new (15, 15, TRUE);
	#my $window=def_popwin_size(500,500,"Add description");
	my ($scrwin,$text_view)=create_text();
	#my $buffer = $textbox->get_buffer();
	my $ok=def_image_button("icons/select.png",' Ok ');
 
	$table->attach_defaults($scrwin,0,15,0,14);
	$table->attach_defaults($ok,6,9,14,15);
	my $text_buffer = $text_view->get_buffer;
	if(defined $text_buffer) {$text_buffer->set_text($description)};
 
	$ok->signal_connect("clicked"=> sub {
 
		my $text = $text_buffer->get_text($text_buffer->get_bounds, TRUE);
		# $ipgen->ipgen_set_description($text);	
		print "$text\n";
 
	});
 
	#$window->add($table);
	#$window->show_all();
	return $table;
 
}	
 
 
 
 
sub main{
 
 
 
my $notebook = Gtk2::Notebook->new;
#$hbox->pack_start ($notebook, TRUE, TRUE, 0);
 
my($width,$hight)=max_win_size();
set_deafualt_font_size();
 
 
 
my $intfc_gen=  intfc_main();
$notebook->append_page ($intfc_gen,Gtk2::Label->new_with_mnemonic ("_Interface generator"));
 
my $ipgen=ipgen_main();
$notebook->append_page ($ipgen,Gtk2::Label->new_with_mnemonic ("_IP generator"));
 
my $socgen=socgen_main();			
$notebook->append_page ($socgen,Gtk2::Label->new_with_mnemonic ("_Processing tile generator"));
 
my $mpsocgen =mpsocgen_main();
$notebook->append_page ($mpsocgen,Gtk2::Label->new_with_mnemonic ("_NoC based MPSoC generator"));	
 
 
 
 
 
		my $scrolled_win = new Gtk2::ScrolledWindow (undef, undef);
		$scrolled_win->set_policy( "automatic", "automatic" );
		$scrolled_win->add_with_viewport($notebook);	
 
		my $window = def_win_size($width-100,$hight-100,"ProNoC");
		#$window->add($scrolled_win);
 
 
		my $navIco = Gtk2::Gdk::Pixbuf->new_from_file("./icons/ProNoC.png");         # advance1.png");  
		$window->set_default_icon($navIco); 
 
 
 
 
 
 
 
 
		my @entries = (
        ### Everything falls under the following 3 rows ###
        [ 'FileMenu',       undef, '_File' ],
        [ 'ViewMenu',       undef, '_View' ],
        [ 'HelpMenu',       undef, '_Help' ],
 
        # Quit
        [   'Exit',           'gtk-quit',
            'E_xit', '<control>X',
            undef,      sub { Gtk2->main_quit },
            FALSE
        ],
        # About
        [   'About',                          'gtk-about',
            '_About',                           '<control>A',
            undef,      \&about,
            FALSE
        ],
 
	 # intf_gen help
        [   'interface generator',                          'gtk-about',
            '_Interface generator',                           'F1',
            undef,      \&intfc_help,
            FALSE
        ],
	 # ip_gen help
        [   'ip generator',                          'gtk-about',
            '_IP generator',                           'F2',
            undef,      \&ip_help,
            FALSE
        ],
	 # pt_gen help
        [   'pt generator',                          'gtk-about',
            '_Processing tile generator',                           'F3',
            undef,      \&pt_help,
            FALSE
        ],
);
 
    my $ui_info = "<ui>
        <menubar name='MenuBar'>
         <menu action='FileMenu'>
          <separator/>
          <menuitem action='Exit'/>
         </menu>
          <menu action='ViewMenu'>
         </menu>
         <menu action='HelpMenu'>
          <menuitem action='About'/>
	  <menuitem action='interface generator'/>
	  <menuitem action='ip generator'/>
	  <menuitem action='pt generator'/>
 
         </menu>
        </menubar>
</ui>";
 
    my $actions = Gtk2::ActionGroup->new('Actions');
    $actions->add_actions( \@entries, undef );
 
    my $ui = Gtk2::UIManager->new;
    $ui->insert_action_group( $actions, 0 );
 
    $window->add_accel_group( $ui->get_accel_group );
    $ui->add_ui_from_string($ui_info);
   my $vbox = Gtk2::VBox->new( FALSE, 0 );
    $vbox->pack_start( $ui->get_widget('/MenuBar'), FALSE, FALSE, 0 );
    $vbox->pack_end( $scrolled_win, TRUE, TRUE,10 );
 
$window->add($vbox);
 
 
 
 
		$window->set_resizable (1);
		$window->show_all();
 
 
 
 
 
 
 
 
 
}			
 
 
 
sub about {
    my $about = Gtk2::AboutDialog->new;
    $about->set_authors("Alireza Monemi\n Email: alirezamonemi\@opencores.org");
    $about->set_version( '1.0' );
    $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_license(
                 "This program is free software; you can redistribute it\n"
                . "and/or modify it under the terms of the GNU General \n"
		. "Public License as published by the Free Software \n"
		. "Foundation; either version 1, or (at your option)\n"
		. "any later version.\n\n"
 
        );
    $about->run;
    $about->destroy;
    return;
}
 
sub intfc_help{
    my $dir = Cwd::getcwd();
    my $help="$dir/doc/interface_gen.pdf";	
    system qq (xdg-open $help);
    return;
 
}
 
sub ip_help{ 
    my $dir = Cwd::getcwd();
    my $help="$dir/doc/ip_gen.pdf";	
    system qq (xdg-open $help);
    return;
}
 
 
 
sub pt_help{ 
    my $dir = Cwd::getcwd();
    my $help="$dir/doc/pt-gen.pdf";	
    system qq (xdg-open $help);
    return;
}
 
 
 
 
Gtk2->init;
main;
Gtk2->main();