Subversion Repositories nocem

 
-----------------------------------------------------------------------------
-- NoCem -- Network on Chip Emulation Tool for System on Chip Research 
-- and Implementations
-- 
-- Copyright (C) 2006  Graham Schelle, Dirk Grunwald
-- 
-- This program is free software; you can redistribute it and/or
-- modify it under the terms of the GNU General Public License
-- as published by the Free Software Foundation; either version 2
-- of the License, or (at your option) any later version.
-- 
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-- GNU General Public License for more details.
-- 
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  
-- 02110-1301, USA.
-- 
-- The authors can be contacted by email: <schelleg,grunwald>@cs.colorado.edu 
-- 
-- or by mail: Campus Box 430, Department of Computer Science,
-- University of Colorado at Boulder, Boulder, Colorado 80309
-------------------------------------------------------------------------------- 
 
 
-- 
-- Filename: simple_pkt_local_switch.vhd
-- 
-- Description: simple switch design
-- 
 
 
library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;
use work.pkg_nocem.all;
 
 
 
entity simple_pkt_local_switch is
    Port ( 
 
 
	   -- the arbitration logic controls the switches of data
		arb_grant_output : in arb_decision_array(4 downto 0);
		--arb_grant_input  : in std_logic_vector(4 downto 0);	 
 
 
	 	ap_datain        				: in  data_word;
		ap_dataout       				: out data_word;
	 	n_datain              	   : in  data_word;
		n_dataout              		: out data_word;
	 	s_datain               		: in  data_word;
		s_dataout              		: out data_word;
	 	e_datain                	: in  data_word;
		e_dataout               	: out data_word;
	 	w_datain                	: in  data_word;
		w_dataout               	: out data_word;	 
 
		n_pkt_cntrl_in  : in pkt_cntrl_word;	 
		n_pkt_cntrl_out : out pkt_cntrl_word;	 
 
		s_pkt_cntrl_in  : in pkt_cntrl_word;	 
		s_pkt_cntrl_out : out pkt_cntrl_word;	 
 
		e_pkt_cntrl_in  : in pkt_cntrl_word;	 
		e_pkt_cntrl_out : out pkt_cntrl_word;	 
 
		w_pkt_cntrl_in  : in pkt_cntrl_word;	 
		w_pkt_cntrl_out : out pkt_cntrl_word;	 
 
		ap_pkt_cntrl_in  : in pkt_cntrl_word;	 
		ap_pkt_cntrl_out : out pkt_cntrl_word;	 
 
 
	 	clk : in std_logic;
      rst : in std_logic
 
	);
end simple_pkt_local_switch;
 
architecture Behavioral of simple_pkt_local_switch is
 
 
 
 
 
begin
 
switch_gen_process : process (ap_pkt_cntrl_in, n_pkt_cntrl_in, s_pkt_cntrl_in, e_pkt_cntrl_in, w_pkt_cntrl_in,arb_grant_output, ap_datain, n_datain, s_datain, e_datain, w_datain)
 
 
begin
 
   ----------------------------------------------
	---------- do output arbitration -------------
   ----------------------------------------------
 
 
