Subversion Repositories workwithfiles

library IEEE;
use IEEE.STD_LOGIC_1164.all;
use IEEE.std_logic_arith.all;
library std;
use std.textio.all;
 
 
 
entity FromTextFile is
	generic(BitLen : natural := 8;
			IsSigned: natural:=0; -- you can choose signed or unsigned value you have in text file
			NameOfFile: string := "c:\noise.dat");
	 port(
		 clk : in STD_LOGIC;
		 CE : in STD_LOGIC;
		 DataFromFile : out STD_LOGIC_VECTOR(BitLen-1 downto 0)
	     );
end FromTextFile;
 
 
architecture FromTextFile of FromTextFile is
 
 
FILE RESULTS: TEXT OPEN READ_MODE IS NameOfFile;
begin
 
rxFile: process (clk) is
VARIABLE RX_LOC : LINE;	
variable dataint:Integer;
begin
	if rising_edge(clk) then
		if CE='1' then				  
		STD.TEXTIO.readline(results, RX_LOC); 
		STD.TEXTIO.read(RX_LOC,dataint);	
		if (IsSigned=1) then
			DataFromFile<=std_logic_vector(signed(CONV_STD_LOGIC_VECTOR(dataint,BitLen)));
		else
			DataFromFile<=std_logic_vector(unsigned(CONV_STD_LOGIC_VECTOR(dataint,BitLen)));
		end if;
		STD.TEXTIO.Deallocate(RX_LOC);
		end if;
	end if;
end process;
 
end FromTextFile;