Subversion Repositories lateq

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

-- Title      : ex1_pkg package

-- Project    : 

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

-- File       : ex1_pkg.vhd

-- Author     : Wojciech M. Zabolotny ( wzab01<at>gmail.com )

-- Company    :

-- License    : BSD

-- Created    : 2013-11-01

-- Last update: 2015-09-24

-- Platform   : 

-- Standard   : VHDL'93/02

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

-- Description: Package with definitions for the simple system

--              demonstrating a method of latency balancing

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

-- Copyright (c) 2015

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

-- Revisions  :

-- Date        Version  Author  Description

-- 2013-11-01  1.0      WZab    Created

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

library ieee;

use ieee.std_logic_1164.all;

use ieee.numeric_std.all;

use std.textio.all;

use IEEE.math_real.all;

library work;

use work.lateq_pkg.all;

package ex1_pkg is

  -- Constants describing the demo signal processor

  constant C_N_CHANNELS   : integer := 64;

  constant C_N_SIDE_CHANS : integer := 3;  -- number of neighbouring channels

-- User data without time marker

constant C_USER_DATA_WIDTH : integer := 18;

subtype T_USER_DATA is signed(C_USER_DATA_WIDTH-1 downto 0);

constant C_USER_DATA_INIT : T_USER_DATA := (others => '0');

-- User data with time marker and validity marker

type T_USER_DATA_MRK is record

  data : T_USER_DATA;

  valid : boolean;

  -- pragma translate_off

  lateq_mrk  : T_LATEQ_MRK;

  -- pragma translate_on

end record T_USER_DATA_MRK;

constant C_USER_DATA_MRK_INIT : T_USER_DATA_MRK := (

  data => C_USER_DATA_INIT,

  -- pragma translate_off

  lateq_mrk => C_LATEQ_MRK_INIT,

  -- pragma translate_on

  valid => false

  );

-- Vector of marked user data

type T_USER_DATA_SET is array (integer range <>) of T_USER_DATA_MRK;

  -- In the max_finder internally we have to work with a type, which holds the data value

  -- the validity marker and the position 

  type T_USER_DATA_WITH_POS is record

    d : T_USER_DATA_MRK;

    p : integer;

  end record T_USER_DATA_WITH_POS;

  constant C_USER_DATA_WITH_POS_INIT : T_USER_DATA_WITH_POS := (

    d => C_USER_DATA_MRK_INIT,

    p => 0

    );

  -- Function comparing the data used in max_finder

  function ex1_cmp_data (

    constant v1, v2 : T_USER_DATA_WITH_POS)

    return integer;

  -- Vector with all input data

  type T_INPUT_DATA is array (0 to C_N_CHANNELS-1) of T_USER_DATA;

  constant C_INPUT_DATA_INIT : T_INPUT_DATA := (others => C_USER_DATA_INIT);

end package ex1_pkg;

package body ex1_pkg is

  function ex1_cmp_data (

    constant v1, v2 : T_USER_DATA_WITH_POS)

    return integer is

  begin  -- function ex1_cmp_data

    if v1.d.data > v2.d.data then

      return 1;

    elsif v2.d.data > v1.d.data then

      return -1;

    else

      return 0;

    end if;

  end function ex1_cmp_data;

end package body ex1_pkg;