как работает команда upvar в TCL?

У меня есть вопрос о команде upvar в TCL. С помощью команды upvar у нас есть ссылка на глобальную или локальную переменную в другой процедуре. Я увидел следующий код:

proc tamp {name1 name2} {
    upvar $name1 Ronalod
    upvar $name2 Dom 
    set $Dom "Dom"
}

эта процедура называется как tamp name1 name2, и вне ее не определены глобальные переменные name1, name2, как в этом случае работает этот upvar?

12
задан 15 June 2012 в 09:23
поделиться