Import vests testsuite

1 files changed, 75 insertions, 0 deletions

diff --git a/testsuite/vests/vhdl-ams/ashenden/compliant/files-and-IO/stimulus_generator.vhd b/testsuite/vests/vhdl-ams/ashenden/compliant/files-and-IO/stimulus_generator.vhd
new file mode 100644
index 000000000..0393ff7ba
--- /dev/null
+++ b/testsuite/vests/vhdl-ams/ashenden/compliant/files-and-IO/stimulus_generator.vhd
@@ -0,0 +1,75 @@
+
+-- Copyright (C) 2002 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 
+
+library ieee;  use ieee.std_logic_1164.all;
+
+entity stimulus_generator is
+end entity stimulus_generator;
+
+
+architecture test of stimulus_generator is
+
+
+
+begin
+
+  -- code from book
+
+  stimulus_generator : process is
+
+    type directory_file is file of string;
+    file directory : directory_file open read_mode is "stimulus-directory";
+    variable file_name : string(1 to 50);
+    variable file_name_length : natural;
+    variable open_status : file_open_status;
+
+    subtype stimulus_vector is std_logic_vector(0 to 9);
+    type stimulus_file is file of stimulus_vector;
+    file stimuli : stimulus_file;
+    variable current_stimulus : stimulus_vector;
+    -- . . .
+
+  begin
+    file_loop : while not endfile(directory) loop
+      read( directory, file_name, file_name_length );
+      if file_name_length > file_name'length then
+        report "file name too long: " & file_name & "... - file skipped"
+          severity warning;
+        next file_loop;
+      end if;
+      file_open ( open_status, stimuli,
+                  file_name(1 to file_name_length), read_mode );
+      if open_status /= open_ok then
+        report file_open_status'image(open_status) & " while opening file "
+               & file_name(1 to file_name_length) & " - file skipped"
+          severity warning;
+        next file_loop;
+      end if;
+      stimulus_loop : while not endfile(stimuli) loop
+        read(stimuli, current_stimulus);
+        -- . . .    -- apply the stimulus
+      end loop stimulus_loop;
+      file_close(stimuli);
+    end loop file_loop;
+    wait;
+  end process stimulus_generator;
+
+  -- end code from book
+
+end architecture test;