Comment utiliser une variable comme valeur par défaut d'un argument proc TCL

Question

J'ai une variable que je voudrais utiliser comme valeur par défaut pour un argument:

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

Est-il possible de le faire ou besoin d'évaluer la variable dans mon proc?

Answer 1

Oui, mais vous ne pouvez pas utiliser d'accolades ({}) pour votre liste d'arguments. Vous déclarez la procédure par ex. de cette façon:

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

Mais attention:
La variable est évaluée au moment où la procédure est déclarée, pas quand il est exécuté!

Answer 2

Si vous voulez un argument par défaut défini uniquement en valeur au moment de l'appel, vous devez être plus compliqué. La clé est que vous pouvez utiliser info level 0 pour obtenir la liste des arguments à l'appel de la procédure en cours, et vous vérifiez que la longueur de cette liste:

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

Rappelez-vous, lors de la vérification de la liste des arguments, le premier est le nom de la commande elle-même.

Answer 3

Une autre façon de le faire:

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