OpenCores
URL https://opencores.org/ocsvn/present/present/trunk

Subversion Repositories present

[/] [present/] [trunk/] [32BitIO/] [bench/] [vhdl/] [PresentEncTB.vhd] - Diff between revs 5 and 9

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 5 Rev 9
Line 40... Line 40...
---- from http://www.opencores.org/lgpl.shtml                      ----
---- from http://www.opencores.org/lgpl.shtml                      ----
----                                                               ----
----                                                               ----
-----------------------------------------------------------------------
-----------------------------------------------------------------------
LIBRARY ieee;
LIBRARY ieee;
USE ieee.std_logic_1164.ALL;
USE ieee.std_logic_1164.ALL;
USE ieee.std_logic_unsigned.all;
 
USE ieee.numeric_std.ALL;
 
USE std.textio.all;
USE std.textio.all;
USE work.txt_util.all;
USE work.txt_util.all;
USE ieee.std_logic_textio.all;
USE ieee.std_logic_textio.all;
use work.kody.ALL;
use work.kody.ALL;
 
 
Line 108... Line 106...
   -- Stimulus process
   -- Stimulus process
   stim_proc: process
   stim_proc: process
 
 
        file infile :text is in "input.txt";
        file infile :text is in "input.txt";
        variable line_in :line;
        variable line_in :line;
        variable bytes : std_logic_vector(32 downto 0);
        variable line_string : string(1 to 12);
 
        variable bytes : std_logic_vector(31 downto 0);
        variable bytes2 : std_logic_vector(3 downto 0);
        variable bytes2 : std_logic_vector(3 downto 0);
        variable xbit : std_logic;
        variable xbit : std_logic;
 
 
 
 
   begin
   begin
