Làm thế nào để sử dụng một biến là giá trị mặc định của một cuộc tranh luận proc TCL

Question

Tôi đã có một biến mà tôi muốn sử dụng như là giá trị mặc định cho một cuộc tranh cãi:

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

Có cách nào để làm điều này hoặc cần tôi để đánh giá biến trong proc của tôi?

Answer 1

Có, nhưng bạn không thể sử dụng dấu ngoặc nhọn ({}) cho danh sách đối số của mình. Bạn khai báo quy trình, ví dụ: theo cách này:

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

Nhưng lưu ý:
Biến được đánh giá vào thời điểm khi các thủ tục được khai báo, không phải khi nó được thực thi!

Answer 2

Nếu bạn muốn một đối số mặc định chỉ được xác định bằng giá trị tại thời điểm bạn gọi, bạn phải khéo léo hơn. Điều quan trọng là bạn có thể sử dụng info level 0 để có được danh sách các đối số cho các cuộc gọi thủ tục hiện hành, và sau đó bạn chỉ cần kiểm tra độ dài của danh sách đó:

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

Hãy nhớ rằng, khi kiểm tra danh sách các đối số, một trong những đầu tiên là tên của lệnh.

Answer 3

Một cách khác để làm điều này:

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