Listing 2 for DI#2281

RD_FILE: process
    variable VLINE  : line;
    variable VINT   : integer;

    procedure READ_FILE_PROCEDURE(fname: string) is
        file     ifile : text is in fname;
    begin
        while (NOT endfile(ifile) ) loop
            readline(ifile, VLINE);
            read(VLINE,VINT);
            SINT <= VINT;
            if (endfile(ifile)) then exit; end if;
            wait on READ_NEW_INT;
        end loop;
    end READ_FILE_PROCEDURE;

    begin
        wait until READ_NEW_INT = '1';
        READ_FILE_PROCEDURE(FILENAME(1 to FILENAME_LEN));
        READ_FILE_ENDED <= '1';
end process RD_FILE;