URL https://opencores.org/ocsvn/an-fpga-implementation-of-low-latency-noc-based-mpsoc/an-fpga-implementation-of-low-latency-noc-based-mpsoc/trunk

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

[/] [an-fpga-implementation-of-low-latency-noc-based-mpsoc/] [trunk/] [mpsoc/] [perl_gui/] [lib/] [perl/] [software_editor.pl] - Blame information for rev 48

Go to most recent revision | Details | Compare with Previous | View Log


#!/usr/bin/perl -w
 
use strict;
use warnings;
 
use FindBin;
use lib $FindBin::Bin;
use Consts;
 
use constant::boolean;
 
 
use Data::Dumper;
use File::Basename;
use Cwd 'abs_path';
 
use base 'Class::Accessor::Fast';
 
use Consts;
BEGIN {
    my $module = (Consts::GTK_VERSION==2) ? 'Gtk2' : 'Gtk3';
    my $file = $module;
    $file =~ s[::][/]g;
    $file .= '.pm';
    require $file;
    $module->import;
}
 
 
require "widget.pl";
 
 
__PACKAGE__->mk_accessors(qw{
        window
        sourceview
        buffer
        filename
        search_regexp
        search_case
        search_entry
        regexp
        highlighted
        open_list_ref
        source_view_notebook
        menue
        modified
        label
        ask_to_save
        close_b
});
 
 
 
 
 
my $NAME = 'ProNoC';
my      $path = "";
our $FONT_SIZE='default';
our $ICON_SIZE='default';
 
exit gtk_gui_run(\&software_main_stand_alone) unless caller;
 
 
sub software_main_stand_alone(){
        $path = "../../";
 
        set_path_env();
        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;
                my %p=%{$paths};
                $FONT_SIZE= $p{'GUI_SETTING'}{'FONT_SIZE'} if (defined $p{'GUI_SETTING'}{'FONT_SIZE'});
                $ICON_SIZE= $p{'GUI_SETTING'}{'ICON_SIZE'} if (defined $p{'GUI_SETTING'}{'ICON_SIZE'});
        }
 
        set_defualt_font_size();
        my ($app,$table,$tview,$window) = software_main("../../../../../back/tmp",undef,) ;
        $window->signal_connect (destroy => sub { gui_quite();});
}
 
 
 
 
 
sub software_main {
        my ($sw,$file,$pages_ref,$label_ref) = @_;
 
 
 
        my $app = __PACKAGE__->new();
        my ($table,$tview,$widget)=$app->build_gui($sw,$pages_ref,$label_ref);
        my $main_c=(defined $file)? "$sw/$file" : "$sw/main.c";
        my @tmp;
        $app->open_list_ref(\@tmp);
        $app->ask_to_save(def_button());
        $app->load_source($main_c) if (-f $main_c );
        return ($app,$table,$tview,$widget);
}
 
 
 
 
sub build_gui {
        my ($app,$sw,$pages_ref,$label_ref) = @_;
 
 
        my $table= def_table(2,10,FALSE);
 
        my $vbox = def_vbox(FALSE, 0);
        my $scwin_text = add_widget_to_scrolled_win($vbox);
 
        my ($scwin_info,$tview)= create_txview();
        my ($tree_view,$tree_store) =$app->build_tree_view($sw);
        my $scwin_dirs = add_widget_to_scrolled_win($tree_view);
 
 
        my $hpaned = gen_hpaned($scwin_dirs,0.15,$scwin_text);
        my $vpaned = gen_vpaned($hpaned,0.6,$scwin_info);
 
        $table->attach_defaults ($vpaned,0, 10, 0,1);
 
        my $window = def_popwin_size (84,84,'Source Editor','percent');
 
        my @menue_item=("$sw/",$window,$tree_view,$tree_store,$scwin_dirs);
        $app->menue(\@menue_item);
        if (defined $pages_ref){
                #first page is software editor
                my $notebook = gen_notebook();
 
                my $label1=def_image_label($path."icons/binary.png","Software Editor",1);
                $notebook->append_page ($table,$label1);
                $label1->show_all;
 
 
                my @pages=@{$pages_ref};
                my @labels=@{$label_ref};
                my $i=0;
                foreach my $page (@pages){
                        my $label=$labels[$i];
                        $notebook->append_page ($page,$label);
                        $label->show_all;
                        $i++;
                }
                $notebook->show_all;
                $notebook->set_current_page(0);
                $window -> add ( $notebook);
        }else {
                $window -> add ( $table);
        }
 
        $app->window($window);
 
 
        my $hbox = def_table(FALSE, 0);
        my $source_view_notebook = gen_notebook();
        $vbox->pack_start($hbox, FALSE, FALSE, 0);
        $vbox->pack_start($source_view_notebook, TRUE, TRUE, 0);
 
 
 
 
        $app->source_view_notebook($source_view_notebook);
    $window->show_all();
 
        $window->signal_connect ('delete_event'=> sub {
                $app->ask_to_save_changes();
                return 0;
 
        });
 
 
 
 
 
        return ($table,$tview,$window);
}
 
sub ask_to_save_changes{
        my $app=shift;
        my $save = $app->ask_to_save();
        $save->clicked;
}
 
sub update_modified {
        my $self=shift;
        if($self->modified() ==2 ){
                $self->set_source_label_modified(FALSE);
                return;
        }
        elsif($self->modified() ==FALSE ){
                #if ($buffer->get_modified()){
                        $self->set_source_label_modified(TRUE);
                #}
        }
}
 