--	 	ap_dataout_valid <= '0';	 
--	 	n_dataout_valid        <= '0';
--	 	south_dataout_valid        <= '0';
--	 	east_dataout_valid         <= '0';
--	 	west_dataout_valid         <= '0';
 
 
		ap_dataout   		  <= (others => '0');
		n_dataout           <= (others => '0');
		s_dataout           <= (others => '0');
		e_dataout           <= (others => '0');
		w_dataout           <= (others => '0');
 
 
  		ap_pkt_cntrl_out    <= (others => '0');
 		n_pkt_cntrl_out     <= (others => '0');
  		s_pkt_cntrl_out	  <= (others => '0');
  		e_pkt_cntrl_out	  <= (others => '0');
  		w_pkt_cntrl_out	  <= (others => '0');
 
 
 
 
	-- foreach output line, simply mux in the incoming lines
	-- based on arbitration decision
	--	arb_grant_output(4) : NORTH
	--	arb_grant_output(3) : SOUTH
	--	arb_grant_output(2) : EAST
	-- arb_grant_output(1) : WEST
	--	arb_grant_output(0) : AP
 
 
	case arb_grant_output(NOCEM_AP_IX) is
		when ARB_AP =>
			 ap_dataout <= ap_datain;
			 ap_pkt_cntrl_out	<= ap_pkt_cntrl_in;
		when ARB_NORTH => 
			 ap_dataout <= n_datain;
			 ap_pkt_cntrl_out	<= n_pkt_cntrl_in;
		when ARB_SOUTH => 
			 ap_dataout <= s_datain;
			 ap_pkt_cntrl_out	<= s_pkt_cntrl_in;
		when ARB_EAST => 
			 ap_dataout <= e_datain;
			 ap_pkt_cntrl_out	<= e_pkt_cntrl_in;
		when ARB_WEST => 
			 ap_dataout <= w_datain;
			 ap_pkt_cntrl_out	<= w_pkt_cntrl_in;
		when others =>
			null;
	end case;
 
 
 
	case arb_grant_output(NOCEM_NORTH_IX) is
		when ARB_AP =>
			 n_dataout <= ap_datain;
			 n_pkt_cntrl_out	<= ap_pkt_cntrl_in;
		when ARB_NORTH => 
			 n_dataout <= n_datain;
			 n_pkt_cntrl_out	<= n_pkt_cntrl_in;
		when ARB_SOUTH => 
			 n_dataout <= s_datain;
			 n_pkt_cntrl_out	<= s_pkt_cntrl_in;
		when ARB_EAST => 
			 n_dataout <= e_datain;
			 n_pkt_cntrl_out	<= e_pkt_cntrl_in;
		when ARB_WEST => 
			 n_dataout <= w_datain;
			 n_pkt_cntrl_out	<= w_pkt_cntrl_in;
		when others =>
			null;
	end case;
 
	case arb_grant_output(NOCEM_SOUTH_IX) is
		when ARB_AP =>
			 s_dataout <= ap_datain;
			 s_pkt_cntrl_out	<= ap_pkt_cntrl_in;
		when ARB_NORTH => 
			 s_dataout <= n_datain;
			 s_pkt_cntrl_out	<= n_pkt_cntrl_in;
		when ARB_SOUTH => 
			 s_dataout <= s_datain;
			 s_pkt_cntrl_out	<= s_pkt_cntrl_in;
		when ARB_EAST => 
			 s_dataout <= e_datain;
			 s_pkt_cntrl_out	<= e_pkt_cntrl_in;
		when ARB_WEST => 
			 s_dataout <= w_datain;
			 s_pkt_cntrl_out	<= w_pkt_cntrl_in;
		when others =>
			null;
	end case;
 
 
	case arb_grant_output(NOCEM_EAST_IX) is
		when ARB_AP =>
			 e_dataout <= ap_datain;
			 e_pkt_cntrl_out	<= ap_pkt_cntrl_in;
		when ARB_NORTH => 
			 e_dataout <= n_datain;
			 e_pkt_cntrl_out	<= n_pkt_cntrl_in;
		when ARB_SOUTH => 
			 e_dataout <= s_datain;
			 e_pkt_cntrl_out	<= s_pkt_cntrl_in;
		when ARB_EAST => 
			 e_dataout <= e_datain;
			 e_pkt_cntrl_out	<= e_pkt_cntrl_in;
		when ARB_WEST => 
			 e_dataout <= w_datain;
			 e_pkt_cntrl_out	<= w_pkt_cntrl_in;
		when others =>
			null;
	end case;
 
	case arb_grant_output(NOCEM_WEST_IX) is
		when ARB_AP =>
			 w_dataout <= ap_datain;
			 w_pkt_cntrl_out	<= ap_pkt_cntrl_in;
		when ARB_NORTH => 
			 w_dataout <= n_datain;
			 w_pkt_cntrl_out	<= n_pkt_cntrl_in;
		when ARB_SOUTH => 
			 w_dataout <= s_datain;
			 w_pkt_cntrl_out	<= s_pkt_cntrl_in;
		when ARB_EAST => 
			 w_dataout <= e_datain;
			 w_pkt_cntrl_out	<= e_pkt_cntrl_in;
		when ARB_WEST => 
			 w_dataout <= w_datain;
			 w_pkt_cntrl_out	<= w_pkt_cntrl_in;
		when others =>
			null;
	end case;
 
 
   ----------------------------------------------
	---------- END do output arbitration ---------
   ----------------------------------------------
 
 
 
 
 
 
 
end process;
 
 
 
 
end Behavioral;