Pasando la lista al procedimiento Tcl

Question

¿Cuál es la manera canónica de pasar una lista a un procedimiento Tcl?

Me gustaría mucho si pudiera obtenerlo para que una lista se expanda automáticamente en una cantidad variable de argumentos.

Así que algo como:

set a {b c} 
myprocedure option1 option2 $a 

y

myprocedure option1 option2 b c 

son equivalentes.

Estoy seguro de que vi esto antes, pero no puedo encontrarlo en línea. Cualquier ayuda (y código) para hacer que ambos casos sean equivalentes sería apreciado.

Esto se considera una convención estándar de Tcl. ¿O incluso estoy ladrando el árbol equivocado?

Answer 1

Depende de la versión de Tcl que está utilizando, pero: Para 8.5:

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

el 8,4 y abajo:

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

Para ampliar la respuesta de RHSeeger, sería codificar MyProcedure con el argumento args especial como este:

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

Podría ser útil tener en cuenta que la aprobación de su mando a catch también va a resolver este problema:

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

Esto se debe probablemente sólo se utiliza si quiere controlar los errores en MyProcedure en este momento de su código para que usted don' Tengo que preocuparme por volver a lanzar cualquier error que pueda atrapar.