Subversion Repositories open_hitter

--////////////////////////////////////////////////////////////////////

--//                                                              ////

--// parse_price_wrapper.vhd                                      ////

--//                                                              ////

--// This file is part of the open_hitter opencores effort.       ////

--// <http://www.opencores.org/cores/open_hitter/>                ////

--//                                                              ////

--// Module Description:                                          ////

--// Simulation program (non-synthesizable)                       ////

--// Single module development: parse_price.vhd                   ////

--// target env: ghdl <attrib required>                           ////        

--//                                                              ////

--// To Do:                                                       ////

--//    #LOTS                                                     ////

--//                                                              ////

--// Author(s):                                                   ////

--// - Stephen Hawes                                              ////

--//                                                              ////

--////////////////////////////////////////////////////////////////////

--//                                                              ////

--// Copyright (C) 2015 Stephen Hawes and OPENCORES.ORG           ////

--//                                                              ////

--// This source file may be used and distributed without         ////

--// restriction provided that this copyright statement is not    ////

--// removed from the file and that any derivative work contains  ////

--// the original copyright notice and the associated disclaimer. ////

--//                                                              ////

--// This source file is free software; you can redistribute it   ////

--// and/or modify it under the terms of the GNU Lesser General   ////

--// Public License as published by the Free Software Foundation; ////

--// either version 2.1 of the License, or (at your option) any   ////

--// later version.                                               ////

--//                                                              ////

--// This source 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 Lesser General Public License for more  ////

--// details.                                                     ////

--//                                                              ////

--// You should have received a copy of the GNU Lesser General    ////

--// Public License along with this source; if not, download it   ////

--// from <http://www.opencores.org/lgpl.shtml>                   ////

--//                                                              ////

--////////////////////////////////////////////////////////////////////

--//

--// \$Id\$  TAKE OUT THE \'s and this comment in order to get this to work

--//

--// CVS Revision History

--//

--// \$Log\$  TAKE OUT THE \'s and this comment in order to get this to work

--//

library ieee;

use ieee.std_logic_1164.all;

use std.textio.all; --  Imports the standard textio package.

-- use ieee.std_logic_textio.all;

     entity parse_price_wrapper is

     end parse_price_wrapper;

     architecture behaviour of parse_price_wrapper is

        component parse_price

           port (

               RX_CLK: in std_logic;

               in_byte: in std_logic_vector(7 downto 0);

               byte_reset: in std_logic;

               byte_ready: in std_logic;

               price_ready: out std_logic;

               -- pxdata: out price_packet

                  px_type: out std_logic_vector(4 downto 0);

                  buy_sell: out std_logic_vector(2 downto 0);   -- 111 buy, 000 sell

                  px: out std_logic_vector(15 downto 0);     -- price

                  qty: out std_logic_vector(15 downto 0);    -- quantity

                  sec: out std_logic_vector(55 downto 0);    -- 7x 8bits securities identifier

                  id: out std_logic_vector(15 downto 0)     -- unique/identifier/counter

           );

        end component;

        for parse_price_0: parse_price use entity work.parse_price;

               signal RX_CLK: std_logic;

               signal in_byte: std_logic_vector(7 downto 0);

               signal byte_reset: std_logic;

               signal byte_ready: std_logic;

               signal price_ready: std_logic;

               -- pxdata: price_packet

                  signal px_type: std_logic_vector(4 downto 0);

                  signal buy_sell: std_logic_vector(2 downto 0);   -- 111 buy, 000 sell

                  signal px: std_logic_vector(15 downto 0);     -- price

                  signal qty: std_logic_vector(15 downto 0);    -- quantity

                  signal sec: std_logic_vector(55 downto 0);    -- 7x 8bits securities identifier

                  signal id: std_logic_vector(15 downto 0);     -- unique/identifier/counter

     begin

        parse_price_0: parse_price port map (

               RX_CLK => RX_CLK,

               in_byte => in_byte,

               byte_reset => byte_reset,

               byte_ready => byte_ready,

               price_ready => price_ready,

               -- price_packet

                  px_type => px_type,

                  buy_sell => buy_sell,

                  px => px,

                  qty => qty,

                  sec => sec,

                  id => id

               );

        process

           variable l : line;

           --                                                          WWHHAATTSSEECC

           constant pkt : std_logic_vector(111 downto 0) := X"081234567857484154534543C078";

           variable pos : integer;

           variable offset : integer;

           variable eoffset : integer;

        begin

           write (l, String'("Exercising parse_price"));

           writeline (output, l);

              byte_reset <= '1';

              byte_ready <= '0';

              RX_CLK <= '0';

              wait for 1 ns;

              RX_CLK <= '1';

              wait for 1 ns;

              RX_CLK <= '0';

              wait for 1 ns;

              for pos in 13 downto 0 loop

                 in_byte <= pkt(8*pos+7 downto 8*pos);

                 byte_ready <= '1';

                 byte_reset <= '0';

                 RX_CLK <= '1';

                 wait for 1 ns;

                 for i in in_byte'range loop

                    write(l, std_logic'image(in_byte(i)) );

                 end loop;

                 write(l, String'(" px_type:"));

                 for i in px_type'range loop

                    write(l, std_logic'image(px_type(i)) );

                 end loop;

                 write(l, String'(" buy_sell:"));

                 for i in buy_sell'range loop

                    write(l, std_logic'image(buy_sell(i)) );

                 end loop;

                 write(l, String'(" px:"));

                 for i in px'range loop

                    write(l, std_logic'image(px(i)) );

                 end loop;

                 write(l, String'(" qty:"));

                 for i in qty'range loop

                    write(l, std_logic'image(qty(i)) );

                 end loop;

                 write(l, String'(" sec:"));

                 for i in sec'range loop

                    write(l, std_logic'image(sec(i)) );

                 end loop;

                 write(l, String'(" id:"));

                 for i in id'range loop

                    write(l, std_logic'image(id(i)) );

                 end loop;

                 writeline(output, l);

                 RX_CLK <= '0';

                 wait for 1 ns;

              end loop;

           write (l, String'("Done parse_price"));

           writeline (output, l);

                                                                                   --  081234 5678 574841545345 43C0

           if (px_type = B"00001") and (buy_sell = B"000") and (px = B"00010010_00110100")  -- 081234

              and (qty = B"01010110_01111000")                                              -- 5678  

              and (sec = B"01010111_01001000_01000001_01010100_01010011_01000101_01000011") -- 57484154534543

              and (id  = B"11000000_01111000")                                              -- C078

           then

               write (l, String'("... and Price is OK."));

               writeline (output, l);

           else

               write (l, String'("... and price check failed."));

               writeline (output, l);

           end if;

           wait;

        end process;

     end behaviour;