##// END OF EJS Templates
temp
temp

File last commit:

r602:ddd72636badb simu_with_Leon3
r602:ddd72636badb simu_with_Leon3
Show More
reader_pkg.vhd
114 lines | 3.6 KiB | text/x-vhdl | VhdlLexer
------------------------------------------------------------------------------
-- This file is a part of the LPP VHDL IP LIBRARY
-- Copyright (C) 2009 - 2010, Laboratory of Plasmas Physic - CNRS
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 3 of the License, or
-- (at your option) any later version.
--
-- This program 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 General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-------------------------------------------------------------------------------
-- Author : Jean-christophe Pellion
-- Mail : jean-christophe.pellion@lpp.polytechnique.fr
-- jean-christophe.pellion@easii-ic.com
----------------------------------------------------------------------------
LIBRARY ieee;
USE ieee.std_logic_1164.ALL;
USE ieee.numeric_std.ALL;
USE ieee.math_real.ALL;
LIBRARY std;
USE std.textio.ALL;
LIBRARY lpp;
USE lpp.data_type_pkg.ALL;
PACKAGE reader_pkg IS
CONSTANT CHARACTER_COMMENT : CHARACTER := '#';
FUNCTION get_array_real (
file_in : TEXT;
nb_data_read : INTEGER)
RETURN array_real;
FUNCTION get_array_integer (
file_in : TEXT;
nb_data_read : INTEGER)
RETURN array_integer;
END reader_pkg;
PACKAGE BODY reader_pkg IS
FUNCTION get_array_real (
file_name : STRING;
nb_data_to_read : INTEGER)
RETURN array_real
IS
VARIABLE GOOD : BOOLEAN;
VARIABLE array_real_v : array_real(0 TO nb_data_to_read-1);
VARIABLE real_p : REAL;
VARIABLE nb_data_read : INTEGER := 0;
FILE file_p : TEXT;
VARIABLE line_p : LINE;
BEGIN
GOOD := false;
file_open(file_p, file_name, read_mode);
WHILE (NOT endfile(file_p)) AND (nb_data_read <nb_data_to_read) LOOP
readline(file_p, line_p);
read(line_p, real_p, GOOD);
IF GOOD THEN
array_real_v(nb_data_read) := real_p;
nb_data_read := nb_data_read + 1;
END IF;
END LOOP;
IF nb_data_read < nb_data_to_read THEN
GOOD := false;
ELSE
GOOD := true;
END IF;
RETURN array_real_v;
END get_array_real;
FUNCTION get_array_integer (
file_name : STRING;
nb_data_to_read : INTEGER)
RETURN array_integer
IS
VARIABLE GOOD : BOOLEAN;
VARIABLE array_integer_v : array_integer(0 TO nb_data_to_read-1);
VARIABLE integer_p : INTEGER;
VARIABLE nb_data_read : INTEGER := 0;
FILE file_p : TEXT;
VARIABLE line_p : LINE;
BEGIN
GOOD := false;
file_open(file_p, file_name, read_mode);
WHILE (NOT endfile(file_p)) AND (nb_data_read <nb_data_to_read) LOOP
readline(file_p, line_p);
read(line_p, integer_p, GOOD);
IF GOOD THEN
array_integer_v(nb_data_read) := integer_p;
nb_data_read := nb_data_read + 1;
END IF;
END LOOP;
IF nb_data_read < nb_data_to_read THEN
GOOD := false;
ELSE
GOOD := true;
END IF;
RETURN array_integer_v;
END get_array_integer;
END reader_pkg;