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

Rev 25	Rev 48
Line 10...	Line 10...



`package intfc_gen;`	`package intfc_gen;`

	`sub uniq {`
	`my %seen;`
	`return grep { !$seen{$_}++ } @_;`
	`}`


`sub interface_generator {`	`sub interface_generator {`
`my $class = "intfc_gen";`	`my $class = "intfc_gen";`
`my $self;`	`my $self;`
`$self->{file_name}=();`	`$self->{file_name}=();`
`$self->{modules}={};`	`$self->{modules}={};`
Line 235...	Line 241...

`}`	`}`

`sub object_add_attribute_order{`	`sub object_add_attribute_order{`
`my ($self,$attribute,@param)=@_;`	`my ($self,$attribute,@param)=@_;`
`$self->{'parameters_order'}{$attribute}=[] if (!defined $self->{parameters_order}{$attribute});`	`my $r = $self->{'parameters_order'}{$attribute};`
`foreach my $p (@param){`	`my @a;`
`push (@{$self->{parameters_order}{$attribute}},$p);`	`@a = @{$r} if(defined $r);`
	`push (@a,@param);`
`}`	`@a=uniq(@a);`
	`$self->{'parameters_order'}{$attribute} =\@a;`
`}`	`}`

`sub object_get_attribute_order{`	`sub object_get_attribute_order{`
`my ($self,$attribute)=@_;`	`my ($self,$attribute)=@_;`
`return @{$self->{parameters_order}{$attribute}};`	`return @{$self->{parameters_order}{$attribute}};`