OpenCores
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/] [soc_gen.pl] - Diff between revs 18 and 22

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 18 Rev 22
Line 100... Line 100...
################
################
sub remove_instance_from_soc{
sub remove_instance_from_soc{
        my ($soc,$instance_id,$soc_state)=@_;
        my ($soc,$instance_id,$soc_state)=@_;
        $soc->soc_remove_instance($instance_id);
        $soc->soc_remove_instance($instance_id);
        $soc->soc_remove_from_instance_order($instance_id);
        $soc->soc_remove_from_instance_order($instance_id);
        set_state($soc_state,"refresh_soc",1);
        set_state($soc_state,"refresh_soc",0);
}
}
 
 
 
 
 
 
###############
###############
Line 225... Line 225...
                                }#plug_num
                                }#plug_num
                        }#if
                        }#if
                }#plugs
                }#plugs
 
 
 
 
                set_state($soc_state,"refresh_soc",1);
                set_state($soc_state,"refresh_soc",0);
                #$$refresh_soc->clicked;
                #$$refresh_soc->clicked;
 
 
                });
                });
 
 
 
 
Line 342... Line 342...
                get_module_parameter($soc,$ip,$instance_id,$soc_state);
                get_module_parameter($soc,$ip,$instance_id,$soc_state);
 
 
        });
        });
        $up->signal_connect (clicked => sub{
        $up->signal_connect (clicked => sub{
                $soc->soc_decrease_instance_order($instance_id);
                $soc->soc_decrease_instance_order($instance_id);
                set_state($soc_state,"refresh_soc",1);
                set_state($soc_state,"refresh_soc",0);
 
 
        });
        });
 
 
        #remove button
        #remove button
        #my ($box2,$cancel_button) = button_box("Remove");
        #my ($box2,$cancel_button) = button_box("Remove");
Line 361... Line 361...
                remove_instance_from_soc($soc,$instance_id,$soc_state);
                remove_instance_from_soc($soc,$instance_id,$soc_state);
 
 
        });
        });
        $dwn->signal_connect (clicked => sub{
        $dwn->signal_connect (clicked => sub{
                $soc->soc_increase_instance_order($instance_id);
                $soc->soc_increase_instance_order($instance_id);
                set_state($soc_state,"refresh_soc",1);
                set_state($soc_state,"refresh_soc",0);
 
 
        });
        });
 
 
 
 
        #instance name
        #instance name
Line 632... Line 632...
        $scrolled_win->add_with_viewport($dev_table);
        $scrolled_win->add_with_viewport($dev_table);
 
 
 
 
 
 
        $$refresh_ref-> signal_connect("clicked" => sub{
        $$refresh_ref-> signal_connect("clicked" => sub{
 
 
                $dev_table->destroy;
                $dev_table->destroy;
 
                select(undef, undef, undef, 0.1); #wait 10 ms
                $dev_table = generate_dev_table($soc,$ip,$infc,$soc_state,$info);
                $dev_table = generate_dev_table($soc,$ip,$infc,$soc_state,$info);
                #$box->attach_defaults ($dev_table, 0, 1, 0, 1);#( $dev_table, FALSE, FALSE, 3);
                #$box->attach_defaults ($dev_table, 0, 1, 0, 1);#( $dev_table, FALSE, FALSE, 3);
                $scrolled_win->add_with_viewport($dev_table);
                $scrolled_win->add_with_viewport($dev_table);
                $dev_table->show;
                $dev_table->show;
                $scrolled_win->show_all;
                $scrolled_win->show_all;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.