sub new_source_view{
        my ($app,$filename)=@_;
 
    my $self = __PACKAGE__->new();
    my ($name,$p,$suffix) = fileparse("$filename",qr"\..[^.]*$");
        my $label = gen_label_in_left ("${name}${suffix}");
    $self->modified(2);#initial 
        $self->label($label);
        $self->filename($filename);
 
        my $hbox = def_table(FALSE, 0);
        my $vbox = def_vbox(FALSE, 0);
        my $ref =$app->menue();
        my ($sw,$window,$tree_view,$tree_store,$scwin_dirs) =@{$ref};
    $hbox->attach($self->build_menu($sw,$window,$tree_view,$tree_store,$scwin_dirs,$app), 0, 1, 0,1,'shrink','shrink',2,2);
 
        $hbox->attach_defaults($self->build_search_box, 1,2,0,1);
    $vbox->pack_start($hbox, FALSE, FALSE, 0);
 
        my $buffer = $self->create_SourceView_buffer();
        my $sourceview = gen_SourceView_with_buffer($buffer);
        $sourceview->signal_connect('key-press-event' => sub { handle_key( @_,$self ) } );
        $sourceview->set_show_line_numbers(TRUE);
        $sourceview->set_tab_width(2);
        $sourceview->set_indent_on_tab(TRUE);
        $sourceview->set_highlight_current_line(TRUE);
 
 
    #   $sourceview->set_draw_spaces(['tab', 'newline']);
        #
        # Fix TextView's annoying paste behaviour when pasting with the mouse
        # (middle button click). By default gtk will scroll the text view to the
        # original place where the cursor is.
        #
        $sourceview->signal_connect(button_press_event => sub {
                my ($view, $event) = @_;
 
                # We're only interested on middle mouse clicks (mouse-paste)
                return FALSE unless $event->button == 2;
 
                # Remember the position of the paste
                my (@coords) = $sourceview->window_to_buffer_coords('text', $event->x, $event->y);
                my ($iter) = $sourceview->get_iter_at_position(@coords);
                $self->{paste_mark} = $buffer->create_mark('paste', $iter, FALSE);
 
                return FALSE;
        });
 
 
        #
        # If a paste is done through the middle click then place the cursor at the end
        # of the pasted text.
        #
        $buffer->signal_connect('paste-done' => sub {
                my $mark = delete $self->{paste_mark} or return;
 
                my $iter = $buffer->get_iter_at_mark($mark);
                $buffer->place_cursor($iter);
 
                $self->sourceview->scroll_to_mark(
                        $mark,
                        0.0,
                        FALSE,
                        0.0, 0.5
                );
                $buffer->delete_mark($mark);
        });
 
        $buffer->signal_connect('insert-text' => sub {
                update_modified($self);
        });
        $buffer->signal_connect('delete-range' => sub {
                update_modified($self);
        });
 
 
 
        my $scroll = add_widget_to_scrolled_win($sourceview);
        $vbox->pack_start($scroll, TRUE, TRUE, 0);
        $self->sourceview($sourceview);
        $self->buffer($sourceview->get_buffer);
 
 
        my $notebook = $app->source_view_notebook();
        my $close = def_button('x');
 
        my $box = def_hbox(FALSE,0);
        $box->pack_start($label, TRUE, FALSE, 0);
        $box->pack_start($close, TRUE, FALSE, 0);
        $notebook->append_page ($vbox,$box);
        set_tip($box,"$filename");
        $box->show_all;
        $notebook->show_all();
        my $n= $notebook->get_n_pages();
        $notebook->set_current_page($n-1);
        #save $sourceview ref in $app
        my %srcviews;
        my $ref2 = $app->sourceview();
        if(defined $ref2){
                %srcviews =%{$ref2};
        }
        $srcviews{$n-1}=$self;
        $app->sourceview(\%srcviews);
 
 
        $close->signal_connect("clicked" => sub {
                #check if the file has been modified or not
                if($self->modified()==TRUE){
                        my $r=create_dialog ("Save changes to documnet ${name}${suffix}?","If you do'nt save, changes will be permanently lost.",$path."icons/help.png","Save","Close without saving","Cancel");
                        return if ($r eq "Cancel");
                        if ($r eq "Save"){
                                $self->do_save();
                        }
 
                }
                $vbox->destroy;
                $box->destroy;
                $self = undef;
                my $ref =$app->open_list_ref();
                my @new =remove_scolar_from_array($ref,$filename);
                $app->open_list_ref(\@new);
 
        });
 
        my $save = $app->ask_to_save();
 
    $save->signal_connect("clicked" => sub {
                #check if the file has been modified or not
                return if(!defined $self);
                if($self->modified()==TRUE){
                        my $r=create_dialog ("Save changes to documnet ${name}${suffix}?"," ",$path."icons/help.png","Save","Continue without saving");
                        return if ($r eq "Continue without saving");
                        if ($r eq "Save"){
                                $self->do_save();
                        }
 
                }
        });
 
        $self->close_b($close);
        return $self;
}
 
 
 
sub build_tree_view{
        my ($app,$sw)=@_;
 
        # Directory name, full path
        my ($tree_store,$tree_view) =file_edit_tree();
 
#       $tree_view->signal_connect (button_release_event => sub{
        $tree_view->signal_connect (row_activated  => sub{
                my $tree_model = $tree_view->get_model();
                my $selection = $tree_view->get_selection();
                my $iter = $selection->get_selected();
 
                if(defined $iter){
                        my $path = $tree_model->get($iter, 1) ;
                        $path= substr $path, 0, -1;
                        #$self->do_save();
                        #print "open $path\n";
                         $app->load_source($path) if(-f $path);
                }
                 return;
        });
 
 
        $tree_view->signal_connect ('row-expanded' => sub {
                my ($tree_view, $iter, $tree_path) = @_;
                my $tree_model = $tree_view->get_model();
                my ($dir, $path) = $tree_model->get($iter);
 
                # for each of $iter's children add any subdirectories
                my $child = $tree_model->iter_children ($iter);
 
 
                my $r;
                $r=$tree_model->iter_is_valid($child);
                while ($child && $r ==1) {
 
                        my ($dir, $path) = $tree_model->get($child, 0, 1);
                        add_to_tree($tree_view,$tree_store, $child, $dir, $path);
                        $child=treemodel_next_iter($child , $tree_model);
                        $r=$tree_model->iter_is_valid($child) if (defined $child);
 
                }
                 return;
});
 
my $child = $tree_store->append(undef);
 
$tree_store->set($child, 0, $sw, 1, '/');
add_to_tree($tree_view,$tree_store, $child, '/', "$sw/");
return ($tree_view,$tree_store);
 
}
 
 
 
