VHDL file seek

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

Ich habe eine Testbench die ein File öffnet und Daten aus dem File 
entnimmt. Das Läuft so weit. Jetzt will ich ein RESET integrieren und 
hier müsste das File wieder von Anfang an beginnen.
VHDL hat leider kein seek so weit ich weiss.
Hat jemand eine Idee wie so was gehen kann?

Ich poste meine aktuelle Lösung hier. Bin gespannt, ob es eine Lösung 
gibt.

signal clk          : std_logic := '0';
signal reset        : std_logic;

signal data_in       : std_logic_vector(7 downto 0);
signal rd_enable    : std_logic;
signal rd           : std_logic;
   -- Clock period definitions
   constant clk_period : time := 10 ns;
 
subtype by_te is character;
type f_byte is file of by_te;

BEGIN
--read a file
process 
constant file_name: string:="test.txt";
file in_file: f_byte open read_mode is file_name;

--variable in_line,out_line: line;
variable good:boolean;
variable a:character;

begin 
  if not endfile (in_file) then
    read(in_file,a);
    data_in<=std_logic_vector(to_unsigned(character'pos(a),8));--very tricky the conversation
    rd_enable<='1';
  else
    rd_enable<='0';
  end if;
  
  wait until rising_edge(CLK) and rd='1';  
end process;

[Valko Z. (hydravliska)]

Hi

kannst du nicht das File "einfach" schliessen und wieder aufmachen?


Gruss

[Lothar M. (Firma: Titel) (lkmiller) (Moderator)]

René D. schrieb:
> very tricky the conversation
Eine "schwierige Unterhaltung"?
Wenn dort statt "conversation" das Wort "conversion" steht, dann kommt 
auch ein Engländer damit klar...  ;-)

> Jetzt will ich ein RESET integrieren und hier müsste das File wieder von
> Anfang an beginnen.
Probiers mal mit file_close und file_open:
http://stackoverflow.com/questions/19184087/how-to-read-from-a-specific-line-from-a-text-file-in-vhdl
http://stackoverflow.com/questions/32267035/is-there-anyway-to-read-through-a-file-multiple-times-in-vhdl-using-std-textio

Eine mögliche Alternative:
dank des heutzutage in großen Mengen installierten Arbeitsspeichers lese 
ich einfach die komplette Datei in ein passendes Array und arbeite 
damit. Dann kann ich mit einem simplen Index auf das gewünschte Element 
zugreifen.

[Martin S. (strubi)]

Moin,

so Kram kannst du mit GHDL über die VHPI-Schnittstelle erledigen. Ist 
dann halt nicht mehr portabel zwischen Simulatoren...
Die knifflige Frage ist, ob der Reset intern durch die HDL oder extern 
als "Global Reset" ausgelöst wird. Ich würde dazu tendieren, sowas 
extern zu machen und fürs primitive I/O Pipes zu benutzen. Mit named 
pipes kannst du ev. ohne VHPI auskommen, aber das ist dann wieder 
Posix-spezifisch.

Grüsse,

- Strubi

[Patrick Lehmann (Gast)]

Hmmm,

also GHDL hat keine VHPI Schnittstelle; es ist eine VPI Schnittstelle 
(Verilog).

Wie schon angedeutet, sollte deine TB die Daten komplett einlesen und in 
ein passendes Array (konvertierte Daten) ablegen. Von diesem kannst du 
dann mehrfach lesen.


Viele Grüße
    Patrick Lehmann

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

VHPI ist eine Lösung für später.
Bin auf eine reine VHDL Lösung aus.

Jetzt ist die wie ich das mit dem öffnen und schließen richtig 
umschreibe.
Da ich das File  vor meiner begin Anweisung öffne.

[Duke Scarring (Gast)]

René D. schrieb:
> Da ich das File  vor meiner begin Anweisung öffne.
Dann ändere das.

Hier wird die Datei erneut gelesen, wenn sie "alle" ist:

    read_stimulus : process
        file     stimuli      : text;
        variable status       : file_open_status;
        variable l            : line;
        variable value        : integer;

    begin

        file_open( status, stimuli, filename);

        if status = open_ok then
            while not endfile( stimuli) loop
                readline( stimuli, l);
                read( l, value);
                -- do something with value...
                wait until rising_edge( clk);
            end loop;
            file_close( stimuli);
        else
            report "could not read stimuli file (" & filename & ")!"
                severity warning;
            wait;
        end if;

    end process read_stimulus;

Duke

[Lothar M. (Firma: Titel) (lkmiller) (Moderator)]

René D. schrieb:
> Jetzt ist die wie ich das mit dem öffnen und schließen richtig
> umschreibe.
> Da ich das File  vor meiner begin Anweisung öffne.
Ja, dann tu doch genau das nicht. Also eher etwa sowas:

process 
file in_file : f_byte;

--variable in_line,out_line: line;
variable good:boolean;
variable a:character;

begin
  file_open(in_file, "test.txt", read_mode);

  if not endfile (in_file) then
    read(in_file,a);
    data_in<=std_logic_vector(to_unsigned(character'pos(a),8));--very tricky the conversation
    rd_enable<='1';
  else
    rd_enable<='0';
  end if;
  
  file_close(in_file);
   
  wait until rising_edge(CLK) and rd='1';  
end process;

EDIT: Ich war auch kurz versucht, dem File den Typ text zu geben, habe 
aber dann die Handstände mit dem character gesehen und die Finger 
weggelassen... ;-)

[Martin S. (strubi)]

Patrick Lehmann schrieb:
> Hmmm,
>
> also GHDL hat keine VHPI Schnittstelle; es ist eine VPI Schnittstelle
> (Verilog).
>

Naja, sagen wir, es ist eine nicht ganz standardkonforme 
VHPI-Schnittstelle. Aber sie ist da :-)
Das VPI-Interface ist ja ein anderes Paar Stiefel.

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

Lothar M. schrieb:
> René D. schrieb:
>> Jetzt ist die wie ich das mit dem öffnen und schließen richtig
>> umschreibe.
>> Da ich das File  vor meiner begin Anweisung öffne.
> Ja, dann tu doch genau das nicht. Also eher etwa sowas:

wenn es so einfach wäre.

Ich musste die Zeile

use STD.textio.all;

einfügen

subtype by_te is character;
type f_byte is file of by_te;

BEGIN
  process
    constant file_name: string:="test.txt";

        variable l            : line;
        variable a            : character;
        file     stimuli      : f_byte;
        variable status       : file_open_status;
    begin

        file_open( status, stimuli, file_name);

        if reset='0'  then
            while not endfile( stimuli) loop
                readline( stimuli, l);
                read( l, a);
                  data_in<=std_logic_vector(to_unsigned(character'pos(a),8));--very tricky conversion
                wait until (rising_edge( clk) and rd='1') or (reset='1');
            end loop;
            file_close( stimuli);
        end if;

    end process ;

ghdl -a  --work=work --workdir=work Loopback.vhd
ghdl -a  --work=work --workdir=work tb_file.vhd
tb_file.vhd:83:27: can't associate 'stimuli' with file interface "f"
tb_file.vhd:83:27: (type of 'stimuli' is f_byte)
../../src/std/textio.v93:51:28: (type of file interface "f" is text)
ghdl: compilation error

Komme damit nicht durch.

[Duke Scarring (Gast)]

René D. schrieb:
> Komme damit nicht durch.

Und was passiert, wenn Du den file type änderst?!:

    file     stimuli      : character;
    -- oder
    file     stimuli      : text;

Duke

[Lothar M. (Firma: Titel) (lkmiller) (Moderator)]

René D. schrieb:
> tb_file.vhd:83:27: can't associate 'stimuli' with file interface "f"
Um diese Fehlermeldung zu verstehen, musst du den Prototypen von 
readline() anschauen:

procedure readline (file f: text; l: inout line);

Und jetzt wird klar, was mit dem Interface "f" gemeint ist: der Prototyp 
sagt, das zu erwartende file habe den Datentyp text. Du übergibst 
aber ein file vom Datentyp f_byte...