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/] [widget.pl] - Blame information for rev 48

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


#add home dir in perl 5.6
use FindBin;
use lib $FindBin::Bin;
use Consts;
 
BEGIN {
    my $module = (Consts::GTK_VERSION==2) ? 'Gtk2' : 'Gtk3';
    my $file = $module;
    $file =~ s[::][/]g;
    $file .= '.pm';
    require $file;
    $module->import;
}
 
 
 
if(Consts::GTK_VERSION==2){
        require "widget2.pl";
}else{
        require "widget3.pl";
}
 
 
1;

Line No.	Rev	Author	Line
1	48	alirezamon	`#add home dir in perl 5.6`
2	43	alirezamon	`use FindBin;`
3			`use lib $FindBin::Bin;`
4	48	alirezamon	`use Consts;`
5	25	alirezamon
6	48	alirezamon	`BEGIN {`
7			`my $module = (Consts::GTK_VERSION==2) ? 'Gtk2' : 'Gtk3';`
8			`my $file = $module;`
9			`$file =~ s[::][/]g;`
10			`$file .= '.pm';`
11			`require $file;`
12			`$module->import;`
13	16	alirezamon	`}`
14
15
16
17	48	alirezamon	`if(Consts::GTK_VERSION==2){`
18			`require "widget2.pl";`
19			`}else{`
20			`require "widget3.pl";`
21	16	alirezamon	`}`
22
23
24	48	alirezamon	`1;`

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/] [widget.pl] - Blame information for rev 48