LIBRARY ieee;
USE ieee.std_logic_1164.ALL;
USE ieee.numeric_std.ALL;
USE work.general_includes.ALL;
USE work.simu_pkg.ALL;
USE work.utils.ALL;
LIBRARY std;
USE std.textio.ALL;
USE work.coeff.ALL;

ENTITY simple_fir_tb IS

  GENERIC (
    demi_periode : time   := 5 ns;
-- duree de la demi periode des horloges
    test_e       : string := "D:\Stage\ALMA_OPFB\simu\simple_fir\tb_txts_files\input.txt";
-- fichier test contenant les echantillons d'entree

    test_s      : string  := "D:\Stage\ALMA_OPFB\simu\simple_fir\tb_txts_files\output.txt"
-- fichier contenant les echantillons de sortie
    
    --fir_addr : std_logic_vector(band5a_w_fc-1 DOWNTO 0) := std_logic_vector(unsigned(band5a_fc_index, band5a_w_fc))

-- coef de décimation
    );

END simple_fir_tb;

ARCHITECTURE beh OF simple_fir_tb IS

  FILE fichier_e : text IS IN test_e;
  FILE fichier_s : text IS IN test_s;
  --FILE fichier_c : text IS IN test_c;

  SIGNAL initialisation : std_logic;
  SIGNAL h              : std_logic;
  SIGNAL entree_fir     : vect_adc_data_out := (OTHERS => (OTHERS => '0'));
  SIGNAL sortie_fir     : vect_fir_data_out := (OTHERS => (OTHERS => '0'));
  SIGNAL sortie_fir_sim : vect_fir_data_out := (OTHERS => (OTHERS => '0'));
  --SIGNAL coeffs_fir     : vect_fir_coeffs_in := ;


BEGIN  -- ARCHITECTURE beh
  module_simu : ENTITY work.Tree_Fir(Shift_Reg_Fir)
    PORT MAP (h, fir_coeffs_generated, entree_fir, sortie_fir_sim);

  horloge_entree : horloge(h, demi_periode, demi_periode);

  source : PROCESS
    CONSTANT header     : natural := 1;     -- nombre de ligne d'en tête
    CONSTANT nbr_ech    : natural := 249870;  -- nombre d'echantillons d'entree dans le fichier test 
    CONSTANT mots_ligne : natural := cst_nb_samples_adc_in;  -- nombre de mots par ligne dans le ficher
    VARIABLE nbr_ligne  : natural := 24987;  --2750;  --15625;  -- nombre de lignes restant à lire dans le fichier
    VARIABLE i          : natural := 1;
    VARIABLE donnee     : integer;
    VARIABLE tempo      : natural := 0;
    VARIABLE ligne      : line;
    VARIABLE head       : boolean := false;

  BEGIN  -- PROCESS source 

    WAIT UNTIL falling_edge(h);

    IF head = true THEN
      head := false;
      FOR i IN 0 TO header-1 LOOP
        readline(fichier_e, ligne);
      END LOOP;
    END IF;

    IF tempo > 0 THEN                   -- temps de synchro
      tempo := tempo -1;

    ELSIF nbr_ligne > 0 THEN

      readline(fichier_e, ligne);
      nbr_ligne := nbr_ligne-1;

      FOR k IN 0 TO mots_ligne -1 LOOP
        read(ligne, donnee);
        entree_fir(k) <= std_logic_vector(to_signed(donnee, cst_w_in));
      END LOOP;  -- k

    END IF;

  END PROCESS source;


  test : PROCESS
    CONSTANT header     : natural := 1;   -- nombre de ligne d'en tête
    CONSTANT nbr_ech    : natural := 249870;--nombre d'echantillons d'entree dans le fichier test
    CONSTANT mots_ligne : natural := 10;    -- nombre de mots par ligne dans le ficher
    VARIABLE nbr_ligne  : natural := 24987; -- nombre de lignes restant à lire dans le fichier                              
    VARIABLE i          : natural;
    VARIABLE donnee     : donnee_sortie;
    VARIABLE ligne      : line;
    VARIABLE tempo      : natural := 6;
    VARIABLE sortie     : integer;
    VARIABLE head       : boolean := false;
  BEGIN  -- PROCESS test 

    WAIT UNTIL falling_edge(h);


    IF tempo > 0 THEN                   -- temps de synchro
      tempo := tempo -1;
      ASSERT false REPORT "Attente_2 ... " SEVERITY note;

    ELSIF nbr_ligne > 0 THEN
      readline(fichier_s, ligne);
      nbr_ligne := nbr_ligne-1;
      FOR k IN 0 TO mots_ligne -1 LOOP
        read(ligne, donnee(k));
        sortie := to_integer(signed(sortie_fir_sim(k)));
        sortie_fir(k) <= std_logic_vector(to_signed(donnee(k), cst_w_out));
        ASSERT sortie = donnee(k) REPORT "Valeur fir FAUSSE"
          SEVERITY error;
      --ASSERT sortie /= donnee(k) REPORT "OK"
      --  SEVERITY note;
      END LOOP;  -- k
    END IF;



  END PROCESS test;





END ARCHITECTURE beh;