--  module_commande.vhd
--  D. Dalle  30 avril 2019, 16 janv 2020, 23 avril 2020
--  module qui permet de réunir toutes les commandes (problematique circuit sequentiels)
--  recues des boutons, avec conditionnement, et des interrupteurs

-- 23 avril 2020 elimination constante mode_seq_bouton: std_logic := '0'

LIBRARY ieee;
USE ieee.std_logic_1164.all;

entity module_commande IS
generic (nbtn : integer := 4;  mode_simulation: std_logic := '0');
    PORT (
          clk              : in  std_logic;
          o_reset          : out  std_logic; 
          i_btn            : in  std_logic_vector (nbtn-1 downto 0); -- signaux directs des boutons
          i_sw             : in  std_logic_vector (3 downto 0);      -- signaux directs des interrupteurs
          o_btn_cd         : out std_logic_vector (nbtn-1 downto 0); -- signaux conditionnés 
          o_selection_fct  :  out std_logic_vector(1 downto 0);
          o_selection_par  :  out std_logic_vector(1 downto 0)
          );
end module_commande;

ARCHITECTURE BEHAVIOR OF module_commande IS
    type sound_effect is (effect_a, effect_b, effect_c, effect_d);
    signal current_sound_effect : sound_effect;
    signal wanted_sound_effect : sound_effect;
    signal increase_selection : std_logic;
    signal decrease_selection : std_logic;
    signal has_pressed_selection_already : std_logic;

component conditionne_btn_v7 is
generic (nbtn : integer := nbtn;  mode_simul: std_logic := '0');
    port (
         CLK          : in std_logic;         -- devrait etre de l ordre de 50 Mhz
         i_btn        : in    std_logic_vector (nbtn-1 downto 0);
         --
         o_btn_db     : out    std_logic_vector (nbtn-1 downto 0);
         o_strobe_btn : out    std_logic_vector (nbtn-1 downto 0)
         );
end component;

    signal d_strobe_btn :    std_logic_vector (nbtn-1 downto 0);
    signal d_btn_cd     :    std_logic_vector (nbtn-1 downto 0); 
    signal d_reset      :    std_logic;
    signal needs_to_increase : std_logic;
    signal needs_to_decrease : std_logic;
   
BEGIN 

                  
 inst_cond_btn:  conditionne_btn_v7
    generic map (nbtn => nbtn, mode_simul => mode_simulation)
    port map(
        clk           => clk,
        i_btn         => i_btn,
        o_btn_db      => d_btn_cd,
        o_strobe_btn  => d_strobe_btn  
         );
 
 process(clk)
 begin
    if(rising_edge(clk)) then
        o_reset <= d_reset;
    end if;
 end process;
 
 reset_manager : process(d_reset, clk)
    begin
        if d_reset = '1' then
            current_sound_effect <= effect_a;
        elsif rising_edge(clk) then
            -- Wanted sound effect is outputed on every clock edge
            current_sound_effect <= wanted_sound_effect;
        end if;
    end process;
    
button_spam_manager : process(d_btn_cd, d_reset, clk)
    begin
        if d_reset = '1' then
            has_pressed_selection_already <= '0';
            increase_selection <= '0';
            decrease_selection <= '0';
        elsif rising_edge(clk) then
            -- Managing creating pulses for the button to avoid spam increasing states!
            if (NOT (has_pressed_selection_already = '1')) AND ((d_btn_cd(0) = '1') OR (d_btn_cd(1) = '1')) then
                -- No increase or decrease is called AND one of the buttons is pressed!
                -- That means we can send a pulse to increase or decrease the counter.
                has_pressed_selection_already <= '1';
                if d_btn_cd(0) = '1' then
                    increase_selection <= '1';
                    decrease_selection <= '0';
                elsif d_btn_cd(1) = '1' then
                    decrease_selection <= '1';
                    increase_selection <= '0';
                end if;
            else
                increase_selection <= '0';
                decrease_selection <= '0';
            end if;
        else
            if ((d_btn_cd(0) = '0') AND (d_btn_cd(1) = '0')) then
                -- no buttons is pressed. Therefor, we can start registering an increase or decrease again.
                has_pressed_selection_already <= '0';
            end if;
        end if;
    end process;

state_manager : process(current_sound_effect, decrease_selection, increase_selection)
    begin
        case current_sound_effect is
            when effect_a =>
                o_selection_fct <= "00";
                if increase_selection = '1' then
                    wanted_sound_effect <= effect_b;
--                    increase_selection <= '0';
                elsif decrease_selection = '1' then
                    wanted_sound_effect <= effect_d;
                    --decrease_selection <= '0';
                end if;
                
            when effect_b =>
                o_selection_fct <= "01";
                if increase_selection = '1' then
                    wanted_sound_effect <= effect_c;
                    --increase_selection <= '0';
                elsif decrease_selection = '1' then
                    wanted_sound_effect <= effect_a;
                    --decrease_selection <= '0';
                end if;
                
            when effect_c =>
                o_selection_fct <= "10";
                if increase_selection = '1' then
                    wanted_sound_effect <= effect_d;
                    --increase_selection <= '0';
                elsif decrease_selection = '1' then
                    wanted_sound_effect <= effect_b;
                    --decrease_selection <= '0';
                end if;
                
            when effect_d =>
                o_selection_fct <= "11";
                if increase_selection = '1' then
                    wanted_sound_effect <= effect_a;
                    --increase_selection <= '0';
                elsif decrease_selection = '1' then
                    wanted_sound_effect <= effect_c;
                    --decrease_selection <= '0';
                end if;
        end case;
    
    end process;
 
   o_btn_cd        <= d_btn_cd;
   o_selection_par <= i_sw(1 downto 0); -- mode de selection du parametre par sw
   --o_selection_fct <= i_sw(3 downto 2); -- mode de selection de la fonction par sw
   d_reset         <= i_btn(3);         -- pas de contionnement particulier sur reset

END BEHAVIOR;