Subversion Repositories an-fpga-implementation-of-low-latency-noc-based-mpsoc

#! /usr/bin/perl -w
use strict;
 
 
package mpsoc;
 
use ip_gen;
 
 
#use Clone 'clone';
 
 
 
sub mpsoc_new {
    # be backwards compatible with non-OO call
    my $class = ("ARRAY" eq ref $_[0]) ? "mpsoc" : shift;
    my $self;
 
 
    $self = {};
    $self->{file_name}        = (); # information on each file
    $self->{noc_param}=   {};
    $self->{noc_indept_param}={};
    $self->{parameters_order}=[];
    $self->{setting}={};
   	$self->{socs}={};
   	mpsoc_initial_setting($self);
 
 
    bless($self,$class);
 
 
    return $self;
} 
 
sub mpsoc_initial_setting{
	my $self=shift;
	$self->{setting}{show_noc_setting}=1;
	$self->{setting}{show_adv_setting}=0;
	$self->{setting}{show_tile_setting}=1;	
	$self->{setting}{soc_path}="lib/soc";
}
 
sub mpsoc_set_setting{
	my ($self,$name,$value)=@_;
	$self->{setting}{$name}=$value;
 
}
 
sub mpsoc_get_setting{
	my ($self,$name)=@_;
	return $self->{setting}{$name};
 
}
 
 
sub mpsoc_set_mpsoc_name{
	my ($self,$name)=@_;
	if(defined $name){$self->{mpsoc_name}=$name;}	
}	
 
sub mpsoc_get_mpsoc_name{
	my ($self)=@_;
	my $name;
	if(exists  $self->{mpsoc_name}){ $name=$self->{mpsoc_name};}	
	return $name;
}	
 
sub mpsoc_get_indept_params{
	my $self=shift;
	return  $self->{noc_indept_param};
}
 
 
sub mpsoc_add_param{
	my ($self,$param,$value)=@_;
	$self->{noc_param}{$param}=$value;
 
}
 
sub mpsoc_get_param{
	my ($self,$param)=@_;
	return $self->{noc_param}{$param};
 
}
sub mpsoc_add_param_order{
	my ($self,@param)=@_;
	foreach my $p (@param){
		push (@{$self->{parameters_order}},$p);
 
	}
}
sub mpsoc_get_param_order{
	my $self=shift;
	return @{$self->{parameters_order}};
}
 
 
 
 
sub mpsoc_get_instance_info{
	my ($self,$ip_num)=@_;
	return $self->{ips}{$ip_num}{name}
}
 
sub mpsoc_set_ip_inst_name{
	my ($self,$ip_num,$new_instance)=@_;
	$self->{ips}{$ip_num}{name}=$new_instance;
 
}
 
sub mpsoc_get_soc_list{
	my $self=shift;
	my @list;
	foreach my $p (sort keys %{$self->{socs}}){
		push(@list,$p);
	}
	return @list;
}
 
 
 
 
 
sub mpsoc_add_soc{
	my ($self,$name,$soc)=@_;
	$self->{socs}{$name}{top}=$soc;	
 
}
 
 
 
 
sub mpsoc_get_soc{
	my ($self,$name)=@_;
	return $self->{socs}{$name}{top};	
 
}
 
 
sub mpsoc_remove_soc{
	my ($self,$name)=@_;
	delete $self->{socs}{$name};		
}
 
sub mpsoc_remove_all_soc{
	my ($self)=@_;
	delete $self->{socs};		
}
 
 
 
sub mpsoc_add_soc_tiles_num{
	my ($self,$name,$nums) =@_;
	if(defined $nums){
		my @f=sort { $a <=> $b } @{$nums};
		if( exists $self->{socs}{$name}){
			$self->{socs}{$name}{tile_nums}=\@f;
 
		}
	}else {
		$self->{socs}{$name}{tile_nums}=undef;
 
	}		
}
 
sub mpsoc_get_soc_tiles_num{
	my ($self,$name) =@_;
	my @nums;
	if( defined $self->{socs}{$name}{tile_nums}){
		@nums = @{$self->{socs}{$name}{tile_nums}};
 
	}
	return @ nums;		
}
 
sub mpsoc_get_scolar_pos{
	my ($item,@list)=@_;
	my $pos;
	my $i=0;
	foreach my $c (@list)
	{
		if(  $c eq $item) {$pos=$i}
		$i++;
	}	
	return $pos;	
}	
 
sub mpsoc_get_tile_soc_name{
	my ($self,$tile)=@_;
	my @all_socs=mpsoc_get_soc_list($self); 
	my $soc_num=0;
	my $p;
	foreach $p( @all_socs){
		my @tiles=mpsoc_get_soc_tiles_num ($self,$p);
		if ( grep( /^$tile$/, @tiles ) ){
			    my $num =mpsoc_get_scolar_pos($tile,@tiles);
 
				return ($p,$soc_num,$num);
		}
		$soc_num++;
 
	}
	return ($p,$soc_num,undef);
 
}
 
sub mpsoc_remove_scolar_from_array{
	my ($array_ref,$item)=@_;
	my @array=@{$array_ref};
	my @new;
	foreach my $p (@array){
		if($p ne $item ){
			push(@new,$p);
		}		
	}
	return @new;	
}
 
sub mpsoc_set_tile_free{
	my ($self,$tile)=@_;
	#
	mpsoc_set_tile_param_setting($self, $tile, 'Default');
	my @all_socs=mpsoc_get_soc_list($self); 
	my $soc_num=0;
	my $p;
	foreach $p( @all_socs){
		my @tiles=mpsoc_get_soc_tiles_num ($self,$p);
		my @n=mpsoc_remove_scolar_from_array(\@tiles,$tile);
		mpsoc_add_soc_tiles_num($self,$p,\@n);
 
	}
 
}
 
sub mpsoc_set_tile_soc_name{
	my ($self,$tile,$new_soc)=@_;
	mpsoc_set_tile_free($self,$tile);
	my @tiles=mpsoc_get_soc_tiles_num ($self,$new_soc);
	push(@tiles,$tile);
	mpsoc_add_soc_tiles_num($self,$new_soc,\@tiles);
 
 
}
 
sub mpsoc_set_tile_param_setting{
	my ($self,$tile,$setting)=@_;
	$self->{tile}{$tile}{param_setting}=$setting;
 
}	
 
sub mpsoc_get_tile_param_setting{
	my ($self,$tile)=@_;
	my $setting='Default';
	if(exists $self->{tile}{$tile}{param_setting}){
		$setting=$self->{tile}{$tile}{param_setting};
 
	}
	return $setting;
}	
 
 
1