Tcl virhe - ylimääräisiä merkkejä jälkeen lähellä quote

[chetu]

Kanisteri u puh. minulle, mitä tämä virhe seuraava ohjelma ..

proc option_read (option) (
asettaa fileid [auki "inp.txt", r];
ja ([EOF $ fileid]! = 1) (
gets $ fileid line;
asettaa Firstline [Lindex $ line 0];
jos ($ Firstline == $ option) (
asettaa return_val [Lindex $ rivi 1];
return $ return_val;
)
)
Sulje $ fileid;
)
asettaa Input_format [option_read "Input_format"];
VCOM -2002 s_q_u.vhd;
VCOM -2002 test.vhd;
jos ($ Input_format == 1) (
asettaa seuraavat [option_read "seq_val1"];
) Else (
asettaa seuraavat [option_read "seq_val2"];
)
============== Luen joidenkin muuttujien inp.txt tiedoston jotka ovat käyttäjän tuotantopanokset.yrittää siirtää, että muuttujat minun VHDL-koodia.
ja toteuttaa kyseistä sain seuraavan virheen ...
# ** Virhe: ylimääräisiä merkkejä jälkeen lähellä quote
# Virhe rivillä 13
ei saada, mikä on tämä virhe, koska olen uusi Tcl.

 

[kumar_eee]

Tarkista tämä rivi asianmukaisesta täytäntöönpanosta ..

Quote:

asettaa Input_format [option_read "Input_format"]

 

[chetu]

Olen käyttäen modelsim ..Minun on exicute että modelsim itse.
Yritin, mutta se antaa saman virheen .. niin pyydän menettely on oikein?
muulla menetelmällä?

 

[kumar_eee]

proc option_read (option) (
asettaa fileid [avaa "inp.txt" r]
ja ([gets $ fileid line]> = 0) (
asettaa Firstline [Lindex $ line 0]
jos ($ Firstline == $ option) (
asettaa return_val [Lindex $ rivi 1]
)
)
Sulje $ fileid
return $ return_val
)

Kokeile tätä menettelyä ..

 

[chetu]

Ya ..sen wrking ja palauttamalla odotusarvo ..mutta voi u kertoa minulle wht on tehnyt virhettä minun koodi?

 

[kumar_eee]

Normaalisti dont käyttöä "," in TCL ..olet käyttänyt "paluu" väärässä paikassa.