Cómo utilizar una variable como valor predeterminado de un argumento proc TCL

Question

Tengo una variable que me gustaría utilizar como valor predeterminado para un argumento:

proc log {message {output $::output}} { 
    .... 
} 

¿Hay una manera de hacer esto o ¿Necesito evaluar la variable dentro de mi proceso?

Answer 1

Sí, pero no puede usar llaves ({}) para su lista de argumentos. Usted declara el procedimiento, p. de esta manera:

proc log [list message [list output $::output]] { 
    .... 
} 

Pero tenga en cuenta:
La variable se evalúa en el momento en que se declare el procedimiento, no cuando se ejecuta!

Answer 2

Si desea un argumento predeterminado que solo está definido en el valor en el momento de la llamada, tiene que ser más complicado. La clave es que se puede utilizar info level 0 para obtener la lista de argumentos para la llamada al procedimiento actual, y entonces sólo comprobar la longitud de la lista:

proc log {message {output ""}} { 
    if {[llength [info level 0]] < 3} { 
     set output $::output 
    } 
    ... 
} 

Recuerde, al comprobar la lista de argumentos, el primero es el nombre del comando en sí.

Answer 3

Otra manera de hacer esto:

proc log {message {output ""}} { 
    if {$output eq ""} { 
     set output $::output 
    } 
}