Citation argument Tcl

Question

J'ai un problème de cotation dans Tcl. J'ai une longue liste de signaux à partir de laquelle dans une boucle for j'affecte chacun à my_sig puis l'analyser.

foreach sig $list_of_sigs { 
    set my_sig $sig 
} 

Un exemple de ce que je nous obtenons est:

set my_sig top.sub.sig[0] 

Comment puis-je utiliser my_sig dans les commandes à suivre telles que « [ » et « ] » sont automatiquement évadés? Par exemple, mes commandes acceptent:

my_command -filter signal_bit=="top.sub.sig\[0\]" 

Merci!

Answer 1

Vous n'avez pas normalement de le faire, comme Tcl ne réinterprète pas le contenu des variables, sauf demande explicitement. Quelque chose augmente à nouveau la valeur et vous devriez probablement la poursuivre car elle est en fait peu sûre d'un point de vue formel, et cela tend à corréler avec le fait que le code soit lent aussi.

Cela dit, il est assez facile d'ajouter un devis avec string map. Tout ce qu'il faut, c'est un peu de soin avec la citation des barres obliques inverses.

foreach sig $list_of_sigs { 
    set my_sig [string map {[ {\[} ] {\]}} $sig] 
    # ... etc ... 
} 

Answer 2

Essayez

set my_sig {top.sub.sig[0]} 
my_command -filter signal_bit==$my_sig 

Answer 3

Vous pouvez utiliser une expression régulière pour échapper aux caractères spéciaux.

regsub -all {([\[\]])} $sig "\\\\\\1" sig 

Références: regsubre_syntax