sub build_search_box {
        my $self = shift;
 
        # Elements of the search box
        my $hbox = def_hbox(FALSE, 0);
 
        my $search_entry = gen_entry();
        $search_entry->signal_connect(activate => sub {$self->do_search()});
        $search_entry->signal_connect(icon_release => sub {$self->do_search()});
        $self->search_entry($search_entry);
 
        my $search_regexp = gen_checkbutton('RegExp');
        $search_regexp->signal_connect(toggled => sub {
                $self->search_regexp($search_regexp->get_active);
        });
 
        my $search_case = gen_checkbutton('Case');
        $search_case->signal_connect(toggled => sub {
                $self->search_case($search_case->get_active);
        });
 
 
 
        my $search_icon = def_image_button($path."icons/browse.png");
        $search_entry->set_icon_from_stock(primary => 'gtk-find');
 
 
        $hbox->pack_start($search_entry, TRUE, TRUE , 0);
        $hbox->pack_start($search_regexp, FALSE, FALSE, 0);
        $hbox->pack_start($search_case, FALSE, FALSE, 0);
 
        return $hbox;
}
 
sub refresh_source {
        my $app = shift;
        my ($filename) = abs_path(@_);
 
 
        my $ref =$app->open_list_ref();
        my @open_list;
        @open_list = @{$ref} if(defined $ref);
        #check if the file is opend before activate its notebook win, remove its content
        my $pos=get_scolar_pos ($filename,@open_list);
        my $self;
        if (defined $pos){
                my $notebook = $app->source_view_notebook();
                $notebook->set_current_page($pos);
 
                my $ref = $app->sourceview();
                if(defined $ref){
                        my %srcviews =%{$ref};
                        my $n = $notebook->get_current_page;
                        $self=$srcviews{$n};
                }else {
                        return;
                }
        }
        else {
                $self=new_source_view($app,"$filename");
                push(@open_list,$filename);
                $app->open_list_ref(\@open_list);
 
        }
        my $buffer = $self->buffer;
 
        # Guess the programming language of the file
        $self->detect_language($filename);
 
        # Loading a file should not be undoable.
        my $content;
        do {
                open my $handle, $filename or die "Can't read file $filename because $!";
                local $/;
                $content = <$handle>;
                close $handle;
        };
        $buffer->begin_not_undoable_action();
        $buffer->set_text($content);
        $buffer->end_not_undoable_action();
 
        #$buffer->set_modified(FALSE);
        $buffer->place_cursor($buffer->get_start_iter);
 
 
 
        my $notebook = $app->source_view_notebook();
        $notebook->show_all();
 
 
        #$self->window->set_title("$filename - $NAME");
}
 
 
 
 
 
 
 
 
 
 
 
sub load_source {
        my $app = shift;
        my ($filename) = abs_path(@_);
 
 
        my $ref =$app->open_list_ref();
        my @open_list;
        @open_list = @{$ref} if(defined $ref);
        #check if the file is opend before activate its notebook win
        my $pos=get_scolar_pos ($filename,@open_list);
 
        if (defined $pos){
                my $notebook = $app->source_view_notebook();
                $notebook->set_current_page($pos);
                return;
        }
 
 
        #create a new source view and load the file there
 
        my $self=new_source_view($app,"$filename");
 
        push(@open_list,$filename);
        $app->open_list_ref(\@open_list);
 
 
 
        my $buffer = $self->buffer;
 
        # Guess the programming language of the file
        $self->detect_language($filename);
 
        # Loading a file should not be undoable.
        my $content;
        do {
                open my $handle, $filename or die "Can't read file $filename because $!";
                local $/;
                $content = <$handle>;
                close $handle;
        };
        $buffer->begin_not_undoable_action();
        $buffer->set_text($content);
        $buffer->end_not_undoable_action();
 
        #$buffer->set_modified(FALSE);
        $buffer->place_cursor($buffer->get_start_iter);
 
 
 
        my $notebook = $app->source_view_notebook();
        $notebook->show_all();
 
 
        #$self->window->set_title("$filename - $NAME");
}
 
 
sub clear_highlighted {
        my $self = shift;
 
        my $highlighted = delete $self->{highlighted} or return;
 
        my $buffer = $self->buffer;
 
        my @iters;
        foreach my $mark (@{ $highlighted->{marks} }) {
                my $iter = $buffer->get_iter_at_mark($mark);
                push @iters, $iter;
                $buffer->delete_mark($mark);
        }
 
        $buffer->remove_tag_by_name($highlighted->{name}, @iters);
}
 
 
sub get_text {
        my $self = shift;
        my $buffer = $self->buffer;
        return $buffer->get_text($buffer->get_start_iter, $buffer->get_end_iter, FALSE);
}
 
 
sub do_search {
        my $self = shift;
        my $criteria = $self->search_entry->get_text;
        if ($criteria eq '') {return;}
 
        my $case = $self->search_case;
        my $buffer = $self->buffer;
 
 
        # Start the search at the last search result or from the current cursor's
        # position. As a fall back we also add the beginning of the document. Once we
        # have the start position we can erase the previous search results.
        my @start;
        if (my $highlighted = $self->highlighted) {
                # Search from the last match
                push @start, $buffer->get_iter_at_mark($highlighted->{marks}[1]);
                $self->clear_highlighted();
        }
        else {
                # Search from the cursor
                push @start, $buffer->get_iter_at_offset(
                        $buffer->get_property('cursor-position')
                );
        }
        push @start, $buffer->get_start_iter;
 
        my @iters;
        #if ($self->search_regexp) {
        if(1){
                # SourceView does not support regular expressions so we
                # have to do the search by hand!
 
                my $text = $self->get_text;
                my $regexp;
                if ($self->search_regexp){
                        $regexp = $case ? qr/$criteria/m : qr/$criteria/im;
                }else {
                        $regexp = $case ? qr/\Q${criteria}\E/m : qr/\Q${criteria}\E/im;
 
                }
 
                foreach my $iter (@start) {
                        # Tell Perl where to start the regexp lookup
                        pos($text) = $iter->get_offset;
 
                        if ($text =~ /($regexp)/g) {
                                my $word = $1;
                                my $pos = pos($text);
                                @iters = (
                                        $buffer->get_iter_at_offset($pos - length($word)),
                                        $buffer->get_iter_at_offset($pos),
                                );
                                last;
                        }
                }
        }
        else {
                # Use the builtin search mechanism
                my $flags = $case ? [ ] : [ 'case-insensitive' ];
                foreach my $iter (@start) {
                        #@iters = Gtk3::SourceView::Iter->forward_search($iter, $criteria, $flags);
                        last if @iters;
                }
        }
 
        $self->show_highlighted(search => @iters) if @iters;
}
 
 
sub show_highlighted {
        my $self = shift;
        my ($tag_name, $start, $end) = @_;
        my $buffer = $self->buffer;
 
        # Highlight the region, remember it and scroll to it
        my $match_start = $buffer->create_mark('match-start', $start, TRUE);
        my $match_end = $buffer->create_mark('match-end', $end, FALSE);
 
        $buffer->apply_tag_by_name($tag_name, $start, $end);
 
        # We have a callback that listens to when the cursor is placed and we don't
        # want it to undo our work! So let's unhighlight the previous entry.
        delete $self->{highlighted};
        $buffer->place_cursor($end);
 
        $self->sourceview->scroll_to_mark(
                $match_start,
                0.2,
                FALSE,
                0.0, 0.5
        );
 
        # Keep a reference to the markers once they have been added to the buffer.
        # Using them before can be catastrophic (segmenation fault).
        #
        $self->highlighted({
                name  => $tag_name,
                marks => [$match_start, $match_end],
        });
}
 
 
sub do_file_new {
        my ($self,$sw,$window,$tree_view,$tree_store,$scwin_dirs,$app) = @_;
 
        my $dialog = save_file_dialog('New file');
        if(defined  $sw){
                $dialog->set_current_folder ($sw);
                #print "open_in:$sw\n";
 
        }
 
        my $response = $dialog->run();
        if ($response eq 'ok') {
                my $file=$dialog->get_filename;
                save_file($file,'');
                $tree_view->destroy;
                ($tree_view,$tree_store) =$app->build_tree_view($sw);
                add_widget_to_scrolled_win($tree_view,$scwin_dirs);
                $scwin_dirs->show_all;
                $app->load_source($file);
        }
        $dialog->destroy();
}
 
