我可以使用uplevel/upvar而不必使用全局嗎？

Question

所以，我測試出頭了，並有一個「測試」過程就像這樣：

proc test {arg} { 
    global state 
    puts "Your arg is: $arg" 
    set state 1 
} 
test somearg 
vwait state 

從閱讀uplevel和upvar，是有辦法，我可以不必使用全球脫身，並使用其中一個選項將狀態設置爲「1」，然後退出該程序？

Answer 1

是，除了vwait總是使用全局變量的等待（嚴格地說，它解決了在全球範圍內變量名;你可以使用其它名稱空間，如果你提供合格的名稱）。你不能做的就是等待一個局部變量（因爲事件不能在自己的調用棧之外看到局部變量）。也許這將在未來發生變化，但當然不是現在。

關於這個問題有關global，這些聲明的效果都是一樣的程序裏面：

global foo 
variable ::foo 
upvar #0 foo foo 
upvar ::foo foo 
namespace upvar :: foo foo 

您也有一個錯誤在你的代碼：你等着它改變之前設定的狀態。無論如何，這是行不通的，因爲你必須先等待，並在某種事件中設置狀態。

Answer 2

你在問兩個不同的東西。首先，關於變量。您可以使用upvar像這樣：

proc test {arg} { 
    upvar #0 state state 
    puts "Your arg is: $arg" 
    set state 1 
} 

，或者更容易，你可以使用命名空間限定名稱：

proc test {arg} { 
    puts "Your arg is: $arg" 
    set ::state 1 
} 

你問題的第二個「半」是vwait一些奇怪的用法。我只想指出，你的代碼片段不會完成，因爲你正在等待變量'狀態'改變，但沒有事件會改變狀態。當您撥打test時，您已經更改了它。所以，除非你設置了一個窗口/按鈕或者可能導致state狀態改變的東西，否則你的腳本將會掛起。

值得一讀wiki和man pagevwait。