-- $Id: input.vhdl,v 1.1.1.1 2005/01/04 02:06:00 arif_endro Exp $ -- ************************************************************** -- Arif E. Nugroho -- [20041110] -- * Derived from testbench from modeltech -- ************************************************************** library IEEE; library STD; use IEEE.STD_LOGIC_1164.ALL; use IEEE.STD_LOGIC_arith.ALL; use IEEE.STD_LOGIC_unsigned.ALL; use STD.TEXTIO.ALL; entity input is port ( clock_out : out bit; test_signal_fm : out bit_vector (07 downto 0); test_signal_fmTri: out bit_vector (07 downto 0); signal_fm_bit : out bit; signal_fmTri_bit : out bit ); end input; architecture test_bench of input is type char_to_stdlogic_t is array (character) of std_logic; file file_pointer_fm : text open read_mode is "fm.txt"; file file_pointer_fmTri : text open read_mode is "fmTri.txt"; constant to_std_logic : char_to_stdlogic_t := ( 'U' => 'U', 'X' => 'X', '0' => '0', '1' => '1', 'Z' => 'Z', 'W' => 'W', 'L' => 'L', 'H' => 'H', '-' => '-', others => 'X' ); -- signal test_signal_fm : std_logic_vector ( 7 downto 0); -- signal test_signal_fmTri : std_logic_vector ( 7 downto 0); signal test_signal_fm_bit : std_logic; signal test_signal_fmTri_bit : std_logic; signal clock : std_logic; begin process variable line_input_fm : line; variable line_input_fmTri : line; -- variable first_char : character := '#'; variable test_vector_fm : string(1 to 8) := " "; variable test_vector_fmTri : string(1 to 8) := " "; variable input_length_fm : integer; variable input_length_fmTri : integer; variable delay_time : time := 1 ns; variable test_var_fm : std_logic_vector ( 7 downto 0); variable test_var_fmTri : std_logic_vector ( 7 downto 0); begin while not (endfile(file_pointer_fm) and endfile(file_pointer_fmTri)) loop readline(file_pointer_fm, line_input_fm); readline(file_pointer_fmTri, line_input_fmTri); if (line_input_fm /= NULL) and (line_input_fm'length > 0) and (line_input_fmTri /= NULL) and (line_input_fmTri'length > 0) then -- read(line_number, first_char); -- if (first_char /= '#') then read(line_input_fm, test_vector_fm); read(line_input_fmTri, test_vector_fmTri); input_length_fm := test_vector_fm'length - 1; input_length_fmTri := test_vector_fmTri'length - 1; for a in test_vector_fm'range loop test_var_fm(input_length_fm) := to_std_logic(test_vector_fm(a)); test_signal_fm_bit input_length_fm := input_length_fm - 1; end loop; for a in test_vector_fmTri'range loop test_var_fmTri(input_length_fmTri) := to_std_logic(test_vector_fmTri(a)); test_signal_fmTri_bit input_length_fmTri := input_length_fmTri - 1; end loop; test_signal_fm test_signal_fmTri -- Show current progress -- report "Current line input is: Vector values are : "; -- end loop; -- report "End of input test vector fm.txt"; -- wait; clock wait for delay_time; clock wait for delay_time; -- fmTri --START HERE-- -- while not endfile(file_pointer_fmTri) loop -- read(line_number, first_char); -- if (first_char /= '#') then -- clock -- wait for delay_time; -- clock -- wait for delay_time; -- Show current progress -- report "Current line input is: Vector values are : "; end if; end loop; -- report "End of input test vector fmTri.txt"; wait; end process; signal_fm_bit signal_fmTri_bit clock_out end test_bench;
