CristalCaveGem » LustreC » Lustrec-Tests

library IEEE;

use IEEE.std_logic_1164.all;

entity numeral_to_display is

   generic

   (

   -- To be moved into a converter.

      g_display_value_0:         std_logic_vector(6 downto 0) := B"0000001";

      g_display_value_1:         std_logic_vector(6 downto 0) := B"1001111";

      g_display_value_2:         std_logic_vector(6 downto 0) := B"0010010";

      g_display_value_3:         std_logic_vector(6 downto 0) := B"0000110";

      g_display_value_4:         std_logic_vector(6 downto 0) := B"1001100";

      g_display_value_5:         std_logic_vector(6 downto 0) := B"0100100";

      g_display_value_6:         std_logic_vector(6 downto 0) := B"0100000";

      g_display_value_7:         std_logic_vector(6 downto 0) := B"0001111";

      g_display_value_8:         std_logic_vector(6 downto 0) := B"0000000";

      g_display_value_9:         std_logic_vector(6 downto 0) := B"0000100";

      g_display_value_error:     std_logic_vector(6 downto 0) := B"0110000"

   );

   port

   (

      i_numeral_time: in natural range 0 to 9;     -- numeral input

      o_display:  out std_logic_vector(6 downto 0) -- display output

   );

end numeral_to_display;

architecture Behavioral of numeral_to_display is

begin

   with i_numeral_time select

      o_display <=

         g_display_value_0 when 0,

         g_display_value_1 when 1,

         g_display_value_2 when 2,

         g_display_value_3 when 3,

         g_display_value_4 when 4,

         g_display_value_5 when 5,

         g_display_value_6 when 6,

         g_display_value_7 when 7,

         g_display_value_8 when 8,

         g_display_value_9 when 9,

         g_display_value_error when others;

end;