eerewr, Tcl - rextester

Language: Layout:

#tclsh 8.6

# Пример использования upvar
# Преобразование значения в положительное число перед использованием
proc SetPositive {variable value } {
	upvar $variable myvar;
	if {$value < 0} { set myvar [expr -$value];} else {set myvar $value;}
	return $myvar;
}

SetPositive x 5;
SetPositive y -5;

puts "X : $x    Y: $y\n"
# размещение Upvars

# Процедура второго уровня - будет вызвана процедурой one
proc two {y} {
  upvar 1 $y z	;# связь вызываемого значения с переменной z
  upvar 2 x a	;# связь переменной x с переменной a
  puts "процедура twо: Z: $z A: $a"	;# вывод значений, просто для проверки
  set z 1 ;# установка z, передача на уровень выше числа 1
  set a 2 ;# установка x, передача числа 2 на два уровня выше
  }

;# Процедура первого уровня - будет вызвана из основной программы
proc one {y} {
	upvar $y z			;# это связь вызываемого значения с переменной z
	puts "процедура one: Z: $z"		;# Вывод значения, должно быть 5
	two z			;# вызов процедуры two, которая изменит значение
}

one y	;# вызов one, и вывод X и Y после вызова.
puts "\nX: $x  Y: $y"

[ + ] Show input
Absolute running time: 0.2 sec, cpu time: 0.15 sec, memory peak: 3 Mb, absolute service time: 0,21 sec