sub do_remove{
        my ($self,$sw,$window,$tree_view,$tree_store,$scwin_dirs,$app) = @_;
        my $fname  = $self->filename;
        my $r = yes_no_dialog ("Are you sure you want to permanently delete $fname file?");
        return if $r eq 'no';
        $self->close_b()->clicked;
        unlink $fname;
        $tree_view->destroy;
        ($tree_view,$tree_store) =$app->build_tree_view($sw);
        add_widget_to_scrolled_win($tree_view,$scwin_dirs);
        $scwin_dirs->show_all;
 
 
}
 
 
sub do_file_open {
        my ($self,$sw,$window,$tree_view,$tree_store,$scwin_dirs,$app) = @_;
 
        my $dialog = gen_file_dialog("Open file...");
        $dialog->signal_connect(response => sub {
                my ($dialog, $response) = @_;
 
                if ($response eq 'ok') {
                        my $file = $dialog->get_filename;
                        return if -d $file;
                        $app->load_source($file);
                }
 
                $dialog->destroy();
        });
        $dialog->show();
}
 
 
sub do_show_about_dialog {
         about(Consts::VERSION);
}
 
 
sub do_ask_goto_line {
        my $self = shift;
 
        my $dialog=new_dialog_with_buttons($self);
 
        my $hbox =def_hbox(FALSE, 0);
        $hbox->pack_start(
                gen_label_in_left("Line number: "),
                FALSE, FALSE, 0
        );
        my $entry = gen_entry();
        $hbox->pack_start($entry, TRUE, TRUE, 0);
 
        $dialog->get_content_area->add($hbox);
        $dialog->show_all();
 
 
        # Signal handlers
        $entry->signal_connect(activate => sub {
                if ($entry->get_text =~ /(\d+)/) {
                        $dialog->response('ok');
                }
        });
 
        # Run the dialog
        my $response = $dialog->run();
 
        return unless $response eq 'ok';
 
        return unless my ($line) = ($entry->get_text =~ /(\d+)/);
        my $buffer = $self->buffer;
        my $start = $buffer->get_iter_at_line($line - 1);
        my $end = $start->copy;
        $end->forward_to_line_end;
 
        $self->clear_highlighted();
        $self->show_highlighted(goto_line => $start, $end);
        $dialog->destroy();
}
 
 
sub do_quit {
        my ($self,$window) = @_;
        $window->destroy;
}
 
 
sub do_save_as {
        my ($self,$sw,$window,$tree_view,$tree_store,$scwin_dirs,$app) = @_;
 
        # If no file is associated with the editor then ask the user for a file where
        # to save the contents of the buffer.
        my $dialog = save_file_dialog('Save file');
        if(defined  $sw){
                $dialog->set_current_folder ($sw);
                #print "open_in:$sw\n";
 
        }
 
        my $response = $dialog->run();
        if ($response eq 'ok') {
                my $file=$dialog->get_filename;
 
                my $buffer = $self->buffer;
                open my $handle, '>:encoding(UTF-8)', $file or die "Can't write to $file: $!";
                print $handle $self->get_text;
                close $handle;
 
                $tree_view->destroy;
                ($tree_view,$tree_store) =$app->build_tree_view($sw);
                add_widget_to_scrolled_win($tree_view,$scwin_dirs);
                $scwin_dirs->show_all;
                $app->load_source($file);
 
 
        }
        $dialog->destroy();
 
 
}
 
 
sub do_save {
        my $self = shift;
 
        my $filename = $self->filename;
 
        # If there's no file then do a save as...
        if (! $filename) {
                #$self->do_save_as();
                return;
        }
 
        my $buffer = $self->buffer;
        open my $handle, '>:encoding(UTF-8)', $filename or die "Can't write to $filename: $!";
        print $handle $self->get_text;
        close $handle;
        $self->set_source_label_modified(FALSE);
        if (! $buffer->get_language) {
                $self->detect_language($filename);
        }
}
 
 
sub set_source_label_modified{
        my ($self,$is_modified)=@_;
        $self->modified($is_modified);
        my $buffer = $self->buffer;
        $buffer->set_modified($is_modified);
        my $label=$self->label();
    my $fname = $self->filename;
    my ($name,$p,$suffix) = fileparse("$fname",qr"\..[^.]*$");
 
    if ($is_modified ==TRUE){
        $label->set_markup("<span  foreground= 'black' ><b>*${name}${suffix}</b></span>");
    }else{
        $label->set_markup("<span  foreground= 'black' >${name}${suffix}</span>");
 
    }
        $label->show_all;
}
 
