Subversion Repositories mjpeg-decoder

library ieee, std, unisim;

use ieee.std_logic_1164.all;

use ieee.std_logic_arith.all;

use ieee.std_logic_unsigned.all;

use ieee.std_logic_textio.all;

use std.textio.all;

use unisim.vcomponents.all;

entity fifo_sim32 is

generic

(

        filename        : string := "fifo32.log";

        log_time : integer := 1

);

port

(

        rst     : in std_logic;

        clk     : in std_logic;

        din     : in std_logic_vector(31 downto 0);

        we              : in std_logic;

        full    : out std_logic

);

end fifo_sim32;

architecture default of fifo_sim32 is

        file log_file   : text open write_mode is filename;

   function hstr(slv: std_logic_vector) return string is

       variable hexlen: integer;

       variable longslv : std_logic_vector(127 downto 0) := (others => '0');

       variable hex : string(1 to 32);

       variable fourbit : std_logic_vector(3 downto 0);

     begin

       hexlen := (slv'left+1)/4;

       if (slv'left+1) mod 4 /= 0 then

         hexlen := hexlen + 1;

       end if;

       longslv(slv'left downto 0) := slv;

       for i in (hexlen -1) downto 0 loop

         fourbit := longslv(((i*4)+3) downto (i*4));

         case fourbit is

           when "0000" => hex(hexlen -I) := '0';

           when "0001" => hex(hexlen -I) := '1';

           when "0010" => hex(hexlen -I) := '2';

           when "0011" => hex(hexlen -I) := '3';

           when "0100" => hex(hexlen -I) := '4';

           when "0101" => hex(hexlen -I) := '5';

           when "0110" => hex(hexlen -I) := '6';

           when "0111" => hex(hexlen -I) := '7';

           when "1000" => hex(hexlen -I) := '8';

           when "1001" => hex(hexlen -I) := '9';

           when "1010" => hex(hexlen -I) := 'a';

           when "1011" => hex(hexlen -I) := 'b';

           when "1100" => hex(hexlen -I) := 'c';

           when "1101" => hex(hexlen -I) := 'd';

           when "1110" => hex(hexlen -I) := 'e';

           when "1111" => hex(hexlen -I) := 'f';

           when "ZZZZ" => hex(hexlen -I) := 'z';

           when "UUUU" => hex(hexlen -I) := 'u';

           when "XXXX" => hex(hexlen -I) := 'x';

           when others => hex(hexlen -I) := '?';

         end case;

       end loop;

       return hex(1 to hexlen);

     end hstr;

begin

        full <= '0';

        process(clk)

                variable TheLine : line;

        begin

                if rising_edge(clk) then

                        if we = '1' then

                                if log_time = 1 then

                                        write(TheLine, now);

                                        while (TheLine'length < 13) loop

                                                write(TheLine, string'(" "));

                                        end loop;

                                end if;

                                write(TheLine, string'("0x" & hstr(din)));

                                writeline(log_file, TheLine);

                        end if;

                end if;

        end process;

end default;