commande foreach en tcl pour lire un fichier

Question

J'ai 6 fichiers dans un répertoire; A.v, A.def, B.v, B.def, C.v, C.def. Je veux lire les fichiers A.v et A.def à la fois et aller à B.v et B.def et ainsi de suite. J'utilise l'extrait suivant pour effectuer la fonction ci-dessus, mais il lance des erreurs.

foreach i [glob "./*.v"] { 
    read_verilog $i.v 
    read_def $i.def 
} 

Je voudrais définir la variable à lire le nom A, B, C, etc.

Answer 1

Vous voulez utiliser la commande file rootname ici:

foreach file [glob -nocomplain "./*.v"] { 
    read_verilog $file 
    read_def [file rootname $file].def 
}