sub build_menu {
        my ($self,$sw,$window,$tree_view,$tree_store,$scwin_dirs,$app) = @_;
 
 
 
 my @menu_items = (
  [ "/_File",            undef,        undef,          0, "<Branch>" ],
  [ "/File/_New",       "<control>N", sub { $self->do_file_new($sw,$window,$tree_view,$tree_store,$scwin_dirs,$app); },  0,  undef ],
  [ "/File/_Open",      "<control>O", sub { $self->do_file_open($sw,$window,$tree_view,$tree_store,$scwin_dirs,$app) },  0, undef  ],
  [ "/File/_Save",      "<control>S", sub { $self->do_save($sw,$window,$tree_view,$tree_store,$scwin_dirs,$app)      },  0, undef  ],
  [ "/File/_SaveAs",    "<control><shift>S", sub { $self->do_save_as($sw,$window,$tree_view,$tree_store,$scwin_dirs,$app)} , 0, undef],
  [ "/File/_Delete",    "<control>D", sub { $self->do_remove($sw,$window,$tree_view,$tree_store,$scwin_dirs,$app)} , 0, undef],
  [ "/File/_Quit",              "<control>Q", sub { $self->do_quit($window) },  0, undef  ],
 
  [ "/_Search",           undef,        undef,          0, "<Branch>" ],
  [ "/Search/_Goto a Line",  "<control>L",      sub { $self->do_ask_goto_line($sw,$window,$tree_view,$tree_store,$scwin_dirs,$app)},  0, undef  ],
 
  [ "/_Help",           undef,          undef,          0,       "<Branch>" ],
  [ "/_Help/_About",    "F1",           sub { $self->do_show_about_dialog($sw,$window,$tree_view,$tree_store,$scwin_dirs,$app) } ,      0,       undef ],
 
 
 
);
 
 
        return gen_MenuBar($window,@menu_items);
 
}
 
 
 
sub add_to_tree {
 my ($tree_view,$tree_store, $parent, $dir, $path) = @_;
my $tree_model = $tree_view->get_model();
 
# If $parent already has children, then remove them first
 
 my $child = $tree_model->iter_children ($parent);
 while ($child) {
 
  $tree_store->remove ($child);
  $child = $tree_model->iter_children ($parent);
 }
 
# Add children from directory listing
 opendir(DIRHANDLE, $path) || return ; #die "Cannot open directory:$path $!\n";
 foreach my $subdir (sort readdir(DIRHANDLE)) {
  if ($subdir ne '.' and $subdir ne '..'
                                   # and -d $path.$subdir and -r $path.$subdir
) {
   my $child = $tree_store->append($parent);
 
 
   $tree_store->set($child, 0, $subdir, 1, "$path$subdir/") ;
 
  }
 }
 closedir(DIRHANDLE);
}
 
 
# Directory expanded. Populate subdirectories in readiness.
 
sub populate_treeo {
 
# $iter has been expanded
 my ($tree_view,$tree_store, $iter, $tree_path) = @_;
 my $tree_model = $tree_view->get_model();
 my ($dir, $path) = $tree_model->get($iter);
 
# for each of $iter's children add any subdirectories
 my $child = $tree_model->iter_children ($iter);
 while ($child) {
  my ($dir, $path) = $tree_model->get($child, 0, 1);
  add_to_tree($tree_view,$tree_store, $child, $dir, $path);
  $child = $tree_model->iter_next ($child);
 }
 return;
}
 
 
sub run_make_file {
        my ($dir,$outtext, $args)=@_;
        my $cmd =       (defined $args) ? "cd \"$dir/\" \n  make $args" :  "cd \"$dir/\" \n  make ";
        my $error=0;
        add_info($outtext,"$cmd\n");
 
        my ($stdout,$exit,$stderr)=run_cmd_in_back_ground_get_stdout( $cmd);
        #($stdout,$exit,$stderr)=run_cmd_in_back_ground_get_stdout( $cmd);
 
 
        if($exit){
                if($stderr){
                        $stderr=~ s/[‘,’]//g;
                        add_info($outtext,"$stdout\n");
                        add_colored_info($outtext,"$stderr\n","red");
                }
                add_colored_info($outtext,"Compilation failed.\n",'red');
                print " failed!\n";
                return 0;
 
        }else{
                add_info($outtext,"$stdout\n");
                if($stderr){ #probebly had warning
                        $stderr=~ s/[‘,’]//g;
                        #add_info($outtext,"$stdout\n"); 
                        add_colored_info($outtext,"$stderr\n","green");
                }
 
                add_colored_info($outtext,"Compilation finished successfully.\n",'blue');
                print " successful!\n";
                return 1;
        }
 
        #add_info($outtext,"**********Quartus compilation is done successfully in $target_dir!*************\n") if($error==0);
 
 
 
}
 
sub handle_key {
    my ($widget, $event, $self) = @_;
    my $key = get_pressed_key ($event);
    my $buffer = $widget->get_buffer();
    if ( ($key eq 'f') && control_pressed( $event ) ) {
 
 
        my ($start, $end) = $buffer->get_selection_bounds;
        if (defined $start && defined $end){
                my $string = $buffer->get_text ($start, $end, 0);
                #print "CTRL+F copy $string to serach box\n";
                $self->search_entry->set_text($string);
        }
    }
 
    return FALSE; # FALSE -> means propagate key further
}
 
sub control_pressed {
    my ( $event ) = @_;
 
    return $event->state & 'control-mask';
}
 
 
 
1;
 

