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.pm] - Diff between revs 16 and 17

Rev 16	Rev 17
Line 611...	Line 611...
`$self->{hdl_files}=\@new;`	`$self->{hdl_files}=\@new;`
`}`	`}`



	`sub new_wires {`
	`my $class = shift;`
	`my $self;`
	`$self->{assigned_name}={};`
	`bless($self,$class);`
	`return $self;`
	`}`
	`sub wire_add{`
	`my ($self,$name,$filed,$data)=@_;`
	`$self->{assigned_name}{$name}{$filed}=$data;`
	`}`

	`sub wire_get{`
	`my ($self,$name,$filed)=@_;`
	`return $self->{assigned_name}{$name}{$filed};`
	`}`

	`sub wires_list{`
	`my($self)=shift;`
	`my @list= sort keys $self->{assigned_name};`
	`return @list;`
	`}`


`1`	`1`

`No newline at end of file`	`No newline at end of file`