jens
2edaa4d7cb
git-svn-id: http://moon:8086/svn/vhdl/trunk@1290 cc03376c-175c-47c8-b038-4cd826a8556b
125 lines
3.2 KiB
VHDL
125 lines
3.2 KiB
VHDL
LIBRARY ieee;
|
|
USE ieee.std_logic_1164.ALL;
|
|
USE STD.textio.ALL;
|
|
|
|
PACKAGE util_1164 IS
|
|
PROCEDURE read(l: INOUT line; value: OUT std_logic);
|
|
PROCEDURE read(l: INOUT line; value: OUT std_logic_vector);
|
|
PROCEDURE write(l: INOUT line; value: IN std_logic_vector;
|
|
JUSTIFIED: IN SIDE := right;
|
|
FIELD: IN WIDTH := 0);
|
|
PROCEDURE Grow_line(L : inout LINE; incr : in integer);
|
|
END util_1164;
|
|
|
|
|
|
|
|
PACKAGE BODY util_1164 IS
|
|
|
|
FUNCTION white_space(value:character) RETURN boolean IS
|
|
VARIABLE result:boolean;
|
|
BEGIN
|
|
IF (value = ' ') OR (value = HT) THEN
|
|
RETURN true;
|
|
ELSE
|
|
RETURN false;
|
|
END IF;
|
|
END white_space;
|
|
|
|
PROCEDURE read(l: INOUT line; value: OUT std_logic) IS
|
|
VARIABLE char_var: character:= ' ';
|
|
BEGIN
|
|
WHILE l'LENGTH > 0 LOOP
|
|
read(l,char_var);
|
|
IF NOT white_space(char_var) THEN
|
|
EXIT;
|
|
END IF;
|
|
END LOOP;
|
|
IF white_space(char_var) THEN
|
|
ASSERT false REPORT "No std_logic value found in file"
|
|
SEVERITY error;
|
|
value := 'X';
|
|
RETURN;
|
|
END IF;
|
|
|
|
CASE char_var IS
|
|
WHEN 'U'|'u' => value := 'U';
|
|
WHEN '0' => value := '0';
|
|
WHEN '1' => value := '1';
|
|
WHEN 'X'|'x' => value := 'X';
|
|
WHEN 'L'|'l' => value := 'L';
|
|
WHEN 'H'|'h' => value := 'H';
|
|
WHEN 'W'|'w' => value := 'W';
|
|
WHEN 'Z'|'z' => value := 'Z';
|
|
WHEN '-' => value := '-';
|
|
WHEN OTHERS =>
|
|
ASSERT false REPORT "Unrecognized value read for std_logic"
|
|
SEVERITY error;
|
|
value := 'X';
|
|
END CASE;
|
|
END read;
|
|
|
|
PROCEDURE read(l: INOUT line; value: OUT std_logic_vector) IS
|
|
BEGIN
|
|
FOR i IN value'HIGH DOWNTO value'LOW LOOP
|
|
IF l'LENGTH > 0 THEN
|
|
read(l,value(i));
|
|
ELSE
|
|
ASSERT false REPORT "Not enough values for std_logic_vector in file"
|
|
SEVERITY error;
|
|
RETURN;
|
|
END IF;
|
|
END LOOP;
|
|
END read;
|
|
|
|
procedure Grow_line(L : inout LINE; incr : in integer)
|
|
is
|
|
variable old_L : LINE := L;
|
|
variable bfp: integer; -- Blank fill pointer.
|
|
begin
|
|
assert incr > 0
|
|
report "Textio: Grow_line called with zero increment."
|
|
severity error;
|
|
|
|
if L = null then
|
|
bfp := 0;
|
|
L := new string(1 to incr);
|
|
else
|
|
bfp := old_L'high;
|
|
L := new string(old_L'low to old_L'high + incr);
|
|
L(old_L'low to old_L'high) := old_L.all;
|
|
Deallocate(old_L);
|
|
end if;
|
|
for i in 1 to incr loop
|
|
L(bfp + i) := ' ';
|
|
end loop;
|
|
end;
|
|
|
|
|
|
PROCEDURE write(l: INOUT line; value: IN std_logic_vector;
|
|
JUSTIFIED: IN SIDE := right;
|
|
FIELD: IN WIDTH := 0) IS
|
|
variable fw: integer := VALUE'length;
|
|
variable bp: integer;
|
|
variable offset: integer := 0;
|
|
alias normal : std_logic_vector(0 to value'length - 1) is value;
|
|
begin
|
|
if L /= null then
|
|
bp := L'high + 1;
|
|
else bp := 1;
|
|
end if;
|
|
if FIELD > VALUE'length then
|
|
fw := FIELD;
|
|
if JUSTIFIED = right then
|
|
offset := fw - VALUE'length;
|
|
end if;
|
|
end if;
|
|
Grow_line(L, fw);
|
|
for i in normal'range loop
|
|
L(bp + i + offset) := character'val(
|
|
std_logic'pos(normal(i)) + character'pos('0'));
|
|
end loop;
|
|
end;
|
|
|
|
|
|
END util_1164;
|