Tcl σφάλμα

[chetu]

Can u τηλ. μου τι είναι αυτό το λάθος στο παρακάτω πρόγραμμα ..

proc option_read επιλογή) ((
που fileid [ανοιχτή "inp.txt", r]?
ενώ ([eof $ fileid]! = 1) (
παίρνει $ fileid γραμμή?
που firstline [lindex $ line 0]?
αν ($ firstline == $ option) (
που return_val [lindex $ line 1]?
return $ return_val?
)
)
στενή $ fileid?
)
που Input_format [option_read "Input_format"]?
VCOM -2002 s_q_u.vhd?
VCOM -2002 test.vhd?
αν ($ Input_format == 1) (
σύνολο επόμενα [option_read "seq_val1"]?
) Else (
σύνολο επόμενα [option_read "seq_val2"]?
)
============== Είμαι ανάγνωση ορισμένες μεταβλητές από inp.txt αρχείων αυτών είναι οι συντελεστές του χρήστη.προσπαθεί να περάσει ότι οι μεταβλητές σε VHDL κωδικό μου.
ενώ εκτελεί αυτό πήρα από λάθος ...
# ** Σφάλμα: επιπλέον χαρακτήρες μετά από στενή-quote
# Σφάλμα στη γραμμή 13
δεν παίρνει ό, τι είναι αυτό το λάθος αφού είμαι νέος σε Tcl.