blob: 55968ae30c5841c47186fcc08280e2dbca343f8c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
entity Jon is
end Jon;
use std.textio.all;
architecture Taylor of Jon is
begin
process is
variable buf:line;
variable s : string(1 to 1);
variable fstatus : file_open_status;
file readfile : text;
constant temp_string : string := "hello.txt";
begin
file_open(fstatus, readfile, temp_string, read_mode);
report "open " & file_open_status'image(fstatus) severity note;
if fstatus = OPEN_OK then
-- while not endfile(readfile)
loop
readline(readfile, buf);
read(buf, s);
report "s= "& s severity note;
end loop;
end if;
report "done" severity note;
wait;
end process;
end Taylor;
|
