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/] [ip.pm] - Diff between revs 38 and 48

Show entire file | Details | Blame | View Log

Rev 38	Rev 48
Line 5...	Line 5...
`#`	`#`
`#`	`#`
`###############################################################################`	`###############################################################################`
`use warnings;`	`use warnings;`
`use strict;`	`use strict;`
	`use FindBin;`
	`use lib $FindBin::Bin;`
`use ip_gen;`	`use ip_gen;`
`use Cwd;`	`use Cwd;`


`package ip;`	`package ip;`


`sub lib_new {`	`sub lib_new {`

`my $class = ("ARRAY" eq ref $_[0]) ? "ip" : shift;`	`my $class = ("ARRAY" eq ref $_[0]) ? "ip" : shift;`
`my $self;`	`my $self;`
`$self = {};`	`$self = {};`
`my $dir = Cwd::getcwd();`	`my $dir = Cwd::getcwd();`
`$dir =~ s/ /\\ /g;`	`$dir =~ s/ /\\ /g;`
Line 434...	Line 437...
`foreach my $port (@ports){`	`foreach my $port (@ports){`
`my($range,$type,$intfc_name,$intfc_port)=$ipgen->ipgen_get_port($port);`	`my($range,$type,$intfc_name,$intfc_port)=$ipgen->ipgen_get_port($port);`
`ip_add_port($self,$category,$module,$port,$type,$range,$intfc_name,$intfc_port);`	`ip_add_port($self,$category,$module,$port,$type,$range,$intfc_name,$intfc_port);`
`}`	`}`

`my @fileds =("system_h","hdl_files","sw_files","gen_sw_files","gen_hw_files","sw_params_list","unused","parameters_order","description","version",'description_pdf');`	`my @fileds =("system_c","system_h","hdl_files","hdl_files_ticked","sw_files","gen_sw_files","gen_hw_files","sw_params_list","unused","parameters_order","description","version",'description_pdf');`
`foreach my $p (@fileds){`	`foreach my $p (@fileds){`
`my $val=$ipgen->ipgen_get($p);`	`my $val=$ipgen->ipgen_get($p);`
`$self->{categories}{$category}{names}{$module}{$p}=$ipgen->ipgen_get($p) if(defined $val );`	`$self->{categories}{$category}{names}{$module}{$p}=$ipgen->ipgen_get($p) if(defined $val );`
`}`	`}`

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/] [ip.pm] - Diff between revs 38 and 48