Subversion Repositories vhdl_wavefiles

-------------------------------------------------------------------------------
-- Project    : VHDL WAVE files 
-------------------------------------------------------------------------------
-- File       : Testbench-ea.vhd
-- Author     : Alexander Lindert <alexander.lindert@fh-hagenberg.at>
-- Created    : 2008-08-20
-- Last update: 2008-08-23
-- Platform   : 
-------------------------------------------------------------------------------
-- Description: 
-------------------------------------------------------------------------------
-- Copyright (c) 2008 
-------------------------------------------------------------------------------
-- Revisions  :
-- Date        Version  
-- 2008-08-20  1.0    
-------------------------------------------------------------------------------
 
library ieee;
use ieee.std_logic_1164.all;
use ieee.numeric_std.all;
use work.WaveFiles.all;
 
entity Testbench is
end entity;
 
architecture bhv of Testbench is
 
  -- signal iMono   : signed(7 downto 0);
  -- type   aPCM16 is array(natural range<>) of signed(15 downto 0);
--  signal iStereo : aPCM16(0 to 1);
--  signal i10     : aPCM16(0 to 9);
  signal ts            : time;
  signal ReaderInfo    : aWaveFileInfo;
  signal WriteData, ReadData : integer;
  signal Mono          : integer;
  signal Stereo        : aIntArray(0 to 1);
  signal Ch10          : aIntArray(0 to 9);
 
begin
 
  Read : process
    file Reader          : aFileHandle;
    file Writer          : aFileHandle;
    variable vReaderInfo : aWaveFileInfo;
    variable vFileName   : string(1 to 11);
    variable vMono       : integer;
    variable vStereo     : aIntArray(0 to 1);
    variable vCh10       : aIntArray(0 to 9);
     variable vWriteData, vReadData : integer;
  begin
    for i in 0 to 3 loop
      case i is
        when 0      => vFileName := "iMono.wav  ";
        when 1      => vFileName := "iStereo.wav";
        when 2      => vFileName := "iCh10.wav  ";
        when 3      => vFileName := "iBit32.wav ";              
        when others => null;
      end case;
      OpenWaveFileRead(vFileName, Reader, vReaderInfo);
      case i is
        when 0      => vFileName := "oMono.wav  ";
        when 1      => vFileName := "oStereo.wav";
        when 2      => vFileName := "oCh10.wav  ";
        when 3      => vFileName := "oBit32.wav ";               
        when others => null;
      end case;
      OpenWaveFileWrite(vFileName, Writer, vReaderInfo);
      ReaderInfo <= vReaderInfo;
      vReadData := vReaderInfo.DataSize;
      vWriteData := vReaderInfo.DataSize;
      ts         <= 1 sec /(vReaderInfo.SamplingRate);
      wait for 0 ns;
      wait for ts;
 
      while vReadData > 0 loop
        case vReaderInfo.Channels is
          when 1 =>
            ReadSample(Reader, vMono,
                       vReadData, vReaderInfo.DataTyp);
            Mono <= vMono;
            WriteSample(Writer, vMono,
                        vWriteData, vReaderInfo.DataTyp);
          when 2 =>
            ReadSamples(Reader, vStereo, vReadData,
                        vReaderInfo.Channels, vReaderInfo.DataTyp);
            Stereo <= vStereo;
            WriteSamples(Writer, vStereo, vWriteData,
                         vReaderInfo.Channels, vReaderInfo.DataTyp);
          when 10 =>
            ReadSamples(Reader, vCh10, vReadData,
                        vReaderInfo.Channels, vReaderInfo.DataTyp);
            Ch10 <= vCh10;
            WriteSamples(Writer, vCh10, vWriteData,
                         vReaderInfo.Channels, vReaderInfo.DataTyp);   
          when others =>
            report "Untestet" severity note;
            vReaderInfo.DataSize := 0;
        end case;
        ReadData <= vReadData;
        WriteData <= vReadData;
        wait for ts;
      end loop;
      file_close(Reader);
      file_close(Writer);
    end loop;
 
    wait;
  end process;
 
end architecture;