Subversion Repositories simple_fm_receiver

-- $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 <= to_std_logic(test_vector_fm(a));
		  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 <= to_std_logic(test_vector_fmTri(a));
		  input_length_fmTri := input_length_fmTri - 1;
		end loop;
		test_signal_fm <= to_bitvector(test_var_fm);-- after 1 ns;
		test_signal_fmTri <= to_bitvector(test_var_fmTri);-- after 1 ns;
--			Show current progress
--			report "Current line input is: Vector values are : ";
--		end loop;
--		report "End of input test vector fm.txt";
--		wait;
		clock <= '1';
		wait for delay_time;
		clock <= '0';
		wait for delay_time;
		-- fmTri --START HERE--
--		while not endfile(file_pointer_fmTri) loop
--			read(line_number, first_char);
--			if (first_char /= '#') then
--		clock <= '1';
--		wait for delay_time;
--		clock <= '0';
--		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    <= to_bit(test_signal_fm_bit);
signal_fmTri_bit <= to_bit(test_signal_fmTri_bit);
clock_out        <= to_bit(clock);
end test_bench;