TCL, вызывающий переменную пространства имен из proc вне пространства имен

Question

Я довольно много newb, и я пытаюсь установить некоторые переменные в пространстве имен, которые используют argv, а затем вызывать их из proc за пределами пространства имен , но мне трудно понять, как это сделать. Я пытаюсь использовать код вроде этого (но очевидно, что это неправильный способ сделать это):

namespace eval Ns { 
    variable spec [lindex $argv 1] 
} 

proc p {} { 
    set spec "::Ns::spec" 

} 

Answer 1

Правильный путь заключается в использовании variable:

proc p {} { 
    variable ::Ns::spec 
    # ... 
} 

Также возможна upvar:

proc p {} { 
    upvar #0 ::Ns::spec spec 
    # ... 
} 

или (почти), как вы делали это:

proc p {} { 
    set spec $::Ns::spec 
    # ... 
} 

Эта последняя возможность не изменит переменную, если она изменена в proc.

Answer 2

... Или сделать вызов возвращает значение:

proc Ns::getspec { } { 
    variable spec 

    return spec; 
}