Probleme mit TextIO - line

[Jürgen P. (Gast)]

Hallo zusammen,

ich habe leider gerade ein Problem in meiner Testbench, dort kann ich 
nicht wie gewünscht eine Text Line in eine andere kopieren.

Hintergrund: ich möchte gerne eine Text Datei parsen, daraus dann meine 
Befehle und Daten gewinnen und anschließend verarbeiten.

Die Textdatei ist wie folgt aufgebaut:

d 01 02 03
e 04 05 06 07 08 
p
d 09 0A 0B 0C
e 0C 0B 0A 
p
...

Hier ist ein Codebeispiel, wie ich die Daten verwenden will:

process
  variable vCommand : character;
  variable vLine    : line;
  variable vLine_D  : line;
  variable vLine_E  : line;
  variable vData_D  : std_logic_vector(7 downto 0);
  variable vData_E  : std_logic_vector(7 downto 0);
  variable vStatus_D: boolean;
  variable vStatus_E: boolean;

begin
  while vCommand != 'p' loop
    readline(File, vLine);
    read(vLine, vCommand);
    case vCommand is
     when 'd' =>    -- load data into line D
       vLine_D := vLine;
     when 'e' =>    -- load data into line E
       vLine_E := vLine;
     when 'p' =>    -- process data
       NULL;
    end case;
  end loop;

  read(vLine_D, vData_D, vStatus_D);
  read(vLine_E, vData_E, vStatus_E);

  while (vStatus_D = TRUE) or (vStatus_E = TRUE) loop
    -- process data...
    
    -- read next data
    read(vLine_D, vData_D, vStatus_D);
    read(vLine_E, vData_E, vStatus_E);
  end loop

end process;

Zunächst wird aus einer Datei die Zeile ausgelesen, dann das erste 
Zeichen als Kommando geparst. Je nach Kommando soll der Rest der Zeile 
dann in einen eigenen Speicher gelegt werden, um dann später verarbeitet 
zu werden.

Ich vermute, dass die Zuweisung "vLine_D := vLine" nicht funktioniert. 
Zumindest liefert mir das anschließende
read(vLine_D, vData_D, vStatus_D); immer den Status FALSE zurück...

Nach einiger Zeit kommt dann sogar noch folgender Fehler
# ** Fatal: (SIGSEGV) Bad handle or reference.
#    Time: 95720 ns  Iteration: 1  Process: <process>/line__72 File: 
<file>
# Fatal error in Process line__72 at <file> line 128

Die Line 128 bezieht sich auf das Read Command, allerdings erst wenn die 
Datei vollständig geparst wurde.

Habt ihr eine Idee, was hier der Fehler ist? Leider bin ich auch bei 
meinen Google Suchen nicht weitergekommen.

Vele Grüße,
Jürgen

[Jürgen P. (Gast)]

Hallo zusammen,

nun bin ich doch fündig geworden.

unter http://paws.kettering.edu/~mcdonald/class/ce422/qhdl/8_TxtIO.pdf 
findet sich auf Seite 8-4:

-- Bad VHDL (because L1 and L2 both point to the same buffer):
READLINE (infile, L1); -- Read and allocate buffer
L2 := L1; -- Copy pointers
WRITELINE (outfile, L1);-- Deallocate buffer

-- Good VHDL (because L1 and L2 point to different buffers):
READLINE (infile, L1); -- Read and allocate buffer
L2 := new string'(L1.all);-- Copy contents
WRITELINE (outfile, L1);-- Deallocate buffer

bei den Lines handelt es sich also lediglich um Pointer, mit all den 
entsprechenden Vor- und Nachteilen...

Viele Grüße
Jürgen

[Duke Scarring (Gast)]

Jürgen P. schrieb:
> bei den Lines handelt es sich also lediglich um Pointer, mit all den
> entsprechenden Vor- und Nachteilen...
Jepp. Stringverarbeitung macht im VHDL nicht wirklich Spaß. Leider.
Ich würde nur das nötigste im VHDL implementieren und die Steuerdateien 
von einer Hochsprache erzeugen lassen.

Duke

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

Ich habe mal ein Hexfile in VHDL geladen.
Vielleicht hilft es dir weiter.

process (wr_en,clk)
--constant file_name: string:="test3.jpg";
constant file_name: string:="test.jpg";
file in_file: f_byte open read_mode is file_name;
 
--variable in_line,out_line: line;
variable good:boolean;
variable a:character;
 
begin 
--read(in_file,a);
--data_in<=a;
--wait until wr_en='1';
--wait for 6 ns;
--wr<='1';
 
--when not endfile(in_file) loop
if  wr_en='0' then 
  --wr<='0';
  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;
end process;

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

*.jpg
Darin ist doch nichts Hexadezimales.

Und letztlich wird hier auch nur der Binärwert eines Bytes zugewiesen...

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

Lothar Miller schrieb:

> Und letztlich wird hier auch nur der Binärwert eines Bytes zugewiesen...


Ja Lothar du hast wieder Recht. Ich hatte mich falsch ausgedrückt.






Eine hilfreichte Unterstützung ist immer:


http://www.stefanvhdl.com/vhdl/vhdl/txt_util.vhd