-- FFTaval.vhd
library IEEE;
use IEEE.std_logic_1164.all;
use IEEE.numeric_std.all;

entity FFTaval is
generic(
    Data_sz  : integer range 1 to 32 := 8;
    NbData : integer range 1 to 512 := 256
    );
port(
    clk         : in std_logic;
    rstn        : in std_logic;
    Ready       : in std_logic;
    Valid       : in std_logic;
    Full        : in std_logic;
    Data_re     : in std_logic_vector(Data_sz-1 downto 0);
    Data_im     : in std_logic_vector(Data_sz-1 downto 0);
    Read        : out std_logic;
    Write       : out std_logic;
    ReUse       : out std_logic;
    DATA        : out std_logic_vector(Data_sz-1 downto 0)
);
end entity;


architecture ar_FFTaval of FFTaval is

type etat is (eX,e0,e1,e2,e3);
signal ect : etat;

signal DataTmp  : std_logic_vector(Data_sz-1 downto 0);

signal sRead   : std_logic;
signal DataCount : integer;

begin

    process(clk,rstn)
    begin
        if(rstn='0')then 
            ect <= e0;
            sRead <= '0';
            Write <= '1';
            Reuse <= '0';
            DataCount <= 0;
            
        elsif(clk'event and clk='1')then

            if(Ready='1')then
                sRead <= not sRead;               
            else
                sRead <= '0';
            end if;

            if(DataCount=NbData or Ready='0')then
                DataCount <= 0;
            elsif(Valid='1')then
                DataCount <= DataCount+1;  
            end if;            
            
            
            case ect is

                when e0 =>
                    Write <= '1';
                    if(Valid='1' and full='0')then
                        DataTmp <= Data_im;
                        DATA <= Data_re;
                        Write <= '0';
                        ect <= e1;
                    elsif(full='1')then
                        ReUse <= '1';                        
                    end if;                    

                 when e1 =>
                    DATA <= DataTmp;
                    ect <= e0;
                               
                when others =>
                    null;

            end case;
        end if;
    end process;

Read <= sRead;

end architecture;