textio - line als index für array verwenden

[Alex (Gast)]

Hallo,

ich habe mal einen neuen Thread erstellt, weil er thematisch nicht mehr 
wirklich in meinen anderen Thread passt.

Ich habe die folgende Datei von stefanvhdl.com etwas modifiziert.
http://www.stefanvhdl.com/vhdl/html/file_read.html

Ziel soll es sein ohne Takt, direkt sequentuell, alle Zeilen in ein 
Array zu schreiben, damit ich es von dort zu meinen Stimuli Registern 
mappen kann.

So wie ich es verstanden habe, wird die Variable l : line automtaisch 
mit jedem loop-Durchlauf hochgezählt, bis end-of-file erreicht ist. Das 
wollte ich ausnutzen um die line-Variable als Index für mein Array zu 
verwenden.
Ein Index kann natürlich nur integer sein. (siehe markierte Zeile 33)

Wie also kann ich line => integer umwandeln und somit mein Vorhaben 
übersichtlich gestalten?

library ieee;
use ieee.std_logic_1164.all;
use std.textio.all;
use work.txt_util.all;
 
entity FILE_READ is
  generic ( stim_file:       string  := "sim.dat" );
  port(CLK              : in  std_logic;
       RST              : in  std_logic;
       ...
       EOG              : out std_logic);
end FILE_READ;
    
architecture read_from_file of FILE_READ is
  
  file stimulus: TEXT open read_mode is stim_file;

  type text_array is array (0 to 5) of std_logic_vector(4 downto 0);
  signal sim_text : text_array;

begin
  -- read data and control information from a file
  receive_data: process
     variable l: line;
     variable s: string(y'range);
  begin                                       
     EOG <= '0';
     wait until RST='1';               -- wait for Reset to complete
     wait until RST='0';
     while not endfile(stimulus) loop  -- read digital data from input file
       readline(stimulus, l);      
       read(l, s);
       ---------------------------------------
       sim_text(l) <= to_std_logic_vector(s);   -- Zeile 33
       ---------------------------------------
     end loop;
     print("I@FILE_READ: reached end of "& stim_file);
     EOG <= '1';
     wait;
end process receive_data;

end read_from_file;

Vielen Dank!
Alex

[Duke Scarring (Gast)]

line ist m.E. nur so eine Art Zeiger auf den String, der die Daten 
enthält.
Du kannst Dir aber einen eigenen Index bauen.

Duke

[Alex (Gast)]

Hallo,

ja klar, aber ich dachte ich kann den Wert von line irgendwie verwenden, 
das würde die Sache erheblich vereinfachen und übersichtlicher machen.

So geht es schon:

  receive_data: process
     variable l     : line;
     variable index : integer := 0;
     variable s     : string(y'range);
  begin                                       
     EOG <= '0';
     wait until RST='1';               -- wait for Reset to complete
     wait until RST='0';
     while not endfile(stimulus) loop  -- read digital data from input file
       readline(stimulus, l);      
       read(l, s);
       ---------------------------------------
       sim_text(index) <= to_std_logic_vector(s);   -- Zeile 33
       ---------------------------------------
       index := index +1;
     end loop;
     print("I@FILE_READ: reached end of "& stim_file);
     EOG <= '1';
     wait;
end process receive_data;

So ist mein Eingabe-File auf maximal 2.147.483.648 Zeilen beschränkt, 
ich hoffe das reicht aus xD

[Michael F. (dasdgw)]

Duke hat das richtig erkannt. line ist ein pointer.
Bei uns VHDLern nennt sich das access.

in der std.textio steht:
line is access string;

So, und einen Pointer kann man nicht zum indexieren nehmen.

gruß dasdgw

[René D. (Firma: www.dossmatik.de) (dose)]

Es gibt den Typ character das ist eine String mit einer position.
setze s auf den Type character und lese die Zeile in einer Schleife aus.
Mit String in VHDL habe ich auch keine Ahnung aber mit Charakter wird es 
wieder klarer und es hat bis jetzt immer ausgereicht.


ASCII zu integer ibt es nicht. Die Lösung ist die Funktion 
http://www.stefanvhdl.com/vhdl/vhdl/txt_util.vhd



ASCII zu integer ibt es nicht. Bei Stefan

   -- functions to convert strings into other formats
    --------------------------------------------------

    -- converts a character into std_logic
    function to_std_logic(c: character) return std_logic;

    -- converts a string into std_logic_vector
    function to_std_logic_vector(s: string) return std_logic_vector;





Ich habe noch ein Beispiel für dich, wie man hexfiles in einer Testbench 
laden kann. Nur als Anregung.

  elsif clk'event and clk='1' then
    if not endfile (in_file) then
      read(in_file,a);
    end if;
    data_in<=to_unsigned(character'pos(a),8);--very tricky the conversation
  --  wr<='1';
 
end if;