Jak użyć zmiennej jako wartości domyślnej na TCL proc argumentu

Question

Mam zmiennej, które chciałbym użyć jako wartości domyślnej dla argumentu:

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

Czy istnieje sposób, aby to zrobić, lub potrzebuję do oceny zmiennej wewnątrz mojego proc?

Answer 1

Tak, ale nie można używać nawiasów klamrowych ({}) dla swojej listy argumentów. Deklarujesz procedurę, np. w ten sposób:

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

Ale należy pamiętać:
Zmienna jest oceniana w chwili, gdy procedura jest zadeklarowana, nie wtedy, gdy jest on wykonywany!

Answer 2

Jeśli chcesz ustawić domyślny argument, który jest zdefiniowany w wartości tylko w czasie połączenia, musisz być bardziej skomplikowany. Kluczem jest to, że można użyć info level 0 aby otrzymać listę argumentów do bieżącego wywołania procedury, a następnie po prostu sprawdzić długość tej listy:

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

Pamiętaj, że podczas sprawdzania listy argumentów, pierwszy z nich jest nazwą samego polecenia.

Answer 3

Innym sposobem, aby to zrobić:

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