Line No.	Rev	Author	Line
1	48	alirezamon	`#!/usr/bin/perl -w`
2	34	alirezamon
3			`use strict;`
4			`use warnings;`
5
6	48	alirezamon	`use FindBin;`
7			`use lib $FindBin::Bin;`
8			`use Consts;`
9
10			`use constant::boolean;`
11
12
13	34	alirezamon	`use Data::Dumper;`
14	48	alirezamon	`use File::Basename;`
15			`use Cwd 'abs_path';`
16	34	alirezamon
17	48	alirezamon	`use base 'Class::Accessor::Fast';`
18	34	alirezamon
19	48	alirezamon	`use Consts;`
20			`BEGIN {`
21			`my $module = (Consts::GTK_VERSION==2) ? 'Gtk2' : 'Gtk3';`
22			`my $file = $module;`
23			`$file =~ s[::][/]g;`
24			`$file .= '.pm';`
25			`require $file;`
26			`$module->import;`
27			`}`
28
29
30	34	alirezamon	`require "widget.pl";`
31
32
33			`__PACKAGE__->mk_accessors(qw{`
34			`window`
35			`sourceview`
36			`buffer`
37			`filename`
38			`search_regexp`
39			`search_case`
40			`search_entry`
41			`regexp`
42			`highlighted`
43	48	alirezamon	`open_list_ref`
44			`source_view_notebook`
45			`menue`
46			`modified`
47			`label`
48			`ask_to_save`
49			`close_b`
50	34	alirezamon	`});`
51
52
53
54
55
56	48	alirezamon	`my $NAME = 'ProNoC';`
57			`my $path = "";`
58			`our $FONT_SIZE='default';`
59			`our $ICON_SIZE='default';`
60
61			`exit gtk_gui_run(\&software_main_stand_alone) unless caller;`
62
63
64			`sub software_main_stand_alone(){`
65			`$path = "../../";`
66
67			`set_path_env();`
68			`my $project_dir = get_project_dir(); #mpsoc dir addr`
69			`my $paths_file= "$project_dir/mpsoc/perl_gui/lib/Paths";`
70			`if (-f $paths_file){#} && defined $ENV{PRONOC_WORK} ) {`
71			`my $paths= do $paths_file;`
72			`my %p=%{$paths};`
73			`$FONT_SIZE= $p{'GUI_SETTING'}{'FONT_SIZE'} if (defined $p{'GUI_SETTING'}{'FONT_SIZE'});`
74			`$ICON_SIZE= $p{'GUI_SETTING'}{'ICON_SIZE'} if (defined $p{'GUI_SETTING'}{'ICON_SIZE'});`
75			`}`
76
77			`set_defualt_font_size();`
78			`my ($app,$table,$tview,$window) = software_main("../../../../../back/tmp",undef,) ;`
79			`$window->signal_connect (destroy => sub { gui_quite();});`
80			`}`
81
82
83
84
85
86	34	alirezamon	`sub software_main {`
87	48	alirezamon	`my ($sw,$file,$pages_ref,$label_ref) = @_;`
88	34	alirezamon
89
90
91			`my $app = __PACKAGE__->new();`
92	48	alirezamon	`my ($table,$tview,$widget)=$app->build_gui($sw,$pages_ref,$label_ref);`
93	34	alirezamon	`my $main_c=(defined $file)? "$sw/$file" : "$sw/main.c";`
94	48	alirezamon	`my @tmp;`
95			`$app->open_list_ref(\@tmp);`
96			`$app->ask_to_save(def_button());`
97	34	alirezamon	`$app->load_source($main_c) if (-f $main_c );`
98	48	alirezamon	`return ($app,$table,$tview,$widget);`
99			`}`
100	34	alirezamon
101
102
103
104			`sub build_gui {`
105	48	alirezamon	`my ($app,$sw,$pages_ref,$label_ref) = @_;`
106	34	alirezamon
107
108	48	alirezamon	`my $table= def_table(2,10,FALSE);`
109
110			`my $vbox = def_vbox(FALSE, 0);`
111			`my $scwin_text = add_widget_to_scrolled_win($vbox);`
112	34	alirezamon
113	48	alirezamon	`my ($scwin_info,$tview)= create_txview();`
114			`my ($tree_view,$tree_store) =$app->build_tree_view($sw);`
115			`my $scwin_dirs = add_widget_to_scrolled_win($tree_view);`
116	34	alirezamon
117
118	48	alirezamon	`my $hpaned = gen_hpaned($scwin_dirs,0.15,$scwin_text);`
119			`my $vpaned = gen_vpaned($hpaned,0.6,$scwin_info);`
120
121	34	alirezamon	`$table->attach_defaults ($vpaned,0, 10, 0,1);`
122
123	48	alirezamon	`my $window = def_popwin_size (84,84,'Source Editor','percent');`
124
125			`my @menue_item=("$sw/",$window,$tree_view,$tree_store,$scwin_dirs);`
126			`$app->menue(\@menue_item);`
127			`if (defined $pages_ref){`
128			`#first page is software editor`
129			`my $notebook = gen_notebook();`
130
131			`my $label1=def_image_label($path."icons/binary.png","Software Editor",1);`
132			`$notebook->append_page ($table,$label1);`
133			`$label1->show_all;`
134
135
136			`my @pages=@{$pages_ref};`
137			`my @labels=@{$label_ref};`
138			`my $i=0;`
139			`foreach my $page (@pages){`
140			`my $label=$labels[$i];`
141			`$notebook->append_page ($page,$label);`
142			`$label->show_all;`
143			`$i++;`
144			`}`
145			`$notebook->show_all;`
146			`$notebook->set_current_page(0);`
147			`$window -> add ( $notebook);`
148			`}else {`
149			`$window -> add ( $table);`
150			`}`
151	34	alirezamon
152	48	alirezamon	`$app->window($window);`
153	34	alirezamon
154
155	48	alirezamon	`my $hbox = def_table(FALSE, 0);`
156			`my $source_view_notebook = gen_notebook();`
157			`$vbox->pack_start($hbox, FALSE, FALSE, 0);`
158			`$vbox->pack_start($source_view_notebook, TRUE, TRUE, 0);`
159	43	alirezamon
160	48	alirezamon
161
162
163			`$app->source_view_notebook($source_view_notebook);`
164			`$window->show_all();`
165
166			`$window->signal_connect ('delete_event'=> sub {`
167			`$app->ask_to_save_changes();`
168			`return 0;`
169
170			`});`
171
172
173
174
175
176			`return ($table,$tview,$window);`
177			`}`
178	34	alirezamon
179	48	alirezamon	`sub ask_to_save_changes{`
180			`my $app=shift;`
181			`my $save = $app->ask_to_save();`
182			`$save->clicked;`
183			`}`
184	34	alirezamon
185	48	alirezamon	`sub update_modified {`
186			`my $self=shift;`
187			`if($self->modified() ==2 ){`
188			`$self->set_source_label_modified(FALSE);`
189			`return;`
190			`}`
191			`elsif($self->modified() ==FALSE ){`
192			`#if ($buffer->get_modified()){`
193			`$self->set_source_label_modified(TRUE);`
194			`#}`
195			`}`
196			`}`
197	34	alirezamon
198	48	alirezamon	`sub new_source_view{`
199			`my ($app,$filename)=@_;`
200
201			`my $self = __PACKAGE__->new();`
202			`my ($name,$p,$suffix) = fileparse("$filename",qr"\..[^.]*$");`
203			`my $label = gen_label_in_left ("${name}${suffix}");`
204			`$self->modified(2);#initial`
205			`$self->label($label);`
206			`$self->filename($filename);`
207
208			`my $hbox = def_table(FALSE, 0);`
209			`my $vbox = def_vbox(FALSE, 0);`
210			`my $ref =$app->menue();`
211			`my ($sw,$window,$tree_view,$tree_store,$scwin_dirs) =@{$ref};`
212			`$hbox->attach($self->build_menu($sw,$window,$tree_view,$tree_store,$scwin_dirs,$app), 0, 1, 0,1,'shrink','shrink',2,2);`
213
214			`$hbox->attach_defaults($self->build_search_box, 1,2,0,1);`
215			`$vbox->pack_start($hbox, FALSE, FALSE, 0);`
216
217			`my $buffer = $self->create_SourceView_buffer();`
218			`my $sourceview = gen_SourceView_with_buffer($buffer);`
219			`$sourceview->signal_connect('key-press-event' => sub { handle_key( @_,$self ) } );`
220	34	alirezamon	`$sourceview->set_show_line_numbers(TRUE);`
221			`$sourceview->set_tab_width(2);`
222			`$sourceview->set_indent_on_tab(TRUE);`
223			`$sourceview->set_highlight_current_line(TRUE);`
224	48	alirezamon
225
226			`# $sourceview->set_draw_spaces(['tab', 'newline']);`
227	34	alirezamon	`#`
228	48	alirezamon	`# Fix TextView's annoying paste behaviour when pasting with the mouse`
229	34	alirezamon	`# (middle button click). By default gtk will scroll the text view to the`
230			`# original place where the cursor is.`
231			`#`
232			`$sourceview->signal_connect(button_press_event => sub {`
233			`my ($view, $event) = @_;`
234
235			`# We're only interested on middle mouse clicks (mouse-paste)`
236			`return FALSE unless $event->button == 2;`
237
238			`# Remember the position of the paste`
239			`my (@coords) = $sourceview->window_to_buffer_coords('text', $event->x, $event->y);`
240			`my ($iter) = $sourceview->get_iter_at_position(@coords);`
241			`$self->{paste_mark} = $buffer->create_mark('paste', $iter, FALSE);`
242
243			`return FALSE;`
244			`});`
245
246
247			`#`
248			`# If a paste is done through the middle click then place the cursor at the end`
249			`# of the pasted text.`
250			`#`
251			`$buffer->signal_connect('paste-done' => sub {`
252			`my $mark = delete $self->{paste_mark} or return;`
253
254			`my $iter = $buffer->get_iter_at_mark($mark);`
255			`$buffer->place_cursor($iter);`
256
257			`$self->sourceview->scroll_to_mark(`
258			`$mark,`
259			`0.0,`
260			`FALSE,`
261			`0.0, 0.5`
262			`);`
263			`$buffer->delete_mark($mark);`
264			`});`
265
266	48	alirezamon	`$buffer->signal_connect('insert-text' => sub {`
267			`update_modified($self);`
268			`});`
269			`$buffer->signal_connect('delete-range' => sub {`
270			`update_modified($self);`
271			`});`
272
273	34	alirezamon
274	48	alirezamon
275			`my $scroll = add_widget_to_scrolled_win($sourceview);`
276			`$vbox->pack_start($scroll, TRUE, TRUE, 0);`
277	34	alirezamon	`$self->sourceview($sourceview);`
278			`$self->buffer($sourceview->get_buffer);`
279
280	48	alirezamon
281			`my $notebook = $app->source_view_notebook();`
282			`my $close = def_button('x');`
283
284			`my $box = def_hbox(FALSE,0);`
285			`$box->pack_start($label, TRUE, FALSE, 0);`
286			`$box->pack_start($close, TRUE, FALSE, 0);`
287			`$notebook->append_page ($vbox,$box);`
288			`set_tip($box,"$filename");`
289			`$box->show_all;`
290			`$notebook->show_all();`
291			`my $n= $notebook->get_n_pages();`
292			`$notebook->set_current_page($n-1);`
293			`#save $sourceview ref in $app`
294			`my %srcviews;`
295			`my $ref2 = $app->sourceview();`
296			`if(defined $ref2){`
297			`%srcviews =%{$ref2};`
298			`}`
299			`$srcviews{$n-1}=$self;`
300			`$app->sourceview(\%srcviews);`
301
302
303			`$close->signal_connect("clicked" => sub {`
304			`#check if the file has been modified or not`
305			`if($self->modified()==TRUE){`
306			`my $r=create_dialog ("Save changes to documnet ${name}${suffix}?","If you do'nt save, changes will be permanently lost.",$path."icons/help.png","Save","Close without saving","Cancel");`
307			`return if ($r eq "Cancel");`
308			`if ($r eq "Save"){`
309			`$self->do_save();`
310			`}`
311
312			`}`
313			`$vbox->destroy;`
314			`$box->destroy;`
315			`$self = undef;`
316			`my $ref =$app->open_list_ref();`
317			`my @new =remove_scolar_from_array($ref,$filename);`
318			`$app->open_list_ref(\@new);`
319
320	34	alirezamon	`});`
321	48	alirezamon
322			`my $save = $app->ask_to_save();`
323
324			`$save->signal_connect("clicked" => sub {`
325			`#check if the file has been modified or not`
326			`return if(!defined $self);`
327			`if($self->modified()==TRUE){`
328			`my $r=create_dialog ("Save changes to documnet ${name}${suffix}?"," ",$path."icons/help.png","Save","Continue without saving");`
329			`return if ($r eq "Continue without saving");`
330			`if ($r eq "Save"){`
331			`$self->do_save();`
332			`}`
333
334			`}`
335			`});`
336
337			`$self->close_b($close);`
338			`return $self;`
339	34	alirezamon	`}`
340
341
342	42	alirezamon
343			`sub build_tree_view{`
344	48	alirezamon	`my ($app,$sw)=@_;`
345	42	alirezamon
346			`# Directory name, full path`
347	48	alirezamon	`my ($tree_store,$tree_view) =file_edit_tree();`
348
349			`# $tree_view->signal_connect (button_release_event => sub{`
350			`$tree_view->signal_connect (row_activated => sub{`
351			`my $tree_model = $tree_view->get_model();`
352			`my $selection = $tree_view->get_selection();`
353			`my $iter = $selection->get_selected();`
354
355			`if(defined $iter){`
356			`my $path = $tree_model->get($iter, 1) ;`
357			`$path= substr $path, 0, -1;`
358			`#$self->do_save();`
359			`#print "open $path\n";`
360			`$app->load_source($path) if(-f $path);`
361			`}`
362			`return;`
363			`});`
364	42	alirezamon
365
366	48	alirezamon	`$tree_view->signal_connect ('row-expanded' => sub {`
367			`my ($tree_view, $iter, $tree_path) = @_;`
368			`my $tree_model = $tree_view->get_model();`
369			`my ($dir, $path) = $tree_model->get($iter);`
370
371			`# for each of $iter's children add any subdirectories`
372			`my $child = $tree_model->iter_children ($iter);`
373
374
375			`my $r;`
376			`$r=$tree_model->iter_is_valid($child);`
377			`while ($child && $r ==1) {`
378
379			`my ($dir, $path) = $tree_model->get($child, 0, 1);`
380			`add_to_tree($tree_view,$tree_store, $child, $dir, $path);`
381			`$child=treemodel_next_iter($child , $tree_model);`
382			`$r=$tree_model->iter_is_valid($child) if (defined $child);`
383
384			`}`
385			`return;`
386	42	alirezamon	`});`
387
388			`my $child = $tree_store->append(undef);`
389	48	alirezamon
390	42	alirezamon	`$tree_store->set($child, 0, $sw, 1, '/');`
391			`add_to_tree($tree_view,$tree_store, $child, '/', "$sw/");`
392			`return ($tree_view,$tree_store);`
393
394			`}`
395
396
397
398	34	alirezamon	`sub build_search_box {`
399			`my $self = shift;`
400
401			`# Elements of the search box`
402	48	alirezamon	`my $hbox = def_hbox(FALSE, 0);`
403	34	alirezamon
404	48	alirezamon	`my $search_entry = gen_entry();`
405	34	alirezamon	`$search_entry->signal_connect(activate => sub {$self->do_search()});`
406			`$search_entry->signal_connect(icon_release => sub {$self->do_search()});`
407			`$self->search_entry($search_entry);`
408
409	48	alirezamon	`my $search_regexp = gen_checkbutton('RegExp');`
410	34	alirezamon	`$search_regexp->signal_connect(toggled => sub {`
411			`$self->search_regexp($search_regexp->get_active);`
412			`});`
413
414	48	alirezamon	`my $search_case = gen_checkbutton('Case');`
415	34	alirezamon	`$search_case->signal_connect(toggled => sub {`
416			`$self->search_case($search_case->get_active);`
417			`});`
418
419	48	alirezamon
420
421			`my $search_icon = def_image_button($path."icons/browse.png");`
422	34	alirezamon	`$search_entry->set_icon_from_stock(primary => 'gtk-find');`
423
424	48	alirezamon
425	34	alirezamon	`$hbox->pack_start($search_entry, TRUE, TRUE , 0);`
426			`$hbox->pack_start($search_regexp, FALSE, FALSE, 0);`
427			`$hbox->pack_start($search_case, FALSE, FALSE, 0);`
428
429			`return $hbox;`
430			`}`
431
432	48	alirezamon	`sub refresh_source {`
433			`my $app = shift;`
434			`my ($filename) = abs_path(@_);`
435
436
437			`my $ref =$app->open_list_ref();`
438			`my @open_list;`
439			`@open_list = @{$ref} if(defined $ref);`
440			`#check if the file is opend before activate its notebook win, remove its content`
441			`my $pos=get_scolar_pos ($filename,@open_list);`
442			`my $self;`
443			`if (defined $pos){`
444			`my $notebook = $app->source_view_notebook();`
445			`$notebook->set_current_page($pos);`
446
447			`my $ref = $app->sourceview();`
448			`if(defined $ref){`
449			`my %srcviews =%{$ref};`
450			`my $n = $notebook->get_current_page;`
451			`$self=$srcviews{$n};`
452			`}else {`
453			`return;`
454			`}`
455			`}`
456			`else {`
457			`$self=new_source_view($app,"$filename");`
458			`push(@open_list,$filename);`
459			`$app->open_list_ref(\@open_list);`
460
461			`}`
462			`my $buffer = $self->buffer;`
463	34	alirezamon
464	48	alirezamon	`# Guess the programming language of the file`
465			`$self->detect_language($filename);`
466	34	alirezamon
467	48	alirezamon	`# Loading a file should not be undoable.`
468			`my $content;`
469			`do {`
470			`open my $handle, $filename or die "Can't read file $filename because $!";`
471			`local $/;`
472			`$content = <$handle>;`
473			`close $handle;`
474			`};`
475			`$buffer->begin_not_undoable_action();`
476			`$buffer->set_text($content);`
477			`$buffer->end_not_undoable_action();`
478	34	alirezamon
479	48	alirezamon	`#$buffer->set_modified(FALSE);`
480			`$buffer->place_cursor($buffer->get_start_iter);`
481	34	alirezamon
482	48	alirezamon
483
484			`my $notebook = $app->source_view_notebook();`
485			`$notebook->show_all();`
486
487
488			`#$self->window->set_title("$filename - $NAME");`
489	34	alirezamon	`}`
490	48	alirezamon
491
492
493
494
495
496
497	34	alirezamon
498
499
500

Browse

Tools

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

[/] [an-fpga-implementation-of-low-latency-noc-based-mpsoc/] [trunk/] [mpsoc/] [perl_gui/] [lib/] [perl/] [software_editor.pl] - Blame information for rev 48