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 54

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

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 54