Line 121... Line 120...
                reset <= '1';
                reset <= '1';
                wait for 10ns;
                wait for 10ns;
                reset <= '0';
                reset <= '0';
                wait for 10ns;
                wait for 10ns;
      -- insert stimulus here 
      -- insert stimulus here 
 
                -- Below loop which iterates through "input.txt" file
                        while not (endfile(infile)) loop
                        while not (endfile(infile)) loop
                                readline(infile, line_in);              --2
 
 
                                readline(infile, line_in);  -- info line
 
                                read(line_in, line_string);
 
                                report line_string;
 
 
 
                                readline(infile, line_in);  -- info line
 
                                read(line_in, line_string);
 
                                report line_string;
 
 
 
                                readline(infile, line_in);  -- command line "no operation to prepare encoder"
                                hread(line_in, bytes2);
                                hread(line_in, bytes2);
                                ctrl <= bytes2;
                                ctrl <= bytes2;
                                wait for clk_period;
                                wait for clk_period;
                                readline(infile, line_in);              -- 1
 
 
                                readline(infile, line_in);  -- info line
 
                                read(line_in, line_string);
 
                                report line_string;
 
 
 
                                readline(infile, line_in);  -- command line for reading key 1/3
                                hread(line_in, bytes2);
                                hread(line_in, bytes2);
                                ctrl <= bytes2;
                                ctrl <= bytes2;
                                readline(infile, line_in);
                                readline(infile, line_in); -- read data
                                read(line_in, xbit);
                                read(line_in, xbit);
                                input <= (others => xbit);
                                input <= (others => xbit);
                                wait for clk_period;
                                wait for clk_period;
                                readline(infile, line_in);
 
 
                                readline(infile, line_in);  -- info line
 
                                read(line_in, line_string);
 
                                report line_string;
 
 
 
                                readline(infile, line_in);  -- command line for reading key 2/3
                                hread(line_in, bytes2);
                                hread(line_in, bytes2);
                                ctrl <= bytes2;
                                ctrl <= bytes2;
                                readline(infile, line_in);
                                readline(infile, line_in);  -- read data
                                read(line_in, xbit);
                                read(line_in, xbit);
                                input <= (others => xbit);
                                input <= (others => xbit);
                                wait for clk_period;
                                wait for clk_period;
                                readline(infile, line_in);
 
 
                                readline(infile, line_in);  -- info line
 
                                read(line_in, line_string);
 
                                report line_string;
 
 
 
                                readline(infile, line_in);  -- command line for reading key 3/3
                                hread(line_in, bytes2);
                                hread(line_in, bytes2);
                                ctrl <= bytes2;
                                ctrl <= bytes2;
                                readline(infile, line_in);
                                readline(infile, line_in);  -- read data
                                read(line_in, xbit);
                                read(line_in, xbit);
                                input <= (others => xbit);
                                input <= (others => xbit);
                                wait for clk_period;
                                wait for clk_period;
                                readline(infile, line_in);
 
 
                                readline(infile, line_in);  -- info line
 
                                read(line_in, line_string);
 
                                report line_string;
 
 
 
                                readline(infile, line_in);  -- command line for reading text 1/2
                                hread(line_in, bytes2);
                                hread(line_in, bytes2);
                                ctrl <= bytes2;
                                ctrl <= bytes2;
                                readline(infile, line_in);
                                readline(infile, line_in);  --read data
                                read(line_in, xbit);
                                read(line_in, xbit);
                                input <= (others => xbit);
                                input <= (others => xbit);
                                wait for clk_period;
                                wait for clk_period;
                                readline(infile, line_in);
 
 
                                readline(infile, line_in);  -- info line
 
                                read(line_in, line_string);
 
                                report line_string;
 
 
 
                                readline(infile, line_in);  -- command line for reading text 2/2
                                hread(line_in, bytes2);
                                hread(line_in, bytes2);
                                ctrl <= bytes2;
                                ctrl <= bytes2;
                                readline(infile, line_in);
                                readline(infile, line_in);  --read data
                                read(line_in, xbit);
                                read(line_in, xbit);
                                input <= (others => xbit);
                                input <= (others => xbit);
                                wait for clk_period;
                                wait for clk_period;
                                readline(infile, line_in);
 
 
                                readline(infile, line_in);  -- info line
 
                                read(line_in, line_string);
 
                                report line_string;
 
 
 
                                readline(infile, line_in);  -- command line for coding input text to ciphertext
                                hread(line_in, bytes2);
                                hread(line_in, bytes2);
                                ctrl <= bytes2;
                                ctrl <= bytes2;
                                wait for clk_period*33;
                                wait for clk_period*33;
                                readline(infile, line_in);
 
 
                                readline(infile, line_in);  -- info line
 
                                read(line_in, line_string);
 
                                report line_string;
 
 
 
                                readline(infile, line_in);  -- command line for retrieving output 1/2
                                hread(line_in, bytes2);
                                hread(line_in, bytes2);
                                ctrl <= bytes2;
                                ctrl <= bytes2;
                                wait for clk_period;
                                wait for clk_period;
                                readline(infile, line_in);
 
 
                                readline(infile, line_in);  -- retrieve expected value 1/2 from input file
 
                                hread(line_in, bytes);
 
 
 
                                if output /= bytes then
 
                                    report "RESULT MISMATCH! Least significant bytes failed" severity ERROR;
 
                               assert false severity failure;
 
                                else
 
                                    report "Least significant bytes successful" severity note;
 
                                end if;
 
 
 
                                readline(infile, line_in);  -- info line
 
                                read(line_in, line_string);
 
                                report line_string;
 
 
 
                                readline(infile, line_in);  -- command line for retrieving output 2/2
                                hread(line_in, bytes2);
                                hread(line_in, bytes2);
                                ctrl <= bytes2;
                                ctrl <= bytes2;
                                wait for clk_period*2;
                                wait for clk_period*2;
 
 
 
                                readline(infile, line_in);  -- retrieve expected value 3/2 from input file
 
                                hread(line_in, bytes);
 
 
 
                                if output /= bytes then
 
                                    report "RESULT MISMATCH! Most significant bytes failed" severity ERROR;
 
                               assert false severity failure;
 
                                else
 
                                    report "Most significant bytes successful" severity note;
 
                                end if;
 
 
 
                                report "";      -- "new line"
 
 
                        end loop;
                        end loop;
                assert false severity failure;
                assert false severity failure;
   end process;
   end process;
 
 
        strobe <= TRANSPORT clk AFTER edge;
        strobe <= TRANSPORT clk AFTER edge;
Line 251... Line 323...
                                str:="| | | | |        |           ";
                                str:="| | | | |        |           ";
                                write(lineout,str); writeline(outfile,lineout);
                                write(lineout,str); writeline(outfile,lineout);
                                init_file := '0';
                                init_file := '0';
                        end if;
                        end if;
 
 
                -------- write to output „output” --------
                -------- write to output "output" --------
                        if (strobe'EVENT and strobe='0') then
                        if (strobe'EVENT and strobe='0') then
                                str := (others => ' ');
                                str := (others => ' ');
                                str(1) := conv_to_char(clk);
                                str(1) := conv_to_char(clk);
                                str(2) := '|';
                                str(2) := '|';
                                str(3) := conv_to_char(reset);
                                str(3) := conv_to_char(reset);

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.