Passer la liste à la procédure Tcl

Question

Quelle est la manière canonique de passer une liste à une procédure Tcl? Je voudrais vraiment si je pouvais l'obtenir afin qu'une liste soit automatiquement étendue dans un nombre variable d'arguments.

Alors que quelque chose comme:

set a {b c} 
myprocedure option1 option2 $a 

et

myprocedure option1 option2 b c 

sont équivalentes.

Je suis sûr que j'ai déjà vu ça, mais je ne le trouve nulle part en ligne. Toute aide (et code) pour rendre les deux cas équivalents serait appréciée. Est-ce considéré comme une convention Tcl standard? Ou suis-je même aboyer le mauvais arbre?

Answer 1

Cela dépend de la version de Tcl que vous utilisez, mais: 8,5:

set mylist {a b c} 
myprocedure option1 option2 {*}$mylist 

Pour 8.4 et ci-dessous:

set mylist {a b c} 
eval myprocedure option1 option2 $mylist 
# or, if option1 and 2 are variables 
eval myprocedure [list $option1] [list $option2] $mylist 
# or, as Bryan prefers 
eval myprocedure \$option1 \$option2 $mylist 

Answer 2

Pour développer la réponse de RHSeeger, vous coderez myProcedure avec l'argument args spécial comme celui-ci:

proc myprocedure {opt1 opt2 args} { 
    puts "opt1=$opt1" 
    puts "opt2=$opt2" 
    puts "args=[list $args]" ;# just use [list] for output formatting 
    puts "args has [llength $args] elements" 
} 

Answer 3

Il pourrait être utile de noter que le passage de votre commande à catch également résoudre ce problème:

set a {b c} 
if [catch "myprocedure option1 option2 $a"] { 
    # handle errors 
} 

Cela devrait probablement être utilisé si vous voulez gérer les erreurs dans MaProcédure à ce point dans votre code afin que vous n » Je dois m'inquiéter de republier les erreurs qui se sont accumulées.