Ben bir argüman için varsayılan değer olarak kullanmak istiyorum bir değişken var

Question

bir TCL proc argüman varsayılan değer olarak bir değişken nasıl kullanılır: Bunu yapmanın bir yolu var mı

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

veya Değişkenimi proc içinde değerlendirmem gerekiyor mu?

Answer 1

Evet, ancak bağımsız değişkenler listeniz için kaşlı ayraçlar ({}) kullanamazsınız. Prosedürü bildirirsiniz, ör. Bu yol:

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

Ama dikkat edin:
değişken prosedürü bildirildi anda değerlendirilir , çalıştırıldığı zaman değil zaman!

Answer 2

Yalnızca aradığınız anda değer olarak tanımlanmış bir varsayılan argüman istiyorsanız, daha zor olmanız gerekir. argümanlar listesini kontrol ederken

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

, ilkini Hatırla: tuşu geçerli yordam çağrısına argümanlar listesini almak için info level 0 kullanabilir ve sonra sadece o listenin uzunluğunu kontrol olmasıdır komutun adıdır.

Answer 3

bir başka yolu bunu yapmak için:

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