CristalCaveGem » LustreC » Lustrec-Tests

-- Copyright (C) 1996 Morgan Kaufmann Publishers, Inc

-- This file is part of VESTs (Vhdl tESTs).

-- VESTs is free software; you can redistribute it and/or modify it

-- under the terms of the GNU General Public License as published by the

-- Free Software Foundation; either version 2 of the License, or (at

-- your option) any later version. 

-- VESTs is distributed in the hope that it will be useful, but WITHOUT

-- ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or

-- FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License

-- for more details. 

-- You should have received a copy of the GNU General Public License

-- along with VESTs; if not, write to the Free Software Foundation,

-- Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA 

-- ---------------------------------------------------------------------

--

-- $Id: ch_18_fg_18_10.vhd,v 1.2 2001-10-26 16:29:36 paw Exp $

-- $Revision: 1.2 $

--

-- ---------------------------------------------------------------------

entity fg_18_10 is

end entity fg_18_10;

architecture test of fg_18_10 is

  signal temperature, setting : integer;

  signal enable, heater_fail : bit;

begin

-- code from book

  stimulus_interpreter : process is

                                   use std.textio.all;

                                 file control : text open read_mode is "control";

                                 variable command : line;

                                 variable read_ok : boolean;

                                 variable next_time : time;

                                 variable whitespace : character;

                                 variable signal_id : string(1 to 4);

                                 variable temp_value, set_value : integer;

                                 variable on_value, fail_value : bit;

  begin

    command_loop : while not endfile(control) loop

      readline ( control, command );

      -- read next stimulus time, and suspend until then

      read ( command, next_time, read_ok );

      if not read_ok then

        report "error reading time from line: " & command.all

          severity warning;

        next command_loop;

      end if;

      wait for next_time - now;

      -- skip whitespace

      while command'length > 0

        and ( command(command'left) = ' '    -- ordinary space

              or command(command'left) = ' '  -- non-breaking space

              or command(command'left) = HT ) loop

        read ( command, whitespace );

      end loop;

      -- read signal identifier string

      read ( command, signal_id, read_ok );

      if not read_ok then

        report "error reading signal id from line: " & command.all

          severity warning;

        next command_loop;

      end if;

      -- dispatch based on signal id

      case signal_id is

        when "temp" =>

          read ( command, temp_value, read_ok );

          if not read_ok then

            report "error reading temperature value from line: "

              & command.all

              severity warning;

            next command_loop;

          end if;

          temperature <= temp_value;

        when "set " =>

          -- . . .    -- similar to "temp"

          -- not in book

          read ( command, set_value, read_ok );

          if not read_ok then

            report "error reading setting value from line: "

              & command.all

              severity warning;

            next command_loop;

          end if;

          setting <= set_value;

          -- end not in book

        when "on  " =>

          read ( command, on_value, read_ok );

          if not read_ok then

            report "error reading on value from line: "

              & command.all

              severity warning;

            next command_loop;

          end if;

          enable <= on_value;

        when "fail" =>

          -- . . .    -- similar to "on  "

          -- not in book

          read ( command, fail_value, read_ok );

          if not read_ok then

            report "error reading fail value from line: "

              & command.all

              severity warning;

            next command_loop;

          end if;

          heater_fail <= fail_value;

          -- end not in book

        when others =>

          report "invalid signal id in line: " & signal_id

            severity warning;

          next command_loop;

      end case;

    end loop command_loop;

    wait;

  end process stimulus_interpreter;

-- end code from book

end architecture test;